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