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