Source Code
004729,000001: # Copyright 2004 Ronald S. Burkey <info@sandroid.org>
004730,000002: #
004731,000003: # This file is part of yaAGC.
004732,000004:
004733,000005: # yaAGC is free software; you can redistribute it and/or modify
004734,000006: # it under the terms of the GNU General Public License as published by
004735,000007: # the Free Software Foundation; either version 2 of the License, or
004736,000008: # (at your option) any later version.
004737,000009:
004738,000010: # yaAGC is distributed in the hope that it will be useful,
004739,000011: # but WITHOUT ANY WARRANTY; without even the implied warranty of
004740,000012: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
004741,000013: # GNU General Public License for more details.
004742,000014:
004743,000015: # You should have received a copy of the GNU General Public License
004744,000016: # along with yaAGC; if not, write to the Free Software
004745,000017: # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
004746,000018:
004747,000019: # Filename: SmallyO-UFLOW.agc
004748,000020: # Purpose: This is code written from the flowchart on p. 53 of
004749,000021: # E-2065, which is a document titled "Block II AGC
004750,000022: # Self-Check and Show-Banksum", by Edwin D. Smally.
004751,000023: # Mod history: 07/07/04 RSB. Began.
004752,000024:
004753,000025: # Similar code was apparently originally in Luminary and/or Colossus,
004754,000026: # but much of it was removed over the course of time to make more room.
004755,000027: # I don't know what the original code was like, but the flowcharts still
004756,000028: # exist, so I've rewritten the code from the flowcharts.
004757,000029:
004758,000030: # P. 53 of Smally
004759,000031:
004760,000032: 05,2206 24062 INCR ERRSUB
004761,000033:
004762,000034: 05,2207 37447 CA MAXN
004763,000035: 05,2210 54072 TS SKEEP5
004764,000036: 05,2211 37443 CA MAXP
004765,000037:
004766,000038: 05,2212 00004 OUFLOOP1 INHINT
004767,000039:
004768,000040: 05,2213 67443 AD MAXP
004769,000041: 05,2214 67430 AD ONE
004770,000042: 05,2215 54002 TS Q
004771,000043: 05,2216 12217 NOOP
004772,000044:
004773,000045: 05,2217 10002 OUFLOOP2 CCS Q
004774,000046: 05,2220 12224 TCF +4
004775,000047: 05,2221 12272 TCF OUFERROR
004776,000048: 05,2222 12242 TCF OUFNZERO
004777,000049: 05,2223 12272 TCF OUFERROR
004778,000050:
004779,000051: 05,2224 54071 TS SKEEP4
004780,000052: 05,2225 12257 TCF OUFDONE
004781,000053:
004782,000054: 05,2226 30071 CA SKEEP4
004783,000055: 05,2227 60072 AD SKEEP5
004784,000056: 05,2230 67430 AD ONE
004785,000057: 05,2231 00006 EXTEND
004786,000058: 05,2232 12234 BZF +2
004787,000059: 05,2233 12272 TCF OUFERROR
004788,000060:
004789,000061: 05,2234 30072 CA SKEEP5
004790,000062: 05,2235 67447 AD MAXN
004791,000063: 05,2236 67424 AD NEGONE
004792,000064: 05,2237 54002 TS Q
004793,000065: 05,2240 12241 NOOP
004794,000066: 05,2241 12217 TCF OUFLOOP2
004795,000067:
004796,000068: 05,2242 54070 OUFNZERO TS SKEEP3
004797,000069: 05,2243 12272 TCF OUFERROR
004798,000070:
004799,000071: 05,2244 30070 CA SKEEP3
004800,000072: 05,2245 60072 AD SKEEP5
004801,000073: 05,2246 67430 AD ONE
004802,000074: 05,2247 00006 EXTEND
004803,000075: 05,2250 12252 BZF +2
004804,000076: 05,2251 12272 TCF OUFERROR
004805,000077:
004806,000078: 05,2252 00003 RELINT
004807,000079:
004808,000080: 05,2253 30071 CA SKEEP4
004809,000081: 05,2254 00006 EXTEND
004810,000082: 05,2255 26072 DIM SKEEP5
004811,000083: 05,2256 12212 TCF OUFLOOP1
004812,000084:
004813,000085: 05,2257 10072 OUFDONE CCS SKEEP5 # Smally says that SKEEP5 is +1
004814,000086: 05,2260 12272 TCF OUFERROR # here, but that has to be wrong
004815,000087: 05,2261 12272 TCF OUFERROR # since SKEEP5 is always negative.
004816,000088: 05,2262 12272 TCF OUFERROR # Must be -1.
004817,000089:
004818,000090: 05,2263 30071 CA SKEEP4
004819,000091: 05,2264 67447 AD MAXN
004820,000092: 05,2265 00006 EXTEND
004821,000093: 05,2266 12270 BZF +2
004822,000094: 05,2267 12272 TCF OUFERROR
004823,000095:
004824,000096: 05,2270 00003 RELINT
004825,000097:
004826,000098: 05,2271 12273 TCF +2
004827,000099: 05,2272 07240 OUFERROR TC ERRORDSP
004828,000100:
End of include-file SmallyO-UFLOW.agc. Parent file is ValidateSmally.agc