Source Code
004523,000001: # Copyright 2004 Ronald S. Burkey <info@sandroid.org>
004524,000002: #
004525,000003: # This file is part of yaAGC.
004526,000004:
004527,000005: # yaAGC is free software; you can redistribute it and/or modify
004528,000006: # it under the terms of the GNU General Public License as published by
004529,000007: # the Free Software Foundation; either version 2 of the License, or
004530,000008: # (at your option) any later version.
004531,000009:
004532,000010: # yaAGC is distributed in the hope that it will be useful,
004533,000011: # but WITHOUT ANY WARRANTY; without even the implied warranty of
004534,000012: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
004535,000013: # GNU General Public License for more details.
004536,000014:
004537,000015: # You should have received a copy of the GNU General Public License
004538,000016: # along with yaAGC; if not, write to the Free Software
004539,000017: # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
004540,000018:
004541,000019: # Filename: SmallyD--LCHK.agc
004542,000020: # Purpose: This is code written from the flowchart on p. 47 of
004543,000021: # E-2065, which is a document titled "Block II AGC
004544,000022: # Self-Check and Show-Banksum", by Edwin D. Smally.
004545,000023: # Mod history: 07/07/04 RSB. Began.
004546,000024:
004547,000025: # Similar code was apparently originally in Luminary and/or Colossus,
004548,000026: # but much of it was removed over the course of time to make more room.
004549,000027: # I don't know what the original code was like, but the flowcharts still
004550,000028: # exist, so I've rewritten the code from the flowcharts.
004551,000029:
004552,000030: # P. 47 of Smally.
004553,000031:
004554,000032: 04,3213 37655 CA MAXN
004555,000033: 04,3214 54002 TS Q
004556,000034: 04,3215 37631 CA NEGONE
004557,000035: 04,3216 26002 ADS Q
004558,000036:
004559,000037: 04,3217 24062 INCR ERRSUB # 72
004560,000038: 04,3220 40002 CS Q
004561,000039: 04,3221 54000 OVSK
004562,000040: 04,3222 13254 TCF DLCERROR
004563,000041:
004564,000042: 04,3223 24062 INCR ERRSUB # 73
004565,000043: 04,3224 00006 EXTEND
004566,000044: 04,3225 30002 DCA L
004567,000045: 04,3226 54000 OVSK
004568,000046: 04,3227 13231 TCF +2
004569,000047: 04,3230 13254 TCF DLCERROR
004570,000048:
004571,000049: 04,3231 24062 INCR ERRSUB # 74
004572,000050: 04,3232 10000 CCS A
004573,000051: 04,3233 13254 TCF DLCERROR
004574,000052: 04,3234 13254 TCF DLCERROR
004575,000053: 04,3235 13254 TCF DLCERROR
004576,000054:
004577,000055: 04,3236 37612 CA O20000
004578,000056: 04,3237 54002 TS Q
004579,000057:
004580,000058: 04,3240 24062 INCR ERRSUB # 75
004581,000059: 04,3241 26002 ADS Q
004582,000060: 04,3242 26002 ADS Q
004583,000061: 04,3243 54000 OVSK
004584,000062: 04,3244 13254 TCF DLCERROR
004585,000063:
004586,000064: 04,3245 24062 INCR ERRSUB # 76
004587,000065: 04,3246 26002 ADS Q
004588,000066: 04,3247 67631 AD NEGONE
004589,000067: 04,3250 00006 EXTEND
004590,000068: 04,3251 13253 BZF +2
004591,000069: 04,3252 13254 TCF DLCERROR
004592,000070:
004593,000071: 04,3253 13255 TCF +2
004594,000072: 04,3254 07437 DLCERROR TC ERRORDSP
004595,000073:
End of include-file SmallyD--LCHK.agc. Parent file is ValidateSmally.agc