Source Code

003248,000001: # Copyright 2004 Ronald S. Burkey <info@sandroid.org> 003249,000002: # 003250,000003: # This file is part of yaAGC. 003251,000004: 003252,000005: # yaAGC is free software; you can redistribute it and/or modify 003253,000006: # it under the terms of the GNU General Public License as published by 003254,000007: # the Free Software Foundation; either version 2 of the License, or 003255,000008: # (at your option) any later version. 003256,000009: 003257,000010: # yaAGC is distributed in the hope that it will be useful, 003258,000011: # but WITHOUT ANY WARRANTY; without even the implied warranty of 003259,000012: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 003260,000013: # GNU General Public License for more details. 003261,000014: 003262,000015: # You should have received a copy of the GNU General Public License 003263,000016: # along with yaAGC; if not, write to the Free Software 003264,000017: # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA 003265,000018: 003266,000019: # Filename: ValidateSmally.agc 003267,000020: # Purpose: This is the part of the Validation program, written to 003268,000021: # correspond as best I can to the flowcharts in the Appendix 003269,000022: # of E-2065, which is a document titled "Block II AGC 003270,000023: # Self-Check and Show-Banksum", by Edwin D. Smally. 003271,000024: # Mod history: 07/07/04 RSB. Began. 003272,000025: 003273,000026: # Similar code was apparently originally in Luminary and/or Colossus, 003274,000027: # but much of it was removed over the course of time to make more room. 003275,000028: # I don't know what the original code was like, but the flowcharts still 003276,000029: # exist, so I've rewritten the code from the flowcharts. 003277,000030: 003278,000031: 7414 00006 EXTEND 003279,000032: 7415 37420 DCA ASMGEN 003280,000033: 7416 52005 DTCF 003281,000034: 7417 10000 02000 ASMGEN 2FCADR SMGEN 003282,000035: 7421 12000 02000 ASMGEN2 2FCADR SMGEN2 003283,000036: 7423 14000 02000 ASMGEN3 2FCADR SMGEN3 003284,000037: 7425 16000 02000 ASMMP 2FCADR SMMP 003285,000038: 7427 20000 02000 ASMDV 2FCADR SMDV 003286,000039: 7431 SMNEXT 003287,000040: 003288,000041: 04,2000 BANK 4 003289,000042: 04,2000 SMGEN 003290,000043: 04,2000 24061 INCR ERRNUM 003291,000044: 04,2001 30007 CA ZEROES 003292,000045: 04,2002 54062 TS ERRSUB 003293,000046: # ERRNUM==61 003294,000047: $SmallyTCTCF.agc # ERRSUB==1 003341,000048: $SmallyCCSCHK.agc # 2-7 003428,000049: $SmallyBZMFCHK.agc # 10-14 003492,000050: $SmallyRESTORE1.agc # 15-16 003570,000051: $SmallyRESTORE2.agc # 17-20 003639,000052: $SmallyRESTORE3.agc # 21-22 003704,000053: $SmallyBZFCHK.agc # 23-30 003774,000054: $SmallyDXCHDIM.agc # 31-35 003895,000055: $SmallyDASINCR.agc # 36-42 004029,000056: $SmallyMPCHK.agc # 43-50 004133,000057: $SmallyDVCHK.agc # 51-57 004288,000058: $SmallyMSUCHK.agc # 60-62 004354,000059: $SmallyMASKCHK.agc # 63-66 004429,000060: $SmallyD--SC.agc # 67-71 004522,000061: $SmallyD--LCHK.agc # 72-76 004596,000062: $SmallyRUPTCHK.agc # 77 004630,000063: 04,3256 00006 EXTEND 004631,000064: 04,3257 37422 DCA ASMGEN2 004632,000065: 04,3260 52005 DTCF 004633,000066: 004634,000067: 05,2000 BANK 5 004635,000068: 05,2000 SMGEN2 004636,000069: 05,2000 24061 INCR ERRNUM 004637,000070: 05,2001 30007 CA ZEROES 004638,000071: 05,2002 54062 TS ERRSUB 004639,000072: # ERRNUM==62 004640,000073: $SmallyIN-OUT1.agc # ERRSUB==1-3 004700,000074: $SmallyIN-OUT2.agc # 4-5 004762,000075: $SmallyIN-OUT3.agc # 6-10 004843,000076: $SmallyCOUNTCHK.agc # 11 004932,000077: $SmallyO-UFLOW.agc # 12 005035,000078: 05,2276 00006 EXTEND 005036,000079: 05,2277 37424 DCA ASMGEN3 005037,000080: 05,2300 52005 DTCF 005038,000081: 005039,000082: 06,2000 BANK 6 005040,000083: 06,2000 SMGEN3 005041,000084: 06,2000 24061 INCR ERRNUM 005042,000085: 06,2001 30007 CA ZEROES 005043,000086: 06,2002 54062 TS ERRSUB 005044,000087: # ERRNUM==63 005045,000088: $SmallyCNTRCHK.agc # ERRSUB==1 005079,000089: $SmallyCYCLSHFT.agc # 2-3 005114,000090: 06,2006 00006 EXTEND 005115,000091: 06,2007 37426 DCA ASMMP 005116,000092: 06,2010 52005 DTCF 005117,000093: 005118,000094: 07,2000 BANK 7 005119,000095: 07,2000 SMMP 005120,000096: 07,2000 24061 INCR ERRNUM 005121,000097: 07,2001 30007 CA ZEROES 005122,000098: 07,2002 54062 TS ERRSUB 005123,000099: # ERRNUM==64 005124,000100: $SmallyMPNMBRS.agc # ERRSUB=1-4 005248,000101: 07,2125 00006 EXTEND 005249,000102: 07,2126 37430 DCA ASMDV 005250,000103: 07,2127 52005 DTCF 005251,000104: 005252,000105: 10,2000 BANK 10 005253,000106: 10,2000 SMDV 005254,000107: 10,2000 24061 INCR ERRNUM 005255,000108: 10,2001 30007 CA ZEROES 005256,000109: 10,2002 54062 TS ERRSUB 005257,000110: # ERRNUM==65 005258,000111: $SmallyDVCHECK.agc # ERRSUB=1-11 005487,000112: 10,2270 17431 TCF SMNEXT 005488,000113: 005489,000114: 005490,000115: 7431 SETLOC SMNEXT 005491,000116: End of include-file ValidateSmally.agc. Parent file is Validation.agc