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