Source Code

003440,000001: # Copyright 2004 Ronald S. Burkey <info@sandroid.org> 003441,000002: # 003442,000003: # This file is part of yaAGC. 003443,000004: 003444,000005: # yaAGC is free software; you can redistribute it and/or modify 003445,000006: # it under the terms of the GNU General Public License as published by 003446,000007: # the Free Software Foundation; either version 2 of the License, or 003447,000008: # (at your option) any later version. 003448,000009: 003449,000010: # yaAGC is distributed in the hope that it will be useful, 003450,000011: # but WITHOUT ANY WARRANTY; without even the implied warranty of 003451,000012: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 003452,000013: # GNU General Public License for more details. 003453,000014: 003454,000015: # You should have received a copy of the GNU General Public License 003455,000016: # along with yaAGC; if not, write to the Free Software 003456,000017: # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA 003457,000018: 003458,000019: # Filename: SmallyRESTORE3.agc 003459,000020: # Purpose: This is code written from the flowchart on p. 37 of 003460,000021: # E-2065, which is a document titled "Block II AGC 003461,000022: # Self-Check and Show-Banksum", by Edwin D. Smally. 003462,000023: # Mod history: 07/07/04 RSB. Began. 003463,000024: 003464,000025: # Similar code was apparently originally in Luminary and/or Colossus, 003465,000026: # but much of it was removed over the course of time to make more room. 003466,000027: # I don't know what the original code was like, but the flowcharts still 003467,000028: # exist, so I've rewritten the code from the flowcharts. 003468,000029: 003469,000030: # P. 37 of Smally. It APPEARS to me that various 003470,000031: # statements about the contents of A are wrong here, 003471,000032: # probably because of the OCR'ing which has been done 003472,000033: # on Smally's doc before posting to the internet. 003473,000034: 003474,000035: 04,2222 12225 TCF +3 003475,000036: 04,2223 40000 4SKEEP1 CS A 003476,000037: 04,2224 00002 4SKEEP2 TC Q 003477,000038: 04,2225 32223 CA 4SKEEP1 003478,000039: 04,2226 54066 TS SKEEP1 003479,000040: 04,2227 32224 CA 4SKEEP2 003480,000041: 04,2230 54067 TS SKEEP2 003481,000042: 003482,000043: 04,2231 37430 CA ONE 003483,000044: 04,2232 00066 TC SKEEP1 # Should be -1 on return. 003484,000045: 003485,000046: 04,2233 24062 INCR ERRSUB # 21 003486,000047: 04,2234 67430 AD ONE 003487,000048: 04,2235 00006 EXTEND 003488,000049: 04,2236 12240 BZF +2 003489,000050: 04,2237 12250 TCF R3ERROR 003490,000051: 003491,000052: 04,2240 30007 CA ZEROES 003492,000053: 04,2241 00066 TC SKEEP1 # Should be -0 on return. 003493,000054: 003494,000055: 04,2242 24062 INCR ERRSUB # 22 003495,000056: 04,2243 10000 CCS A 003496,000057: 04,2244 12250 TCF R3ERROR 003497,000058: 04,2245 12250 TCF R3ERROR 003498,000059: 04,2246 12250 TCF R3ERROR 003499,000060: 003500,000061: 04,2247 12251 TCF +2 003501,000062: 04,2250 07240 R3ERROR TC ERRORDSP 003502,000063: 003503,000064: End of include-file SmallyRESTORE3.agc. Parent file is ValidateSmally.agc