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