Source Code
003048,000001: # Copyright 2004 Ronald S. Burkey <info@sandroid.org>
003049,000002: #
003050,000003: # This file is part of yaAGC.
003051,000004:
003052,000005: # yaAGC is free software; you can redistribute it and/or modify
003053,000006: # it under the terms of the GNU General Public License as published by
003054,000007: # the Free Software Foundation; either version 2 of the License, or
003055,000008: # (at your option) any later version.
003056,000009:
003057,000010: # yaAGC is distributed in the hope that it will be useful,
003058,000011: # but WITHOUT ANY WARRANTY; without even the implied warranty of
003059,000012: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
003060,000013: # GNU General Public License for more details.
003061,000014:
003062,000015: # You should have received a copy of the GNU General Public License
003063,000016: # along with yaAGC; if not, write to the Free Software
003064,000017: # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
003065,000018:
003066,000019: # Filename: ValidateSmally.agc
003067,000020: # Purpose: This is the part of the Validation program, written to
003068,000021: # correspond as best I can to the flowcharts in the Appendix
003069,000022: # of E-2065, which is a document titled "Block II AGC
003070,000023: # Self-Check and Show-Banksum", by Edwin D. Smally.
003071,000024: # Mod history: 07/07/04 RSB. Began.
003072,000025:
003073,000026: # Similar code was apparently originally in Luminary and/or Colossus,
003074,000027: # but much of it was removed over the course of time to make more room.
003075,000028: # I don't know what the original code was like, but the flowcharts still
003076,000029: # exist, so I've rewritten the code from the flowcharts.
003077,000030:
003078,000031: 7215 00006 EXTEND
003079,000032: 7216 37221 DCA ASMGEN
003080,000033: 7217 52005 DTCF
003081,000034: 7220 10000 02000 ASMGEN 2FCADR SMGEN
003082,000035: 7222 12000 02000 ASMGEN2 2FCADR SMGEN2
003083,000036: 7224 14000 02000 ASMGEN3 2FCADR SMGEN3
003084,000037: 7226 16000 02000 ASMMP 2FCADR SMMP
003085,000038: 7230 20000 02000 ASMDV 2FCADR SMDV
003086,000039: 7232 SMNEXT
003087,000040:
003088,000041: 04,2000 BANK 4
003089,000042: 04,2000 SMGEN
003090,000043: 04,2000 24061 INCR ERRNUM
003091,000044: 04,2001 30007 CA ZEROES
003092,000045: 04,2002 54062 TS ERRSUB
003093,000046: # ERRNUM==61
003094,000047: $SmallyTCTCF.agc # ERRSUB==1
003141,000048: $SmallyCCSCHK.agc # 2-7
003228,000049: $SmallyBZMFCHK.agc # 10-14
003292,000050: $SmallyRESTORE1.agc # 15-16
003370,000051: $SmallyRESTORE2.agc # 17-20
003439,000052: $SmallyRESTORE3.agc # 21-22
003504,000053: $SmallyBZFCHK.agc # 23-30
003574,000054: $SmallyDXCHDIM.agc # 31-35
003695,000055: $SmallyDASINCR.agc # 36-42
003829,000056: $SmallyMPCHK.agc # 43-50
003933,000057: $SmallyDVCHK.agc # 51-57
004088,000058: $SmallyMSUCHK.agc # 60-62
004154,000059: $SmallyMASKCHK.agc # 63-66
004229,000060: $SmallyD--SC.agc # 67-71
004322,000061: $SmallyD--LCHK.agc # 72-76
004396,000062: $SmallyRUPTCHK.agc # 77
004430,000063: 04,3256 00006 EXTEND
004431,000064: 04,3257 37223 DCA ASMGEN2
004432,000065: 04,3260 52005 DTCF
004433,000066:
004434,000067: 05,2000 BANK 5
004435,000068: 05,2000 SMGEN2
004436,000069: 05,2000 24061 INCR ERRNUM
004437,000070: 05,2001 30007 CA ZEROES
004438,000071: 05,2002 54062 TS ERRSUB
004439,000072: # ERRNUM==62
004440,000073: $SmallyIN-OUT1.agc # ERRSUB==1-3
004500,000074: $SmallyIN-OUT2.agc # 4-5
004562,000075: $SmallyIN-OUT3.agc # 6-10
004643,000076: $SmallyCOUNTCHK.agc # 11
004728,000077: $SmallyO-UFLOW.agc # 12
004829,000078: 05,2273 00006 EXTEND
004830,000079: 05,2274 37225 DCA ASMGEN3
004831,000080: 05,2275 52005 DTCF
004832,000081:
004833,000082: 06,2000 BANK 6
004834,000083: 06,2000 SMGEN3
004835,000084: 06,2000 24061 INCR ERRNUM
004836,000085: 06,2001 30007 CA ZEROES
004837,000086: 06,2002 54062 TS ERRSUB
004838,000087: # ERRNUM==63
004839,000088: $SmallyCNTRCHK.agc # ERRSUB==1
004873,000089: $SmallyCYCLSHFT.agc # 2-3
004908,000090: 06,2006 00006 EXTEND
004909,000091: 06,2007 37227 DCA ASMMP
004910,000092: 06,2010 52005 DTCF
004911,000093:
004912,000094: 07,2000 BANK 7
004913,000095: 07,2000 SMMP
004914,000096: 07,2000 24061 INCR ERRNUM
004915,000097: 07,2001 30007 CA ZEROES
004916,000098: 07,2002 54062 TS ERRSUB
004917,000099: # ERRNUM==64
004918,000100: $SmallyMPNMBRS.agc # ERRSUB=1-4
005037,000101: 07,2121 00006 EXTEND
005038,000102: 07,2122 37231 DCA ASMDV
005039,000103: 07,2123 52005 DTCF
005040,000104:
005041,000105: 10,2000 BANK 10
005042,000106: 10,2000 SMDV
005043,000107: 10,2000 24061 INCR ERRNUM
005044,000108: 10,2001 30007 CA ZEROES
005045,000109: 10,2002 54062 TS ERRSUB
005046,000110: # ERRNUM==65
005047,000111: $SmallyDVCHECK.agc # ERRSUB=1-11
005277,000112: 10,2271 17232 TCF SMNEXT
005278,000113:
005279,000114:
005280,000115: 7232 SETLOC SMNEXT
005281,000116:
End of include-file ValidateSmally.agc. Parent file is Validation.agc