Source Code

003705,000001: # Copyright 2004 Ronald S. Burkey <info@sandroid.org> 003706,000002: # 003707,000003: # This file is part of yaAGC. 003708,000004: 003709,000005: # yaAGC is free software; you can redistribute it and/or modify 003710,000006: # it under the terms of the GNU General Public License as published by 003711,000007: # the Free Software Foundation; either version 2 of the License, or 003712,000008: # (at your option) any later version. 003713,000009: 003714,000010: # yaAGC is distributed in the hope that it will be useful, 003715,000011: # but WITHOUT ANY WARRANTY; without even the implied warranty of 003716,000012: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 003717,000013: # GNU General Public License for more details. 003718,000014: 003719,000015: # You should have received a copy of the GNU General Public License 003720,000016: # along with yaAGC; if not, write to the Free Software 003721,000017: # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA 003722,000018: 003723,000019: # Filename: SmallyBZFCHK.agc 003724,000020: # Purpose: This is code written from the flowchart on p. 38 of 003725,000021: # E-2065, which is a document titled "Block II AGC 003726,000022: # Self-Check and Show-Banksum", by Edwin D. Smally. 003727,000023: # Mod history: 07/07/04 RSB. Began. 003728,000024: # 07/08/04 RSB. Finished. 003729,000025: 003730,000026: # Similar code was apparently originally in Luminary and/or Colossus, 003731,000027: # but much of it was removed over the course of time to make more room. 003732,000028: # I don't know what the original code was like, but the flowcharts still 003733,000029: # exist, so I've rewritten the code from the flowcharts. 003734,000030: 003735,000031: # P. 38 of Smally. 003736,000032: 003737,000033: 04,2251 24062 INCR ERRSUB # 23 003738,000034: 04,2252 37636 CA TWO 003739,000035: 04,2253 00006 EXTEND 003740,000036: 04,2254 12306 BZF BZFERROR 003741,000037: 003742,000038: 04,2255 24062 INCR ERRSUB # 24 003743,000039: 04,2256 37633 CA NEGTHREE 003744,000040: 04,2257 00006 EXTEND 003745,000041: 04,2260 12306 BZF BZFERROR 003746,000042: 003747,000043: 04,2261 24062 INCR ERRSUB # 25 003748,000044: 04,2262 37651 CA MAXP 003749,000045: 04,2263 24000 INCR A 003750,000046: 04,2264 00006 EXTEND 003751,000047: 04,2265 12306 BZF BZFERROR 003752,000048: 003753,000049: 04,2266 24062 INCR ERRSUB # 26 003754,000050: 04,2267 37655 CA MAXN 003755,000051: 04,2270 67631 AD NEGONE 003756,000052: 04,2271 00006 EXTEND 003757,000053: 04,2272 12306 BZF BZFERROR 003758,000054: 003759,000055: 04,2273 24062 INCR ERRSUB # 27 003760,000056: 04,2274 30007 CA ZEROES 003761,000057: 04,2275 00006 EXTEND 003762,000058: 04,2276 12300 BZF +2 003763,000059: 04,2277 12306 TCF BZFERROR 003764,000060: 003765,000061: 04,2300 24062 INCR ERRSUB # 30 octal 003766,000062: 04,2301 37630 CA NEGZERO 003767,000063: 04,2302 00006 EXTEND 003768,000064: 04,2303 12305 BZF +2 003769,000065: 04,2304 12306 TCF BZFERROR 003770,000066: 003771,000067: 04,2305 12307 TCF +2 003772,000068: 04,2306 07437 BZFERROR TC ERRORDSP 003773,000069: End of include-file SmallyBZFCHK.agc. Parent file is ValidateSmally.agc