Source Code

003229,000001: # Copyright 2004 Ronald S. Burkey <info@sandroid.org> 003230,000002: # 003231,000003: # This file is part of yaAGC. 003232,000004: 003233,000005: # yaAGC is free software; you can redistribute it and/or modify 003234,000006: # it under the terms of the GNU General Public License as published by 003235,000007: # the Free Software Foundation; either version 2 of the License, or 003236,000008: # (at your option) any later version. 003237,000009: 003238,000010: # yaAGC is distributed in the hope that it will be useful, 003239,000011: # but WITHOUT ANY WARRANTY; without even the implied warranty of 003240,000012: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 003241,000013: # GNU General Public License for more details. 003242,000014: 003243,000015: # You should have received a copy of the GNU General Public License 003244,000016: # along with yaAGC; if not, write to the Free Software 003245,000017: # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA 003246,000018: 003247,000019: # Filename: SmallyBZMFCHK.agc 003248,000020: # Purpose: This is code written from the flowchart on p. 34 of 003249,000021: # E-2065, which is a document titled "Block II AGC 003250,000022: # Self-Check and Show-Banksum", by Edwin D. Smally. 003251,000023: # Mod history: 07/07/04 RSB. Began. 003252,000024: 003253,000025: # Similar code was apparently originally in Luminary and/or Colossus, 003254,000026: # but much of it was removed over the course of time to make more room. 003255,000027: # I don't know what the original code was like, but the flowcharts still 003256,000028: # exist, so I've rewritten the code from the flowcharts. 003257,000029: 003258,000030: # P. 34 of Smally. 003259,000031: 003260,000032: 04,2070 24062 INCR ERRSUB # 10 octal 003261,000033: 04,2071 37431 CA TWO 003262,000034: 04,2072 00006 EXTEND 003263,000035: 04,2073 62121 BZMF BZMFERR 003264,000036: 003265,000037: 04,2074 24062 INCR ERRSUB # 11 003266,000038: 04,2075 37426 CA NEGTHREE 003267,000039: 04,2076 00006 EXTEND 003268,000040: 04,2077 62101 BZMF +2 003269,000041: 04,2100 12121 TCF BZMFERR 003270,000042: 003271,000043: 04,2101 24062 INCR ERRSUB # 12 003272,000044: 04,2102 37443 CA MAXP 003273,000045: 04,2103 24000 INCR A 003274,000046: 04,2104 00006 EXTEND 003275,000047: 04,2105 62121 BZMF BZMFERR 003276,000048: 003277,000049: 04,2106 24062 INCR ERRSUB # 13 003278,000050: 04,2107 30007 CA ZEROES 003279,000051: 04,2110 00006 EXTEND 003280,000052: 04,2111 62113 BZMF +2 003281,000053: 04,2112 12121 TCF BZMFERR 003282,000054: 003283,000055: 04,2113 24062 INCR ERRSUB # 14 003284,000056: 04,2114 37423 CA NEGZERO 003285,000057: 04,2115 00006 EXTEND 003286,000058: 04,2116 62120 BZMF +2 003287,000059: 04,2117 12121 TCF BZMFERR 003288,000060: 003289,000061: 04,2120 12122 TCF +2 003290,000062: 04,2121 07240 BZMFERR TC ERRORDSP 003291,000063: End of include-file SmallyBZMFCHK.agc. Parent file is ValidateSmally.agc