Source Code

004155,000001: # Copyright 2004 Ronald S. Burkey <info@sandroid.org> 004156,000002: # 004157,000003: # This file is part of yaAGC. 004158,000004: 004159,000005: # yaAGC is free software; you can redistribute it and/or modify 004160,000006: # it under the terms of the GNU General Public License as published by 004161,000007: # the Free Software Foundation; either version 2 of the License, or 004162,000008: # (at your option) any later version. 004163,000009: 004164,000010: # yaAGC is distributed in the hope that it will be useful, 004165,000011: # but WITHOUT ANY WARRANTY; without even the implied warranty of 004166,000012: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 004167,000013: # GNU General Public License for more details. 004168,000014: 004169,000015: # You should have received a copy of the GNU General Public License 004170,000016: # along with yaAGC; if not, write to the Free Software 004171,000017: # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA 004172,000018: 004173,000019: # Filename: SmallyMASKCHK.agc 004174,000020: # Purpose: This is code written from the flowchart on p. 45 of 004175,000021: # E-2065, which is a document titled "Block II AGC 004176,000022: # Self-Check and Show-Banksum", by Edwin D. Smally. 004177,000023: # Mod history: 07/10/04 RSB. Began. 004178,000024: 004179,000025: # Similar code was apparently originally in Luminary and/or Colossus, 004180,000026: # but much of it was removed over the course of time to make more room. 004181,000027: # I don't know what the original code was like, but the flowcharts still 004182,000028: # exist, so I've rewritten the code from the flowcharts. 004183,000029: 004184,000030: # P. 45 of Smally 004185,000031: 004186,000032: 04,3064 24062 INCR ERRSUB # 63 004187,000033: 04,3065 37414 CA O77770 004188,000034: 04,3066 77436 MASK SEVEN 004189,000035: 04,3067 00006 EXTEND 004190,000036: 04,3070 13072 BZF +2 004191,000037: 04,3071 13126 TCF MSKERROR 004192,000038: 004193,000039: 04,3072 24062 INCR ERRSUB # 64 004194,000040: 04,3073 37436 CA SEVEN 004195,000041: 04,3074 77430 MASK ONE 004196,000042: 04,3075 67424 AD NEGONE 004197,000043: 04,3076 00006 EXTEND 004198,000044: 04,3077 13101 BZF +2 004199,000045: 04,3100 13126 TCF MSKERROR 004200,000046: 004201,000047: 04,3101 37430 CA ONE 004202,000048: 04,3102 54001 TS L 004203,000049: 04,3103 54066 TS SKEEP1 004204,000050: 004205,000051: 04,3104 50000 INDEX A 004206,000052: 04,3105 60000 AD SZERO 004207,000053: 004208,000054: 04,3106 24062 INCR ERRSUB # 65 004209,000055: 04,3107 00006 EXTEND 004210,000056: 04,3110 60001 SU L 004211,000057: 04,3111 67424 AD NEGONE 004212,000058: 04,3112 00006 EXTEND 004213,000059: 04,3113 13115 BZF +2 004214,000060: 04,3114 13126 TCF MSKERROR 004215,000061: 004216,000062: 04,3115 00006 EXTEND 004217,000063: 04,3116 50001 INDEX L 004218,000064: 04,3117 60000 SU SZERO 004219,000065: 004220,000066: 04,3120 24062 INCR ERRSUB # 66 004221,000067: 04,3121 67430 AD ONE 004222,000068: 04,3122 00006 EXTEND 004223,000069: 04,3123 13125 BZF +2 004224,000070: 04,3124 13126 TCF MSKERROR 004225,000071: 004226,000072: 04,3125 13127 TCF +2 004227,000073: 04,3126 07240 MSKERROR TC ERRORDSP 004228,000074: End of include-file SmallyMASKCHK.agc. Parent file is ValidateSmally.agc