Source Code
004323,000001: # Copyright 2004 Ronald S. Burkey <info@sandroid.org>
004324,000002: #
004325,000003: # This file is part of yaAGC.
004326,000004:
004327,000005: # yaAGC is free software; you can redistribute it and/or modify
004328,000006: # it under the terms of the GNU General Public License as published by
004329,000007: # the Free Software Foundation; either version 2 of the License, or
004330,000008: # (at your option) any later version.
004331,000009:
004332,000010: # yaAGC is distributed in the hope that it will be useful,
004333,000011: # but WITHOUT ANY WARRANTY; without even the implied warranty of
004334,000012: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
004335,000013: # GNU General Public License for more details.
004336,000014:
004337,000015: # You should have received a copy of the GNU General Public License
004338,000016: # along with yaAGC; if not, write to the Free Software
004339,000017: # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
004340,000018:
004341,000019: # Filename: SmallyD--LCHK.agc
004342,000020: # Purpose: This is code written from the flowchart on p. 47 of
004343,000021: # E-2065, which is a document titled "Block II AGC
004344,000022: # Self-Check and Show-Banksum", by Edwin D. Smally.
004345,000023: # Mod history: 07/07/04 RSB. Began.
004346,000024:
004347,000025: # Similar code was apparently originally in Luminary and/or Colossus,
004348,000026: # but much of it was removed over the course of time to make more room.
004349,000027: # I don't know what the original code was like, but the flowcharts still
004350,000028: # exist, so I've rewritten the code from the flowcharts.
004351,000029:
004352,000030: # P. 47 of Smally.
004353,000031:
004354,000032: 04,3213 37447 CA MAXN
004355,000033: 04,3214 54002 TS Q
004356,000034: 04,3215 37424 CA NEGONE
004357,000035: 04,3216 26002 ADS Q
004358,000036:
004359,000037: 04,3217 24062 INCR ERRSUB # 72
004360,000038: 04,3220 40002 CS Q
004361,000039: 04,3221 54000 OVSK
004362,000040: 04,3222 13254 TCF DLCERROR
004363,000041:
004364,000042: 04,3223 24062 INCR ERRSUB # 73
004365,000043: 04,3224 00006 EXTEND
004366,000044: 04,3225 30002 DCA L
004367,000045: 04,3226 54000 OVSK
004368,000046: 04,3227 13231 TCF +2
004369,000047: 04,3230 13254 TCF DLCERROR
004370,000048:
004371,000049: 04,3231 24062 INCR ERRSUB # 74
004372,000050: 04,3232 10000 CCS A
004373,000051: 04,3233 13254 TCF DLCERROR
004374,000052: 04,3234 13254 TCF DLCERROR
004375,000053: 04,3235 13254 TCF DLCERROR
004376,000054:
004377,000055: 04,3236 37405 CA O20000
004378,000056: 04,3237 54002 TS Q
004379,000057:
004380,000058: 04,3240 24062 INCR ERRSUB # 75
004381,000059: 04,3241 26002 ADS Q
004382,000060: 04,3242 26002 ADS Q
004383,000061: 04,3243 54000 OVSK
004384,000062: 04,3244 13254 TCF DLCERROR
004385,000063:
004386,000064: 04,3245 24062 INCR ERRSUB # 76
004387,000065: 04,3246 26002 ADS Q
004388,000066: 04,3247 67424 AD NEGONE
004389,000067: 04,3250 00006 EXTEND
004390,000068: 04,3251 13253 BZF +2
004391,000069: 04,3252 13254 TCF DLCERROR
004392,000070:
004393,000071: 04,3253 13255 TCF +2
004394,000072: 04,3254 07240 DLCERROR TC ERRORDSP
004395,000073:
End of include-file SmallyD--LCHK.agc. Parent file is ValidateSmally.agc