Source Code
003505,000001: # Copyright 2004 Ronald S. Burkey <info@sandroid.org>
003506,000002: #
003507,000003: # This file is part of yaAGC.
003508,000004:
003509,000005: # yaAGC is free software; you can redistribute it and/or modify
003510,000006: # it under the terms of the GNU General Public License as published by
003511,000007: # the Free Software Foundation; either version 2 of the License, or
003512,000008: # (at your option) any later version.
003513,000009:
003514,000010: # yaAGC is distributed in the hope that it will be useful,
003515,000011: # but WITHOUT ANY WARRANTY; without even the implied warranty of
003516,000012: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
003517,000013: # GNU General Public License for more details.
003518,000014:
003519,000015: # You should have received a copy of the GNU General Public License
003520,000016: # along with yaAGC; if not, write to the Free Software
003521,000017: # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
003522,000018:
003523,000019: # Filename: SmallyBZFCHK.agc
003524,000020: # Purpose: This is code written from the flowchart on p. 38 of
003525,000021: # E-2065, which is a document titled "Block II AGC
003526,000022: # Self-Check and Show-Banksum", by Edwin D. Smally.
003527,000023: # Mod history: 07/07/04 RSB. Began.
003528,000024: # 07/08/04 RSB. Finished.
003529,000025:
003530,000026: # Similar code was apparently originally in Luminary and/or Colossus,
003531,000027: # but much of it was removed over the course of time to make more room.
003532,000028: # I don't know what the original code was like, but the flowcharts still
003533,000029: # exist, so I've rewritten the code from the flowcharts.
003534,000030:
003535,000031: # P. 38 of Smally.
003536,000032:
003537,000033: 04,2251 24062 INCR ERRSUB # 23
003538,000034: 04,2252 37431 CA TWO
003539,000035: 04,2253 00006 EXTEND
003540,000036: 04,2254 12306 BZF BZFERROR
003541,000037:
003542,000038: 04,2255 24062 INCR ERRSUB # 24
003543,000039: 04,2256 37426 CA NEGTHREE
003544,000040: 04,2257 00006 EXTEND
003545,000041: 04,2260 12306 BZF BZFERROR
003546,000042:
003547,000043: 04,2261 24062 INCR ERRSUB # 25
003548,000044: 04,2262 37443 CA MAXP
003549,000045: 04,2263 24000 INCR A
003550,000046: 04,2264 00006 EXTEND
003551,000047: 04,2265 12306 BZF BZFERROR
003552,000048:
003553,000049: 04,2266 24062 INCR ERRSUB # 26
003554,000050: 04,2267 37447 CA MAXN
003555,000051: 04,2270 67424 AD NEGONE
003556,000052: 04,2271 00006 EXTEND
003557,000053: 04,2272 12306 BZF BZFERROR
003558,000054:
003559,000055: 04,2273 24062 INCR ERRSUB # 27
003560,000056: 04,2274 30007 CA ZEROES
003561,000057: 04,2275 00006 EXTEND
003562,000058: 04,2276 12300 BZF +2
003563,000059: 04,2277 12306 TCF BZFERROR
003564,000060:
003565,000061: 04,2300 24062 INCR ERRSUB # 30 octal
003566,000062: 04,2301 37423 CA NEGZERO
003567,000063: 04,2302 00006 EXTEND
003568,000064: 04,2303 12305 BZF +2
003569,000065: 04,2304 12306 TCF BZFERROR
003570,000066:
003571,000067: 04,2305 12307 TCF +2
003572,000068: 04,2306 07240 BZFERROR TC ERRORDSP
003573,000069:
End of include-file SmallyBZFCHK.agc. Parent file is ValidateSmally.agc