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