Source Code
003142,000001: # Copyright 2004 Ronald S. Burkey <info@sandroid.org>
003143,000002: #
003144,000003: # This file is part of yaAGC.
003145,000004:
003146,000005: # yaAGC is free software; you can redistribute it and/or modify
003147,000006: # it under the terms of the GNU General Public License as published by
003148,000007: # the Free Software Foundation; either version 2 of the License, or
003149,000008: # (at your option) any later version.
003150,000009:
003151,000010: # yaAGC is distributed in the hope that it will be useful,
003152,000011: # but WITHOUT ANY WARRANTY; without even the implied warranty of
003153,000012: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
003154,000013: # GNU General Public License for more details.
003155,000014:
003156,000015: # You should have received a copy of the GNU General Public License
003157,000016: # along with yaAGC; if not, write to the Free Software
003158,000017: # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
003159,000018:
003160,000019: # Filename: SmallyCCSCHK.agc
003161,000020: # Purpose: This is code written from the flowchart on p. 33 of
003162,000021: # E-2065, which is a document titled "Block II AGC
003163,000022: # Self-Check and Show-Banksum", by Edwin D. Smally.
003164,000023: # Mod history: 07/07/04 RSB. Began.
003165,000024:
003166,000025: # Similar code was apparently originally in Luminary and/or Colossus,
003167,000026: # but much of it was removed over the course of time to make more room.
003168,000027: # I don't know what the original code was like, but the flowcharts still
003169,000028: # exist, so I've rewritten the code from the flowcharts.
003170,000029:
003171,000030: # P. 33 of Smally.
003172,000031:
003173,000032: 04,2020 24062 INCR ERRSUB # 2
003174,000033: 04,2021 37426 CA NEGTHREE
003175,000034: 04,2022 10000 CCS A
003176,000035: 04,2023 12067 TCF CCSERROR
003177,000036: 04,2024 12067 TCF CCSERROR
003178,000037: 04,2025 12027 TCF +2
003179,000038: 04,2026 12067 TCF CCSERROR
003180,000039:
003181,000040: 04,2027 24062 INCR ERRSUB # 3
003182,000041: 04,2030 10000 CCS A
003183,000042: 04,2031 12035 TCF +4
003184,000043: 04,2032 12067 TCF CCSERROR
003185,000044: 04,2033 12067 TCF CCSERROR
003186,000045: 04,2034 12067 TCF CCSERROR
003187,000046:
003188,000047: 04,2035 24062 INCR ERRSUB # 4
003189,000048: 04,2036 54066 TS SKEEP1
003190,000049: 04,2037 10066 CCS SKEEP1
003191,000050: 04,2040 12044 TCF +4
003192,000051: 04,2041 12067 TCF CCSERROR
003193,000052: 04,2042 12067 TCF CCSERROR
003194,000053: 04,2043 12067 TCF CCSERROR
003195,000054:
003196,000055: 04,2044 24062 INCR ERRSUB # 5
003197,000056: 04,2045 10000 CCS A
003198,000057: 04,2046 12067 TCF CCSERROR
003199,000058: 04,2047 12052 TCF +3
003200,000059: 04,2050 12067 TCF CCSERROR
003201,000060: 04,2051 12067 TCF CCSERROR
003202,000061:
003203,000062: 04,2052 24062 INCR ERRSUB # 6
003204,000063: 04,2053 40000 CS A
003205,000064: 04,2054 10000 CCS A
003206,000065: 04,2055 12067 TCF CCSERROR
003207,000066: 04,2056 12067 TCF CCSERROR
003208,000067: 04,2057 12067 TCF CCSERROR
003209,000068:
003210,000069: 04,2060 24062 INCR ERRSUB # 7
003211,000070: 04,2061 10000 CCS A
003212,000071: 04,2062 12067 TCF CCSERROR
003213,000072: 04,2063 12066 TCF +3
003214,000073: 04,2064 12067 TCF CCSERROR
003215,000074: 04,2065 12067 TCF CCSERROR
003216,000075:
003217,000076: # The flowchart says here to
003218,000077: # "check read back into erasable
003219,000078: # memory feature of CS instruction,"
003220,000079: # whatever that may mean!
003221,000080:
003222,000081: 04,2066 12070 TCF CCSDONE
003223,000082: 04,2067 07240 CCSERROR TC ERRORDSP
003224,000083: 04,2070 CCSDONE
003225,000084:
003226,000085:
003227,000086:
End of include-file SmallyCCSCHK.agc. Parent file is ValidateSmally.agc