Source Code
004763,000001: # Copyright 2004 Ronald S. Burkey <info@sandroid.org>
004764,000002: #
004765,000003: # This file is part of yaAGC.
004766,000004:
004767,000005: # yaAGC is free software; you can redistribute it and/or modify
004768,000006: # it under the terms of the GNU General Public License as published by
004769,000007: # the Free Software Foundation; either version 2 of the License, or
004770,000008: # (at your option) any later version.
004771,000009:
004772,000010: # yaAGC is distributed in the hope that it will be useful,
004773,000011: # but WITHOUT ANY WARRANTY; without even the implied warranty of
004774,000012: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
004775,000013: # GNU General Public License for more details.
004776,000014:
004777,000015: # You should have received a copy of the GNU General Public License
004778,000016: # along with yaAGC; if not, write to the Free Software
004779,000017: # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
004780,000018:
004781,000019: # Filename: SmallyIN-OUT3.agc
004782,000020: # Purpose: This is code written from the flowchart on p. 51 of
004783,000021: # E-2065, which is a document titled "Block II AGC
004784,000022: # Self-Check and Show-Banksum", by Edwin D. Smally.
004785,000023: # Mod history: 07/07/04 RSB. Began.
004786,000024:
004787,000025: # Similar code was apparently originally in Luminary and/or Colossus,
004788,000026: # but much of it was removed over the course of time to make more room.
004789,000027: # I don't know what the original code was like, but the flowcharts still
004790,000028: # exist, so I've rewritten the code from the flowcharts.
004791,000029:
004792,000030: # P. 51 of Smally.
004793,000031:
004794,000032: 05,2064 37656 CA MAXN-1
004795,000033: 05,2065 54001 TS L
004796,000034: 05,2066 37611 CA O17777
004797,000035:
004798,000036: 05,2067 24062 INCR ERRSUB
004799,000037: 05,2070 00006 EXTEND
004800,000038: 05,2071 02001 RAND L
004801,000039: 05,2072 67631 AD NEGONE
004802,000040: 05,2073 00006 EXTEND
004803,000041: 05,2074 12076 BZF +2
004804,000042: 05,2075 12135 TCF IO3ERROR
004805,000043:
004806,000044: 05,2076 37611 CA O17777
004807,000045:
004808,000046: 05,2077 24062 INCR ERRSUB
004809,000047: 05,2100 00006 EXTEND
004810,000048: 05,2101 03001 WAND L
004811,000049: 05,2102 67631 AD NEGONE
004812,000050: 05,2103 00006 EXTEND
004813,000051: 05,2104 12106 BZF +2
004814,000052: 05,2105 12135 TCF IO3ERROR
004815,000053: 05,2106 30001 CA L
004816,000054: 05,2107 67631 AD NEGONE
004817,000055: 05,2110 00006 EXTEND
004818,000056: 05,2111 12113 BZF +2
004819,000057: 05,2112 12135 TCF IO3ERROR
004820,000058:
004821,000059: 05,2113 37640 CA FIVE
004822,000060: 05,2114 40000 COM
004823,000061: 05,2115 54001 TS L
004824,000062: 05,2116 37640 CA FIVE
004825,000063: 05,2117 24000 INCR A
004826,000064:
004827,000065: 05,2120 24062 INCR ERRSUB
004828,000066: 05,2121 00006 EXTEND
004829,000067: 05,2122 06001 RXOR L
004830,000068: 05,2123 67637 AD THREE
004831,000069: 05,2124 00006 EXTEND
004832,000070: 05,2125 12127 BZF +2
004833,000071: 05,2126 12135 TCF IO3ERROR
004834,000072: 05,2127 30001 CA L
004835,000073: 05,2130 67640 AD FIVE
004836,000074: 05,2131 00006 EXTEND
004837,000075: 05,2132 12134 BZF +2
004838,000076: 05,2133 12135 TCF IO3ERROR
004839,000077:
004840,000078: 05,2134 12136 TCF +2
004841,000079: 05,2135 07437 IO3ERROR TC ERRORDSP
004842,000080:
End of include-file SmallyIN-OUT3.agc. Parent file is ValidateSmally.agc