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