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