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