Source Code
004030,000001: # Copyright 2004 Ronald S. Burkey <info@sandroid.org>
004031,000002: #
004032,000003: # This file is part of yaAGC.
004033,000004:
004034,000005: # yaAGC is free software; you can redistribute it and/or modify
004035,000006: # it under the terms of the GNU General Public License as published by
004036,000007: # the Free Software Foundation; either version 2 of the License, or
004037,000008: # (at your option) any later version.
004038,000009:
004039,000010: # yaAGC is distributed in the hope that it will be useful,
004040,000011: # but WITHOUT ANY WARRANTY; without even the implied warranty of
004041,000012: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
004042,000013: # GNU General Public License for more details.
004043,000014:
004044,000015: # You should have received a copy of the GNU General Public License
004045,000016: # along with yaAGC; if not, write to the Free Software
004046,000017: # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
004047,000018:
004048,000019: # Filename: SmallyMPCHK.agc
004049,000020: # Purpose: This is code written from the flowchart on p. 42 of
004050,000021: # E-2065, which is a document titled "Block II AGC
004051,000022: # Self-Check and Show-Banksum", by Edwin D. Smally.
004052,000023: # Mod history: 07/07/04 RSB. Began.
004053,000024:
004054,000025: # Similar code was apparently originally in Luminary and/or Colossus,
004055,000026: # but much of it was removed over the course of time to make more room.
004056,000027: # I don't know what the original code was like, but the flowcharts still
004057,000028: # exist, so I've rewritten the code from the flowcharts.
004058,000029:
004059,000030: # P. 42 of Smally
004060,000031:
004061,000032: 04,2554 24062 INCR ERRSUB # 43
004062,000033: 04,2555 37635 CA ONE
004063,000034: 04,2556 00006 EXTEND
004064,000035: 04,2557 24000 AUG A # A == +2
004065,000036: 04,2560 67632 AD NEGTWO
004066,000037: 04,2561 00006 EXTEND
004067,000038: 04,2562 12564 BZF +2
004068,000039: 04,2563 12653 TCF MPCERROR
004069,000040:
004070,000041: 04,2564 37636 CA TWO
004071,000042: 04,2565 00006 EXTEND
004072,000043: 04,2566 77651 MP MAXP
004073,000044:
004074,000045: 04,2567 24062 INCR ERRSUB # 44
004075,000046: 04,2570 60001 AD L # A == 37777
004076,000047: 04,2571 67655 AD MAXN # -37777
004077,000048: 04,2572 00006 EXTEND
004078,000049: 04,2573 12575 BZF +2
004079,000050: 04,2574 12653 TCF MPCERROR
004080,000051: 04,2575 37651 CA MAXP # 37777
004081,000052: 04,2576 00006 EXTEND
004082,000053: 04,2577 77632 MP NEGTWO
004083,000054:
004084,000055: 04,2600 24062 INCR ERRSUB # 45
004085,000056: 04,2601 26001 ADS L # A == -37777
004086,000057: 04,2602 67651 AD MAXP # 37777
004087,000058: 04,2603 00006 EXTEND
004088,000059: 04,2604 12606 BZF +2
004089,000060: 04,2605 12653 TCF MPCERROR
004090,000061: 04,2606 37655 CA MAXN # -37777
004091,000062:
004092,000063: 04,2607 24062 INCR ERRSUB # 46
004093,000064: 04,2610 00006 EXTEND
004094,000065: 04,2611 77636 MP TWO
004095,000066: 04,2612 54076 TS SKEEP6 # -1
004096,000067: 04,2613 67635 AD ONE
004097,000068: 04,2614 00006 EXTEND
004098,000069: 04,2615 12617 BZF +2
004099,000070: 04,2616 12653 TCF MPCERROR
004100,000071: 04,2617 00006 EXTEND
004101,000072: 04,2620 24076 AUG SKEEP6 # SKEEP6==-2
004102,000073:
004103,000074: 04,2621 24062 INCR ERRSUB # 47
004104,000075: 04,2622 37655 CA MAXN # 40000
004105,000076: 04,2623 00006 EXTEND
004106,000077: 04,2624 70076 MP SKEEP6
004107,000078: 04,2625 67631 AD NEGONE
004108,000079: 04,2626 00006 EXTEND
004109,000080: 04,2627 12631 BZF +2
004110,000081: 04,2630 12653 TCF MPCERROR
004111,000082: 04,2631 30001 CA L
004112,000083: 04,2632 67656 AD MAXN-1 # -37776
004113,000084: 04,2633 00006 EXTEND
004114,000085: 04,2634 12636 BZF +2
004115,000086: 04,2635 12653 TCF MPCERROR
004116,000087:
004117,000088: 04,2636 24062 INCR ERRSUB # 50 octal
004118,000089: 04,2637 37635 CA ONE # Smally says -1.
004119,000090: 04,2640 26076 ADS SKEEP6
004120,000091: 04,2641 67635 AD ONE
004121,000092: 04,2642 00006 EXTEND
004122,000093: 04,2643 12645 BZF +2
004123,000094: 04,2644 12653 TCF MPCERROR
004124,000095: 04,2645 30076 CA SKEEP6
004125,000096: 04,2646 67635 AD ONE
004126,000097: 04,2647 00006 EXTEND
004127,000098: 04,2650 12652 BZF +2
004128,000099: 04,2651 12653 TCF MPCERROR
004129,000100:
004130,000101: 04,2652 12654 TCF +2
004131,000102: 04,2653 07437 MPCERROR TC ERRORDSP
004132,000103:
End of include-file SmallyMPCHK.agc. Parent file is ValidateSmally.agc