Source Code

003371,000001: # Copyright 2004 Ronald S. Burkey <info@sandroid.org> 003372,000002: # 003373,000003: # This file is part of yaAGC. 003374,000004: 003375,000005: # yaAGC is free software; you can redistribute it and/or modify 003376,000006: # it under the terms of the GNU General Public License as published by 003377,000007: # the Free Software Foundation; either version 2 of the License, or 003378,000008: # (at your option) any later version. 003379,000009: 003380,000010: # yaAGC is distributed in the hope that it will be useful, 003381,000011: # but WITHOUT ANY WARRANTY; without even the implied warranty of 003382,000012: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 003383,000013: # GNU General Public License for more details. 003384,000014: 003385,000015: # You should have received a copy of the GNU General Public License 003386,000016: # along with yaAGC; if not, write to the Free Software 003387,000017: # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA 003388,000018: 003389,000019: # Filename: SmallyRESTORE2.agc 003390,000020: # Purpose: This is code written from the flowchart on p. 36 of 003391,000021: # E-2065, which is a document titled "Block II AGC 003392,000022: # Self-Check and Show-Banksum", by Edwin D. Smally. 003393,000023: # Mod history: 07/08/04 RSB. Began. 003394,000024: 003395,000025: # Similar code was apparently originally in Luminary and/or Colossus, 003396,000026: # but much of it was removed over the course of time to make more room. 003397,000027: # I don't know what the original code was like, but the flowcharts still 003398,000028: # exist, so I've rewritten the code from the flowcharts. 003399,000029: 003400,000030: # P. 36 of Smally 003401,000031: 003402,000032: 04,2162 37430 CA ONE 003403,000033: 04,2163 54066 TS SKEEP1 003404,000034: 04,2164 37424 CA NEGONE 003405,000035: 04,2165 54067 TS SKEEP2 003406,000036: 003407,000037: 04,2166 00006 EXTEND 003408,000038: 04,2167 30067 DCA SKEEP1 003409,000039: 04,2170 00006 EXTEND 003410,000040: 04,2171 40067 DCS SKEEP1 003411,000041: 003412,000042: 04,2172 24062 INCR ERRSUB # 17 003413,000043: 04,2173 67430 AD ONE 003414,000044: 04,2174 00006 EXTEND 003415,000045: 04,2175 12177 BZF +2 003416,000046: 04,2176 12221 TCF R2ERROR 003417,000047: 04,2177 30001 CA L 003418,000048: 04,2200 67424 AD NEGONE 003419,000049: 04,2201 00006 EXTEND 003420,000050: 04,2202 12204 BZF +2 003421,000051: 04,2203 12221 TCF R2ERROR 003422,000052: 003423,000053: 04,2204 24062 INCR ERRSUB # 20 (octal) 003424,000054: 04,2205 00006 EXTEND 003425,000055: 04,2206 30067 DCA SKEEP1 003426,000056: 04,2207 67424 AD NEGONE 003427,000057: 04,2210 00006 EXTEND 003428,000058: 04,2211 12213 BZF +2 003429,000059: 04,2212 12221 TCF R2ERROR 003430,000060: 04,2213 30001 CA L 003431,000061: 04,2214 67430 AD ONE 003432,000062: 04,2215 00006 EXTEND 003433,000063: 04,2216 12220 BZF +2 003434,000064: 04,2217 12221 TCF R2ERROR 003435,000065: 003436,000066: 04,2220 12222 TCF +2 003437,000067: 04,2221 07240 R2ERROR TC ERRORDSP 003438,000068: End of include-file SmallyRESTORE2.agc. Parent file is ValidateSmally.agc