Source Code

003830,000001: # Copyright 2004 Ronald S. Burkey <info@sandroid.org> 003831,000002: # 003832,000003: # This file is part of yaAGC. 003833,000004: 003834,000005: # yaAGC is free software; you can redistribute it and/or modify 003835,000006: # it under the terms of the GNU General Public License as published by 003836,000007: # the Free Software Foundation; either version 2 of the License, or 003837,000008: # (at your option) any later version. 003838,000009: 003839,000010: # yaAGC is distributed in the hope that it will be useful, 003840,000011: # but WITHOUT ANY WARRANTY; without even the implied warranty of 003841,000012: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 003842,000013: # GNU General Public License for more details. 003843,000014: 003844,000015: # You should have received a copy of the GNU General Public License 003845,000016: # along with yaAGC; if not, write to the Free Software 003846,000017: # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA 003847,000018: 003848,000019: # Filename: SmallyMPCHK.agc 003849,000020: # Purpose: This is code written from the flowchart on p. 42 of 003850,000021: # E-2065, which is a document titled "Block II AGC 003851,000022: # Self-Check and Show-Banksum", by Edwin D. Smally. 003852,000023: # Mod history: 07/07/04 RSB. Began. 003853,000024: 003854,000025: # Similar code was apparently originally in Luminary and/or Colossus, 003855,000026: # but much of it was removed over the course of time to make more room. 003856,000027: # I don't know what the original code was like, but the flowcharts still 003857,000028: # exist, so I've rewritten the code from the flowcharts. 003858,000029: 003859,000030: # P. 42 of Smally 003860,000031: 003861,000032: 04,2554 24062 INCR ERRSUB # 43 003862,000033: 04,2555 37430 CA ONE 003863,000034: 04,2556 00006 EXTEND 003864,000035: 04,2557 24000 AUG A # A == +2 003865,000036: 04,2560 67425 AD NEGTWO 003866,000037: 04,2561 00006 EXTEND 003867,000038: 04,2562 12564 BZF +2 003868,000039: 04,2563 12653 TCF MPCERROR 003869,000040: 003870,000041: 04,2564 37431 CA TWO 003871,000042: 04,2565 00006 EXTEND 003872,000043: 04,2566 77443 MP MAXP 003873,000044: 003874,000045: 04,2567 24062 INCR ERRSUB # 44 003875,000046: 04,2570 60001 AD L # A == 37777 003876,000047: 04,2571 67447 AD MAXN # -37777 003877,000048: 04,2572 00006 EXTEND 003878,000049: 04,2573 12575 BZF +2 003879,000050: 04,2574 12653 TCF MPCERROR 003880,000051: 04,2575 37443 CA MAXP # 37777 003881,000052: 04,2576 00006 EXTEND 003882,000053: 04,2577 77425 MP NEGTWO 003883,000054: 003884,000055: 04,2600 24062 INCR ERRSUB # 45 003885,000056: 04,2601 26001 ADS L # A == -37777 003886,000057: 04,2602 67443 AD MAXP # 37777 003887,000058: 04,2603 00006 EXTEND 003888,000059: 04,2604 12606 BZF +2 003889,000060: 04,2605 12653 TCF MPCERROR 003890,000061: 04,2606 37447 CA MAXN # -37777 003891,000062: 003892,000063: 04,2607 24062 INCR ERRSUB # 46 003893,000064: 04,2610 00006 EXTEND 003894,000065: 04,2611 77431 MP TWO 003895,000066: 04,2612 54073 TS SKEEP6 # -1 003896,000067: 04,2613 67430 AD ONE 003897,000068: 04,2614 00006 EXTEND 003898,000069: 04,2615 12617 BZF +2 003899,000070: 04,2616 12653 TCF MPCERROR 003900,000071: 04,2617 00006 EXTEND 003901,000072: 04,2620 24073 AUG SKEEP6 # SKEEP6==-2 003902,000073: 003903,000074: 04,2621 24062 INCR ERRSUB # 47 003904,000075: 04,2622 37447 CA MAXN # 40000 003905,000076: 04,2623 00006 EXTEND 003906,000077: 04,2624 70073 MP SKEEP6 003907,000078: 04,2625 67424 AD NEGONE 003908,000079: 04,2626 00006 EXTEND 003909,000080: 04,2627 12631 BZF +2 003910,000081: 04,2630 12653 TCF MPCERROR 003911,000082: 04,2631 30001 CA L 003912,000083: 04,2632 67450 AD MAXN-1 # -37776 003913,000084: 04,2633 00006 EXTEND 003914,000085: 04,2634 12636 BZF +2 003915,000086: 04,2635 12653 TCF MPCERROR 003916,000087: 003917,000088: 04,2636 24062 INCR ERRSUB # 50 octal 003918,000089: 04,2637 37430 CA ONE # Smally says -1. 003919,000090: 04,2640 26073 ADS SKEEP6 003920,000091: 04,2641 67430 AD ONE 003921,000092: 04,2642 00006 EXTEND 003922,000093: 04,2643 12645 BZF +2 003923,000094: 04,2644 12653 TCF MPCERROR 003924,000095: 04,2645 30073 CA SKEEP6 003925,000096: 04,2646 67430 AD ONE 003926,000097: 04,2647 00006 EXTEND 003927,000098: 04,2650 12652 BZF +2 003928,000099: 04,2651 12653 TCF MPCERROR 003929,000100: 003930,000101: 04,2652 12654 TCF +2 003931,000102: 04,2653 07240 MPCERROR TC ERRORDSP 003932,000103: End of include-file SmallyMPCHK.agc. Parent file is ValidateSmally.agc