Source Code

005498,000001: # Copyright 2004 Ronald S. Burkey <info@sandroid.org> 005499,000002: # 005500,000003: # This file is part of yaAGC. 005501,000004: 005502,000005: # yaAGC is free software; you can redistribute it and/or modify 005503,000006: # it under the terms of the GNU General Public License as published by 005504,000007: # the Free Software Foundation; either version 2 of the License, or 005505,000008: # (at your option) any later version. 005506,000009: 005507,000010: # yaAGC is distributed in the hope that it will be useful, 005508,000011: # but WITHOUT ANY WARRANTY; without even the implied warranty of 005509,000012: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 005510,000013: # GNU General Public License for more details. 005511,000014: 005512,000015: # You should have received a copy of the GNU General Public License 005513,000016: # along with yaAGC; if not, write to the Free Software 005514,000017: # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA 005515,000018: 005516,000019: # Filename: VariablesAndConstants.agc 005517,000020: # Purpose: Definitions of constants and variables for the validation 005518,000021: # suite. 005519,000022: # Mod history: 07/04/04 RSB. Began. 005520,000023: # 07/06/04 RSB. Added stuff for the MASK test, and the 005521,000024: # similar logical tests for ROR, WOR, RAND, 005522,000025: # WAND, and RXOR. 005523,000026: # 07/07/04 RSB. Addes SKEEP1 through SKEEP7. 005524,000027: 005525,000028: # ----------------------------------------------------------------------- 005526,000029: # Constants and read-only memory. 005527,000030: 005528,000031: # Names of CPU registers. 005529,000032: 7366 A EQUALS 0 005530,000033: 7366 L EQUALS 1 005531,000034: 7366 Q EQUALS 2 005532,000035: 7366 EB EQUALS 3 005533,000036: 7366 FB EQUALS 4 005534,000037: 7366 Z EQUALS 5 005535,000038: 7366 BB EQUALS 6 005536,000039: 7366 ZEROES EQUALS 7 # Really an unnamed register. 005537,000040: 7366 ARUPT EQUALS 10 005538,000041: 7366 LRUPT EQUALS 11 005539,000042: 7366 QRUPT EQUALS 12 005540,000043: 7366 ZRUPT EQUALS 15 005541,000044: 7366 BBRUPT EQUALS 16 005542,000045: 7366 BRUPT EQUALS 17 005543,000046: 7366 CYR EQUALS 20 005544,000047: 7366 SR EQUALS 21 005545,000048: 7366 CYL EQUALS 22 005546,000049: 7366 EDOP EQUALS 23 005547,000050: 005548,000051: # Patterns for display of digits. 005549,000052: 7366 00000 DSPBLANK OCT 0 005550,000053: 7367 00025 DSP0 OCT 25 005551,000054: 7370 00003 DSP1 OCT 3 005552,000055: 7371 00031 DSP2 OCT 31 005553,000056: 7372 00033 DSP3 OCT 33 005554,000057: 7373 00017 DSP4 OCT 17 005555,000058: 7374 00036 DSP5 OCT 36 005556,000059: 7375 00034 DSP6 OCT 34 005557,000060: 7376 00023 DSP7 OCT 23 005558,000061: 7377 00035 DSP8 OCT 35 005559,000062: 7400 00037 DSP9 OCT 37 005560,000063: 005561,000064: 7401 SZERO EQUALS 0 005562,000065: 7401 CH10 EQUALS 10 005563,000066: 7401 CH11 EQUALS 11 005564,000067: 7401 CH32 EQUALS 32 005565,000068: 7401 CH26 EQUALS 26 005566,000069: 7401 CH27 EQUALS 27 005567,000070: 7401 00177 O177 OCT 177 005568,000071: 7402 00377 O377 OCT 377 005569,000072: 7403 03777 O3777 OCT 3777 005570,000073: 7404 17777 O17777 OCT 17777 005571,000074: 7405 20000 O20000 OCT 20000 005572,000075: 7406 37774 O37774 OCT 37774 005573,000076: 7407 37776 O37776 OCT 37776 005574,000077: 7410 54000 O54000 OCT 54000 005575,000078: 7411 50000 O50000 OCT 50000 005576,000079: 7412 44000 O44000 OCT 44000 005577,000080: 7413 40000 O40000 OCT 40000 005578,000081: 7414 77770 O77770 OCT 77770 005579,000082: 7415 74000 O-3777 OCT 74000 005580,000083: 7416 73777 O-4000 OCT 73777 005581,000084: 7417 60000 O-17777 OCT 60000 005582,000085: 7420 57777 O-20000 OCT 57777 005583,000086: 7421 40003 O-37774 OCT 40003 005584,000087: 7422 40001 O-37776 OCT 40001 005585,000088: 7423 77777 NEGZERO OCT 77777 005586,000089: 7424 77776 NEGONE OCT 77776 005587,000090: 7425 77775 NEGTWO DEC -2 B-14 005588,000091: 7426 77774 NEGTHREE DEC -3 B-14 005589,000092: 7427 77773 NEGFOUR DEC -4 B-14 005590,000093: 7430 00001 ONE OCT 1 005591,000094: 7431 00002 TWO OCT 2 005592,000095: 7432 00003 THREE OCT 3 005593,000096: 7433 00005 FIVE OCT 5 005594,000097: 7434 00011 NINE DEC 9 B-14 005595,000098: 7435 00012 TEN DEC 10 B-14 005596,000099: 7436 00007 SEVEN DEC 7 B-14 005597,000100: 7437 00027 TWNTHREE DEC 23 B-14 005598,000101: 7440 00001 BIT1 OCT 1 005599,000102: 7441 00100 BIT7 OCT 100 005600,000103: 7442 20000 BIT14 OCT 20000 005601,000104: 7443 37777 MAXP OCT 37777 005602,000105: 7444 37776 MAXP-1 OCT 37776 005603,000106: 7445 37775 MAXP-2 OCT 37775 005604,000107: 7446 37774 MAXP-3 OCT 37774 005605,000108: 7447 40000 MAXN OCT 40000 005606,000109: 7450 40001 MAXN-1 OCT 40001 005607,000110: 7451 40002 MAXN-2 OCT 40002 005608,000111: 7452 40003 MAXN-3 OCT 40003 005609,000112: 005610,000113: 7453 77777 MAXERR OCT 77777 005611,000114: 7454 04007 WHERE1 GENADR DEST1 005612,000115: 7455 25252 CONC+S1 OCT 25252 # USED IN CYCLSHFT 005613,000116: 7456 52400 CONC+S2 OCT 52400 # USED IN CYCLSHFT 005614,000117: 7457 7440 S+1 EQUALS BIT1 005615,000118: 7457 02471 14321 BIGNUM 2DEC 21911761 B-28 005616,000119: 7461 37260 24714 BIGRNUM 2DEC 262941132 B-28 # 14 (oct) * BIGNUM 005617,000120: 7463 00000 00000 DBZERO 2DEC 0 B-28 005618,000121: 7465 77777 77777 DBMZERO 2DEC -0 B-28 005619,000122: 7467 00000 00001 DBONE 2DEC 1 B-28 005620,000123: 7471 77777 77776 DBMONE 2DEC -1 B-28 005621,000124: 7473 37777 37777 DBMAXP 2DEC 268435455 B-28 # Biggest positive DP number. 005622,000125: 7475 40000 40000 DBMAXN 2DEC -268435455 B-28 005623,000126: 7477 37777 37776 DBMAXP-1 2DEC 268435454 B-28 005624,000127: 7501 40000 40001 DBMAXN-1 2DEC -268435454 B-28 005625,000128: 7503 12345 SMALNUM OCT 12345 005626,000129: 7504 37257 SMALRNUM OCT 37257 # 3 * SMALNUM 005627,000130: 005628,000131: 7505 52525 MASKL1 OCT 52525 005629,000132: 7506 25252 MASKR1 OCT 25252 005630,000133: 7507 63146 MASKL2 OCT 63146 005631,000134: 7510 14631 MASKR2 OCT 14631 005632,000135: 7511 42104 ANDL1L2 OCT 42104 005633,000136: 7512 10421 ANDL1R2 OCT 10421 005634,000137: 7513 21042 ANDR1L2 OCT 21042 005635,000138: 7514 04210 ANDR1R2 OCT 04210 005636,000139: 7515 73567 ORL1L2 OCT 73567 005637,000140: 7516 56735 ORL1R2 OCT 56735 005638,000141: 7517 67356 ORR1L2 OCT 67356 005639,000142: 7520 35673 ORR1R2 OCT 35673 005640,000143: 7521 31463 XORL1L2 OCT 31463 005641,000144: 7522 46314 XORL1R2 OCT 46314 005642,000145: 7523 46314 XORR1L2 OCT 46314 005643,000146: 7524 31463 XORR1R2 OCT 31463 005644,000147: 005645,000148: # ------------------------------------------------------------------------- 005646,000149: # Some variables. 005647,000150: 005648,000151: 0061 SETLOC 61 005649,000152: 005650,000153: 0061 ERRNUM ERASE # Error-code, reported to DSKY. 005651,000154: 0062 ERRSUB ERASE # Error-subcode. 005652,000155: 005653,000156: # Dummy variables. 005654,000157: 0063 TEMPI ERASE 005655,000158: 0064 TEMPJ ERASE 005656,000159: 0065 TEMPK ERASE 005657,000160: 005658,000161: # For Smally's tests. 005659,000162: 0066 SKEEP1 ERASE 005660,000163: 0067 SKEEP2 ERASE 005661,000164: 0070 SKEEP3 ERASE 005662,000165: 0071 SKEEP4 ERASE 005663,000166: 0072 SKEEP5 ERASE 005664,000167: 0073 SKEEP6 ERASE 005665,000168: 0074 SKEEP7 ERASE 005666,000169: 005667,000170: 005668,000171: End of include-file VariablesAndConstants.agc. Parent file is Validation.agc