Source Code

004641,000001: # Copyright 2004 Ronald S. Burkey <info@sandroid.org> 004642,000002: # 004643,000003: # This file is part of yaAGC. 004644,000004: 004645,000005: # yaAGC is free software; you can redistribute it and/or modify 004646,000006: # it under the terms of the GNU General Public License as published by 004647,000007: # the Free Software Foundation; either version 2 of the License, or 004648,000008: # (at your option) any later version. 004649,000009: 004650,000010: # yaAGC is distributed in the hope that it will be useful, 004651,000011: # but WITHOUT ANY WARRANTY; without even the implied warranty of 004652,000012: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 004653,000013: # GNU General Public License for more details. 004654,000014: 004655,000015: # You should have received a copy of the GNU General Public License 004656,000016: # along with yaAGC; if not, write to the Free Software 004657,000017: # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA 004658,000018: 004659,000019: # Filename: SmallyIN-OUT1.agc 004660,000020: # Purpose: This is code written from the flowchart on p. 49 of 004661,000021: # E-2065, which is a document titled "Block II AGC 004662,000022: # Self-Check and Show-Banksum", by Edwin D. Smally. 004663,000023: # Mod history: 07/07/04 RSB. Began. 004664,000024: 004665,000025: # Similar code was apparently originally in Luminary and/or Colossus, 004666,000026: # but much of it was removed over the course of time to make more room. 004667,000027: # I don't know what the original code was like, but the flowcharts still 004668,000028: # exist, so I've rewritten the code from the flowcharts. 004669,000029: 004670,000030: # P. 49 of Smally 004671,000031: 004672,000032: 05,2003 24062 INCR ERRSUB 004673,000033: 05,2004 37631 CA NEGONE 004674,000034: 05,2005 00006 EXTEND 004675,000035: 05,2006 01002 WRITE Q 004676,000036: 05,2007 67635 AD ONE 004677,000037: 05,2010 00006 EXTEND 004678,000038: 05,2011 12013 BZF +2 004679,000039: 05,2012 12032 TCF IO1ERROR 004680,000040: 004681,000041: 05,2013 24062 INCR ERRSUB 004682,000042: 05,2014 22002 LXCH Q 004683,000043: 05,2015 00006 EXTEND 004684,000044: 05,2016 00001 READ L 004685,000045: 05,2017 67635 AD ONE 004686,000046: 05,2020 00006 EXTEND 004687,000047: 05,2021 12023 BZF +2 004688,000048: 05,2022 12032 TCF IO1ERROR 004689,000049: 004690,000050: 05,2023 24062 INCR ERRSUB 004691,000051: 05,2024 30001 CA L 004692,000052: 05,2025 67635 AD ONE 004693,000053: 05,2026 00006 EXTEND 004694,000054: 05,2027 12031 BZF +2 004695,000055: 05,2030 12032 TCF IO1ERROR 004696,000056: 004697,000057: 05,2031 12033 TCF +2 004698,000058: 05,2032 07437 IO1ERROR TC ERRORDSP 004699,000059: End of include-file SmallyIN-OUT1.agc. Parent file is ValidateSmally.agc