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