projects / pdp8.git / blame
| Commit | Line | Data |
|---|---|---|
| 81e70d48 PH |
1 | / \ eSYMBTB.RA\r |
| 2 | /\r | |
| 3 | / PART THREE OF DEC'S XYPLOT DEC-S8-LPLTA-A-LA JULY 1973 M. HURLEY\r | |
| 4 | / INCLUDED IS THE LATEST UPDATE F4 4.AAAA FROM LIBRARY FORLIB.RL NOV 77\r | |
| 5 | / COPIED J.J. ANDRES 1.NOV. 1980\r | |
| 6 | /\r | |
| 7 | / SYMBOL PLOTTING CODE TABLE\r | |
| 8 | / VER 1.0 1. NOV. 1980 H.A.\r | |
| 9 | / VER 2.0 12. NOV. 1980 H.A.\r | |
| 10 | /\r | |
| 11 | /\r | |
| 12 | / UPDATES:\r | |
| 13 | / 1. INSERT A SUBROUTINE TO FORCE THE OVERLAY LOADER LOADING OF SYMBTB\r | |
| 14 | / 12-NOV-1980 H.A.\r | |
| 15 | /\r | |
| 16 | /\r | |
| 17 | /\r | |
| 18 | /\r | |
| 19 | /\r | |
| 20 | / THE SMALL SUBROUTINE IN FRONT OF THE SYMBOL TABLE MUST BE CALLED TO\r | |
| 21 | / FORCE THE OVERLAY LOADER THE LOADING OF THIS OVERLAY AND TO INSERT\r | |
| 22 | / THE STARTING ADDRESSES OF THE TABLES SYMBTB & SYMCNT INTO THE FIELD 1\r | |
| 23 | / CODE PDPPLT. TO CALL: JSR #XMBTB WITH NO PARAMETERS AT ALL.\r | |
| 24 | / THE FPP MUST BE SET TO STARTD BEFORE ENTERING. THIS STATE IS NOT CHANGED.\r | |
| 25 | /\r | |
| 26 | / THIS CALL IS DONE IN SYMBOL EACH TIME THE SYMBOL TABLE IS USED.\r | |
| 27 | /\r | |
| 28 | /\r | |
| 29 | /\r | |
| 30 | /\r | |
| 31 | /\r | |
| 32 | SECT #XMBTB\r | |
| 33 | EXTERN #XMCNT\r | |
| 34 | EXTERN #XSMBP\r | |
| 35 | BASE 0 / STAY ON CALLERS BASE AND XR\r | |
| 36 | FLDA C1\r | |
| 37 | FSTA #XSMBP / SYMBTB --> #XSMBP\r | |
| 38 | FLDA C2\r | |
| 39 | FSTA #XMCNT / SYMCNT --> #XMCNT\r | |
| 40 | FLDA 0 / RETURN ADR. --> FAC\r | |
| 41 | JAC / HOME TO SYMBOL\r | |
| 42 | C1, ADDR SYMBTB\r | |
| 43 | C2, ADDR SYMCNT\r | |
| 44 | SYMBTB,\r | |
| 45 | LISTOF\r | |
| 46 | 0005;1636;4540;7043;0377\r | |
| 47 | 0006;3645;4433;0333;4241;3000;7777;4130\r | |
| 48 | 1001;0516;3645;7777;0006;3645;4130;0077\r | |
| 49 | 4000;0646;7033;0377;0006;4670;0333;7777\r | |
| 50 | 4616;0501;1030;4143;2377;0006;7003;4370\r | |
| 51 | 4640;7777;0646;7026;2070;0040;7777;0100\r | |
| 52 | 3036;7016;4677;0006;7046;1303;1340;7777\r | |
| 53 | 0600;4077;0006;2346;4077;0006;4046;7777\r | |
| 54 | 0110;3041;4536;1605;0177;0006;4643;0377\r | |
| 55 | 0110;3041;4536;1605;0170;2240;7777;0006\r | |
| 56 | 3645;4433;1303;1340;7777;0110;3041;4233\r | |
| 57 | 1304;0516;3645;7777;2026;7006;4677;0601\r | |
| 58 | 1030;4146;7777;0620;4677;0600;2240;4677\r | |
| 59 | 0046;7006;4077;0624;2070;2446;7777;0646\r | |
| 60 | 0040;7777;3010;1636;7777;0640;7777;1030\r | |
| 61 | 3616;7777;2026;7004;2644;7777;2103;2570\r | |
| 62 | 0343;7777;7777;2622;7021;2077;1416;7036\r | |
| 63 | 3477;0242;7044;0470;1511;7031;3577;1211\r | |
| 64 | 3133;1315;3534;7026;2077;0405;1514;0470\r | |
| 65 | 4501;7031;3242;4131;7777;1014;7004;4470\r | |
| 66 | 3430;7777;2624;7777;3020;1115;2636;7777\r | |
| 67 | 1626;3531;2010;7777;0145;7025;2170;4105\r | |
| 68 | 7003;4377;2125;7003;4377;2111;1222;2110\r | |
| 69 | 7777;0343;7777;2021;1110;2077;0046;7777\r | |
| 70 | 0110;2031;3526;1605;0170;3600;7777;1436\r | |
| 71 | 3070;1040;7777;0516;3645;4401;0040;7777\r | |
| 72 | 0516;3645;4433;1333;4241;3010;0177;3036\r | |
| 73 | 0343;7777;0110;3041;4233;1304;0646;7777\r | |
| 74 | 0213;3342;4130;1001;0516;3645;7777;0506\r | |
| 75 | 4645;2120;7777;1333;4241;3010;0102;1304\r | |
| 76 | 0516;3645;4433;7777;0110;3041;4536;1605\r | |
| 77 | 0413;3344;7777;1415;2524;1470;1222;2111\r | |
| 78 | 1277;1415;2524;1470;1222;2011;1277;4503\r | |
| 79 | 4177;0444;7002;4277;0543;0177;0516;3645\r | |
| 80 | 4433;3270;3130;7777;2224;0400;4044;2422\r | |
| 81 | 7777;2224;1403;0110;3041;4334;2422;7777\r | |
| 82 | 2223;0141;2322;7777;2420;7002;4222;7777\r | |
| 83 | 0440;7044;0022;7777;2224;0220;4224;2277\r | |
| 84 | 2220;7002;2442;0222;7777;2244;0440;7000\r | |
| 85 | 2277;3270;4000;4404;7012;2277;2244;7020\r | |
| 86 | 2204;2277;2233;1311;3133;7040;3170;1100\r | |
| 87 | 7004;1370;4422;7777;0242;7044;0070;2024\r | |
| 88 | 7004;4022;7777;2244;0440;0022;7777;2420\r | |
| 89 | 2277;0242;2277;2242;7044;0470;4000;7002\r | |
| 90 | 2277;2200;7001;4170;4303;7044;2277;2224\r | |
| 91 | 7013;3370;3111;7022;7777\r | |
| 92 | SYMCNT,\r | |
| 93 | 0000;0005;0007\r | |
| 94 | 0005;0004;0004;0004;0005;0005;0005;0004\r | |
| 95 | 0005;0002;0003;0003;0005;0003;0007;0006\r | |
| 96 | 0007;0003;0004;0002;0003;0003;0004;0003\r | |
| 97 | 0003;0002;0003;0004;0004;0001;0003;0003\r | |
| 98 | 0006;0006;0010;0005;0002;0004;0004;0006\r | |
| 99 | \f 0003;0004;0002;0003;0002;0007;0004;0005\r | |
| 100 | 0007;0003;0006;0007;0004;0011;0007;0006\r | |
| 101 | 0006;0002;0003;0002;0006;0005;0007;0004\r | |
| 102 | 0004;0004;0004;0005;0004;0005;0004;0012\r | |
| 103 | 0007;0004;0002;0002;0006;0006;0000;0002\r | |
| 104 | 0102;2300;0000;0000;2311;0716;0000;0002\r | |
| 105 | END\r | |
| 106 | \1a\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0 |