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