Source Code
004701,000001: # Copyright 2004 Ronald S. Burkey <info@sandroid.org>
004702,000002: #
004703,000003: # This file is part of yaAGC.
004704,000004:
004705,000005: # yaAGC is free software; you can redistribute it and/or modify
004706,000006: # it under the terms of the GNU General Public License as published by
004707,000007: # the Free Software Foundation; either version 2 of the License, or
004708,000008: # (at your option) any later version.
004709,000009:
004710,000010: # yaAGC is distributed in the hope that it will be useful,
004711,000011: # but WITHOUT ANY WARRANTY; without even the implied warranty of
004712,000012: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
004713,000013: # GNU General Public License for more details.
004714,000014:
004715,000015: # You should have received a copy of the GNU General Public License
004716,000016: # along with yaAGC; if not, write to the Free Software
004717,000017: # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
004718,000018:
004719,000019: # Filename: SmallyIN-OUT2.agc
004720,000020: # Purpose: This is code written from the flowchart on p. 50 of
004721,000021: # E-2065, which is a document titled "Block II AGC
004722,000022: # Self-Check and Show-Banksum", by Edwin D. Smally.
004723,000023: # Mod history: 07/07/04 RSB. Began.
004724,000024:
004725,000025: # Similar code was apparently originally in Luminary and/or Colossus,
004726,000026: # but much of it was removed over the course of time to make more room.
004727,000027: # I don't know what the original code was like, but the flowcharts still
004728,000028: # exist, so I've rewritten the code from the flowcharts.
004729,000029:
004730,000030: # P. 50 of Smally
004731,000031:
004732,000032: 05,2033 37633 CA NEGTHREE
004733,000033: 05,2034 54001 TS L
004734,000034: 05,2035 37652 CA MAXP-1
004735,000035:
004736,000036: 05,2036 24062 INCR ERRSUB
004737,000037: 05,2037 00006 EXTEND
004738,000038: 05,2040 04001 ROR L
004739,000039: 05,2041 67635 AD ONE
004740,000040: 05,2042 00006 EXTEND
004741,000041: 05,2043 12045 BZF +2
004742,000042: 05,2044 12063 TCF IO2ERROR
004743,000043:
004744,000044: 05,2045 37652 CA MAXP-1
004745,000045:
004746,000046: 05,2046 24062 INCR ERRSUB
004747,000047: 05,2047 00006 EXTEND
004748,000048: 05,2050 05001 WOR L
004749,000049: 05,2051 67635 AD ONE
004750,000050: 05,2052 00006 EXTEND
004751,000051: 05,2053 12055 BZF +2
004752,000052: 05,2054 12063 TCF IO2ERROR
004753,000053: 05,2055 30001 CA L
004754,000054: 05,2056 67635 AD ONE
004755,000055: 05,2057 00006 EXTEND
004756,000056: 05,2060 12062 BZF +2
004757,000057: 05,2061 12063 TCF IO2ERROR
004758,000058:
004759,000059: 05,2062 12064 TCF +2
004760,000060: 05,2063 07437 IO2ERROR TC ERRORDSP
004761,000061:
End of include-file SmallyIN-OUT2.agc. Parent file is ValidateSmally.agc