Source Code

003571,000001: # Copyright 2004 Ronald S. Burkey <info@sandroid.org> 003572,000002: # 003573,000003: # This file is part of yaAGC. 003574,000004: 003575,000005: # yaAGC is free software; you can redistribute it and/or modify 003576,000006: # it under the terms of the GNU General Public License as published by 003577,000007: # the Free Software Foundation; either version 2 of the License, or 003578,000008: # (at your option) any later version. 003579,000009: 003580,000010: # yaAGC is distributed in the hope that it will be useful, 003581,000011: # but WITHOUT ANY WARRANTY; without even the implied warranty of 003582,000012: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 003583,000013: # GNU General Public License for more details. 003584,000014: 003585,000015: # You should have received a copy of the GNU General Public License 003586,000016: # along with yaAGC; if not, write to the Free Software 003587,000017: # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA 003588,000018: 003589,000019: # Filename: SmallyRESTORE2.agc 003590,000020: # Purpose: This is code written from the flowchart on p. 36 of 003591,000021: # E-2065, which is a document titled "Block II AGC 003592,000022: # Self-Check and Show-Banksum", by Edwin D. Smally. 003593,000023: # Mod history: 07/08/04 RSB. Began. 003594,000024: 003595,000025: # Similar code was apparently originally in Luminary and/or Colossus, 003596,000026: # but much of it was removed over the course of time to make more room. 003597,000027: # I don't know what the original code was like, but the flowcharts still 003598,000028: # exist, so I've rewritten the code from the flowcharts. 003599,000029: 003600,000030: # P. 36 of Smally 003601,000031: 003602,000032: 04,2162 37635 CA ONE 003603,000033: 04,2163 54071 TS SKEEP1 003604,000034: 04,2164 37631 CA NEGONE 003605,000035: 04,2165 54072 TS SKEEP2 003606,000036: 003607,000037: 04,2166 00006 EXTEND 003608,000038: 04,2167 30072 DCA SKEEP1 003609,000039: 04,2170 00006 EXTEND 003610,000040: 04,2171 40072 DCS SKEEP1 003611,000041: 003612,000042: 04,2172 24062 INCR ERRSUB # 17 003613,000043: 04,2173 67635 AD ONE 003614,000044: 04,2174 00006 EXTEND 003615,000045: 04,2175 12177 BZF +2 003616,000046: 04,2176 12221 TCF R2ERROR 003617,000047: 04,2177 30001 CA L 003618,000048: 04,2200 67631 AD NEGONE 003619,000049: 04,2201 00006 EXTEND 003620,000050: 04,2202 12204 BZF +2 003621,000051: 04,2203 12221 TCF R2ERROR 003622,000052: 003623,000053: 04,2204 24062 INCR ERRSUB # 20 (octal) 003624,000054: 04,2205 00006 EXTEND 003625,000055: 04,2206 30072 DCA SKEEP1 003626,000056: 04,2207 67631 AD NEGONE 003627,000057: 04,2210 00006 EXTEND 003628,000058: 04,2211 12213 BZF +2 003629,000059: 04,2212 12221 TCF R2ERROR 003630,000060: 04,2213 30001 CA L 003631,000061: 04,2214 67635 AD ONE 003632,000062: 04,2215 00006 EXTEND 003633,000063: 04,2216 12220 BZF +2 003634,000064: 04,2217 12221 TCF R2ERROR 003635,000065: 003636,000066: 04,2220 12222 TCF +2 003637,000067: 04,2221 07437 R2ERROR TC ERRORDSP 003638,000068: End of include-file SmallyRESTORE2.agc. Parent file is ValidateSmally.agc