Source Code
003640,000001: # Copyright 2004 Ronald S. Burkey <info@sandroid.org>
003641,000002: #
003642,000003: # This file is part of yaAGC.
003643,000004:
003644,000005: # yaAGC is free software; you can redistribute it and/or modify
003645,000006: # it under the terms of the GNU General Public License as published by
003646,000007: # the Free Software Foundation; either version 2 of the License, or
003647,000008: # (at your option) any later version.
003648,000009:
003649,000010: # yaAGC is distributed in the hope that it will be useful,
003650,000011: # but WITHOUT ANY WARRANTY; without even the implied warranty of
003651,000012: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
003652,000013: # GNU General Public License for more details.
003653,000014:
003654,000015: # You should have received a copy of the GNU General Public License
003655,000016: # along with yaAGC; if not, write to the Free Software
003656,000017: # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
003657,000018:
003658,000019: # Filename: SmallyRESTORE3.agc
003659,000020: # Purpose: This is code written from the flowchart on p. 37 of
003660,000021: # E-2065, which is a document titled "Block II AGC
003661,000022: # Self-Check and Show-Banksum", by Edwin D. Smally.
003662,000023: # Mod history: 07/07/04 RSB. Began.
003663,000024:
003664,000025: # Similar code was apparently originally in Luminary and/or Colossus,
003665,000026: # but much of it was removed over the course of time to make more room.
003666,000027: # I don't know what the original code was like, but the flowcharts still
003667,000028: # exist, so I've rewritten the code from the flowcharts.
003668,000029:
003669,000030: # P. 37 of Smally. It APPEARS to me that various
003670,000031: # statements about the contents of A are wrong here,
003671,000032: # probably because of the OCR'ing which has been done
003672,000033: # on Smally's doc before posting to the internet.
003673,000034:
003674,000035: 04,2222 12225 TCF +3
003675,000036: 04,2223 40000 4SKEEP1 CS A
003676,000037: 04,2224 00002 4SKEEP2 TC Q
003677,000038: 04,2225 32223 CA 4SKEEP1
003678,000039: 04,2226 54071 TS SKEEP1
003679,000040: 04,2227 32224 CA 4SKEEP2
003680,000041: 04,2230 54072 TS SKEEP2
003681,000042:
003682,000043: 04,2231 37635 CA ONE
003683,000044: 04,2232 00071 TC SKEEP1 # Should be -1 on return.
003684,000045:
003685,000046: 04,2233 24062 INCR ERRSUB # 21
003686,000047: 04,2234 67635 AD ONE
003687,000048: 04,2235 00006 EXTEND
003688,000049: 04,2236 12240 BZF +2
003689,000050: 04,2237 12250 TCF R3ERROR
003690,000051:
003691,000052: 04,2240 30007 CA ZEROES
003692,000053: 04,2241 00071 TC SKEEP1 # Should be -0 on return.
003693,000054:
003694,000055: 04,2242 24062 INCR ERRSUB # 22
003695,000056: 04,2243 10000 CCS A
003696,000057: 04,2244 12250 TCF R3ERROR
003697,000058: 04,2245 12250 TCF R3ERROR
003698,000059: 04,2246 12250 TCF R3ERROR
003699,000060:
003700,000061: 04,2247 12251 TCF +2
003701,000062: 04,2250 07437 R3ERROR TC ERRORDSP
003702,000063:
003703,000064:
End of include-file SmallyRESTORE3.agc. Parent file is ValidateSmally.agc