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