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