Source Code
004844,000001: # Copyright 2004 Ronald S. Burkey <info@sandroid.org>
004845,000002: #
004846,000003: # This file is part of yaAGC.
004847,000004:
004848,000005: # yaAGC is free software; you can redistribute it and/or modify
004849,000006: # it under the terms of the GNU General Public License as published by
004850,000007: # the Free Software Foundation; either version 2 of the License, or
004851,000008: # (at your option) any later version.
004852,000009:
004853,000010: # yaAGC is distributed in the hope that it will be useful,
004854,000011: # but WITHOUT ANY WARRANTY; without even the implied warranty of
004855,000012: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
004856,000013: # GNU General Public License for more details.
004857,000014:
004858,000015: # You should have received a copy of the GNU General Public License
004859,000016: # along with yaAGC; if not, write to the Free Software
004860,000017: # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
004861,000018:
004862,000019: # Filename: SmallyCOUNTCHK.agc
004863,000020: # Purpose: This is code written from the flowchart on p. 52 of
004864,000021: # E-2065, which is a document titled "Block II AGC
004865,000022: # Self-Check and Show-Banksum", by Edwin D. Smally.
004866,000023: # Mod history: 07/07/04 RSB. Began.
004867,000024: # 11/12/16 MAS. Added NEWJOB poking.
004868,000025:
004869,000026: # Similar code was apparently originally in Luminary and/or Colossus,
004870,000027: # but much of it was removed over the course of time to make more room.
004871,000028: # I don't know what the original code was like, but the flowcharts still
004872,000029: # exist, so I've rewritten the code from the flowcharts.
004873,000030:
004874,000031: 05,2136 24062 INCR ERRSUB
004875,000032:
004876,000033: # P. 52 of Smally
004877,000034:
004878,000035: 05,2137 37651 CA MAXP
004879,000036: 05,2140 54076 TS SKEEP6
004880,000037: 05,2141 37655 CA MAXN
004881,000038: 05,2142 54077 TS SKEEP7
004882,000039:
004883,000040: 05,2143 30076 CCKLOOP1 CA SKEEP6
004884,000041: 05,2144 54002 TS Q
004885,000042: 05,2145 40067 CS NEWJOB
004886,000043:
004887,000044: 05,2146 30002 CCKLOOP2 CA Q
004888,000045: 05,2147 54001 TS L
004889,000046:
004890,000047: 05,2150 10000 CCS A
004891,000048: 05,2151 12155 TCF +4
004892,000049: 05,2152 12200 TCF CCK+0
004893,000050: 05,2153 12170 TCF CCKNEG
004894,000051: 05,2154 12207 TCF CCKERROR # Don't know where this is supposed to go
004895,000052:
004896,000053: 05,2155 00006 EXTEND # Smally says AD L, but that makes no sense.
004897,000054: 05,2156 60001 SU L
004898,000055: 05,2157 67635 AD ONE
004899,000056: 05,2160 00006 EXTEND
004900,000057: 05,2161 12163 BZF +2
004901,000058: 05,2162 12207 TCF CCKERROR
004902,000059:
004903,000060: 05,2163 40067 CS NEWJOB
004904,000061:
004905,000062: 05,2164 30076 CA SKEEP6
004906,000063: 05,2165 40000 COM
004907,000064: 05,2166 54002 TS Q
004908,000065: 05,2167 12146 TCF CCKLOOP2
004909,000066:
004910,000067: 05,2170 54076 CCKNEG TS SKEEP6
004911,000068:
004912,000069: 05,2171 60077 AD SKEEP7
004913,000070: 05,2172 67635 AD ONE
004914,000071: 05,2173 00006 EXTEND
004915,000072: 05,2174 12176 BZF +2
004916,000073: 05,2175 12207 TCF CCKERROR
004917,000074:
004918,000075: 05,2176 24077 INCR SKEEP7
004919,000076: 05,2177 12143 TCF CCKLOOP1
004920,000077:
004921,000078: 05,2200 30076 CCK+0 CA SKEEP6
004922,000079: 05,2201 60077 AD SKEEP7
004923,000080: 05,2202 10000 CCS A
004924,000081: 05,2203 12207 TCF CCKERROR
004925,000082: 05,2204 12207 TCF CCKERROR
004926,000083: 05,2205 12207 TCF CCKERROR
004927,000084:
004928,000085: 05,2206 12210 TCF +2
004929,000086: 05,2207 07437 CCKERROR TC ERRORDSP
004930,000087:
004931,000088:
End of include-file SmallyCOUNTCHK.agc. Parent file is ValidateSmally.agc