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