Source Code
004289,000001: # Copyright 2004 Ronald S. Burkey <info@sandroid.org>
004290,000002: #
004291,000003: # This file is part of yaAGC.
004292,000004:
004293,000005: # yaAGC is free software; you can redistribute it and/or modify
004294,000006: # it under the terms of the GNU General Public License as published by
004295,000007: # the Free Software Foundation; either version 2 of the License, or
004296,000008: # (at your option) any later version.
004297,000009:
004298,000010: # yaAGC is distributed in the hope that it will be useful,
004299,000011: # but WITHOUT ANY WARRANTY; without even the implied warranty of
004300,000012: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
004301,000013: # GNU General Public License for more details.
004302,000014:
004303,000015: # You should have received a copy of the GNU General Public License
004304,000016: # along with yaAGC; if not, write to the Free Software
004305,000017: # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
004306,000018:
004307,000019: # Filename: SmallyMSUCHK.agc
004308,000020: # Purpose: This is code written from the flowchart on p. 44 of
004309,000021: # E-2065, which is a document titled "Block II AGC
004310,000022: # Self-Check and Show-Banksum", by Edwin D. Smally.
004311,000023: # Mod history: 07/10/04 RSB. Began.
004312,000024:
004313,000025: # Similar code was apparently originally in Luminary and/or Colossus,
004314,000026: # but much of it was removed over the course of time to make more room.
004315,000027: # I don't know what the original code was like, but the flowcharts still
004316,000028: # exist, so I've rewritten the code from the flowcharts.
004317,000029:
004318,000030: # P. 44 of Smally
004319,000031:
004320,000032: 04,3026 24062 INCR ERRSUB # 60
004321,000033: 04,3027 37630 CA NEGZERO
004322,000034: 04,3030 54001 TS L
004323,000035: 04,3031 00006 EXTEND
004324,000036: 04,3032 20001 MSU L
004325,000037: 04,3033 10000 CCS A
004326,000038: 04,3034 13063 TCF MSCERROR
004327,000039: 04,3035 13040 TCF +3
004328,000040: 04,3036 13063 TCF MSCERROR
004329,000041: 04,3037 13063 TCF MSCERROR
004330,000042:
004331,000043: 04,3040 24062 INCR ERRSUB # 61
004332,000044: 04,3041 00006 EXTEND
004333,000045: 04,3042 20001 MSU L
004334,000046: 04,3043 67631 AD NEGONE
004335,000047: 04,3044 10000 CCS A
004336,000048: 04,3045 13063 TCF MSCERROR
004337,000049: 04,3046 13063 TCF MSCERROR
004338,000050: 04,3047 13063 TCF MSCERROR
004339,000051:
004340,000052: 04,3050 24062 INCR ERRSUB # 62
004341,000053: 04,3051 37655 CA MAXN
004342,000054: 04,3052 54001 TS L
004343,000055: 04,3053 37651 CA MAXP
004344,000056: 04,3054 00006 EXTEND
004345,000057: 04,3055 20001 MSU L
004346,000058: 04,3056 67635 AD ONE
004347,000059: 04,3057 00006 EXTEND
004348,000060: 04,3060 13062 BZF +2
004349,000061: 04,3061 13063 TCF MSCERROR
004350,000062:
004351,000063: 04,3062 13064 TCF +2
004352,000064: 04,3063 07437 MSCERROR TC ERRORDSP
004353,000065:
End of include-file SmallyMSUCHK.agc. Parent file is ValidateSmally.agc