sw/rescue/lab8e_goettingen/disk2_11/rkb/paroff/symbtb.ra

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