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