Source Code

004644,000001: # Copyright 2004 Ronald S. Burkey <info@sandroid.org> 004645,000002: # 004646,000003: # This file is part of yaAGC. 004647,000004: 004648,000005: # yaAGC is free software; you can redistribute it and/or modify 004649,000006: # it under the terms of the GNU General Public License as published by 004650,000007: # the Free Software Foundation; either version 2 of the License, or 004651,000008: # (at your option) any later version. 004652,000009: 004653,000010: # yaAGC is distributed in the hope that it will be useful, 004654,000011: # but WITHOUT ANY WARRANTY; without even the implied warranty of 004655,000012: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 004656,000013: # GNU General Public License for more details. 004657,000014: 004658,000015: # You should have received a copy of the GNU General Public License 004659,000016: # along with yaAGC; if not, write to the Free Software 004660,000017: # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA 004661,000018: 004662,000019: # Filename: SmallyCOUNTCHK.agc 004663,000020: # Purpose: This is code written from the flowchart on p. 52 of 004664,000021: # E-2065, which is a document titled "Block II AGC 004665,000022: # Self-Check and Show-Banksum", by Edwin D. Smally. 004666,000023: # Mod history: 07/07/04 RSB. Began. 004667,000024: 004668,000025: # Similar code was apparently originally in Luminary and/or Colossus, 004669,000026: # but much of it was removed over the course of time to make more room. 004670,000027: # I don't know what the original code was like, but the flowcharts still 004671,000028: # exist, so I've rewritten the code from the flowcharts. 004672,000029: 004673,000030: 05,2136 24062 INCR ERRSUB 004674,000031: 004675,000032: # P. 52 of Smally 004676,000033: 004677,000034: 05,2137 37443 CA MAXP 004678,000035: 05,2140 54073 TS SKEEP6 004679,000036: 05,2141 37447 CA MAXN 004680,000037: 05,2142 54074 TS SKEEP7 004681,000038: 004682,000039: 05,2143 30073 CCKLOOP1 CA SKEEP6 004683,000040: 05,2144 54002 TS Q 004684,000041: 004685,000042: 05,2145 30002 CCKLOOP2 CA Q 004686,000043: 05,2146 54001 TS L 004687,000044: 004688,000045: 05,2147 10000 CCS A 004689,000046: 05,2150 12154 TCF +4 004690,000047: 05,2151 12176 TCF CCK+0 004691,000048: 05,2152 12166 TCF CCKNEG 004692,000049: 05,2153 12205 TCF CCKERROR # Don't know where this is supposed to go 004693,000050: 004694,000051: 05,2154 00006 EXTEND # Smally says AD L, but that makes no sense. 004695,000052: 05,2155 60001 SU L 004696,000053: 05,2156 67430 AD ONE 004697,000054: 05,2157 00006 EXTEND 004698,000055: 05,2160 12162 BZF +2 004699,000056: 05,2161 12205 TCF CCKERROR 004700,000057: 004701,000058: 05,2162 30073 CA SKEEP6 004702,000059: 05,2163 40000 COM 004703,000060: 05,2164 54002 TS Q 004704,000061: 05,2165 12145 TCF CCKLOOP2 004705,000062: 004706,000063: 05,2166 54073 CCKNEG TS SKEEP6 004707,000064: 004708,000065: 05,2167 60074 AD SKEEP7 004709,000066: 05,2170 67430 AD ONE 004710,000067: 05,2171 00006 EXTEND 004711,000068: 05,2172 12174 BZF +2 004712,000069: 05,2173 12205 TCF CCKERROR 004713,000070: 004714,000071: 05,2174 24074 INCR SKEEP7 004715,000072: 05,2175 12143 TCF CCKLOOP1 004716,000073: 004717,000074: 05,2176 30073 CCK+0 CA SKEEP6 004718,000075: 05,2177 60074 AD SKEEP7 004719,000076: 05,2200 10000 CCS A 004720,000077: 05,2201 12205 TCF CCKERROR 004721,000078: 05,2202 12205 TCF CCKERROR 004722,000079: 05,2203 12205 TCF CCKERROR 004723,000080: 004724,000081: 05,2204 12206 TCF +2 004725,000082: 05,2205 07240 CCKERROR TC ERRORDSP 004726,000083: 004727,000084: End of include-file SmallyCOUNTCHK.agc. Parent file is ValidateSmally.agc