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