Source Code
004441,000001: # Copyright 2004 Ronald S. Burkey <info@sandroid.org>
004442,000002: #
004443,000003: # This file is part of yaAGC.
004444,000004:
004445,000005: # yaAGC is free software; you can redistribute it and/or modify
004446,000006: # it under the terms of the GNU General Public License as published by
004447,000007: # the Free Software Foundation; either version 2 of the License, or
004448,000008: # (at your option) any later version.
004449,000009:
004450,000010: # yaAGC is distributed in the hope that it will be useful,
004451,000011: # but WITHOUT ANY WARRANTY; without even the implied warranty of
004452,000012: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
004453,000013: # GNU General Public License for more details.
004454,000014:
004455,000015: # You should have received a copy of the GNU General Public License
004456,000016: # along with yaAGC; if not, write to the Free Software
004457,000017: # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
004458,000018:
004459,000019: # Filename: SmallyIN-OUT1.agc
004460,000020: # Purpose: This is code written from the flowchart on p. 49 of
004461,000021: # E-2065, which is a document titled "Block II AGC
004462,000022: # Self-Check and Show-Banksum", by Edwin D. Smally.
004463,000023: # Mod history: 07/07/04 RSB. Began.
004464,000024:
004465,000025: # Similar code was apparently originally in Luminary and/or Colossus,
004466,000026: # but much of it was removed over the course of time to make more room.
004467,000027: # I don't know what the original code was like, but the flowcharts still
004468,000028: # exist, so I've rewritten the code from the flowcharts.
004469,000029:
004470,000030: # P. 49 of Smally
004471,000031:
004472,000032: 05,2003 24062 INCR ERRSUB
004473,000033: 05,2004 37424 CA NEGONE
004474,000034: 05,2005 00006 EXTEND
004475,000035: 05,2006 01002 WRITE Q
004476,000036: 05,2007 67430 AD ONE
004477,000037: 05,2010 00006 EXTEND
004478,000038: 05,2011 12013 BZF +2
004479,000039: 05,2012 12032 TCF IO1ERROR
004480,000040:
004481,000041: 05,2013 24062 INCR ERRSUB
004482,000042: 05,2014 22002 LXCH Q
004483,000043: 05,2015 00006 EXTEND
004484,000044: 05,2016 00001 READ L
004485,000045: 05,2017 67430 AD ONE
004486,000046: 05,2020 00006 EXTEND
004487,000047: 05,2021 12023 BZF +2
004488,000048: 05,2022 12032 TCF IO1ERROR
004489,000049:
004490,000050: 05,2023 24062 INCR ERRSUB
004491,000051: 05,2024 30001 CA L
004492,000052: 05,2025 67430 AD ONE
004493,000053: 05,2026 00006 EXTEND
004494,000054: 05,2027 12031 BZF +2
004495,000055: 05,2030 12032 TCF IO1ERROR
004496,000056:
004497,000057: 05,2031 12033 TCF +2
004498,000058: 05,2032 07240 IO1ERROR TC ERRORDSP
004499,000059:
End of include-file SmallyIN-OUT1.agc. Parent file is ValidateSmally.agc