Source Code
004089,000001: # Copyright 2004 Ronald S. Burkey <info@sandroid.org>
004090,000002: #
004091,000003: # This file is part of yaAGC.
004092,000004:
004093,000005: # yaAGC is free software; you can redistribute it and/or modify
004094,000006: # it under the terms of the GNU General Public License as published by
004095,000007: # the Free Software Foundation; either version 2 of the License, or
004096,000008: # (at your option) any later version.
004097,000009:
004098,000010: # yaAGC is distributed in the hope that it will be useful,
004099,000011: # but WITHOUT ANY WARRANTY; without even the implied warranty of
004100,000012: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
004101,000013: # GNU General Public License for more details.
004102,000014:
004103,000015: # You should have received a copy of the GNU General Public License
004104,000016: # along with yaAGC; if not, write to the Free Software
004105,000017: # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
004106,000018:
004107,000019: # Filename: SmallyMSUCHK.agc
004108,000020: # Purpose: This is code written from the flowchart on p. 44 of
004109,000021: # E-2065, which is a document titled "Block II AGC
004110,000022: # Self-Check and Show-Banksum", by Edwin D. Smally.
004111,000023: # Mod history: 07/10/04 RSB. Began.
004112,000024:
004113,000025: # Similar code was apparently originally in Luminary and/or Colossus,
004114,000026: # but much of it was removed over the course of time to make more room.
004115,000027: # I don't know what the original code was like, but the flowcharts still
004116,000028: # exist, so I've rewritten the code from the flowcharts.
004117,000029:
004118,000030: # P. 44 of Smally
004119,000031:
004120,000032: 04,3026 24062 INCR ERRSUB # 60
004121,000033: 04,3027 37423 CA NEGZERO
004122,000034: 04,3030 54001 TS L
004123,000035: 04,3031 00006 EXTEND
004124,000036: 04,3032 20001 MSU L
004125,000037: 04,3033 10000 CCS A
004126,000038: 04,3034 13063 TCF MSCERROR
004127,000039: 04,3035 13040 TCF +3
004128,000040: 04,3036 13063 TCF MSCERROR
004129,000041: 04,3037 13063 TCF MSCERROR
004130,000042:
004131,000043: 04,3040 24062 INCR ERRSUB # 61
004132,000044: 04,3041 00006 EXTEND
004133,000045: 04,3042 20001 MSU L
004134,000046: 04,3043 10000 CCS A
004135,000047: 04,3044 13063 TCF MSCERROR
004136,000048: 04,3045 13050 TCF +3
004137,000049: 04,3046 13063 TCF MSCERROR
004138,000050: 04,3047 13063 TCF MSCERROR
004139,000051:
004140,000052: 04,3050 24062 INCR ERRSUB # 62
004141,000053: 04,3051 37447 CA MAXN
004142,000054: 04,3052 54001 TS L
004143,000055: 04,3053 37443 CA MAXP
004144,000056: 04,3054 00006 EXTEND
004145,000057: 04,3055 20001 MSU L
004146,000058: 04,3056 67430 AD ONE
004147,000059: 04,3057 00006 EXTEND
004148,000060: 04,3060 13062 BZF +2
004149,000061: 04,3061 13063 TCF MSCERROR
004150,000062:
004151,000063: 04,3062 13064 TCF +2
004152,000064: 04,3063 07240 MSCERROR TC ERRORDSP
004153,000065:
End of include-file SmallyMSUCHK.agc. Parent file is ValidateSmally.agc