Source Code
003429,000001: # Copyright 2004 Ronald S. Burkey <info@sandroid.org>
003430,000002: #
003431,000003: # This file is part of yaAGC.
003432,000004:
003433,000005: # yaAGC is free software; you can redistribute it and/or modify
003434,000006: # it under the terms of the GNU General Public License as published by
003435,000007: # the Free Software Foundation; either version 2 of the License, or
003436,000008: # (at your option) any later version.
003437,000009:
003438,000010: # yaAGC is distributed in the hope that it will be useful,
003439,000011: # but WITHOUT ANY WARRANTY; without even the implied warranty of
003440,000012: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
003441,000013: # GNU General Public License for more details.
003442,000014:
003443,000015: # You should have received a copy of the GNU General Public License
003444,000016: # along with yaAGC; if not, write to the Free Software
003445,000017: # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
003446,000018:
003447,000019: # Filename: SmallyBZMFCHK.agc
003448,000020: # Purpose: This is code written from the flowchart on p. 34 of
003449,000021: # E-2065, which is a document titled "Block II AGC
003450,000022: # Self-Check and Show-Banksum", by Edwin D. Smally.
003451,000023: # Mod history: 07/07/04 RSB. Began.
003452,000024:
003453,000025: # Similar code was apparently originally in Luminary and/or Colossus,
003454,000026: # but much of it was removed over the course of time to make more room.
003455,000027: # I don't know what the original code was like, but the flowcharts still
003456,000028: # exist, so I've rewritten the code from the flowcharts.
003457,000029:
003458,000030: # P. 34 of Smally.
003459,000031:
003460,000032: 04,2070 24062 INCR ERRSUB # 10 octal
003461,000033: 04,2071 37636 CA TWO
003462,000034: 04,2072 00006 EXTEND
003463,000035: 04,2073 62121 BZMF BZMFERR
003464,000036:
003465,000037: 04,2074 24062 INCR ERRSUB # 11
003466,000038: 04,2075 37633 CA NEGTHREE
003467,000039: 04,2076 00006 EXTEND
003468,000040: 04,2077 62101 BZMF +2
003469,000041: 04,2100 12121 TCF BZMFERR
003470,000042:
003471,000043: 04,2101 24062 INCR ERRSUB # 12
003472,000044: 04,2102 37651 CA MAXP
003473,000045: 04,2103 24000 INCR A
003474,000046: 04,2104 00006 EXTEND
003475,000047: 04,2105 62121 BZMF BZMFERR
003476,000048:
003477,000049: 04,2106 24062 INCR ERRSUB # 13
003478,000050: 04,2107 30007 CA ZEROES
003479,000051: 04,2110 00006 EXTEND
003480,000052: 04,2111 62113 BZMF +2
003481,000053: 04,2112 12121 TCF BZMFERR
003482,000054:
003483,000055: 04,2113 24062 INCR ERRSUB # 14
003484,000056: 04,2114 37630 CA NEGZERO
003485,000057: 04,2115 00006 EXTEND
003486,000058: 04,2116 62120 BZMF +2
003487,000059: 04,2117 12121 TCF BZMFERR
003488,000060:
003489,000061: 04,2120 12122 TCF +2
003490,000062: 04,2121 07437 BZMFERR TC ERRORDSP
003491,000063:
End of include-file SmallyBZMFCHK.agc. Parent file is ValidateSmally.agc