Source Code
004563,000001: # Copyright 2004 Ronald S. Burkey <info@sandroid.org>
004564,000002: #
004565,000003: # This file is part of yaAGC.
004566,000004:
004567,000005: # yaAGC is free software; you can redistribute it and/or modify
004568,000006: # it under the terms of the GNU General Public License as published by
004569,000007: # the Free Software Foundation; either version 2 of the License, or
004570,000008: # (at your option) any later version.
004571,000009:
004572,000010: # yaAGC is distributed in the hope that it will be useful,
004573,000011: # but WITHOUT ANY WARRANTY; without even the implied warranty of
004574,000012: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
004575,000013: # GNU General Public License for more details.
004576,000014:
004577,000015: # You should have received a copy of the GNU General Public License
004578,000016: # along with yaAGC; if not, write to the Free Software
004579,000017: # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
004580,000018:
004581,000019: # Filename: SmallyIN-OUT3.agc
004582,000020: # Purpose: This is code written from the flowchart on p. 51 of
004583,000021: # E-2065, which is a document titled "Block II AGC
004584,000022: # Self-Check and Show-Banksum", by Edwin D. Smally.
004585,000023: # Mod history: 07/07/04 RSB. Began.
004586,000024:
004587,000025: # Similar code was apparently originally in Luminary and/or Colossus,
004588,000026: # but much of it was removed over the course of time to make more room.
004589,000027: # I don't know what the original code was like, but the flowcharts still
004590,000028: # exist, so I've rewritten the code from the flowcharts.
004591,000029:
004592,000030: # P. 51 of Smally.
004593,000031:
004594,000032: 05,2064 37450 CA MAXN-1
004595,000033: 05,2065 54001 TS L
004596,000034: 05,2066 37404 CA O17777
004597,000035:
004598,000036: 05,2067 24062 INCR ERRSUB
004599,000037: 05,2070 00006 EXTEND
004600,000038: 05,2071 02001 RAND L
004601,000039: 05,2072 67424 AD NEGONE
004602,000040: 05,2073 00006 EXTEND
004603,000041: 05,2074 12076 BZF +2
004604,000042: 05,2075 12135 TCF IO3ERROR
004605,000043:
004606,000044: 05,2076 37404 CA O17777
004607,000045:
004608,000046: 05,2077 24062 INCR ERRSUB
004609,000047: 05,2100 00006 EXTEND
004610,000048: 05,2101 03001 WAND L
004611,000049: 05,2102 67424 AD NEGONE
004612,000050: 05,2103 00006 EXTEND
004613,000051: 05,2104 12106 BZF +2
004614,000052: 05,2105 12135 TCF IO3ERROR
004615,000053: 05,2106 30001 CA L
004616,000054: 05,2107 67424 AD NEGONE
004617,000055: 05,2110 00006 EXTEND
004618,000056: 05,2111 12113 BZF +2
004619,000057: 05,2112 12135 TCF IO3ERROR
004620,000058:
004621,000059: 05,2113 37433 CA FIVE
004622,000060: 05,2114 40000 COM
004623,000061: 05,2115 54001 TS L
004624,000062: 05,2116 37433 CA FIVE
004625,000063: 05,2117 24000 INCR A
004626,000064:
004627,000065: 05,2120 24062 INCR ERRSUB
004628,000066: 05,2121 00006 EXTEND
004629,000067: 05,2122 06001 RXOR L
004630,000068: 05,2123 67432 AD THREE
004631,000069: 05,2124 00006 EXTEND
004632,000070: 05,2125 12127 BZF +2
004633,000071: 05,2126 12135 TCF IO3ERROR
004634,000072: 05,2127 30001 CA L
004635,000073: 05,2130 67433 AD FIVE
004636,000074: 05,2131 00006 EXTEND
004637,000075: 05,2132 12134 BZF +2
004638,000076: 05,2133 12135 TCF IO3ERROR
004639,000077:
004640,000078: 05,2134 12136 TCF +2
004641,000079: 05,2135 07240 IO3ERROR TC ERRORDSP
004642,000080:
End of include-file SmallyIN-OUT3.agc. Parent file is ValidateSmally.agc