Source Code

004501,000001: # Copyright 2004 Ronald S. Burkey <info@sandroid.org> 004502,000002: # 004503,000003: # This file is part of yaAGC. 004504,000004: 004505,000005: # yaAGC is free software; you can redistribute it and/or modify 004506,000006: # it under the terms of the GNU General Public License as published by 004507,000007: # the Free Software Foundation; either version 2 of the License, or 004508,000008: # (at your option) any later version. 004509,000009: 004510,000010: # yaAGC is distributed in the hope that it will be useful, 004511,000011: # but WITHOUT ANY WARRANTY; without even the implied warranty of 004512,000012: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 004513,000013: # GNU General Public License for more details. 004514,000014: 004515,000015: # You should have received a copy of the GNU General Public License 004516,000016: # along with yaAGC; if not, write to the Free Software 004517,000017: # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA 004518,000018: 004519,000019: # Filename: SmallyIN-OUT2.agc 004520,000020: # Purpose: This is code written from the flowchart on p. 50 of 004521,000021: # E-2065, which is a document titled "Block II AGC 004522,000022: # Self-Check and Show-Banksum", by Edwin D. Smally. 004523,000023: # Mod history: 07/07/04 RSB. Began. 004524,000024: 004525,000025: # Similar code was apparently originally in Luminary and/or Colossus, 004526,000026: # but much of it was removed over the course of time to make more room. 004527,000027: # I don't know what the original code was like, but the flowcharts still 004528,000028: # exist, so I've rewritten the code from the flowcharts. 004529,000029: 004530,000030: # P. 50 of Smally 004531,000031: 004532,000032: 05,2033 37426 CA NEGTHREE 004533,000033: 05,2034 54001 TS L 004534,000034: 05,2035 37444 CA MAXP-1 004535,000035: 004536,000036: 05,2036 24062 INCR ERRSUB 004537,000037: 05,2037 00006 EXTEND 004538,000038: 05,2040 04001 ROR L 004539,000039: 05,2041 67430 AD ONE 004540,000040: 05,2042 00006 EXTEND 004541,000041: 05,2043 12045 BZF +2 004542,000042: 05,2044 12063 TCF IO2ERROR 004543,000043: 004544,000044: 05,2045 37444 CA MAXP-1 004545,000045: 004546,000046: 05,2046 24062 INCR ERRSUB 004547,000047: 05,2047 00006 EXTEND 004548,000048: 05,2050 05001 WOR L 004549,000049: 05,2051 67430 AD ONE 004550,000050: 05,2052 00006 EXTEND 004551,000051: 05,2053 12055 BZF +2 004552,000052: 05,2054 12063 TCF IO2ERROR 004553,000053: 05,2055 30001 CA L 004554,000054: 05,2056 67430 AD ONE 004555,000055: 05,2057 00006 EXTEND 004556,000056: 05,2060 12062 BZF +2 004557,000057: 05,2061 12063 TCF IO2ERROR 004558,000058: 004559,000059: 05,2062 12064 TCF +2 004560,000060: 05,2063 07240 IO2ERROR TC ERRORDSP 004561,000061: End of include-file SmallyIN-OUT2.agc. Parent file is ValidateSmally.agc