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