Source Code

003295,000001: # Copyright 2004 Ronald S. Burkey <info@sandroid.org> 003296,000002: # 003297,000003: # This file is part of yaAGC. 003298,000004: 003299,000005: # yaAGC is free software; you can redistribute it and/or modify 003300,000006: # it under the terms of the GNU General Public License as published by 003301,000007: # the Free Software Foundation; either version 2 of the License, or 003302,000008: # (at your option) any later version. 003303,000009: 003304,000010: # yaAGC is distributed in the hope that it will be useful, 003305,000011: # but WITHOUT ANY WARRANTY; without even the implied warranty of 003306,000012: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 003307,000013: # GNU General Public License for more details. 003308,000014: 003309,000015: # You should have received a copy of the GNU General Public License 003310,000016: # along with yaAGC; if not, write to the Free Software 003311,000017: # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA 003312,000018: 003313,000019: # Filename: SmallyTCTCF.agc 003314,000020: # Purpose: This is code written from the flowchart on p. 32 of 003315,000021: # E-2065, which is a document titled "Block II AGC 003316,000022: # Self-Check and Show-Banksum", by Edwin D. Smally. 003317,000023: # Mod history: 07/07/04 RSB. Began. 003318,000024: 003319,000025: # Similar code was apparently originally in Luminary and/or Colossus, 003320,000026: # but much of it was removed over the course of time to make more room. 003321,000027: # I don't know what the original code was like, but the flowcharts still 003322,000028: # exist, so I've rewritten the code from the flowcharts. 003323,000029: 003324,000030: # P. 32 of Smally. 003325,000031: 003326,000032: 04,2003 24062 INCR ERRSUB # 1 003327,000033: 04,2004 22007 ZL 003328,000034: 04,2005 02007 TC +2 003329,000035: 04,2006 12015 TCF TCTCFDON 003330,000036: 04,2007 24001 INCR L 003331,000037: 04,2010 12012 TCF +2 003332,000038: 04,2011 12013 TCF TCTCFERR 003333,000039: 04,2012 00002 RETURN 003334,000040: 003335,000041: 04,2013 07437 TCTCFERR TC ERRORDSP 003336,000042: 04,2014 12020 TCF TCTCFDN2 003337,000043: 04,2015 30001 TCTCFDON CA L 003338,000044: 04,2016 00006 EXTEND 003339,000045: 04,2017 12013 BZF TCTCFERR 003340,000046: 04,2020 TCTCFDN2 End of include-file SmallyTCTCF.agc. Parent file is ValidateSmally.agc