Source Code

003342,000001: # Copyright 2004 Ronald S. Burkey <info@sandroid.org> 003343,000002: # 003344,000003: # This file is part of yaAGC. 003345,000004: 003346,000005: # yaAGC is free software; you can redistribute it and/or modify 003347,000006: # it under the terms of the GNU General Public License as published by 003348,000007: # the Free Software Foundation; either version 2 of the License, or 003349,000008: # (at your option) any later version. 003350,000009: 003351,000010: # yaAGC is distributed in the hope that it will be useful, 003352,000011: # but WITHOUT ANY WARRANTY; without even the implied warranty of 003353,000012: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 003354,000013: # GNU General Public License for more details. 003355,000014: 003356,000015: # You should have received a copy of the GNU General Public License 003357,000016: # along with yaAGC; if not, write to the Free Software 003358,000017: # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA 003359,000018: 003360,000019: # Filename: SmallyCCSCHK.agc 003361,000020: # Purpose: This is code written from the flowchart on p. 33 of 003362,000021: # E-2065, which is a document titled "Block II AGC 003363,000022: # Self-Check and Show-Banksum", by Edwin D. Smally. 003364,000023: # Mod history: 07/07/04 RSB. Began. 003365,000024: 003366,000025: # Similar code was apparently originally in Luminary and/or Colossus, 003367,000026: # but much of it was removed over the course of time to make more room. 003368,000027: # I don't know what the original code was like, but the flowcharts still 003369,000028: # exist, so I've rewritten the code from the flowcharts. 003370,000029: 003371,000030: # P. 33 of Smally. 003372,000031: 003373,000032: 04,2020 24062 INCR ERRSUB # 2 003374,000033: 04,2021 37633 CA NEGTHREE 003375,000034: 04,2022 10000 CCS A 003376,000035: 04,2023 12067 TCF CCSERROR 003377,000036: 04,2024 12067 TCF CCSERROR 003378,000037: 04,2025 12027 TCF +2 003379,000038: 04,2026 12067 TCF CCSERROR 003380,000039: 003381,000040: 04,2027 24062 INCR ERRSUB # 3 003382,000041: 04,2030 10000 CCS A 003383,000042: 04,2031 12035 TCF +4 003384,000043: 04,2032 12067 TCF CCSERROR 003385,000044: 04,2033 12067 TCF CCSERROR 003386,000045: 04,2034 12067 TCF CCSERROR 003387,000046: 003388,000047: 04,2035 24062 INCR ERRSUB # 4 003389,000048: 04,2036 54071 TS SKEEP1 003390,000049: 04,2037 10071 CCS SKEEP1 003391,000050: 04,2040 12044 TCF +4 003392,000051: 04,2041 12067 TCF CCSERROR 003393,000052: 04,2042 12067 TCF CCSERROR 003394,000053: 04,2043 12067 TCF CCSERROR 003395,000054: 003396,000055: 04,2044 24062 INCR ERRSUB # 5 003397,000056: 04,2045 10000 CCS A 003398,000057: 04,2046 12067 TCF CCSERROR 003399,000058: 04,2047 12052 TCF +3 003400,000059: 04,2050 12067 TCF CCSERROR 003401,000060: 04,2051 12067 TCF CCSERROR 003402,000061: 003403,000062: 04,2052 24062 INCR ERRSUB # 6 003404,000063: 04,2053 40000 CS A 003405,000064: 04,2054 10000 CCS A 003406,000065: 04,2055 12067 TCF CCSERROR 003407,000066: 04,2056 12067 TCF CCSERROR 003408,000067: 04,2057 12067 TCF CCSERROR 003409,000068: 003410,000069: 04,2060 24062 INCR ERRSUB # 7 003411,000070: 04,2061 10000 CCS A 003412,000071: 04,2062 12067 TCF CCSERROR 003413,000072: 04,2063 12066 TCF +3 003414,000073: 04,2064 12067 TCF CCSERROR 003415,000074: 04,2065 12067 TCF CCSERROR 003416,000075: 003417,000076: # The flowchart says here to 003418,000077: # "check read back into erasable 003419,000078: # memory feature of CS instruction," 003420,000079: # whatever that may mean! 003421,000080: 003422,000081: 04,2066 12070 TCF CCSDONE 003423,000082: 04,2067 07437 CCSERROR TC ERRORDSP 003424,000083: 04,2070 CCSDONE 003425,000084: 003426,000085: 003427,000086: End of include-file SmallyCCSCHK.agc. Parent file is ValidateSmally.agc