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 |