Source Code
005718,000001: # Copyright 2004 Ronald S. Burkey <info@sandroid.org>
005719,000002: #
005720,000003: # This file is part of yaAGC.
005721,000004:
005722,000005: # yaAGC is free software; you can redistribute it and/or modify
005723,000006: # it under the terms of the GNU General Public License as published by
005724,000007: # the Free Software Foundation; either version 2 of the License, or
005725,000008: # (at your option) any later version.
005726,000009:
005727,000010: # yaAGC is distributed in the hope that it will be useful,
005728,000011: # but WITHOUT ANY WARRANTY; without even the implied warranty of
005729,000012: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
005730,000013: # GNU General Public License for more details.
005731,000014:
005732,000015: # You should have received a copy of the GNU General Public License
005733,000016: # along with yaAGC; if not, write to the Free Software
005734,000017: # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
005735,000018:
005736,000019: # Filename: VariablesAndConstants.agc
005737,000020: # Purpose: Definitions of constants and variables for the validation
005738,000021: # suite.
005739,000022: # Mod history: 07/04/04 RSB. Began.
005740,000023: # 07/06/04 RSB. Added stuff for the MASK test, and the
005741,000024: # similar logical tests for ROR, WOR, RAND,
005742,000025: # WAND, and RXOR.
005743,000026: # 07/07/04 RSB. Addes SKEEP1 through SKEEP7.
005744,000027: # 11/12/16 MAS. Added TIME1-TIME6 and NEWJOB.
005745,000028:
005746,000029: # -----------------------------------------------------------------------
005747,000030: # Constants and read-only memory.
005748,000031:
005749,000032: # Names of CPU registers.
005750,000033: 7573 A EQUALS 0
005751,000034: 7573 L EQUALS 1
005752,000035: 7573 Q EQUALS 2
005753,000036: 7573 EB EQUALS 3
005754,000037: 7573 FB EQUALS 4
005755,000038: 7573 Z EQUALS 5
005756,000039: 7573 BB EQUALS 6
005757,000040: 7573 ZEROES EQUALS 7 # Really an unnamed register.
005758,000041: 7573 ARUPT EQUALS 10
005759,000042: 7573 LRUPT EQUALS 11
005760,000043: 7573 QRUPT EQUALS 12
005761,000044: 7573 ZRUPT EQUALS 15
005762,000045: 7573 BBRUPT EQUALS 16
005763,000046: 7573 BRUPT EQUALS 17
005764,000047: 7573 CYR EQUALS 20
005765,000048: 7573 SR EQUALS 21
005766,000049: 7573 CYL EQUALS 22
005767,000050: 7573 EDOP EQUALS 23
005768,000051:
005769,000052: # Patterns for display of digits.
005770,000053: 7573 00000 DSPBLANK OCT 0
005771,000054: 7574 00025 DSP0 OCT 25
005772,000055: 7575 00003 DSP1 OCT 3
005773,000056: 7576 00031 DSP2 OCT 31
005774,000057: 7577 00033 DSP3 OCT 33
005775,000058: 7600 00017 DSP4 OCT 17
005776,000059: 7601 00036 DSP5 OCT 36
005777,000060: 7602 00034 DSP6 OCT 34
005778,000061: 7603 00023 DSP7 OCT 23
005779,000062: 7604 00035 DSP8 OCT 35
005780,000063: 7605 00037 DSP9 OCT 37
005781,000064:
005782,000065: 7606 SZERO EQUALS 0
005783,000066: 7606 CH10 EQUALS 10
005784,000067: 7606 CH11 EQUALS 11
005785,000068: 7606 CH12 EQUALS 12
005786,000069: 7606 CH32 EQUALS 32
005787,000070: 7606 00177 O177 OCT 177
005788,000071: 7607 00377 O377 OCT 377
005789,000072: 7610 03777 O3777 OCT 3777
005790,000073: 7611 17777 O17777 OCT 17777
005791,000074: 7612 20000 O20000 OCT 20000
005792,000075: 7613 37774 O37774 OCT 37774
005793,000076: 7614 37776 O37776 OCT 37776
005794,000077: 7615 54000 O54000 OCT 54000
005795,000078: 7616 50000 O50000 OCT 50000
005796,000079: 7617 44000 O44000 OCT 44000
005797,000080: 7620 40000 O40000 OCT 40000
005798,000081: 7621 77770 O77770 OCT 77770
005799,000082: 7622 74000 O-3777 OCT 74000
005800,000083: 7623 73777 O-4000 OCT 73777
005801,000084: 7624 60000 O-17777 OCT 60000
005802,000085: 7625 57777 O-20000 OCT 57777
005803,000086: 7626 40003 O-37774 OCT 40003
005804,000087: 7627 40001 O-37776 OCT 40001
005805,000088: 7630 77777 NEGZERO OCT 77777
005806,000089: 7631 77776 NEGONE OCT 77776
005807,000090: 7632 77775 NEGTWO DEC -2 B-14
005808,000091: 7633 77774 NEGTHREE DEC -3 B-14
005809,000092: 7634 77773 NEGFOUR DEC -4 B-14
005810,000093: 7635 00001 ONE OCT 1
005811,000094: 7636 00002 TWO OCT 2
005812,000095: 7637 00003 THREE OCT 3
005813,000096: 7640 00005 FIVE OCT 5
005814,000097: 7641 00011 NINE DEC 9 B-14
005815,000098: 7642 00012 TEN DEC 10 B-14
005816,000099: 7643 00007 SEVEN DEC 7 B-14
005817,000100: 7644 00027 TWNTHREE DEC 23 B-14
005818,000101: 7645 00001 BIT1 OCT 1
005819,000102: 7646 00100 BIT7 OCT 100
005820,000103: 7647 01000 BIT10 OCT 1000
005821,000104: 7650 20000 BIT14 OCT 20000
005822,000105: 7651 37777 MAXP OCT 37777
005823,000106: 7652 37776 MAXP-1 OCT 37776
005824,000107: 7653 37775 MAXP-2 OCT 37775
005825,000108: 7654 37774 MAXP-3 OCT 37774
005826,000109: 7655 40000 MAXN OCT 40000
005827,000110: 7656 40001 MAXN-1 OCT 40001
005828,000111: 7657 40002 MAXN-2 OCT 40002
005829,000112: 7660 40003 MAXN-3 OCT 40003
005830,000113:
005831,000114: 7661 77777 MAXERR OCT 77777
005832,000115: 7662 04063 WHERE1 GENADR DEST1
005833,000116: 7663 25252 CONC+S1 OCT 25252 # USED IN CYCLSHFT
005834,000117: 7664 52400 CONC+S2 OCT 52400 # USED IN CYCLSHFT
005835,000118: 7665 7645 S+1 EQUALS BIT1
005836,000119: 7665 02471 14321 BIGNUM 2DEC 21911761 B-28
005837,000120: 7667 37260 24714 BIGRNUM 2DEC 262941132 B-28 # 14 (oct) * BIGNUM
005838,000121: 7671 00000 00000 DBZERO 2DEC 0 B-28
005839,000122: 7673 77777 77777 DBMZERO 2DEC -0 B-28
005840,000123: 7675 00000 00001 DBONE 2DEC 1 B-28
005841,000124: 7677 77777 77776 DBMONE 2DEC -1 B-28
005842,000125: 7701 37777 37777 DBMAXP 2DEC 268435455 B-28 # Biggest positive DP number.
005843,000126: 7703 40000 40000 DBMAXN 2DEC -268435455 B-28
005844,000127: 7705 37777 37776 DBMAXP-1 2DEC 268435454 B-28
005845,000128: 7707 40000 40001 DBMAXN-1 2DEC -268435454 B-28
005846,000129: 7711 12345 SMALNUM OCT 12345
005847,000130: 7712 37257 SMALRNUM OCT 37257 # 3 * SMALNUM
005848,000131:
005849,000132: 7713 52525 MASKL1 OCT 52525
005850,000133: 7714 25252 MASKR1 OCT 25252
005851,000134: 7715 63146 MASKL2 OCT 63146
005852,000135: 7716 14631 MASKR2 OCT 14631
005853,000136: 7717 42104 ANDL1L2 OCT 42104
005854,000137: 7720 10421 ANDL1R2 OCT 10421
005855,000138: 7721 21042 ANDR1L2 OCT 21042
005856,000139: 7722 04210 ANDR1R2 OCT 04210
005857,000140: 7723 73567 ORL1L2 OCT 73567
005858,000141: 7724 56735 ORL1R2 OCT 56735
005859,000142: 7725 67356 ORR1L2 OCT 67356
005860,000143: 7726 35673 ORR1R2 OCT 35673
005861,000144: 7727 31463 XORL1L2 OCT 31463
005862,000145: 7730 46314 XORL1R2 OCT 46314
005863,000146: 7731 46314 XORR1L2 OCT 46314
005864,000147: 7732 31463 XORR1R2 OCT 31463
005865,000148:
005866,000149: # -------------------------------------------------------------------------
005867,000150: # Some variables.
005868,000151:
005869,000152: 0024 SETLOC 24
005870,000153: 0024 TIME2 ERASE
005871,000154: 0025 TIME1 ERASE
005872,000155: 0026 TIME3 ERASE
005873,000156: 0027 TIME4 ERASE
005874,000157: 0030 TIME5 ERASE
005875,000158: 0031 TIME6 ERASE
005876,000159:
005877,000160: 0061 SETLOC 61
005878,000161:
005879,000162: 0061 ERRNUM ERASE # Error-code, reported to DSKY.
005880,000163: 0062 ERRSUB ERASE # Error-subcode.
005881,000164:
005882,000165: # Dummy variables.
005883,000166: 0063 TEMPI ERASE
005884,000167: 0064 TEMPJ ERASE
005885,000168: 0065 TEMPK ERASE
005886,000169:
005887,000170: 0067 SETLOC 67
005888,000171: 0067 NEWJOB ERASE
005889,000172:
005890,000173: # For Smally's tests.
005891,000174: 0071 SETLOC 71
005892,000175: 0071 SKEEP1 ERASE
005893,000176: 0072 SKEEP2 ERASE
005894,000177: 0073 SKEEP3 ERASE
005895,000178: 0074 SKEEP4 ERASE
005896,000179: 0075 SKEEP5 ERASE
005897,000180: 0076 SKEEP6 ERASE
005898,000181: 0077 SKEEP7 ERASE
005899,000182:
005900,000183:
005901,000184:
End of include-file VariablesAndConstants.agc. Parent file is Validation.agc