Source Code
003095,000001: # Copyright 2004 Ronald S. Burkey <info@sandroid.org>
003096,000002: #
003097,000003: # This file is part of yaAGC.
003098,000004:
003099,000005: # yaAGC is free software; you can redistribute it and/or modify
003100,000006: # it under the terms of the GNU General Public License as published by
003101,000007: # the Free Software Foundation; either version 2 of the License, or
003102,000008: # (at your option) any later version.
003103,000009:
003104,000010: # yaAGC is distributed in the hope that it will be useful,
003105,000011: # but WITHOUT ANY WARRANTY; without even the implied warranty of
003106,000012: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
003107,000013: # GNU General Public License for more details.
003108,000014:
003109,000015: # You should have received a copy of the GNU General Public License
003110,000016: # along with yaAGC; if not, write to the Free Software
003111,000017: # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
003112,000018:
003113,000019: # Filename: SmallyTCTCF.agc
003114,000020: # Purpose: This is code written from the flowchart on p. 32 of
003115,000021: # E-2065, which is a document titled "Block II AGC
003116,000022: # Self-Check and Show-Banksum", by Edwin D. Smally.
003117,000023: # Mod history: 07/07/04 RSB. Began.
003118,000024:
003119,000025: # Similar code was apparently originally in Luminary and/or Colossus,
003120,000026: # but much of it was removed over the course of time to make more room.
003121,000027: # I don't know what the original code was like, but the flowcharts still
003122,000028: # exist, so I've rewritten the code from the flowcharts.
003123,000029:
003124,000030: # P. 32 of Smally.
003125,000031:
003126,000032: 04,2003 24062 INCR ERRSUB # 1
003127,000033: 04,2004 22007 ZL
003128,000034: 04,2005 02007 TC +2
003129,000035: 04,2006 12015 TCF TCTCFDON
003130,000036: 04,2007 24001 INCR L
003131,000037: 04,2010 12012 TCF +2
003132,000038: 04,2011 12013 TCF TCTCFERR
003133,000039: 04,2012 00002 RETURN
003134,000040:
003135,000041: 04,2013 07240 TCTCFERR TC ERRORDSP
003136,000042: 04,2014 12020 TCF TCTCFDN2
003137,000043: 04,2015 30001 TCTCFDON CA L
003138,000044: 04,2016 00006 EXTEND
003139,000045: 04,2017 12013 BZF TCTCFERR
003140,000046: 04,2020 TCTCFDN2
End of include-file SmallyTCTCF.agc. Parent file is ValidateSmally.agc