Source Code
004355,000001: # Copyright 2004 Ronald S. Burkey <info@sandroid.org>
004356,000002: #
004357,000003: # This file is part of yaAGC.
004358,000004:
004359,000005: # yaAGC is free software; you can redistribute it and/or modify
004360,000006: # it under the terms of the GNU General Public License as published by
004361,000007: # the Free Software Foundation; either version 2 of the License, or
004362,000008: # (at your option) any later version.
004363,000009:
004364,000010: # yaAGC is distributed in the hope that it will be useful,
004365,000011: # but WITHOUT ANY WARRANTY; without even the implied warranty of
004366,000012: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
004367,000013: # GNU General Public License for more details.
004368,000014:
004369,000015: # You should have received a copy of the GNU General Public License
004370,000016: # along with yaAGC; if not, write to the Free Software
004371,000017: # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
004372,000018:
004373,000019: # Filename: SmallyMASKCHK.agc
004374,000020: # Purpose: This is code written from the flowchart on p. 45 of
004375,000021: # E-2065, which is a document titled "Block II AGC
004376,000022: # Self-Check and Show-Banksum", by Edwin D. Smally.
004377,000023: # Mod history: 07/10/04 RSB. Began.
004378,000024:
004379,000025: # Similar code was apparently originally in Luminary and/or Colossus,
004380,000026: # but much of it was removed over the course of time to make more room.
004381,000027: # I don't know what the original code was like, but the flowcharts still
004382,000028: # exist, so I've rewritten the code from the flowcharts.
004383,000029:
004384,000030: # P. 45 of Smally
004385,000031:
004386,000032: 04,3064 24062 INCR ERRSUB # 63
004387,000033: 04,3065 37621 CA O77770
004388,000034: 04,3066 77643 MASK SEVEN
004389,000035: 04,3067 00006 EXTEND
004390,000036: 04,3070 13072 BZF +2
004391,000037: 04,3071 13126 TCF MSKERROR
004392,000038:
004393,000039: 04,3072 24062 INCR ERRSUB # 64
004394,000040: 04,3073 37643 CA SEVEN
004395,000041: 04,3074 77635 MASK ONE
004396,000042: 04,3075 67631 AD NEGONE
004397,000043: 04,3076 00006 EXTEND
004398,000044: 04,3077 13101 BZF +2
004399,000045: 04,3100 13126 TCF MSKERROR
004400,000046:
004401,000047: 04,3101 37635 CA ONE
004402,000048: 04,3102 54001 TS L
004403,000049: 04,3103 54071 TS SKEEP1
004404,000050:
004405,000051: 04,3104 50000 INDEX A
004406,000052: 04,3105 60000 AD SZERO
004407,000053:
004408,000054: 04,3106 24062 INCR ERRSUB # 65
004409,000055: 04,3107 00006 EXTEND
004410,000056: 04,3110 60001 SU L
004411,000057: 04,3111 67631 AD NEGONE
004412,000058: 04,3112 00006 EXTEND
004413,000059: 04,3113 13115 BZF +2
004414,000060: 04,3114 13126 TCF MSKERROR
004415,000061:
004416,000062: 04,3115 00006 EXTEND
004417,000063: 04,3116 50001 INDEX L
004418,000064: 04,3117 60000 SU SZERO
004419,000065:
004420,000066: 04,3120 24062 INCR ERRSUB # 66
004421,000067: 04,3121 67635 AD ONE
004422,000068: 04,3122 00006 EXTEND
004423,000069: 04,3123 13125 BZF +2
004424,000070: 04,3124 13126 TCF MSKERROR
004425,000071:
004426,000072: 04,3125 13127 TCF +2
004427,000073: 04,3126 07437 MSKERROR TC ERRORDSP
004428,000074:
End of include-file SmallyMASKCHK.agc. Parent file is ValidateSmally.agc