1               /OS8 FORTRAN II COMPILER V5
   2               /
   3               /
   4               /
   5               /
   6               /
   7               /
   8               /
   9               //
  10               /
  11               /
  12               /
  13               /
  14               /COPYRIGHT (C) 1971,1974,1975
  15               /DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
  16               /
  17               /
  18               /
  19               /THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A
  20               /SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLU-
  21               /SION OF THE ABOVE COPYRIGHT NOTICE.  THIS SOFTWARE, OR ANT OTHER
  22               /COPIES THEREOF, MAY NOT BR PROVIDED OR OTHERWISE MADE AVAILABLE
  23               /TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO
  24               /AGREES TO THESE LICENSE TERMS.  TITLE TO AND OWNERSHIP OF THE
  25               /SOFTWARE SHALL AT ALL TIMES REMAIN IN DEC.
  26               /
  27               /
  28               /THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT
  29               /NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL
  30               /EQUIPMRNT COROPATION.
  31               /
  32               /DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS
  33               /SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC.
  34               /
  35               /
  36               /
  37               /
  38               /
  39               /
  40               /
  41               / SYMBOL TABLE FOR FORTRAN COMPILER (8K- PDP-8)
  42               / FOR USE WITH DISK/DECTAPE MONITOR SYSTEM
  43               /  CHANGE LOCATION 'XFINI' TO A 'JMP I LFINI' THEN
  44               /ASSEMBLE AND SAVE
  45               /       .PAL FORT.PA
  46               /       .PAL FPATCH.PA
  47               /
  48               /       .LO FORT.BN$FPATCH.BN$
  49               /
  50               /       .SA SYS FORT
  51               /
  52               /
  53               
  54                       FIELD   0
  55                       *200
  56 000200  2004  INBUF,  TEXT /PDP-8 FORTRAN DEC-08-A2B1-5A/
     000201  2055  
     000202  7040  
     000203  0617  
     000204  2224  
     000205  2201  
     000206  1640  
     000207  0405  
     000210  0355  
     000211  6070  
     000212  5501  
     000213  6202  
     000214  6155  
     000215  6501  
     000216  0000  
  57               
  58                       *1000
  59 001000  6026  BEGIN,  PLS             /INITIALIZATION ROUTINE
  60 001001  6046          TLS
  61 001002  6014          RFC
  62 001003  6201          CDF     00
  63 001004  1262          TAD     CM1300  /SET SYMBOL TABLE TO ZEROS (6300-7577 FIELD 1)
  64 001005  3257          DCA     INDX
  65 001006  1265          TAD     BSYMP
  66 001007  3010          DCA     TPTT
  67 001010  3410  LP,     DCA I   TPTT
  68 001011  2257          ISZ     INDX
  69 001012  5210          JMP     LP
  70 001013  1263          TAD     CM60
  71 001014  3257          DCA     INDX
  72 001015  1264          TAD     BTTAB
  73 001016  3010          DCA     TPTT
  74 001017  3410          DCA I   TPTT    /ZERO OUT TEMPORARY TABLES IN FIELD 0
  75 001020  2257          ISZ     INDX
  76 001021  5217          JMP     .-2
  77 001022  6211          CDF     10
  78 001023  1260          TAD     MIN104  /ZERO EVERYTHING FROM ZERO TO 107
  79 001024  3257          DCA     INDX
  80 001025  1261          TAD     CP6
  81 001026  3010          DCA     TPTT
  82 001027  3410  LPP,    DCA I   TPTT
  83 001030  2257          ISZ     INDX
  84 001031  5227          JMP     LPP
  85 001032  1267          TAD     TPT     /MOVE DATA FROM TABLE TO FIELD 0
  86 001033  3010          DCA     TPTT
  87 001034  6201  REP,    CDF     00
  88 001035  1410          TAD I   TPTT
  89 001036  7450          SNA             /END OF FIELD 0 INITIALIZATION?
  90 001037  5245          JMP     DN      /YES
  91 001040  3256          DCA     LOC
  92 001041  1410          TAD I   TPTT
  93 001042  6211          CDF     10
  94 001043  3656          DCA I   LOC
  95 001044  5234          JMP     REP
  96 001045  1410  DN,     TAD I   TPTT    /MOVE DATA FROM TABLE TO FIELD 1
  97 001046  7450          SNA             /END FIELD 1 INITIALIZATION
  98 001047  5254          JMP     DNN     /YES
  99 001050  3256          DCA     LOC
 100 001051  1410          TAD I   TPTT
 101 001052  3656          DCA I   LOC
 102 001053  5245          JMP     DN
 103 001054  6212  DNN,    CIF     10
 104 001055  5666          JMP I   STRT
 105 001056  0000  LOC,    0
 106 001057  0000  INDX,   0
 107 001060  7673  MIN104, L7-ASSIGN
 108 001061  0006  CP6,    L7-1
 109 001062  6500  CM1300, -1300
 110 001063  7720  CM60,   -60
 111 001064  0707  BTTAB,  ITTAB-1
 112 001065  6277  BSYMP,  BSYM-1          /BOTTOM OF TEMPORARY SYMBOL TABLE
 113 001066  5362  STRT,   FORST           /STARTING POINT AFTER INITIALIZATION
 114               TPTT=10
 115 001067  1067  TPT,    TABLE-1
 116               TABLE,
 117 001070  0150  PUNCH
 118 001071  3372          LTTYPE
 119 001072  0015  15
 120 001073  2377          DOEND
 121 001074  0045  45
 122 001075  0740          FTTAB
 123 001076  0051  51
 124 001077  0710          ITTAB
 125 001100  0047  47
 126 001101  7575          TSYM-3
 127 001102  0050  50
 128 001103  7600          TSYM
 129 001104  0055  55
 130 001105  7753          -25
 131 001106  0056  56
 132 001107  6300          BSYM
 133 001110  0057  57
 134 001111  6300          BSYM
 135 001112  0071  71
 136 001113  5777          5777
 137 001114  0074  74
 138 001115  3000          3000
 139 001116  0103  MIKE4
 140 001117  3377          3377
 141 001120  0110  POINTZ
 142 001121  3377          3377
 143 001122  0172  BASE
 144 001123  0200          INBUF
 145 001124  0173  BASE2
 146 001125  0300          INBUF+100
 147 001126  2403  SCOUNT
 148 001127  0000          0
 149 001130  2404  SCOUNT+1
 150 001131  0000          0
 151 001132  2405  SCOUNT+2
 152 001133  0000          0
 153 001134  2762  QONE
 154 001135  0000          0
 155 001136  2763  QONE+1
 156 001137  0000          0
 157 001140  2764  QONE+2
 158 001141  0000          0
 159 001142  2765  QONE+3
 160 001143  0000          0
 161 001144  2766  QONE+4
 162 001145  0000          0
 163 001146  2767  QONE+5
 164 001147  0000          0
 165 001150  2770  QONE+6
 166 001151  0000          0
 167 001152  0000  0               /THIS TERMINATES FIELD ZERO INITIALIZATION
 168 001153  2375  2375
 169 001154  4000          4000
 170 001155  2376  2376
 171 001156  4000          4000
 172 001157  2377  2377
 173 001160  4000          4000
 174 001161  0000  0
 175               
 176               /      ERROR MESSAGE TABLE AND TEXT
 177               
 178 001162  7546  ELIST,  -ERR1-1;  EMSG1 /ILLEGAL CONTINUATION
     001163  1272  
 179 001164  7077          -ERR2-1;  IE    /ILLEGAL ARITHMETIC EXPRESSION
     001165  1305  
 180 001166  6733          -ERR3-1;  IE
     001167  1305  
 181 001170  6541          -ERR6-1;  IE
     001171  1305  
 182 001172  6430          -ERR9-1;  EMSG3
     001173  1324  
 183 001174  6247          -ERR10-1; EMSG4
     001175  1335  
 184 001176  6123          -ERR12-1; EMSG4
     001177  1335  
 185 001200  5710          -ERR14-1; EMSG4
     001201  1335  
 186 001202  5567          -ERR15-1; EMSG3
     001203  1324  
 187 001204  5557          -ERR16-1; EMSG5
     001205  1346  
 188 001206  5242          -ERR17-1; EMSG6
     001207  1363  
 189 001210  5161          -ERR18-1; SE    /SYNTAX ERROR
     001211  1376  
 190 001212  4757          -ERR28-1; SE
     001213  1376  
 191 001214  4733          -ERR29-1; SE
     001215  1376  
 192 001216  4726          -ERR30-1; EMSG8  /ILLEGAL VARIABLE
     001217  1405  
 193 001220  4514          -ERR31-1; SE
     001221  1376  
 194 001222  4320          -ERR35-1; SE
     001223  1376  
 195 001224  2252          -ERR36-1; EMSG36
     001225  1564  
 196 001226  4012          -ERR37-1; CE
     001227  1533  
 197 001230  4156          -ERR38-1; EMSG9  /ILLEGAL DO NESTING
     001231  1416  
 198 001232  3667          -ERR39-1; SE
     001233  1376  
 199 001234  3507          -ERR40-1; IE
     001235  1305  
 200 001236  3320          -ERR41-1; EMSG10  /EXPRESSION TOO BIG
     001237  1436  
 201 001240  2505          -ERR42-1; IE
     001241  1305  
 202 001242  2445          -ERR43-1; EMSG11  /MIXED MODE
     001243  1457  
 203 001244  2366          -ERR44-1; EMSG9
     001245  1416  
 204 001246  1765          -ERR47-1; SF    /SUBR. OR FUNCT. STMT. NOT FIRST
     001247  1544  
 205 001250  1623          -ERR48-1; SE
     001251  1376  
 206 001252  1543          -ERR50-1; SE
     001253  1376  
 207 001254  1416          -ERR51-1; SE
     001255  1376  
 208 001256  0647          -ERR52-1;IE
     001257  1305  
 209 001260  1266          -ERR53-1; EMSG12  /ILLEGAL SUBSCRIPT
     001261  1472  
 210 001262  5342          -ERR54-1; EMSG13  /ILLEGAL EQUIVALENCING
     001263  1505  
 211 001264  0477          -ERR59-1; SE
     001265  1376  
 212 001266  1370          -ERR60-1; EMSG3
     001267  1324  
 213 001270  0000          0;        EMSG14  /COMPILER MALFUNCTION
     001271  1520  
 214               
 215 001272  1114  EMSG1,  TEXT /ILLEGAL CONTINUATION/
     001273  1405  
     001274  0701  
     001275  1440  
     001276  0317  
     001277  1624  
     001300  1116  
     001301  2501  
     001302  2411  
     001303  1716  
     001304  0000  
 216 001305  1114  IE,     TEXT /ILLEGAL ARITHMETIC EXPRESSION/
     001306  1405  
     001307  0701  
     001310  1440  
     001311  0122  
     001312  1124  
     001313  1015  
     001314  0524  
     001315  1103  
     001316  4005  
     001317  3020  
     001320  2205  
     001321  2323  
     001322  1117  
     001323  1600  
 217 001324  1114  EMSG3,  TEXT /ILLEGAL STATEMENT/
     001325  1405  
     001326  0701  
     001327  1440  
     001330  2324  
     001331  0124  
     001332  0515  
     001333  0516  
     001334  2400  
 218 001335  1114  EMSG4,  TEXT /ILLEGAL CONSTANT/
     001336  1405  
     001337  0701  
     001340  1440  
     001341  0317  
     001342  1623  
     001343  2401  
     001344  1624  
     001345  0000  
 219 001346  1114  EMSG5,  TEXT /ILLEGAL STATEMENT NUMBER/
     001347  1405  
     001350  0701  
     001351  1440  
     001352  2324  
     001353  0124  
     001354  0515  
     001355  0516  
     001356  2440  
     001357  1625  
     001360  1502  
     001361  0522  
     001362  0000  
 220 001363  2331  EMSG6,  TEXT /SYMBOL TABLE EXCEEDED/
     001364  1502  
     001365  1714  
     001366  4024  
     001367  0102  
     001370  1405  
     001371  4005  
     001372  3003  
     001373  0505  
     001374  0405  
     001375  0400  
 221 001376  2331  SE,     TEXT /SYNTAX ERROR/
     001377  1624  
     001400  0130  
     001401  4005  
     001402  2222  
     001403  1722  
     001404  0000  
 222 001405  1114  EMSG8,  TEXT /ILLEGAL VARIABLE/
     001406  1405  
     001407  0701  
     001410  1440  
     001411  2601  
     001412  2211  
     001413  0102  
     001414  1405  
     001415  0000  
 223 001416  1114  EMSG9,  TEXT /ILLEGAL OR EXCESSIVE DO NESTING/
     001417  1405  
     001420  0701  
     001421  1440  
     001422  1722  
     001423  4005  
     001424  3003  
     001425  0523  
     001426  2311  
     001427  2605  
     001430  4004  
     001431  1740  
     001432  1605  
     001433  2324  
     001434  1116  
     001435  0700  
 224 001436  0122  EMSG10, TEXT /ARITHMETIC EXPRESSION TOO COMPLEX/
     001437  1124  
     001440  1015  
     001441  0524  
     001442  1103  
     001443  4005  
     001444  3020  
     001445  2205  
     001446  2323  
     001447  1117  
     001450  1640  
     001451  2417  
     001452  1740  
     001453  0317  
     001454  1520  
     001455  1405  
     001456  3000  
 225 001457  1511  EMSG11, TEXT /MIXED MODE EXPRESSION/
     001460  3005  
     001461  0440  
     001462  1517  
     001463  0405  
     001464  4005  
     001465  3020  
     001466  2205  
     001467  2323  
     001470  1117  
     001471  1600  
 226 001472  0530  EMSG12, TEXT /EXCESSIVE SUBSCRIPTS/
     001473  0305  
     001474  2323  
     001475  1126  
     001476  0540  
     001477  2325  
     001500  0223  
     001501  0322  
     001502  1120  
     001503  2423  
     001504  0000  
 227 001505  1114  EMSG13, TEXT /ILLEGAL EQUIVALENCING/
     001506  1405  
     001507  0701  
     001510  1440  
     001511  0521  
     001512  2511  
     001513  2601  
     001514  1405  
     001515  1603  
     001516  1116  
     001517  0700  
 228 001520  0317  EMSG14, TEXT /COMPILER MALFUNCTION/
     001521  1520  
     001522  1114  
     001523  0522  
     001524  4015  
     001525  0114  
     001526  0625  
     001527  1603  
     001530  2411  
     001531  1716  
     001532  0000  
 229 001533  2516  CE,     TEXT /UNBALANCED QUOTES/
     001534  0201  
     001535  1401  
     001536  1603  
     001537  0504  
     001540  4021  
     001541  2517  
     001542  2405  
     001543  2300  
 230 001544  2325  SF,     TEXT /SUBR. OR FUNCT. STMT. NOT FIRST/
     001545  0222  
     001546  5640  
     001547  1722  
     001550  4006  
     001551  2516  
     001552  0324  
     001553  5640  
     001554  2324  
     001555  1524  
     001556  5640  
     001557  1617  
     001560  2440  
     001561  0611  
     001562  2223  
     001563  2400  
 231 001564  0122  EMSG36, TEXT /ARRAY TOO LARGE/
     001565  2201  
     001566  3140  
     001567  2417  
     001570  1740  
     001571  1401  
     001572  2207  
     001573  0500  
 232               ITTAB=710
 233               FTTAB=ITTAB+30
 234               DOEND=2377
 235               BSYM=6300
 236               TSYM=7600
 237               
 238               / THE STATEMENT TYPE TABLE FOLLOWS
 239                       *2600
 240 002600  7361  STYPE,  7361    /-DO
 241 002601  0000          0000
 242 002602  3415          LDO
 243 002603  6672          6672    /-IF
 244 002604  0000          0000
 245 002605  3236          LIF
 246 002606  7061          7061    /-GO
 247 002607  5361          5361    /-TO
 248 002610  3000          LGOTO
 249 002611  7477          7477    /-CA
 250 002612  6364          6364    /-LL
 251 002613  0600          CAL
 252 002614  5573          5573    /-RE
 253 002615  5353          5353    /-TU
 254 002616  6400          LRET
 255 002617  7461          7461    /-CO
 256 002620  6154          6154    /-NT
 257 002621  4000          LCONT
 258 002622  5454          5454    /-ST
 259 002623  6060          6060    /-OP
 260 002624  4017          LSTOP
 261 002625  5777          5777    /-PA
 262 002626  5255          5255    /-US
 263 002627  4013          LPAUSE
 264 002630  5573          5573    /-RE
 265 002631  7674          7674    /-AD
 266 002632  6177          LREAD
 267 002633  5056          5056    /-WR
 268 002634  6654          6654    /-IT
 269 002635  6173          LWRIT
 270 002636  7161          7161    /-FO
 271 002637  5563          5563    /-RM
 272 002640  4070          LFRMAT
 273 002641  7262          7262    /-EN
 274 002642  7400          7400    /-D
 275 002643  5400          LLAST
 276 002644  7461          7461    /-CO
 277 002645  6263          6263    /-MM
 278 002646  2604          LCOMON
 279 002647  7367          7367    /-DI
 280 002650  6273          6273    /-ME
 281 002651  2636          LDIMEN
 282 002652  7257          7257    /-EQ
 283 002653  5267          5267    /-UI
 284               
 285 002654  7200          EQUI
 286 002655  7167          -0611   /-FI
 287 002656  6167          -1611   /-NI
 288 002657  7366          LFIN
 289 002660  5453  XXSUBR, 5453    /-SU
 290 002661  7556          7556    /-BR
 291 002662  4731          LSUB
 292 002663  7153          7153    /-FU
 293 002664  6175          6175    /-NC
 294 002665  6000          LFUNC
 295 002666  0000          0000    /THIS IS THE END OF LIST
 296 002667  0000  AREA1,  0
 297 002670  0000  AREA2,  0
 298               
 299               / THE PRECEDENCE TABLE FOLLOWS, NON-ZERO PREC. OPERATORS APPEAR
 300 002671  7733          -45     / PREC('%') = 7    NOTE: '%' REPLACES '**'
 301 002672  0700          700
 302 002673  7726          -52     / PREC('*') = 5
 303 002674  0500          500
 304 002675  7721          -57     / PREC('/') = 5
 305 002676  0500          500
 306 002677  7725          -53     / PREC('+') = 4
 307 002700  0400          400
 308 002701  7723          -55     / PREC('-') = 4
 309 002702  0400          400
 310 002703  7703          -75     / PREC('=') = 1
 311 002704  0100          100
 312 002705  7704          -74     / PREC('<') = 1    NOTE: '<' IMPLIES SUBSCRIPTED ASSIGNMENT
 313 002706  0100          100
 314 002707  0001          1       /THIS IS THE END OF THE TABLE
 315 002710  6030  THOU,   -1750
 316 002711  7634          -144
 317 002712  7766          -12
 318 002713  7777          -1
 319               
 320               / THE PERMANENT SYMBOL TABLE BEGINS HERE
 321                       *6000
 322 006000  1501          1501    /MAIN
 323 006001  1116          1116
 324 006002  0001          0001
 325 006003  0601          0601    /FAD
 326 006004  0400          0400
 327 006005  0001          0001
 328 006006  2324          2324    /STO
 329 006007  1700          1700
 330 006010  0001          0001
 331 006011  0623          0623    /FSB
 332 006012  0200          0200
 333 006013  0001          0001
 334 006014  0615          0615    /FMP
 335 006015  2000          2000
 336 006016  0001          0001
 337 006017  0604          0604    /FDV
 338 006020  2600          2600
 339 006021  0001          0001
 340 006022  1520          1520    /MPY
 341 006023  3100          3100
 342 006024  0001          0001
 343 006025  0411          0411    /DIV
 344 006026  2600          2600
 345 006027  0001          0001
 346 006030  2205          2205    /READ
 347 006031  0104          0104
 348 006032  0001          0001
 349 006033  2722          2722    /WRITE
 350 006034  1124          1124
 351 006035  0501          0501
 352 006036  1117          1117    /IOH
 353 006037  1000          1000
 354 006040  0001          0001
 355 006041  5060          5060    /(0
 356 006042  0000          0000
 357 006043  0001          0001
 358 006044  1215          1215    /JMP
 359 006045  2000          2000
 360 006046  0001          0001
 361 006047  1617          1617    /NOP
 362 006050  2000          2000
 363 006051  0001          0001
 364 006052  0516          0516    /ENTRY
 365 006053  2422          2422
 366 006054  3101          3101
 367 006055  0501          0501    /EAP
 368 006056  2000          2000
 369 006057  0001          0001
 370 006060  2001          2001    /PAUSE
 371 006061  2523          2523
 372 006062  0501          0501
 373 006063  2401  OPTADI, 2401    /TAD I
 374 006064  0440          0440
 375 006065  1101          1101    
 376 006066  2401  OPTAD,  2401    /TAD
 377 006067  0400          0400
 378 006070  0001          0001    
 379 006071  0403  OPDCA,  0403    /DCA
 380 006072  0100          0100
 381 006073  0001          0001    
 382 006074  1215  OPJMPI, 1215    /JMP I
 383 006075  2040          2040
 384 006076  1101          1101
 385 006077  2205          2205    /RETRN
 386 006100  2422          2422
 387 006101  1601          1601
 388 006102  0320          0320    /CPAGE
 389 006103  0107          0107
 390 006104  0501          0501
 391 006105  2316  OPSNA,  2316    /SNA
 392 006106  0100          0100
 393 006107  0001          0001
 394 006110  2320          2320    /SPC
 395 006111  0300          0300
 396 006112  0001          0001
 397 006113  0301          0301    /CALL
 398 006114  1414          1414
 399 006115  0001          0001
 400 006116  0313          0313    /CKIO
 401 006117  1117          1117
 402 006120  0001          0001
 403 006121  1014          1014    /HLT
 404 006122  2400          2400
 405 006123  0001          0001
 406 006124  0314  OPCLA,  0314    /CLA
 407 006125  0100          0100
 408 006126  0001          0001
 409 006127  0614          0614    /FLOT
 410 006130  1724          1724
 411 006131  0001          0001
 412 006132  1106          1106    /IFAD
 413 006133  0104          0104
 414 006134  0001          0001
 415 006135  0311          0311    /CIA
 416 006136  0100          0100
 417 006137  0001          0001
 418 006140  0310          0310    /CHS
 419 006141  2300          2300
 420 006142  0001          0001
 421 006143  0611          0611    /FIX
 422 006144  3000          3000
 423 006145  0001          0001
 424 006146  1123          1123    /ISTO
 425 006147  2417          2417
 426 006150  0001          0001
 427 006151  2001          2001    /PAGE
 428 006152  0705          0705
 429 006153  0001          0001
 430 006154  0214  BLCK,   0214    /BLOCK
 431 006155  1703          1703
 432 006156  1301          1301
 433 006157  0516          0516    /END
 434 006160  0400          0400
 435 006161  0001          0001
 436 006162  1401          1401    /LAP
 437 006163  2000          2000
 438 006164  0001          0001
 439 006165  0317          0317    /COMMN
 440 006166  1515          1515
 441 006167  1601          1601
 442 006170  1123          1123    /ISZ
 443 006171  3200          3200
 444 006172  0001          0001
 445 006173  2325          2325    /SUBSC
 446 006174  0223          0223
 447 006175  0301          0301
 448 006176  0425  DUMMY,  0425    /DUMMY
 449 006177  1515          1515
 450 006200  3101          3101
 451 006201  0122          0122    /ARG
 452 006202  0700          0700
 453 006203  0001          0001
 454 006204  0314          0314    /CLEAR
 455 006205  0501          0501
 456 006206  2201          2201
 457 006207  1111          1111    /IIPOW
 458 006210  2017          2017
 459 006211  2701          2701
 460 006212  0611          0611    /FIPOW
 461 006213  2017          2017
 462 006214  2701          2701
 463 006215  1106          1106    /IFPOW
 464 006216  2017          2017
 465 006217  2701          2701
 466 006220  0606          0606    /FFPOW
 467 006221  2017          2017
 468 006222  2701          2701
 469 006223  0403          0403    /DCA I
 470 006224  0140          0140
 471 006225  1101          1101
 472 006226  0103          0103    /ACH
 473 006227  1000          1000
 474 006230  0001          0001
 475 006231  1720  OPEN,   1720    /OPEN
 476 006232  0516          0516
 477 006233  0001          0001
 478 006234  0522          0522    /ERROR
 479 006235  2217          2217
 480 006236  2201          2201
 481 006237  1116          1116    /INC
 482 006240  0300          0300
 483 006241  0001          0001
 484 006242  0617  FORTR,  0617    /FORTR
 485 006243  2224          2224
 486 006244  2201          2201
 487 006245  0315  OPCMA,  0315    /CMA
 488 006246  0100          0100
 489 006247  0001          0001
 490 006250  1101  OPIAC,  1101    /IAC
 491 006251  0300          0300
 492 006252  0001          0001
 493 006253  0530  EXIT,   0530    /EXIT
 494 006254  1124          1124
 495 006255  0001          0001
 496                      FIELD   1
 497                       *0
 498 010000  0001  FIRSTF, 1
 499                       *7
 500 010007  0000  L7,     0
 501 010010  0000  L10,    0
 502 010011  0000  L11,    0
 503 010012  0000  L12,    0       /LAST LINE'S CONTENTS FOR OPTOMIZATION
 504 010013  0000          0
 505 010014  0000  L14,    0
 506 010015  2377  L15,    2377    /POINTER INTO DOEND LIST
 507 010016  0000  L16,    0
 508 010017  0000  L17,    0
 509 010020  0000  L20,    0       /FLAG, NON-ZERO IF '=' SEEN
 510 010021  0000  L21,    0
 511 010022  0000  L22,    0       /SUBSCRIPT NESTING LEVEL
 512 010023  0000  L23,    0       /USED BY "DUMARG" AND "IOHAR" PATCH
 513 010024  0000  L24,    0       /LINE POINTER
 514 010025  0000  L25,    0       /HIGHEST SUBSCRIPT TEMP USED
 515 010026  0000  L26,    0       /USED FOR DIMENSION INFORMATION
 516 010027  0000          0       /UNUSED
 517 010030  0000  L30,    0       /FOLLOWING EIGHT LOCS ARE USED BY ENTITY
 518 010031  0000  L31,    0
 519 010032  0000  L32,    0
 520 010033  0000  L33,    0
 521 010034  0000  L34,    0
 522 010035  0000  L35,    0
 523 010036  0000  L36,    0
 524 010037  0000  L37,    0
 525 010040  0000  L40,    0       /CONTAINS THE CURRENT TRIPLE NUMBER
 526 010041  0000  L41,    0       /THIS IS THE POINTER INTO THE PUSH DOWN LIST
 527 010042  0000  L42,    0       /THESE TWO LOCATIONS ARE USED BY THE TRIPLE PROCESSOR
 528 010043  0000  L43,    0       /
 529 010044  0000  L44,    0       /CONTAINS ONE FOR RIGHT OF EQUALS, ZERO FOR LEFT
 530 010045  0740  L45,    FTTAB   /CONTAINS LARFEST FLOATING POINT TEMPORARY NUMBER USED
 531 010046  0000  L46,    0       /CONTAINS NUMBER OF THE TRIPLE CURRENTLY IN THE AC
 532 010047  7575  L47,    7575    /CONTAINS THREE LESS THAN START OF FCON TABLE
 533 010050  7600  L50,    7600    /CONTAINS START OF DIMENSION TABLE
 534 010051  0710  L51,    ITTAB   /CONTAINS LARGEST INTEGER TEMPORARY NUMBER USED
 535 010052  0000  L52,    0       /CONTAINS ONE IF RETURN FROM GENER IS DESIRED FOR BALANCE
 536 010053  0000  L53,    0       /CONTAINS THE LAST CREATED LABEL
 537 010054  0000  L54,    0       /CONTAINS THE LABEL FOR THE CURRENT STATEMENT
 538 010055  7753  L55,    -25     /CONTAINS THE MAXIMUM ALLOWABLE NUMBER OF UNENDED DOS
 539 010056  6300  L56,    6300    /CONTAINS BEGINNING OF SYMBOL TABLE
 540 010057  6300  L57,    6300    /CONTAINS END OF SYMBOL TABLE
 541 010060  0000  L60,    0       /"INDIRECT =" FLAG FOR S.S LEFT OF EQUALS SIGN
 542 010061  0000  L61,    0       /NON-ZERO IF LAST STMT READ IS A COMMENT
 543 010062  0000  L62,    0       /NEXT FOUR LOCATIONS USED BY GENER AND ENTITY
 544 010063  0000  L63,    0       /CONTAINS THE CURRENT OPERATOR
 545 010064  0000  L64,    0       /POINTS TO THE LAST OPERATOR IN THE STACK
 546 010065  0000  L65,    0       /CONTAINS THE PRECEDENCE OF THE CURRENT OPERATOR
 547 010066  0000  BPAREN, 0       /PARENTHESIS COUNTER
 548 010067  0000  L67,    0       /ONE FOR FUNCTION AND ZERO FOR SUBROUTINE
 549 010070  0000  L70,    0       /CONTAINS POINTER TO SUBPROGRAM NAME
 550 010071  5777  L71,    5777    /BEGINNING OF PUSHDOWN LIST
 551 010072  0000  L72,    0       /SET TO ONE IF SUBSCRIPT IS ENCOUNTERED
 552 010073  0000  L73,    0       /
 553 010074  3000  L74,    3000    /BEGINNING OF ERASABLE LOCATIONS USED FOR PARAMETERS
 554 010075  0000  L75,    0       /SET TO ONE SUPPRESS    /OUTPUT FROM COMPILER
 555 010076  0000  L76,    0       /
 556 010077  0000  L77,    0       /CONTAINS ADDRESS OF LAST ENTRY INTO FCON OR SYMBOL TABLE
 557                               /THE FOLLOWING THREE LOCS ARE USED BY THE
 558                               /LITERAL COLLECTER
 559 010100  0000  COUNT2, 0       /NUMBER OF DIGITS TO RIGHT OF DECIMAL POINT
 560 010101  0000  ESIGN,  0       /0 MEANS POSITIVE EXPONENT, 1 MEANS NEGATIVE
 561 010102  0000  FPSW,   0       /0 MEANS INTEGER CONSTANT, 1 MEANS FLOATING POINT
 562 010103  3377  MIKE4,MA,       3377
 563 010104  0000  MIKE8,TOTAL,    0
 564 010105  0000  INTA,           0
 565 010106  0000  INTB,MIKE7,     0
 566 010107  0000  SNUM,MB,        0
 567 010110  3377  POINTZ, 3377
 568 010111  0000  CHK,    0
 569 010112  0000  IMPDO,  0       /"IMPLIED DO-LOOP IN PROGRESS" FLAG
 570 010113  0000  KOUNT,  0
 571 010114  1345  ASSIGN, LASIGN  /ROUTINE TO PROCESS ASSIGNMENT STATEMENTS
 572 010115  1340  PUTCH,  LPUTCH  /ROUTINE TO PUT A CHARACTER BACK IN THE INPUT BUFFER
 573 010116  5243  PROP,   LPROP   /PRINTS OPCODES
 574 010117  1364  PRCRL,  LPRCRL  /PRINTS CREATED LABELS 
 575 010120  2551  PRINT,  LPRINT  /PRINTS ONE ASCII  CHAR
 576 010121  2307  P2,     LP2     /PRINT TWO PACKED ASCII CHARS
 577 010122  0650  GETCH,  LGETCH  /GETS ONE CHARACTER OUT OF THE INPUT BUFFER
 578 010123  7001  LUNCH,  LLUNCH  /PRINTS ERROR COMMENTS
 579 010124  0670  MODE,   LMODE   /DETERMINES THE MODE OF THE ARGUMENT
 580 010125  4325  LOOK,   LLOOK   /CHECKS FOR THE REST OF THE INPUT STATEMENT
 581 010126  4166  ZZZ,    LZZZ    /PRINTS OUT STATEMENT LABELS
 582 010127  1405  ENTITY, LENTT   /GETS THE NEXT LOGICAL INPUT PARAMETER
 583 010130  2406  SYMTAB, LSYMTB  /ENTERS SYMBOLS INTO THE SYMBOL TABLE
 584 010131  4271  DUMARG, LDMARG  /SEES IF PARAMETER IS A DUMMY ARG OR SUBSCRIPT
 585 010132  2247  PRSYM,  LPRSYM  /PRINTS SYMBOLS
 586 010133  3344  CREATE, LCREAT  /CREATES LABELS
 587 010134  3200  PROTAC, LPRTAC  /PRINTS CONTENTS OF AC IN OCTAL
 588 010135  3357  PLAB,   LPLAB   /PRINTS LABELS
 589 010136  4156  PIFF,   LPIFF   /PUTS OUT AN IFF FOR THE CONTENTS OF THE AC
 590 010137  4200  TRIPL,  LTRIPL  /PROCESSES THE TRIPLES GENERATED FROM AN EXPRESSION
 591 010140  1011  GENER,  LGENER  /GENERATES THE TRIPLES
 592 010141  6753  LCHNG,  CHNG    /TEST FOR DUMMY ARG AND REPLACE
 593 010142  6545  CLAB,   LCLAB   /HANGS A CREATED LABEL ON THE NEXT LINE
 594 010143  4647  STORE,  LSTORE  /STORES THE CONTENTS OF THE AC
 595 010144  4500  FPROP,  LFPROP  /PUT OUT CALLS TO F.P. ROUTINES
 596 010145  6541  ZER,    LZER
 597 010146  6713  DUM,    LDUM    /PROCESSES OCCURRANCES OF DUMMY ARGUMENTS IN LISTS
 598 010147  6451  DIM,    LDIM    /LOOKS UP DIMENSION INFORMATION ON VARIABLES
 599 010150  3372  PUNCH,  LTTYPE  /ADDRESS OF CURRENT OUTPUT ROUTINE
 600 010151  0002  C2,     2
 601 010152  0003  C3,     3
 602 010153  0040  C40,   40
 603 010154  5440  C7240,  5440    /THIS WAS COLON-SPACE NOW ITS COMMA-SPACE
 604 010155  0077  C77,    77
 605 010156  7740  CM40,   -40
 606 010157  3732  CM4046, -4046
 607 010160  7730  CM50,   -50
 608 010161  7727  CM51,   -51
 609 010162  7724  CM54,   -54
 610 010163  7776  CM2,    -2
 611 010164  7775  CM3,    -3
 612 010165  4400  CHECK,  LCHECK
 613 010166  5317  SMODE,  LSMODE
 614 010167  5602  BSS,    LBSS
 615 010170  5154  ARG,    LARG
 616 010171  0054  C54,    54
 617 010172  0200  BASE,   INBUF
 618 010173  0300  BASE2,  INBUF+100
 619 010174  4000  C4000,  4000
 620 010175  0637  GNB,    LGNB
 621                      *177
 622 010177  7200  START,  CLA             /COME HERE AT BEGINNING OF EACH STMT
 623 010200  3000          DCA     FIRSTF
 624 010201  1112  START1, TAD     IMPDO
 625 010202  7640          SZA CLA
 626 010203  5231          JMP     ERR1    /IF IMPDO<>0 THEN WE MUST HAVE SCREWED UP ON
 627                                       /CONTINUATIONS (I THINK)
 628 010204  2111          ISZ     CHK     /IS THERE A STMT IN THE BUFFER?
 629 010205  5210          JMP     .+3
 630 010206  4770          JMS I   SWAP    /YES, SWITCH BUFFER POINTERS
 631 010207  5212          JMP     .+3
 632 010210  1172          TAD     BASE
 633 010211  4764          JMS I   RCD     /NO, READ THE NEXT LINE
 634 010212  1015  TEST,   TAD     L15
 635 010213  1164          TAD     CM3
 636 010214  3016          DCA     L16     /SET UP XR FOR DO TERMINATION TEST
 637 010215  1054          TAD     L54
 638 010216  7041          CIA
 639 010217  1416          TAD I   L16
 640 010220  7640          SZA CLA         /ARE WE TERMINATING A DO?
 641 010221  5224          JMP     ATRY
 642 010222  4316          JMS     LDNEXT  /TERMINATE DO LOOP
 643 010223  5212          JMP     TEST    /SEE IF THERE IS ANY MORE...
 644 010224  1061  ATRY,   TAD     L61
 645 010225  7640          SZA CLA         /A COMMENT?
 646 010226  5356          JMP     CMNT
 647 010227  1111          TAD     CHK
 648 010230  7640          SZA CLA         /ILLEGAL CONTINUATION?
 649 010231  4523  ERR1,   JMS I   LUNCH
 650 010232  4767          JMS I   STMT    /GET THE STMT NR...
 651 010233  1032          TAD     L32
 652 010234  7450          SNA
 653 010235  5241          JMP     .+4     /NO STMT NUMBER
 654 010236  7041          CIA
 655 010237  1012          TAD     L12
 656 010240  7640          SZA CLA         /CAN WE OMIT A TERMINAL JMP?
 657 010241  4520          JMS I   PRINT
 658 010242  3024          DCA     L24
 659 010243  4342  FLST,   JMS     LIST    /PUNCH SOURCE STMT
 660 010244  4766          JMS I   WIPE    /ZERO THE SUBSCRIPT TEMP. TABLE
 661 010245  1032          TAD     L32
 662 010246  3054          DCA     L54
 663 010247  1163          TAD     CM2
 664 010250  3064          DCA     L64
 665 010251  7410          SKP
 666 010252  3762  ACA,    DCA I   BAREA1
 667 010253  4522          JMS I   GETCH
 668 010254  5257          JMP     ALPH
 669 010255  7000          NOP
 670 010256  4515          JMS I   PUTCH   /PUT CHARACTER BACK
 671 010257  7106  ALPH,   RTL CLL
 672 010260  7006          RTL
 673 010261  7006          RTL
 674 010262  3065          DCA     L65
 675 010263  4522          JMS I   GETCH
 676 010264  5267          JMP     ALPH2
 677 010265  7000          NOP
 678 010266  4515          JMS I   PUTCH   /PUT CHARACTER BACK
 679 010267  1065  ALPH2,  TAD     L65
 680 010270  2064          ISZ     L64
 681 010271  5252          JMP     ACA
 682 010272  3763          DCA I   BAREA2
 683 010273  3111          DCA     CHK
 684 010274  1365          TAD     SSTYP   /COMPARE THESE CHARS WITH DISPATCH TABLE
 685 010275  3017          DCA     L17
 686 010276  1417  TRY,    TAD I   L17
 687 010277  7450          SNA             /END OF THE TABLE?
 688 010300  5514          JMP I   ASSIGN  /YES, MUST BE ARITHMETIC STMT
 689 010301  1762          TAD I   BAREA1
 690 010302  7640          SZA CLA
 691 010303  5313          JMP     NOHIT2
 692 010304  1763          TAD I   BAREA2
 693 010305  1417          TAD I   L17
 694 010306  7640          SZA CLA 
 695 010307  5314          JMP     NOHIT1
 696 010310  1417          TAD I   L17     /FOUND A MATCH, GO TO PROPER HANDLER...
 697 010311  3030          DCA     L30
 698 010312  5430          JMP I   L30
 699 010313  2017  NOHIT2, ISZ     L17
 700 010314  2017  NOHIT1, ISZ     L17
 701 010315  5276          JMP     TRY     /DOESN'T MATCH, TRY AGAIN
 702               
 703 010316  0000  LDNEXT, 0
 704 010317  1015          TAD     L15     /RESET THE DO END POINTER
 705 010320  1164          TAD     CM3
 706 010321  3015          DCA     L15
 707 010322  1015          TAD     L15
 708 010323  7001          IAC
 709 010324  3016          DCA     L16
 710 010325  7040          CMA
 711 010326  1055          TAD     L55
 712 010327  3055          DCA     L55
 713 010330  4516          JMS I   PROP    /PUNCH 'JMP <LABEL>'
 714 010331  6044          6044
 715 010332  1416          TAD I   L16
 716 010333  4517          JMS I   PRCRL
 717 010334  4520          JMS I   PRINT
 718 010335  1416          TAD I   L16     /PUNCH '<LABEL>,'
 719 010336  4542          JMS I   CLAB
 720 010337  4520          JMS I   PRINT
 721 010340  5716          JMP I   LDNEXT
 722               
 723 010341  0000  PTEM,   0
 724               
 725 010342  0000  LIST,   0               /PUNCH THE SOURCE STATEMENT
 726 010343  1172          TAD BASE        /GET THE POINTER
 727 010344  3341          DCA PTEM
 728 010345  1741          TAD I PTEM      /PUNCH A CHARACTER PAIR...
 729 010346  4521          JMS I P2
 730 010347  1741          TAD I PTEM
 731 010350  2341          ISZ PTEM
 732 010351  0155          AND C77
 733 010352  7640          SZA CLA         /END OF THE BUFFER?
 734 010353  5345          JMP LIST+3
 735 010354  4520          JMS I PRINT     /YES, PUNCH A CR-LF AND RETURN
 736 010355  5742          JMP I LIST
 737               
 738 010356  4520  CMNT,   JMS I   PRINT   /WE HAVE A COMMENT
 739 010357  3024          DCA     L24
 740 010360  4342          JMS     LIST
 741 010361  5201          JMP     START1  /ALLOW COMMENTS BEFORE SUBR. OR FUNCTION STMT.
 742               
 743               
 744 010362  2667  BAREA1, AREA1
 745 010363  2670  BAREA2, AREA2
 746 010364  0400  RCD,    LRCD
 747 010365  2577  SSTYP,  STYPE-1         /POINTER TO STATMENT TABLE IN FIELD 1
 748 010366  6527  WIPE,   LWIPE
 749 010367  2200  STMT,   LSTMT
 750 010370  0766  SWAP,   LSWAP
 751                      *400
 752               / THE FOLLOWING ROUTINE IS ENTERED WITH THE BUFFER POINTER IN THE AC
 753               / IT PUTS ONE LINE INTO THE BUFFER,
 754               / CHECKS FOR COMMENTS AND COUTINUATION LINES, AND IF IT IS A
 755               / CONTINUATION IT SETS KOUNT TO THE PROPER COLUMN
 756               /
 757 010400  0000  LRCD,   0
 758 010401  3354          DCA TEM1        /SAVE THE BUFFER POINTER
 759 010402  3754          DCA I TEM1
 760 010403  3111          DCA CHK         /ZERO CONTINUATION FLAG
 761 010404  3020          DCA L20         /ZERO THE EQUALS FLAG
 762 010405  3061          DCA L61         /ZERO THE COMMENT FLAG
 763 010406  1356          TAD CM111       /BUFFER LIMIT IS 72 CHARACTERS
 764 010407  3355          DCA IX
 765 010410  7200  LRCDL,  CLA
 766 010411  4345          JMS LPTRIN
 767 010412  0360          AND D177
 768 010413  7440          SZA             /LEADER OR BLANK TAPE?
 769 010414  1361          TAD CM177
 770 010415  7450          SNA             /RUBOUT?
 771 010416  5210          JMP LRCDL
 772 010417  1377          TAD (177-15
 773 010420  7450          SNA
 774 010421  5236          JMP LCAR
 775 010422  1376          TAD (15-11
 776 010423  7450          SNA
 777 010424  5305          JMP TAB
 778 010425  1375          TAD (11-40
 779 010426  7510          SPA
 780 010427  5210          JMP LRCDL
 781 010430  1374          TAD (40-75
 782 010431  7450          SNA             /AN '=' ?
 783 010432  2020          ISZ L20
 784 010433  1362          TAD C75         /CHAR OK... RESTORE IT & PUT IN BUFFER
 785 010434  4317          JMS KRONK       /PUT IT IN THE BUFFER...
 786 010435  5210          JMP LRCDL       /AND GET ANOTHER
 787               
 788 010436  1355  LCAR,   TAD IX          /PROCESS A CAR RETURN...
 789 010437  7041          CIA
 790 010440  1356          TAD CM111
 791 010441  7650          SNA CLA         /NULL STATEMENT?
 792 010442  5210          JMP LRCDL       /YES, IGNORE
 793 010443  4317          JMS KRONK       /PUT A ZERO IN THE BUFFER
 794 010444  1754          TAD I TEM1
 795 010445  1164          TAD CM3
 796 010446  7450          SNA
 797 010447  5254          JMP     COMNT
 798 010450  1366          TAD     CM20
 799 010451  7640          SZA CLA         /TEST FOR "S" IN COLUMN ONE
 800 010452  5257          JMP     TINUE
 801 010453  5773          JMP I   (SCODE
 802 010454  2061  COMNT,  ISZ L61         /SET COMMENT FLAG...
 803 010455  1153          TAD     C40
 804 010456  5273          JMP     STORSL
 805               
 806 010457  1354  TINUE,  TAD TEM1        /CHECK FOR CONTINUATION...
 807 010460  1152          TAD C3
 808 010461  3353          DCA P           /SET THE POINTER TO COLS. 6 AND 7
 809 010462  1753          TAD I P
 810 010463  0364          AND C5700       /NON-ZERO OR NON BLANK IN COL 6
 811 010464  1174          TAD C4000       /MAKES THIS A CONTINUATION...
 812 010465  7650          SNA CLA         /IS IT?
 813 010466  5276          JMP LRCDA       /MAYBE...
 814 010467  1363  LRCDX,  TAD B7          /YES, MAKE IT START IN COL 7
 815 010470  3113          DCA KOUNT
 816 010471  2111          ISZ CHK         /INCREMENT THE CONTINUATION FLAG
 817 010472  1754          TAD I   TEM1
 818 010473  1364  STORSL, TAD C5700       /MAKE THIS INTO A COMMENT LINE
 819 010474  3754          DCA I TEM1
 820 010475  5600          JMP I LRCD      /THEN RETURN
 821               
 822 010476  1753  LRCDA,  TAD I P         /NUMERIC AND NON-ZERO IN COL 7 MAKES
 823 010477  0155          AND C77         /THIS A CONTINUATION...
 824 010500  1365          TAD CM61
 825 010501  7710          SPA CLA         /IS IT?
 826 010502  5272          JMP LRCDX+3     /NO, RETURN
 827 010503  7001          IAC             /YES, MAKE IT START IN COL 8
 828 010504  5267          JMP LRCDX
 829               
 830 010505  1153  TAB,    TAD C40         /PROCESS TAB CHARACTERS...
 831 010506  4317          JMS KRONK       /PUT SOME SPACES IN THE BUFFER
 832 010507  1355          TAD IX
 833 010510  1152          TAD C3          /MAKE 1ST TAB GO TO COL 7
 834 010511  7500          SMA             /ARE WE AT END OF THE BUFFER?
 835 010512  7200          CLA             /YES, FORCE TERMINATION
 836 010513  0363          AND B7
 837 010514  7640          SZA CLA         /MODULO 8?
 838 010515  5305          JMP TAB         /NO, PUNCH SOME MORE SPACES
 839 010516  5210          JMP LRCDL       /YES, GET ANOTHER CHAR
 840               
 841 010517  0000  KRONK,  0               /PUT A CHARACTER IN THE BUFFER...
 842 010520  3352          DCA CAR
 843 010521  7201          CLA     IAC
 844 010522  1355          TAD IX          /FIRST COMPUTE BUFFER ADDRESS...
 845 010523  7450          SNA             /PAST COL. 72?
 846 010524  5717          JMP I   KRONK   /YES-RETN.
 847 010525  1357          TAD     C111    /NO
 848 010526  7110          CLL RAR
 849 010527  1354          TAD TEM1
 850 010530  3353          DCA P
 851 010531  1352          TAD CAR         /PICK UP THE CHARACTER
 852 010532  0155          AND C77
 853 010533  7430          SZL             /ZERO LINK SAYS WE WANT THE LEFT HALF
 854 010534  5341          JMP .+5
 855 010535  7006          RTL
 856 010536  7006          RTL
 857 010537  7006          RTL
 858 010540  3753          DCA I P
 859 010541  1753          TAD I P         /ADD IN THE LEFT 6 BITS
 860 010542  3753          DCA I P         /AND SALT THEM AWAY...
 861 010543  2355          ISZ IX          /BUFFER OVERFLOW?
 862 010544  5717          JMP I KRONK
 863               
 864 010545  0000  LPTRIN, 0               /PAPER TAPE READER INPUT ROUTINE
 865 010546  6011          RSF
 866 010547  5346          JMP .-1
 867 010550  6016          RRB RFC
 868 010551  5745          JMP I LPTRIN
 869               
 870 010552  0000  CAR,    0               /TEMPORARY, HOLDS THE CURRENT CHARACTER
 871 010553  0000  P,      0               /THIS IS THE BUFFER POINTER
 872 010554  0000  TEM1,   0               /THIS CONTAINS THE CURRENT BUFFER ADDRESS
 873 010555  0000  IX,     0               /THIS IS THE CHARACTER COUNTER
 874 010556  7667  CM111,  -111            /MINUS THE BUFFER LIMIT PLUS ONE
 875 010557  0111  C111,   111             /THIS IS THE BUFFER LIMIT PLUS ONE
 876 010560  0177  D177,   177
 877 010561  7601  CM177,  -177
 878 010562  0075  C75,    75
 879 010563  0007  B7,     7
 880 010564  5700  C5700,  5700
 881 010565  7717  CM61,   -61
 882 010566  7760  CM20,   -20
 883 010567  6100  M1700,  -1700
 884 010573  1746         *600
     010574  7743  
     010575  7751  
     010576  0004  
     010577  0162  
 885 010600  1113  CAL,    TAD     KOUNT   /SUBROUTINE CALL STMT PROCESSOR
 886 010601  3205          DCA     COUNT3
 887 010602  4527          JMS I   ENTITY
 888 010603  5514          JMP I   ASSIGN
 889 010604  5210          JMP     ON
 890 010605  0000  COUNT3, 0
 891 010606  0012  Q12,    12
 892 010607  5514          JMP I   ASSIGN
 893 010610  4575  ON,     JMS I   GNB
 894 010611  7450          SNA             /ANY ARGUMENTS?
 895 010612  5227          JMP     CR2     /NO
 896 010613  1160          TAD     CM50
 897 010614  7440          SZA             /MAYBE, IS THIS A '(' ?
 898 010615  5514          JMP I   ASSIGN
 899 010616  4526          JMS I   ZZZ     /YES, PUNCH STMT NR, IF ANY
 900 010617  1205          TAD     COUNT3
 901 010620  3113          DCA     KOUNT
 902 010621  2044          ISZ     L44
 903 010622  3046          DCA     L46     /AC SWITCH
 904 010623  3052          DCA     L52     /IF STATEMENT SWITCH
 905 010624  4540          JMS I   GENER   /LET TRIPLE GENERATOR PROCESS IT
 906 010625  3046          DCA     L46     /ZERO AC AGAIN
 907 010626  5177          JMP     START   /COMPLETE, GET NEXT STATEMENT
 908 010627  2032  CR2,    ISZ     L32     /NO ARGUMENTS
 909 010630  4530          JMS I   SYMTAB
 910 010631  1077          TAD     L77
 911 010632  3235          DCA     GLU
 912 010633  4526          JMS I   ZZZ     /PUNCH '<LABEL>, CALL 0,<NAME>'
 913 010634  4544          JMS I   FPROP
 914 010635  0000  GLU,    0
 915 010636  5177          JMP     START
 916 010637  0000  LGNB,   0
 917 010640  4330          JMS     LGTC
 918 010641  3235          DCA     GLU
 919 010642  1235          TAD     GLU
 920 010643  1156          TAD     CM40
 921 010644  7650          SNA CLA
 922 010645  5240          JMP     LGNB+1
 923 010646  1235          TAD     GLU
 924 010647  5637          JMP I   LGNB
 925 010650  0000  LGETCH, 0
 926 010651  4575          JMS I   GNB
 927 010652  7450          SNA             /IS IT A END OF CARD
 928 010653  5264          JMP     PUNC    /YES ITS PUNTUATION
 929 010654  1327          TAD     QM32
 930 010655  7550          SPA SNA         /IS IT ALPHABETIC
 931 010656  5265          JMP     ALPHA           //YES
 932 010657  1156          TAD     CM40
 933 010660  7100          CLL
 934 010661  1206          TAD     Q12
 935 010662  7430          SZL             /IS IT NUMERIC?
 936 010663  2250          ISZ     LGETCH  /NUMERIC
 937 010664  2250  PUNC,   ISZ     LGETCH  /PUNCTUATION
 938 010665  7200  ALPHA,  CLA             /ALPHABETIC
 939 010666  1235          TAD     GLU
 940 010667  5650          JMP I   LGETCH  /RETURN
 941               /       THIS ROUTINE DETERMINES WHETHER SYMBOL IS FP OR INTEBER
 942               /       ROUTINE SKIPS IF SYMBOL IS INTEGER
 943 010670  0000  LMODE,  0
 944 010671  7500          SMA             /IF ITS PLUS WE HAVE AN INTEGER
 945 010672  5322          JMP     AINT    /WE HAVE AN INTEGER
 946 010673  7004          RAL             /GET NEXT BIT
 947 010674  7510          SPA             /CHECK THIS BIT
 948 010675  5304          JMP     FV      /ITS EITHER A FCON OR VARIABLE
 949 010676  7006          RTL             /GET NEXT TWO BITS
 950 010677  7420          SNL             /IS IT AN OPERATOR
 951 010700  4523  ERR2,   JMS I   LUNCH   /YES
 952 010701  7700  AFP,    SMA CLA         /CHECK THIS BIT
 953 010702  5322          JMP     AINT    /ITS AN INTEGER
 954 010703  5670          JMP I   LMODE   /SYMBOL WAS F P MODE
 955 010704  7010  FV,     RAR             /RESTORE AC TO ORIGINAL CONTENTS
 956 010705  7041          CIA             /SET NEGATIVE
 957 010706  1047          TAD     L47     /ADD START OF FCON TABLE
 958 010707  7510          SPA             /IS     /SYMBOL FCON
 959 010710  5301          JMP     AFP     /YES
 960 010711  7041          CIA             /NO     /RESTORE AC AGAIN
 961 010712  1047          TAD     L47
 962 010713  3325          DCA     ATEM    /SAVE THE RESTORED NUMBER
 963 010714  1725          TAD I   ATEM    /GET THE POINTER TO THE VARIABLE
 964 010715  1326          TAD     CM1100  /SUBTRACT AN I
 965 010716  7510          SPA             /IS IT LESS THAN I
 966 010717  5301          JMP     AFP     /YES    ITS FLOATING POINT
 967 010720  1323          TAD     CON1    /NOW SUBTRACT AN N
 968 010721  7710          SPA CLA         /IS IT LESS THAN N
 969 010722  2270  AINT,   ISZ     LMODE   /YES
 970 010723  7200  CON1,   CLA             /CLEAR THE AC FOR THE RETURN
 971 010724  5670          JMP I   LMODE
 972 010725  0000  ATEM,   0
 973 010726  6700  CM1100, -1100
 974 010727  7746  QM32,   -32
 975 010730  0000  LGTC,   0               /GET A CHARACTER FROM THE BUFFER
 976 010731  1113          TAD     KOUNT
 977 010732  2113          ISZ     KOUNT
 978 010733  7110          CLL RAR         /LINK TELLS IF LEFT OR RIGHT HALF
 979 010734  1172          TAD     BASE
 980 010735  3235          DCA     GLU
 981 010736  1635          TAD I   GLU
 982 010737  7430          SZL             /WHICH CHARACTER
 983 010740  5344          JMP     MMSK
 984 010741  7012          RTR
 985 010742  7012          RTR
 986 010743  7012          RTR
 987 010744  0155  MMSK,   AND     C77
 988 010745  7440          SZA
 989 010746  5730          JMP I   LGTC
 990 010747  1111          TAD     CHK
 991 010750  7710          SPA CLA         /DO WE WANT A NEW LINE YET?
 992 010751  5730          JMP I   LGTC    /NOT YET...
 993 010752  1173          TAD     BASE2   /YES, USE THE ALTERNATE BUFFER
 994 010753  4765          JMS I   RLCD
 995 010754  1111          TAD     CHK
 996 010755  7640          SZA CLA         /IS IT A CONTINUATION?
 997 010756  5362          JMP     .+4
 998 010757  7040          CMA             /NO, SET FLAG AND RETURN W ZERO AC
 999 010760  3111          DCA     CHK
1000 010761  5730          JMP I   LGTC
1001 010762  4366          JMS     LSWAP   /YES, SWITCH BUFFERS AND CONTINUE
1002 010763  3111          DCA     CHK
1003 010764  5331          JMP     LGTC+1
1004               
1005 010765  0400  RLCD,   LRCD
1006 010766  0000  LSWAP,  0               /SWITCH THE LINE BUFFER POINTERS
1007 010767  1172          TAD     BASE
1008 010770  3325          DCA     ATEM
1009 010771  1173          TAD     BASE2
1010 010772  3172          DCA     BASE
1011 010773  1325          TAD     ATEM
1012 010774  3173          DCA     BASE2
1013 010775  5766          JMP I   LSWAP
1014                      *1000
1015               /       THE POINTER TO THE CURRENT LOCATION IN THE PUSH LIST IS
1016               /       IN LOC 41,  THE CURRENT TRIPLE NUMBER IS IN LOCATION 40
1017               /       LOC 44 MUST BE SET TO 0 IF THERE IS AN '=' , TO 1 IF NOT.
1018 011000  2670  PBEGN,  AREA2           /START OF THE PRECEDENCE LIST
1019 011001  1032  BINTEG, TAD     L32     /HERE IF ENTITY SENT AN INTEGER
1020 011002  5760          JMP I   BPUSH   /PUSH IT INTO STACK
1021 011003  4775  FLPT,   JMS I   FCON    /HERE IF ENTITY FOUND A FLOATING POINT CON
1022 011004  7410          SKP             /ENTER IT INTO FPTABLE
1023 011005  4530  BLPHA,  JMS I   SYMTAB  /HERE IF ENTITY FOUND A VARIABLE
1024 011006  1077          TAD     L77     /PICK UP POINTER INTO SYM TAB OR FLPT TAB AN
1025 011007  5760          JMP I   BPUSH   /PUSH IT DOWN
1026 011010  5611  LABELX, JMP I   LGENER
1027 011011  0000  LGENER, 0               /ENTRY POINT
1028 011012  1361          TAD     C5000
1029 011013  3040          DCA     L40     /*
1030 011014  3021          DCA     L21     /ZERO THE SYMBOL TABLE SWITCH
1031 011015  1071          TAD     L71
1032 011016  3041          DCA     L41     /SET PUSH DOWN POINTER
1033 011017  3022          DCA     L22
1034 011020  3066          DCA     BPAREN  /ZERO OUT THE PAREN SWITCH
1035 011021  1174          TAD     C4000
1036 011022  3441          DCA I   L41     /FIRST PUSH DOWN LEFT CLOSURE NAMELY 0
1037 011023  4527  BNEXT,  JMS I   ENTITY  /THIS WILL GET THE NEXT DATUM TO BE PROCESSE
1038 011024  5230          JMP     HOO     /END OF STATEMENT RETURN,TREAT LIKE PUNCTION
1039 011025  5205          JMP     BLPHA   /VARIABLE RETURN
1040 011026  5201          JMP     BINTEG  /INTEGER RETURN
1041 011027  5203          JMP     FLPT    /FLOATING POINT RETURN
1042 011030  1160  HOO,    TAD     CM50    /PUNCTIOATION RETURN,
1043 011031  7450          SNA             /IS IT (
1044 011032  5762          JMP I   BPAR    /YES
1045 011033  1363          TAD     C7753
1046 011034  7440          SZA             /IS IT AN '=' ?
1047 011035  5246          JMP     BRET
1048 011036  1044          TAD     L44     /WE HAVE AN '=',  IS IT LEGAL?
1049 011037  7650          SNA CLA
1050 011040  5246          JMP     BRET    /IT IS
1051 011041  1112          TAD     IMPDO
1052 011042  7640          SZA CLA         /ARE WE IN AN IMPLIED DO LOOP?
1053 011043  5645          JMP I   PIOEQL  /YES - TERMINATE LOOP CODE
1054 011044  4523  ERR3,   JMS I   LUNCH
1055 011045  6156  PIOEQL, IOEQL
1056 011046  1364  BRET,   TAD     C0075
1057 011047  3063          DCA     L63
1058 011050  1441          TAD I   L41     /CHECK FOR A UNARY OPERATOR
1059 011051  1174          TAD     C4000
1060 011052  0365          AND     C7000
1061 011053  7640          SZA CLA         /WAS IT AN OPERAATOR AT ALL
1062 011054  5266          JMP     PREC    /NO, STILL NOT UNARY OPERATOR
1063 011055  1063          TAD     L63
1064 011056  1367          TAD     C7725
1065 011057  7450          SNA             /IS IT A '+'  
1066 011060  5223          JMP     BNEXT   /YES, IGNORE IT
1067 011061  1163          TAD     CM2     /NO
1068 011062  7640          SZA CLA         /IS IT A '-' ?
1069 011063  5244          JMP     ERR3
1070 011064  1370          TAD     C4643   /THIS IS THE UNARY MINUS
1071 011065  5760          JMP I   BPUSH
1072 011066  1200  PREC,   TAD     PBEGN   /HERE IS WHERE WE FIND THE PRECIDENCE
1073 011067  3017          DCA     L17
1074 011070  3065          DCA     L65
1075 011071  7410          SKP
1076 011072  2017  RETUR,  ISZ     L17     /PICK UP NEXT OP CODE IN LIST
1077 011073  1417          TAD I   L17     /TO GET THE NEXT LIST ITEM
1078 011074  7540          SMA SZA         /IS THIS THE END OF THE LIST
1079 011075  5303          JMP     BMORE   /NO, THE ASSUMPTION IS THAT THE PRECIDENCE
1080 011076  1063          TAD     L63     /IS ZERO
1081 011077  7640          SZA CLA         /IS THIS THE RIGHT TABLE ENTRY
1082 011100  5272          JMP     RETUR   /TRY AGAIN      (IT WASN"T)
1083 011101  1417          TAD I   L17     /TO GET THE PRECEDENCE
1084 011102  3065          DCA     L65
1085 011103  7201  BMORE,  CLA IAC         /HERE WE ARE GOING TO SEE IF THERE IS A PREC
1086 011104  1041          TAD     L41
1087 011105  3064          DCA     L64     /L64 NOW POINTS TO THE PREVIOUS OPERATOR
1088 011106  1464          TAD I   L64
1089 011107  1174          TAD     C4000
1090 011110  0365          AND     C7000
1091 011111  7440          SZA             /IS THERE A VALID OPERATOR ON THE STACK?
1092 011112  5244          JMP     ERR3    /APPARENTLY NOT...
1093 011113  1464          TAD I   L64     /IF THE PRECEDENCE OF THE PREVIOUS OPERATOR
1094 011114  0371          AND     C700    /IS NON-ZERO, AND ITS PRECEDENCE IS GREATER
1095 011115  7450          SNA             /THAN OR EQUAL TO THE PRECEDENCE OF THE
1096 011116  5335          JMP     NO      /CURRENT OPERATOR, THEN PROCESS THE PREVIOUS
1097 011117  7041          CIA             /OPERATOR; IF NOT WE WILL PROBABLY PUT
1098 011120  1065          TAD     L65     /THE CURRENT OPERATOR ON THE STACK AND GET
1099 011121  7740          SMA SZA CLA     /ANOTHER ITEM FROM THE STATEMENT BUFFER...
1100 011122  5335          JMP     NO
1101 011123  2040          ISZ     L40     /YES, INCREMENT THE TRIPLE NUMBER AND....
1102 011124  4537          JMS I   TRIPL   /PROCESS THE PREVIOUS OPERATOR
1103 011125  2041          ISZ     L41     /*****NOTE      WHAT IF IT WAS UNARY************
1104 011126  1441          TAD I   L41
1105 011127  1372          TAD     C3135   /THIS IS MINUS UNARY MINUS
1106 011130  7640          SZA CLA
1107 011131  2041          ISZ     L41     /DELETE THE LAST 3 ITEMS AND REPLACE WITH TR
1108 011132  1046          TAD     L46
1109 011133  3441          DCA I   L41
1110 011134  5303          JMP     BMORE   /TRY FOR ANOTHER TRIPLE
1111 011135  1063  NO,     TAD     L63
1112 011136  7450          SNA             /IS IT A END OF STATEMENT MARK
1113 011137  5773          JMP I   LCDONE  /IT WAS--WE ARE ALL FINISHED, EXCEPT CHECKING
1114 011140  1161          TAD     CM51
1115 011141  7450          SNA             /IS IT A ')' ?
1116 011142  5774          JMP I   LKPAR   /YES
1117 011143  1164          TAD     CM3
1118 011144  7440          SZA             /IS IT A ',' ?
1119 011145  5351          JMP     NCOMMA  /NO
1120 011146  1066          TAD     BPAREN
1121 011147  7650          SNA CLA         /IS A COMMA LEGAL HERE?
1122 011150  5773          JMP I   LCDONE  /MAYBE...
1123 011151  1366  NCOMMA, TAD     CM21
1124 011152  7650          SNA CLA         /IS IT AN EQUALS SIGN?
1125 011153  2044          ISZ     L44     /YES - SET EQUALS SWITCH ON
1126 011154  1063          TAD     L63     /PUT THE OPERATOR ON THE STACK
1127 011155  1065          TAD     L65     /ADD THE PRECEDENCE
1128 011156  1174          TAD     C4000
1129 011157  5760          JMP I   BPUSH
1130               /
1131 011160  1200  BPUSH,  PUSH
1132 011161  5000  C5000,  5000
1133 011162  1300  BPAR,   ALPAR
1134 011163  7753  C7753,  7753
1135 011164  0075  C0075,  75
1136 011165  7000  C7000,  7000
1137 011166  7757  CM21,   -21
1138 011167  7725  C7725,  7725
1139 011170  4643  C4643,  4643
1140 011171  0700  C700,   700
1141 011172  3135  C3135,  3135
1142 011173  1232  LCDONE, CDONE
1143 011174  1207  LKPAR,  KPAR
1144 011175  2444  FCON,   LFCON
1145                      *1200
1146 011200  3063  PUSH,   DCA     L63
1147 011201  7240          CLA CMA
1148 011202  1041          TAD     L41     /SPACE THE POINTER UP ONE
1149 011203  3041          DCA     L41     /*
1150 011204  1063          TAD     L63
1151 011205  3441          DCA I   L41     /*
1152 011206  5726          JMP I   LBNEXT  /BACK TO BEGINING
1153               /       THIS IS TO PROCESS SUBSCRIPTS OR FUNCTION CALLS---
1154               / IF ARITHMETIC, JUST DELETE BOTH ( AND )
1155 011207  1464  KPAR,   TAD I   L64
1156 011210  1327          TAD     C3730   /MINUS LEFT PAREN
1157 011211  7440          SZA             /IS IT (
1158 011212  5242          JMP     BCON    /NO-- CHECK SOME MORE
1159 011213  1441          TAD I   L41     /DELETE PARENS
1160 011214  3464          DCA I   L64
1161 011215  2041          ISZ     L41     /UPDATE POINTER
1162 011216  2066  LAPP,   ISZ     BPAREN  /DO PARENS BALENCE
1163 011217  5726          JMP I   LBNEXT
1164 011220  1052          TAD     L52     /YES
1165 011221  7650          SNA CLA         /SHOULD WE RETURN IF BALANCED
1166 011222  5726          JMP I   LBNEXT
1167 011223  1046          TAD     L46
1168 011224  7640          SZA CLA
1169 011225  5232          JMP     CDONE
1170 011226  1441          TAD I   L41
1171 011227  3077          DCA     L77
1172 011230  4737          JMS I   XTAD    /GENERATE TAD OR (TAD I)
1173 011231  3441          DCA I   L41     /ZERO IS INTEGER
1174 011232  1041  CDONE,  TAD     L41
1175 011233  7040          CMA
1176 011234  1071          TAD     L71
1177 011235  7440          SZA             /WELL...
1178 011236  4523  ERR6,   JMS I   LUNCH   /HA...YOU GOOFED
1179 011237  4725          JMS I   XZQ
1180 011240  5641          JMP I   .+1
1181 011241  1010          LABELX
1182 011242  7001  BCON,   IAC             /IS IT FUNCTION
1183 011243  2040          ISZ     L40
1184 011244  7450          SNA
1185 011245  5275          JMP     BFOUT   /YES
1186 011246  7001          IAC             /NO-- NOW IS IT SUBSCRIPT
1187 011247  7450          SNA     
1188 011250  5270          JMP     SOUT    /YES
1189 011251  1330          TAD     C7772   /NO
1190 011252  7440          SZA             /IS IT COMMA
1191 011253  5236          JMP     ERR6    /NO - BYE BYE CHARLIE
1192 011254  2064          ISZ     L64
1193 011255  2064          ISZ     L64
1194 011256  1464          TAD I   L64
1195 011257  1331          TAD     C3724   /IS IT A COMMA
1196 011260  7450          SNA
1197 011261  5275          JMP     BFOUT   /FOUND TWO COMMAS,MUST BE FUNCTION
1198 011262  1332          TAD     C5      /NO
1199 011263  7450          SNA             /IS IT A PRIME
1200 011264  5275          JMP     BFOUT   /GOT A FUNCTION
1201 011265  7001          IAC             /NO
1202 011266  7640          SZA CLA
1203 011267  5236          JMP     ERR6    /SORRY, IT AIN'T NUTTIN
1204 011270  4763  SOUT,   JMS I   PLSBSC          /PROCESS A SUBSCRIPT
1205 011271  7040          CMA
1206 011272  1022          TAD     L22
1207 011273  3022          DCA     L22
1208 011274  7410          SKP
1209 011275  4677  BFOUT,  JMS I   FUNCT
1210 011276  5216          JMP     LAPP
1211 011277  3640  FUNCT,  LFUNCT
1212               / THIS IS WHERE WE FIND OUT WHAT KIND OF LPAR
1213 011300  7040  ALPAR,  CMA
1214 011301  1066          TAD     BPAREN
1215 011302  3066          DCA     BPAREN
1216 011303  1441          TAD I   L41
1217 011304  1174          TAD     C4000
1218 011305  0334          AND     B7000   /IS IT AN OPERAND
1219 011306  7640          SZA CLA 
1220 011307  5312          JMP     CUNT    /NO     , TRY SOME MORE
1221 011310  7001          IAC
1222 011311  5323          JMP     PRIME
1223 011312  1441  CUNT,   TAD I   L41     /PICK UP TOP LIST ITEM
1224 011313  1151          TAD     C2      /ADD TWO TO FIND THE DIMENSION INTO(INFO)
1225 011314  3064          DCA     L64
1226 011315  1464          TAD I   L64
1227 011316  0335          AND     C20     /JUST WANT ONLY THIS ONE BIT(DIMENSION)
1228 011317  7650          SNA CLA         /IS IT DIMENSIONED
1229 011320  5323          JMP     PRIME   /NO     ITS GOT TO BE A FUNCTION CALL
1230 011321  2022          ISZ     L22
1231 011322  7040          CMA
1232 011323  1336  PRIME,  TAD     C4047
1233 011324  5200          JMP     PUSH    /GO PUSH A PRIME, IT IS THE FUNCTIONS LEFT PAREN
1234 011325  5265  XZQ,    LXZQ
1235 011326  1023  LBNEXT, BNEXT
1236 011327  3730  C3730,  3730
1237 011330  7772  C7772,  7772
1238 011331  3724  C3724,  3724
1239 011332  0005  C5,     5
1240 011333  0007  D7,     7
1241 011334  7000  B7000,  7000
1242 011335  0020  C20,    20
1243 011336  4047  C4047,  4047
1244 011337  3134  XTAD,   LXTAD
1245 011340  0000  LPUTCH, 0
1246 011341  7240          CLA CMA
1247 011342  1113          TAD     KOUNT
1248 011343  3113          DCA     KOUNT
1249 011344  5740          JMP I   LPUTCH
1250               
1251 011345  1020  LASIGN, TAD     L20     /ARITHMETIC STATEMENT PROCESSOR
1252 011346  7650          SNA CLA         /IS THERE AN '=' IN THE STMT?
1253 011347  4523  ERR9,   JMS I   LUNCH   /NO, BETTER COMPLAIN...
1254 011350  1333          TAD     D7      /SET POINTER TO COL 7
1255 011351  3113          DCA     KOUNT
1256 011352  4526          JMS I   ZZZ     /PUNCH THE LABEL, IF ANY
1257 011353  3046          DCA     L46
1258 011354  3044          DCA     L44
1259 011355  3052          DCA     L52
1260 011356  4540          JMS I   GENER   /PROCESS IT...
1261 011357  1063          TAD     L63
1262 011360  7640          SZA CLA         /WAS TERMINATOR A <CR/LF> ?
1263 011361  5347          JMP     ERR9    /NO, ILLEGAL STATEMENT ERROR ...
1264 011362  5177          JMP     START
1265 011363  6561  PLSBSC, LSUBSC
1266               
1267 011364  0000  LPRCRL, 0               /SUBROUTINE PRINTS CREATED LABELS
1268 011365  3374          DCA LPRCTM
1269 011366  1373          TAD C36         /PUNCH '^'
1270 011367  4520          JMS I PRINT
1271 011370  1374          TAD LPRCTM      /PUNCH THE LETTERS
1272 011371  4521          JMS I P2
1273 011372  5764          JMP I LPRCRL
1274 011373  0036  C36,    36
1275 011374  0000  LPRCTM, 0
1276                      *1400
1277 011400  2205  PRET,   ISZ     LENTT   /PUNCTIONATION EXIT POINT
1278 011401  2205  FRET,   ISZ     LENTT   /FLOATING POINT EXIT POINT
1279 011402  2205  XIRET,  ISZ     LENTT   /INTEGER EXIT POINT
1280 011403  2205  XARET,  ISZ     LENTT   /VARIABLE EXIT
1281 011404  5605  ERET,   JMP I   LENTT   /CR END OF LINE EXIT
1282 011405  0000  LENTT,  0               /ENTRY POINT
1283 011406  7200          CLA             /WIPE OUT PSEUDO ACCUMULATOR
1284 011407  3032          DCA     L32
1285 011410  3031          DCA     L31
1286 011411  3100          DCA     COUNT2  /RESET ALL KINDS OF THINGS TO ZERO
1287 011412  3036          DCA     L36
1288 011413  3037          DCA     L37
1289 011414  3030          DCA     L30
1290 011415  3102          DCA     FPSW
1291 011416  3101          DCA     ESIGN
1292 011417  1342          TAD     CM6
1293 011420  3065          DCA     L65     /SET UP FOR MAXIMUM OF 6 CHARS
1294 011421  4522          JMS I   GETCH   /GET THE FIRST INPUT CHARACTER
1295 011422  5225          JMP     .+3     /ALPHA RETURN
1296 011423  5267          JMP     PUNCT   /PUNCTIONATION RETURN
1297 011424  5315          JMP     DIG     /DIGIT RETURN
1298 011425  4237          JMS     PACK    /STORE THIS CHARACTER
1299 011426  4522          JMS I   GETCH   /GET ANOTHER CHACTER
1300 011427  5225          JMP     .-2     /ALPHA- IS OK
1301 011430  7410          SKP             /PUNCTUATION
1302 011431  5225          JMP     .-4     /DIGIT--IS OK PROCESS IT
1303 011432  4515          JMS I   PUTCH   /PUT THAT PUNCTUATION BACK IN THE BUFFER
1304 011433  1032          TAD     L32
1305 011434  0371          AND     CC7700  /MAKE SURE NAME IS <= 5 CHARACTERS LONG
1306 011435  3032          DCA     L32
1307 011436  5203          JMP     XARET   /RETURN WITH VARIABLE
1308               
1309 011437  0000  PACK,   0               /THIS PACK CHARS INTO L30 L31 AND L32
1310 011440  3064          DCA     L64     /SAVE THE CHAR...
1311 011441  1065          TAD     L65
1312 011442  7450          SNA             /DO WE HAVE SIX CHARS ALREADY?
1313 011443  5637          JMP I   PACK    /YES - IGNORE
1314 011444  7120          STL; RAR
     011445  7010  
1315 011446  1341          TAD     P33
1316 011447  3266          DCA     LTEM
1317 011450  2065          ISZ     L65
1318 011451  0007  C7,     7
1319 011452  1064          TAD     L64
1320 011453  6211          CDF 10
1321 011454  7420          SNL             /DO WE HAVE LEFT OR RIGHT HALF?
1322 011455  5262          JMP     .+5
1323 011456  7106          CLL RTL         /MUST BE LEFT HALF...
1324 011457  7006          RTL
1325 011460  7006          RTL
1326 011461  7410          SKP
1327 011462  1666          TAD I   LTEM
1328 011463  3666          DCA I   LTEM
1329 011464  6201          CDF 00
1330 011465  5637          JMP I   PACK
1331 011466  0000  LTEM,   0
1332               
1333 011467  7450  PUNCT,  SNA             /HERE TO PROCESS PUNCTION---IS IT A CARIAGE RET
1334 011470  5204          JMP     ERET    /YES,   GO RIGHT BACKTO THE CALLER....BY-BY
1335 011471  1343          TAD     C7722   /IS IT A PERIOD
1336 011472  7450          SNA
1337 011473  5326          JMP     CC      /YES--WE ASSUME THAT THIS LENTT IS A FLOATING
1338 011474  1251          TAD     C7
1339 011475  7450          SNA             /IS IT A QUOTE?
1340 011476  5753          JMP I   QUOTE   /YES - CHARACTER LITERAL
1341 011477  1164          TAD     CM3
1342 011500  7440          SZA             /IS IT AN ASTERISK
1343 011501  5306          JMP     NAH     /NO
1344 011502  4522          JMS I   GETCH   /YES- PEEK AT NEXT CHAR
1345 011503  5305          JMP     NOASS   /ALPHA-- PUT IT BACK
1346 011504  5310          JMP     ASSCK   /PUNCTUATION-- CHECK FOR AN ASTERISK
1347 011505  4515  NOASS,  JMS I   PUTCH   /DIGIT---PUT IT BACK
1348 011506  1344  NAH,    TAD     X52     /RESTORE CHARACTER TO WHAT IT WAS
1349 011507  5200          JMP     PRET    /THATS ALL---IT WAS PUNCTIONATION
1350 011510  1345  ASSCK,  TAD     CM52    /ANOTHER PUNCTUATION--IS IT (*)
1351 011511  7440          SZA
1352 011512  5305          JMP     NOASS   /NO---PUT IT BACK
1353 011513  1350          TAD     C45     /IT WAS-- CHANGE ** TO PERCENT
1354 011514  5200          JMP     PRET    /---ALTERED PUNCTUATION
1355 011515  0346  DIG,    AND     C17     /FIRST CHAR WAS A DIGIT,        DONT KNOW IS INTEGER O
1356 011516  3032          DCA     L32     /AT ANY RATE SAVE IT IN THE PSEUDO ACCUMULATER
1357 011517  4522  CA,     JMS I   GETCH   /GET ANOTHER CHACTER
1358 011520  5747          JMP I   LTESTE  /ALPHA--GO SEE IF IT IS AN -E-
1359 011521  7410          SKP             /PUNCT
1360 011522  5334          JMP     BONT    /DIGIT GO PROCESS IT
1361 011523  1343          TAD     C7722   /PUNCTUATION HERE,      IS IT A PERIOD
1362 011524  7440          SZA
1363 011525  5751          JMP I   LCOP    / IT IS . WE HAVE A FLOATING POINT NUMBER
1364 011526  1102  CC,     TAD     FPSW
1365 011527  7440          SZA
1366 011530  4523  ERR10,  JMS I   LUNCH   /TOO MANY (.)
1367 011531  2102          ISZ     FPSW
1368 011532  3100          DCA     COUNT2
1369 011533  5317          JMP     CA      /GO BACK AND GET ANOTHER CHAR
1370 011534  0346  BONT,   AND     C17     /***COME HERE WITH ANOTHER DIGIT.
1371 011535  3036          DCA     L36     /SAVE IT
1372 011536  2100          ISZ     COUNT2
1373 011537  4752          JMS I   LMUL10  / AC = AC * 10 + DIGIT
1374 011540  5317          JMP     CA      /GO GET ANOTHER CHAR
1375 011541  0033  P33,    L30+3
1376 011542  7772  CM6,    -6
1377 011543  7722  C7722,  7722
1378 011544  0052  X52,    52
1379 011545  7726  CM52,   -52
1380 011546  0017  C17,    17
1381 011547  1600  LTESTE, TESTE
1382 011550  0045  C45,    45
1383 011551  1640  LCOP,   COP
1384 011552  2120  LMUL10, MUL10
1385 011553  3763  QUOTE,  LQUOTE
1386               
1387               
1388 011554  0000  DMPLIN, 0               /SUBROUTINE TO DUMP "LAST LINE" BUFFER
1389 011555  2024          ISZ     L24
1390 011556  1424          TAD I   L24     /GET NEXT CHAR
1391 011557  4550          JMS I   PUNCH   /PUNCH IT
1392 011560  1424          TAD I   L24
1393 011561  1370          TAD     CM212
1394 011562  7640          SZA CLA         /IS CHAR A LINE FEED?
1395 011563  5355          JMP     DMPLIN+1        /NO
1396 011564  7201          CLA IAC
1397 011565  3024          DCA     L24     /RESET POINTER
1398 011566  3012          DCA     L12     /ZERO CONTENTS FLAG
1399 011567  5754          JMP I   DMPLIN  /RETURN
1400 011570  7566  CM212,  -212
1401 011571  7700  CC7700, 7700
1402                      *1600
1403 011600  1336  TESTE,  TAD     C7773   /IS IT E
1404 011601  7440          SZA
1405 011602  5240          JMP     COP     /NO, GO PUT IT BACK AND PROCESS
1406               /       HERE IF EXPONENT FOLLOWES
1407 011603  3037          DCA     L37     /IT WAS AN E
1408               / THIS ROUTINE IS TO PROCESS THE EXPONENT THAT FOLLOWES THE -E- THAT WE
1409               /
1410 011604  2102          ISZ     FPSW    /MAKE SURE THE FLOATING POINT SWITCH WAS KICKED
1411 011605  4522          JMS I   GETCH   /GET ANOTHER CHAR
1412 011606  5254          JMP     ERR12   /ALPHA  , CANT BE-- SO LONG, ITS BEEN NICE
1413 011607  7410          SKP             /PUNCT
1414 011610  5224          JMP     CD      /DIGIT, GO PROCESS IT
1415 011611  1337          TAD     X7725   /IS IT PULS SIGN
1416 011612  7450          SNA
1417 011613  5221          JMP     CF      /YES, IGNOR IT
1418 011614  1163          TAD     CM2
1419 011615  7440          SZA             /IS IT MINUS
1420 011616  5240          JMP     COP     /NO, GO PROCESS THE FLOATING POINT NUMBER
1421 011617  7240          CLA CMA
1422 011620  3101          DCA     ESIGN   /YES- REMEMBER THAT THE EXPONENT WAS MINUS
1423 011621  4522  CF,     JMS I   GETCH   /GET ANOTHER CHAR
1424 011622  5240          JMP     COP     /ALPHA, ALL READY TO PROCESS
1425 011623  5240          JMP     COP     /PUNCTUATION, READY TO PROCESS
1426 011624  0340  CD,     AND     X17     /DIGIT
1427 011625  3036          DCA     L36     /SAVE IT IN 36 AND..
1428 011626  1037          TAD     L37     /MULTIPLY THE - EXPONENT TO DATE- BY 10
1429 011627  7104          RAL CLL
1430 011630  3037          DCA     L37
1431 011631  1037          TAD     L37
1432 011632  7104          RAL CLL
1433 011633  7104          RAL CLL
1434 011634  1037          TAD     L37
1435 011635  1036          TAD     L36     /AND ADD IN THIS DIGIT I.E. 37C10*
1436 011636  3037          DCA     L37     / L37 = 10 * L37 + L36
1437 011637  5221          JMP     CF      /GO DO IT AGAIN
1438 011640  4515  COP,    JMS I   PUTCH
1439 011641  7300          CLA CLL         /PROCESS THIS NUMBER
1440 011642  1102          TAD     FPSW    /IS IT AN INTEGER
1441 011643  7640          SZA CLA
1442 011644  5257          JMP     CH      /NO, MUST BE FLOATING POINT
1443               /       INTEGER IS IN ACC
1444 011645  1030          TAD     L30     /YESS
1445 011646  7450          SNA             /MAKE SURE INTEGER IS VALID
1446 011647  1031          TAD     L31
1447 011650  7640          SZA CLA
1448 011651  5254          JMP     ERR12
1449 011652  1032          TAD     L32
1450 011653  7710          SPA CLA
1451 011654  4523  ERR12,  JMS I    LUNCH   /TOO BIG
1452 011655  5656          JMP I   .+1     /TAKE INTEGER RETURN WITH INTEGER IN 32
1453 011656  1402          XIRET
1454 011657  1037  CH,     TAD     L37     /WAS THIS AN E-CONVERSION NUMBER
1455 011660  2101          ISZ     ESIGN   /EXPONENT POSITIVE?
1456 011661  7041          CIA             /YES
1457 011662  1100          TAD     COUNT2  /ADD POST-DECIMAL COUNTER
1458 011663  7100          CLL
1459 011664  7450          SNA
1460 011665  5301          JMP     CM      /NOTHING TO DO
1461 011666  7500          SMA             /DETERMINE WHETHER TO
1462 011667  7061          CML CIA         /MULTIPLY OR DIVIDE
1463 011670  3100          DCA     COUNT2
1464 011671  7004          RAL
1465 011672  1303          TAD     CJ
1466 011673  3275          DCA     CK
1467 011674  4306          JMS     XFLOAT  /SET UP THE NUMBER
1468 011675  7402  CK,     HLT             /JMP I (MULT OR JMP I (DIVIDE
1469 011676  2100          ISZ     COUNT2
1470 011677  5275          JMP     CK      /LOOP ON COUNT
1471 011700  5742          JMP I   LPOLIS  /FINISH UP
1472               
1473 011701  4306  CM,     JMS     XFLOAT
1474 011702  5742          JMP I   LPOLIS
1475 011703  4704  CJ,     JMS I   .+1
1476 011704  2056          MULT
1477 011705  2073          DIVIDE
1478               
1479               / THIS ROUTINE CONVERTS THE NUMBER TO FLOATING POINT
1480 011706  0000  XFLOAT, 0
1481 011707  7300          CLA CLL
1482 011710  1032          TAD     L32     /CHECK IF THE ACCUMULATED NUMBER IS ZERO
1483 011711  7450          SNA
1484 011712  1031          TAD     L31
1485 011713  7450          SNA
1486 011714  1030          TAD     L30
1487 011715  7650          SNA CLA
1488 011716  5743          JMP I   LFRET   /IT WAS ZERO SEND A FLOATING POINT ZERO BACK--
1489 011717  1344          TAD     C2440   /IT IS NOT ZERO--SET THE EXPON TO 36 BASE 10
1490 011720  3037          DCA     L37
1491 011721  4323          JMS     NORMAL  /GO TO THE NORMALIZE ROUTINE
1492 011722  5706          JMP I   XFLOAT  /AT THIS POINT THE MANTISA AND EXPON ARE SEPERA
1493               /       ALSO NOTICE THAT WE HAVE 36 BINARY DIGITS I E THE WHOLE 3 WORDS ARE U
1494               /       NORMAL IZATION OF A F P NUMBER
1495 011723  0000  NORMAL, 0
1496 011724  1030  DA,     TAD     L30     /WE MUST SHIFT UNTIL THE HIGH ORDER WORD GOES N
1497 011725  7710          SPA CLA
1498 011726  5723          JMP I   NORMAL  /IT IS NEG.,    ALL DONE
1499 011727  4745          JMS I   LLSHIF  /GO DO A TRIPLE PRECISION LEFT SHIFT
1500 011730  1037          TAD     L37     /AND SUBTRACT ONE FROM THE EXPONENT
1501 011731  1341          TAD     C7770   /NOTE-- THE 3 LOW ORDER BITS ARE NOT USED
1502 011732  7510          SPA             /IF THIS DOESNT SKIP WE HAVE F P OVERFLOW
1503 011733  5254          JMP     ERR12   /BY-BY  NUMBER TOO LARGE FOR THE MACHINE
1504 011734  3037          DCA     L37
1505 011735  5324          JMP     DA
1506               / THE FOLLOWING ROUTINE SAVES THE ACC IN THE MQ
1507 011736  7773  C7773,  7773
1508 011737  7725  X7725,  7725
1509 011740  0017  X17,    17
1510 011741  7770  C7770,  7770
1511 011742  2134  LPOLIS, POLISH
1512 011743  1401  LFRET,  FRET
1513 011744  2440  C2440,  2440
1514 011745  2010  LLSHIF, LSHIFT
1515               
1516 011746  6211  SCODE,  CDF 10          /SHIFT S-CODE 2 COLS. LEFT
1517 011747  1777          TAD I   (TEM1
1518 011750  6201          CDF 0
1519 011751  3367          DCA     SLOC1
1520 011752  1367          TAD     SLOC1
1521 011753  7001          IAC
1522 011754  3370          DCA     SLOC2
1523 011755  2061          ISZ     L61     /SET COMMENT FLAG
1524 011756  1770  SCODL,  TAD I   SLOC2
1525 011757  3767          DCA I   SLOC1
1526 011760  1770          TAD I   SLOC2
1527 011761  0155          AND     C77
1528 011762  7650          SNA CLA         /END OF LINE?
1529 011763  5776          JMP I   (STORSL+2
1530 011764  2367          ISZ     SLOC1
1531 011765  2370          ISZ     SLOC2
1532 011766  5356          JMP     SCODL   /AND CONTINUE PROCESS
1533               
1534 011767  0000  SLOC1,  0
1535 011770  0000  SLOC2,  0
1536 011776  0475         *2000
     011777  0554  
1537 012000  0000  XSAVE,  0               /-- THE F.P. AC IS IN LOCS 30-32
1538 012001  1030          TAD     L30     /-- THE "MQ" IS IN LOCS 33-35
1539 012002  3033          DCA     L33     /---THE EXPONENT IS IN LOCS 37
1540 012003  1031          TAD     L31
1541 012004  3034          DCA     L34
1542 012005  1032          TAD     L32
1543 012006  3035          DCA     L35
1544 012007  5600          JMP I   XSAVE
1545               / SHIFTS THE PSEUDO-ACC LEFT ONE PLACE
1546 012010  0000  LSHIFT, 0
1547 012011  7300          CLA CLL
1548 012012  1032          TAD     L32
1549 012013  7004          RAL
1550 012014  3032          DCA     L32
1551 012015  1031          TAD     L31
1552 012016  7004          RAL
1553 012017  3031          DCA     L31
1554 012020  1030          TAD     L30
1555 012021  7004          RAL
1556 012022  3030          DCA     L30
1557 012023  5610          JMP I   LSHIFT
1558               / THE FOLLOWING ROUTINE ADDS THE MQ TO THE ACC
1559 012024  0000  ADD,    0
1560 012025  7300          CLA CLL
1561 012026  1032          TAD     L32
1562 012027  1035          TAD     L35
1563 012030  3032          DCA     L32
1564 012031  7004          RAL
1565 012032  1031          TAD     L31
1566 012033  1034          TAD     L34
1567 012034  3031          DCA     L31
1568 012035  7004          RAL
1569 012036  1030          TAD     L30
1570 012037  1033          TAD     L33
1571 012040  3030          DCA     L30
1572 012041  5624          JMP I   ADD
1573               / THE FOLLOWING ROUTINE SHIFTS THE ACC RIGHT ONE PLACE
1574 012042  0000  RSHIFT, 0
1575 012043  7300          CLA CLL
1576 012044  1030          TAD     L30
1577 012045  7010          RAR
1578 012046  3030          DCA     L30
1579 012047  1031          TAD     L31
1580 012050  7010          RAR
1581 012051  3031          DCA     L31
1582 012052  1032          TAD     L32
1583 012053  7010          RAR
1584 012054  3032          DCA     L32
1585 012055  5642          JMP I   RSHIFT
1586               /
1587               /
1588 012056  0000  MULT,   0               /ACCCACC*10 MQ
1589 012057  4242          JMS     RSHIFT
1590 012060  4200          JMS     XSAVE
1591 012061  4242          JMS     RSHIFT
1592 012062  4242          JMS     RSHIFT
1593 012063  4224          JMS     ADD     /THIS FINISHES THE MULT BY 10
1594 012064  1037          TAD     L37     /NOW DIDDLE THE EXPONENT
1595 012065  1153          TAD     C40
1596 012066  7510          SPA             /OVERFLOW TEST
1597 012067  4523  ERR14,  JMS I   LUNCH   /FLOATING POINT OVERFLOW
1598 012070  3037          DCA     L37
1599 012071  4765          JMS I   LNRMAL  /MAKE SURE THE F P NUMBER IS STILL IN NORMAL FO
1600 012072  5656          JMP I   MULT
1601 012073  0000  DIVIDE, 0               /DIVIDE THE F P NUMBER BY 10
1602 012074  4242          JMS     RSHIFT  /BASED ON THE FACT THAT .1 BASE 10 C .000110011
1603 012075  4200          JMS     XSAVE   /THAT IS WE MULTIPLE BY ONE TENTH
1604 012076  1366          TAD     C7766   /THIS IS A COUNTER**********************
1605 012077  3317          DCA     ZCTR
1606 012100  4242  DB,     JMS     RSHIFT
1607 012101  4224          JMS     ADD
1608 012102  2317          ISZ     ZCTR
1609 012103  7410          SKP
1610 012104  5312          JMP     DC
1611 012105  4242          JMS     RSHIFT
1612 012106  4242          JMS     RSHIFT
1613 012107  4242          JMS     RSHIFT
1614 012110  4224          JMS     ADD
1615 012111  5300          JMP     DB
1616 012112  1037  DC,     TAD     L37
1617 012113  1367          TAD     C7750   /********INSERT HERE THE CONSTANT************
1618 012114  3037          DCA     L37     /WE HAVE JUST DIDDLED THE EXPONENT BY THE PROP 
1619 012115  4765          JMS I   LNRMAL  /MAKE SURE IT IS STILL NORMALIZ D
1620 012116  5673          JMP I   DIVIDE
1621 012117  0000  ZCTR,   0
1622 012120  0000  MUL10,  0               /THIS MULTIPLIES THE TRIPLE PREC. INTEGER INT E
1623 012121  4210          JMS     LSHIFT  /BY 10
1624 012122  4200          JMS     XSAVE
1625 012123  4210          JMS     LSHIFT
1626 012124  4210          JMS     LSHIFT
1627 012125  4224          JMS     ADD
1628 012126  1036          TAD     L36     /NOW CRAM THE DIGIT THAT WE WANT TO ADD INTO TH
1629 012127  3035          DCA     L35     /*
1630 012130  3034          DCA     L34
1631 012131  3033          DCA     L33
1632 012132  4224          JMS     ADD     /AND ADD IT TO THE ACC
1633 012133  5720          JMP I   MUL10   /IN OTHER WORDS ACCCACC*10 DIGIT
1634 012134  7300  POLISH, CLA CLL         /THIS TAKES THE SEPARATE MANTISSA AND EXP--ENT.
1635 012135  1370          TAD     C400    /AND PUTS THEM INTO 7090 FORM.  THIS IS THE R-U
1636 012136  3035          DCA     L35     /27 DIGITS
1637 012137  3034          DCA     L34     /ROUND FACTOR IS CRAMED INTO THE MQ
1638 012140  3033          DCA     L33
1639 012141  4224          JMS     ADD     /AND ADDED TO THE INTEGER IN THE ACC
1640 012142  7420          SNL             /IF THE LINK IS ON, WE OVERFLEW ON THE CARRY
1641 012143  5353          JMP     POLSH   /WE DIDNT
1642 012144  1174          TAD     C4000   /SET THE ACC TO .1000000000     (THE REST OF IT IS
1643 012145  3030          DCA     L30
1644 012146  1037          TAD     L37     /DIDDLE THE EXPONENT BY ONE. THIS IS A FINKIE N
1645 012147  1371          TAD     J10
1646 012150  7450          SNA
1647 012151  5267          JMP     ERR14   /EXPONENT OVERFLOW ...
1648 012152  3037          DCA     L37
1649 012153  1372  POLSH,  TAD     C7767   /NOW SHIFT THE ENTIRE ACC RIGHT 9 TIMES
1650 012154  3317          DCA     ZCTR    /( THATS SO WE WILL HAVE ROOM TO STICK IN THE E
1651 012155  4242  HOOP,   JMS     RSHIFT
1652 012156  2317          ISZ     ZCTR
1653 012157  5355          JMP     HOOP
1654 012160  1037          TAD     L37     /CRAM THE EXP
1655 012161  1030          TAD     L30     /INTO THE ACC
1656 012162  3030          DCA     L30     /AND VOILA, WE ARE DONE. GO TAKE THE FPOINT EX
1657 012163  5764          JMP I   .+1
1658 012164  1401          FRET
1659 012165  1723  LNRMAL, NORMAL
1660 012166  7766  C7766,  7766
1661 012167  7750  C7750,  7750
1662 012170  0400  C400,   400
1663 012171  0010  J10,    10
1664 012172  7767  C7767,  7767
1665                      *2200
1666               /       THE FOLLOWING ROUTINE LOOKS FOR A STATEMENT NUMBER
1667 012200  0000  LSTMT,  0
1668 012201  4641          JMS I   CLEAR   /CLEAR THE PSEUDO ACC AND MQ
1669 012202  1154          TAD     C7240   /DON'T LET LGTC GET ANOTHER LINE YET(CHK MUST BE NEG., BUT NOT 4000!!)
1670 012203  3111          DCA     CHK
1671 012204  7001          IAC
1672 012205  3113          DCA     KOUNT
1673 012206  4642  LABEL,  JMS I   GTCL    /GET A CHARACTER
1674 012207  7450          SNA             /IS THIS A CAR RET?
1675 012210  4523  ERR15,  JMS I   LUNCH   /YES, INCOMPLETE STATEMENT
1676 012211  1156          TAD     CM40
1677 012212  7450          SNA             /SPACE?
1678 012213  5223          JMP     SPACE
1679 012214  1244          TAD     CM32
1680 012215  7100          CLL
1681 012216  1246          TAD     C12
1682 012217  7420          SNL             / 260 <= CHAR < 272 ?
1683 012220  4523  ERR16,  JMS I   LUNCH
1684 012221  3036          DCA     L36     /SAVE THIS DIGIT...
1685 012222  4643          JMS I   MULT10  / ACC = 10 * ACC + L36
1686 012223  1113  SPACE,  TAD     KOUNT
1687 012224  1245          TAD     DM6
1688 012225  7710          SPA CLA         /END OF STMT NR FIELD?
1689 012226  5206          JMP     LABEL   /NOT YET...
1690 012227  4642          JMS I   GTCL    /SKIP OVER COL 6
1691 012230  7650          SNA CLA         /IS IT A CAR RET?
1692 012231  5210          JMP     ERR15
1693 012232  1031          TAD     L31     /SEE IF STMT NR IS LEGAL...
1694 012233  7440          SZA
1695 012234  5220          JMP     ERR16
1696 012235  1032          TAD     L32
1697 012236  7710          SPA CLA         /IS STMT NR < 2048 ?
1698 012237  5220          JMP     ERR16   /NO, STMT NR TOO BIG
1699 012240  5600          JMP I   LSTMT
1700 012241  4743  CLEAR,  LCLEAR
1701 012242  0730  GTCL,   LGTC
1702 012243  2120  MULT10, MUL10
1703 012244  7746  CM32,   -32
1704 012245  7772  DM6,    -6
1705 012246  0012  C12,    12
1706               /
1707               /       SUBROUTINEE TO PRINT A SYMBOL
1708               /
1709               /       JMS I   PRSYM
1710               /
1711 012247  0000  LPRSYM, 0               /THIS ROUTINE PRINTS SYMBOLS
1712 012250  3366          DCA     LCH
1713 012251  1366          TAD     LCH
1714 012252  7500          SMA             /IS IT AN INTEGER CONSTANT
1715 012253  5325          JMP     ICON    /YES PROCESS IT
1716 012254  7006          RTL             /SHIFT THE NEXT BIT INTO THE LINK
1717 012255  7420          SNL             /IS IT A TEMPORARY
1718 012256  5333          JMP     TEMPO   /ITS A TEMPORARY
1719 012257  7012          RTR             /RESTORE THE SYMBOL
1720 012260  7041          CIA             /SET IT NEGATIVE
1721 012261  1047          TAD     L47     /SUBTRACT THE BEGINNING OF THE XFCON TABLE
1722 012262  7710          SPA CLA         /DO WE HAVE AN FCON
1723 012263  5353          JMP     XFCON   /YES PROCESS IT
1724 012264  1366          TAD     LCH
1725 012265  1151          TAD     C2      /ADD TWO TO THE SYMBOL TABLE POINTER
1726 012266  3307          DCA     LP2     /AND SAVE IT
1727 012267  1707          TAD I   LP2     /GET THE CONTROL BITS FOR THE SYMBOL
1728 012270  7010          RAR             /GET EXTERNAL SUBROUTINE BIT IN LINK
1729 012271  7630          SZL CLA         /IS THIS AN EXTERNAL SUBROUTINE
1730 012272  5275          JMP     SKPIT   /YES...DONT PUT OUT THE BACK SLASH
1731 012273  1364          TAD     C34
1732 012274  4520          JMS I   PRINT
1733 012275  1766  SKPIT,  TAD I   LCH
1734 012276  4307          JMS     LP2     /PRINT THEM
1735 012277  2366          ISZ     LCH
1736 012300  1766          TAD I   LCH
1737 012301  4307          JMS     LP2     /AND PRINT THEM
1738 012302  2366          ISZ     LCH
1739 012303  1766          TAD I   LCH
1740 012304  0365          AND     X7700   /MASK SO WE DONT PUT OUT CONTROL BITS
1741 012305  4307          JMS     LP2     /AND PRINT IT
1742 012306  5647          JMP I   LPRSYM  /NOW RETURN
1743 012307  0000  LP2,    0               /THIS IS THE ROUTINE THAT PRINTS TWO CHARACTERS
1744 012310  3367          DCA     UNCH    /SAVE THE CHARS
1745 012311  1367          TAD     UNCH    /GET THEM AGAIN
1746 012312  7012          RTR             /ROTAT FIRST CHAR INTO POSITION
1747 012313  7012          RTR
1748 012314  7012          RTR
1749 012315  0155          AND     C77     /MASK SECOND CHARACTER
1750 012316  7440          SZA             /IS IT AN ACTUAL CHARACTER
1751 012317  4520          JMS I   PRINT   /YES PRINT IT
1752 012320  1367          TAD     UNCH    /GET THE TWO CHARS AGAIN
1753 012321  0155          AND     C77     /MASK OUT FIRST CHARACTER
1754 012322  7440          SZA             /IS IT ACTUALLY A CHARACTER
1755 012323  4520          JMS I   PRINT   /YES PRINT IT
1756 012324  5707          JMP I   LP2     /AND RETURN
1757 012325  7200  ICON,   CLA             /INTEGER CONSTANT, PUNCH A '('
1758 012326  1363          TAD     K50
1759 012327  4520          JMS I   PRINT
1760 012330  1366          TAD     LCH     /AND THE NUMBER
1761 012331  4534  PROCT,  JMS I   PROTAC
1762 012332  5647          JMP I   LPRSYM  /RETURN
1763 012333  7006  TEMPO,  RTL
1764 012334  7710          SPA CLA         /SUBSCRIPT TEMPORARY?
1765 012335  5346          JMP     SBSCR
1766 012336  7006          RTL
1767 012337  1361          TAD     D33     /PUNCH '[' FOR INTEGER AND ']' FOR FLOATING PT
1768 012340  4520          JMS I   PRINT   /AND PRINT IT
1769 012341  1366          TAD     LCH
1770 012342  7510          SPA             /DO WE STILL HAVE A TEMPORARY
1771 012343  4771          JMS I   TEMPOR  /YES GET THE TEMPORARY NUMBER
1772 012344  4520          JMS I   PRINT   /AND PRINT IT
1773 012345  5647          JMP I   LPRSYM  /RETURN
1774 012346  1361  SBSCR,  TAD     D33     /SUBSCRIPT TEMPORARY, PUNCH A '['
1775 012347  4520          JMS I   PRINT
1776 012350  1366          TAD     LCH
1777 012351  4770          JMS I   SUBTEM  /AND 4 DIGITS
1778 012352  5331          JMP     PROCT
1779 012353  1362  XFCON,  TAD     C35     /FLOATING POINT CONSTANT...
1780 012354  4520          JMS I   PRINT   /PUNCH A ']'
1781 012355  1366          TAD     LCH
1782 012356  7041          CIA
1783 012357  1050          TAD     L50     /SUBTRACT FROM END OF TABLE
1784 012360  5331          JMP     PROCT
1785 012361  0033  D33,    33
1786 012362  0035  C35,    35
1787 012363  0050  K50,    50
1788 012364  0034  C34,    34
1789 012365  7700  X7700,  7700
1790 012366  0000  LCH,    0
1791 012367  0000  UNCH,   0
1792 012370  6471  SUBTEM, LSBTEM
1793 012371  4423  TEMPOR, LTMPOR
1794                      *2400
1795               /
1796               /       SUBROUNTINE TO DO SYMBOL TABLE MANIPULATIONS
1797               /
1798 012400  0300  C300,   300
1799 012401  0212  C212,   212
1800 012402  0215  C215,   215
1801 012403  0000  SCOUNT, 0               /CURRENT NUMBER OF SYMBOLS
1802 012404  0000  XCTR,   0               /COUNTER
1803 012405  0000  FCOUNT, 0               /CURRENT NUMBER OF FCONS
1804 012406  0000  LSYMTB, 0
1805 012407  7200          CLA             /CLEAR THE AC
1806 012410  1056  LOOP1,  TAD     L56     /GET BEGINNING OF SYMBOL TABLE
1807 012411  3351          DCA     LSYMTM  /AND SAVE IN TABLE
1808 012412  1203          TAD     SCOUNT  /GET NUMBER OF SYMBOLS CURRENTLY
1809 012413  7040          CMA
1810 012414  3204          DCA     XCTR    /USE AS A COUNTER
1811 012415  1334          TAD     C7700   /GIVE SEARCH A MASK TO USE ON LAST SYMBOL
1812 012416  4265          JMS     SEARCH  /LOOK FOR OCCURRENCE OF SYMBOL IN TABLE
1813 012417  5227          JMP     ZCHECK  /SYMBOL IS IN TABLE CHECK IT
1814 012420  1057          TAD     L57     /TELL ENTER WHERE TO PUT THE SYMBOL
1815 012421  4327          JMS     ENTER   /ENTER THE SYMBOL
1816 012422  1152          TAD     C3      /UPDATE THE POINTER
1817 012423  3057          DCA     L57     /AND SAVE IT
1818 012424  3021          DCA     L21     /ZERO SWITCH SINCE SYMBOL JUST LOADED
1819 012425  2203          ISZ     SCOUNT  /UPDATE COUNT OF SYMBOLS
1820 012426  5210          JMP     LOOP1   /GO BACK AND CHECK IT
1821 012427  1077  ZCHECK, TAD     L77     /GET POINTER INTO SYMBOL TABLE
1822 012430  1151          TAD     C2      /MOVE TO LAST WORD
1823 012431  3351          DCA     LSYMTM  /SAVE IT
1824 012432  1751          TAD I   LSYMTM  /GET THE CONTROL BITS
1825 012433  0021          AND     L21     /AND THE MASK
1826 012434  7640          SZA CLA         /ARE ANY ILLEGAL BITS ON
1827 012435  4523  ERR54,  JMS I   LUNCH   /ERROR 54 ... PROBABLY IN EQUIVALENCING ...
1828 012436  1032          TAD     L32     /NOW OR IN NEW BITS
1829 012437  7040          CMA
1830 012440  0751          AND I   LSYMTM
1831 012441  1032          TAD     L32
1832 012442  3751          DCA I   LSYMTM
1833 012443  5606          JMP I   LSYMTB  /RETURN
1834               /       FLOATING CONSTANT IS IN 30 THRU 32
1835 012444  0000  LFCON,  0
1836 012445  7200          CLA
1837 012446  1047  MLOOP,  TAD     L47     /GET BEGINNING OF FCON TABLE
1838 012447  1152          TAD     C3      /MOVE TO ACTUAL START OF TABLE
1839 012450  3351          DCA     LSYMTM  /AND SAVE
1840 012451  1205          TAD     FCOUNT  /GET NUMBER OF FCONS SO FAR
1841 012452  7040          CMA
1842 012453  3204          DCA     XCTR    /AND USE FOR A COUNTER
1843 012454  7040          CMA             /GIVE SEARCH A MASK FOR THE LAST WORD
1844 012455  4265          JMS     SEARCH  /SEARCH THE TABLE FOR THE CURRENT FCON
1845 012456  5644          JMP I   LFCON   /ITS ALREADY IN THERE JUST RETURN
1846 012457  1047          TAD     L47     /TELL ENTER WHERE TO PUT THE FCON
1847 012460  4327          JMS     ENTER   /ENTER THE FCON
1848 012461  1164          TAD     CM3     /AND UPDATE IT
1849 012462  3047          DCA     L47     /AND SAVE
1850 012463  2205          ISZ     FCOUNT  /UPDATE NUMBER OF FCONS
1851 012464  5246          JMP     MLOOP   /GO BACK AND CHECK
1852               /       THIS IS THE ROUTINE THAT SEARCHES THE TABLES FOR
1853               /       OCCURRENCES OF THE CURRENT SYMBOL OR FCON
1854 012465  0000  SEARCH, 0
1855 012466  3327          DCA     ENTER   /SAVE THE MASK
1856 012467  2204  MBACK,  ISZ     XCTR    /SEE IF WE HAVE PROCESSED ALL SYMBOLS
1857 012470  7410          SKP             /NO GO ON
1858 012471  5322          JMP     QRET    /YES
1859 012472  1751          TAD I   LSYMTM  /GET FIRST WORD OF SYMBOL
1860 012473  7041          CIA             /NEGATE
1861 012474  1030          TAD     L30     /SUBTRACT FIRST WORD OF CURRENT SYMBOL
1862 012475  2351          ISZ     LSYMTM  /INCREMENT POINTER
1863 012476  7640          SZA CLA         /DO THEY MATCH
1864 012477  5324          JMP     I1      /NO GO TO NEXT SYMBOL
1865 012500  1751          TAD I   LSYMTM  /YES GET SECOND WORD OF SYMBOL
1866 012501  7041          CIA
1867 012502  1031          TAD     L31     /SUBTRACT SECOND WORD OF CURRENT SYMBOL
1868 012503  2351          ISZ     LSYMTM  /ADVANCE POINTER
1869 012504  7640          SZA CLA         /DO THEY MATCH
1870 012505  5325          JMP     I2      /NO GO TO NEXT SYMBOL
1871 012506  1751          TAD I   LSYMTM  /SEE IF NEXT WORD MATCHES
1872 012507  0327          AND     ENTER   /MASK OUT DESIRED PORTIONS
1873 012510  7041          CIA
1874 012511  1032          TAD     L32     /SUBTRACT THIRD CURRENT WORD
1875 012512  0327          AND     ENTER   /K AGAIN
1876 012513  2351          ISZ     LSYMTM  /ADVANCE POINTER
1877 012514  7640          SZA CLA         /DO THEY MATCH
1878 012515  5267          JMP     MBACK   /NO GO TO NEXT SYMBOL
1879 012516  1351          TAD     LSYMTM  /YES
1880 012517  1164          TAD     CM3     /MOVE BACK POINTYER
1881 012520  3077          DCA     L77     /PUT POINTER IN PAGE ZERO
1882 012521  5665          JMP I   SEARCH  /RETURN
1883 012522  2265  QRET,   ISZ     SEARCH  /SET UP RETURN FOR      NOT FOUND
1884 012523  5665          JMP I   SEARCH  /RETURN
1885 012524  2351  I1,     ISZ     LSYMTM  /ADVANCE POINTER
1886 012525  2351  I2,     ISZ     LSYMTM  /ADVANCE PIINTER
1887 012526  5267          JMP     MBACK   /GO TO NEXT SYMBOL
1888               /       THIS ROUTINE ENTERS THE CURRENT SYMBOL INTO THE TABLE SPECIFIED
1889 012527  0000  ENTER,  0
1890 012530  3351          DCA     LSYMTM  /SAVE ADDRESS
1891 012531  1047          TAD     L47     /GET BEGINNING OF FCON TABLE
1892 012532  7040          CMA
1893 012533  1057          TAD     L57     /SUBTRACT END OF SYMBOL TABLE
1894 012534  7700  C7700,  SMA CLA         /IS THERE ROOM FOR ANOTHER SYMBOL OR FCON
1895 012535  4523  ERR17,  JMS I   LUNCH   /NO
1896 012536  1030          TAD     L30     /YES GEYT FIRST WORD
1897 012537  3751          DCA I   LSYMTM  /STORE IT
1898 012540  1351          TAD     LSYMTM
1899 012541  3011          DCA     L11     /SET UP AUTO - XR
1900 012542  1031          TAD     L31
1901 012543  3411          DCA I   L11
1902 012544  1032          TAD     L32
1903 012545  3411          DCA I   L11
1904 012546  1351          TAD     LSYMTM  /GET THE ADDRESS BACK INTO THE AC
1905 012547  5727          JMP I   ENTER   /AND RETURN
1906 012550  1554  DUMPLN, DMPLIN
1907               LSYMTM=.
1908 012551  0000  LPRINT, 0               / CONVERTS FROM TRIMMED TO EIGHT BIT ASCII
1909 012552  3244          DCA     LFCON   /SAVE THE CHARACTER
1910 012553  1075          TAD     L75     /S GET THE SUPPRESS PRINTING WITCH
1911 012554  7640          SZA CLA
1912 012555  5751          JMP I   LPRINT
1913 012556  2024          ISZ     L24     /IS THIS A NEW LINE?
1914 012557  7410          SKP             /NO
1915 012560  4750          JMS I   DUMPLN  /YES - DUMP THE OLD ONE FIRST
1916 012561  1244          TAD     LFCON   /NO...GET THE CHARACTER
1917 012562  7450          SNA             /IS IT A CR
1918 012563  5373          JMP     CRLF    /YES...PUT OUT CRLF
1919 012564  0153          AND     C40     /CHECK BIT SIX
1920 012565  7104          CLL RAL
1921 012566  7041          CIA             /AC CONTAINS 0 OR -100
1922 012567  1200          TAD     C300    /NOW CONTAINS 300 OR 200
1923 012570  1244          TAD     LFCON   /NOW ADD THE CHARACTER IN
1924 012571  3424  PRIT,  DCA I   L24     /AND STORE IT IN THE BUFFER
1925 012572  5751          JMP I   LPRINT
1926 012573  1202  CRLF,   TAD     C215    /GET AN EIGHT BIT CR
1927 012574  3424          DCA I   L24     /STORE IT IN THE BUFFER
1928 012575  2024          ISZ     L24
1929 012576  1201          TAD     C212
1930 012577  3424          DCA I   L24     /STORE A LINE FEED TOO
1931 012600  7240          CLA CMA
1932 012601  3024          DCA     L24     /SET SWITCH TO DUMP LINE ON NEXT CHAR
1933 012602  5603          JMP I   .+1
1934 012603  2572          PRIT+1
1935 012604  7200  LCOMON, CLA
1936 012605  4525          JMS I   LOOK    /CHECK REST OF STATEMENT NAME
1937 012606  7776                  -2      /TWO CHARACTERS
1938 012607  7761                  -17     /O
1939 012610  7762                  -16     /N
1940 012611  4527  GETVAR, JMS I   ENTITY  /GET A VARIABLE
1941 012612  7410          SKP             /NOT A VARIZBLE
1942 012613  5217          JMP     VARI    /WE GOT A VARIABLE
1943 012614  7000          NOP
1944 012615  0020  B20,    20
1945 012616  4523  ERR18,  JMS I   LUNCH   /ERROR
1946 012617  1153  VARI,   TAD     C40
1947 012620  1032          TAD     L32     /PUT IN COMMON BIT
1948 012621  3032          DCA     L32
1949 012622  1227          TAD     K37     /GET MASK FOR SYMBOL TABLE SWITCH
1950 012623  3021          DCA     L21     /PUT IN THE SWITCH
1951 012624  4530          JMS I   SYMTAB  /PUT SYMBOL IN TABLE
1952 012625  4527          JMS I   ENTITY  /LOOK FOR A COMMA
1953 012626  5177          JMP     START   /THAT'S ALL GOT A CR-LF...
1954 012627  0037  K37,    37
1955 012630  0027  K27,    27
1956 012631  5234          JMP     .+3     /ERROR
1957 012632  1162          TAD     CM54    /CHECK FOR COMMA
1958 012633  7640          SZA CLA         /IS IT A COMMA
1959 012634  5216          JMP     ERR18   /NO...ERROR
1960 012635  5211          JMP     GETVAR  /GET ANOTHER VARIABLE
1961 012636  4525  LDIMEN, JMS I   LOOK    /LOOK FOR REST OF STATEMENT
1962 012637  7773                  -5      /FIVE CHARS
1963 012640  7762                  -16     /N
1964 012641  7755                  -23     /S
1965 012642  7767                  -11     /I
1966 012643  7761                  -17     /O
1967 012644  7762                  -16     /N
1968 012645  7240  QAGAIN, CLA CMA         /-U
1969 012646  3365          DCA     REDY    /SET SWITH FOR VARIABLE
1970 012647  4527  QGET,   JMS I   ENTITY  /GET WHATEVER IS NEXT IN LINE
1971 012650  5357          JMP     QDONE   /IT EAS A CR
1972 012651  5255          JMP     .+4     /IT WAS A VARIABLE
1973 012652  5312          JMP     ASUBSC  /IT WAS ONE OF THE SUBSCRIPTS
1974 012653  5216          JMP     ERR18   /WE BETTER NOT GET ANY FP NUMBERS
1975 012654  5275          JMP     QPUNC   /IT WAS A PUNCTION
1976 012655  2365          ISZ     REDY
1977 012656  5216          JMP     ERR18   /WE WERENT READY FOR A VAR
1978 012657  1215          TAD     B20
1979 012660  1032          TAD     L32
1980 012661  3032          DCA     L32
1981 012662  1230          TAD     K27     /GET THE MASK FOR THE SYMBOL TABLE
1982 012663  3021          DCA     L21     /PUT IN THE SWITCH
1983 012664  4530          JMS I   SYMTAB  /PUT SYMBOL IN TABLE
1984 012665  7240          CMA CLA
1985 012666  1047          TAD     L47     /GET BEGINNING OF TABLE
1986 012667  3016          DCA     L16
1987 012670  1077          TAD     L77     /GET TABLE ADDRESS
1988 012671  3416          DCA I   L16
1989 012672  7240          CLA CMA
1990 012673  3366          DCA     V       /SET WITCH TO SAY WEVE GOTTEN A VAR
1991 012674  5247          JMP     QGET    /GET NEXT THING
1992 012675  1162  QPUNC,  TAD     CM54
1993 012676  7450          SNA             /IS IT A COMMA
1994 012677  5321          JMP     COMMA   /YES
1995 012700  1152          TAD     C3
1996 012701  7450          SNA
1997 012702  5335          JMP     QRPAR   /RIGHT PAREN
1998 012703  7001          IAC
1999 012704  7450          SNA             /IS IT A LEFT PAREN
2000 012705  2366          ISZ     V       /PRECEDED BY A VAR
2001 012706  5216          JMP     ERR18   /NO - ERROR
2002 012707  7240          CLA CMA
2003 012710  3367          DCA     XLP     /SET SWITCH TO SHOW LPAR
2004 012711  5247          JMP     QGET
2005 012712  2367  ASUBSC, ISZ     XLP     /DID WE JUST GET LPAR
2006 012713  5326          JMP     SECOND  /NO...BETTER BE SECOND SUBSC
2007 012714  1032          TAD     L32     /GET INTEGER
2008 012715  3416          DCA I   L16     /PUT IN DIMTAB
2009 012716  7240          CMA CLA
2010 012717  3362          DCA     QONE    /SET SWITCH TO SHOW WE HAVE ONE SUBSC
2011 012720  5247          JMP     QGET
2012 012721  2362  COMMA,  ISZ     QONE    /DOES THIS COMMA SEPARATE SUBSCS
2013 012722  5354          JMP     RIGHT   /NO...LAST CHAR BETTER HAVE BEEN L      RPAR
2014 012723  7240          CMA CLA
2015 012724  3370          DCA     SEC     /SET SWITCH TO EXPECT SECOND SUBSCRIPT
2016 012725  5247          JMP     QGET
2017 012726  2370  SECOND, ISZ     SEC     /IS THIS SECOND SUBSCRIPT
2018 012727  5216          JMP     ERR18   /NO...ERROR
2019 012730  1032          TAD     32      /GET INTEGER
2020 012731  3416          DCA I   L16
2021 012732  7240          CMA CLA
2022 012733  3364          DCA     R       /SET SWITCH FOR RPAR
2023 012734  5247          JMP     QGET
2024 012735  2362  QRPAR,  ISZ     QONE    /HAVE WE GOTTEN ONE SUBSC
2025 012736  5351          JMP     QTWO    /NO...CHECK FOR TWO
2026 012737  7001          IAC             /ONLY ONE SO USE 1 AS SECOND
2027 012740  3416          DCA I   L16
2028 012741  7240  QBACK,  CMA CLA
2029 012742  3363          DCA     RIG
2030 012743  1047          TAD     L47     /GET BEGINNING OF TABLE
2031 012744  3050          DCA     L50     /SAVE IN LOW CORE
2032 012745  1047          TAD     L47
2033 012746  1164          TAD     CM3     /SUBTRACT THREE FROM ADDRESS
2034 012747  3047          DCA     L47     /AND SAVE
2035 012750  5247          JMP     QGET    /WE EXPECT COMMA OR CR
2036 012751  2364  QTWO,   ISZ     R       /HAVE WE GOTTEN TWO
2037 012752  5216          JMP     ERR18   /NO...ERROR
2038 012753  5341          JMP     QBACK
2039 012754  2363  RIGHT,  ISZ     RIG     /DID WE JUST GET RPAR
2040 012755  5216          JMP     ERR18   /NO...ERROR
2041 012756  5245          JMP     QAGAIN
2042 012757  2363  QDONE,  ISZ     RIG
2043 012760  5216          JMP     ERR18
2044 012761  5177          JMP     START
2045 012762  0000  QONE,   0
2046 012763  0000  RIG,    0
2047 012764  0000  R,      0
2048 012765  0000  REDY,   0
2049 012766  0000  V,      0
2050 012767  0000  XLP,    0
2051 012770  0000  SEC,    0
2052                      *3000
2053 013000  1074  LGOTO,  TAD     L74
2054 013001  3016          DCA     L16     /USE AUTO INDEXING
2055 013002  3076          DCA     L76
2056 013003  4527          JMS I   ENTITY
2057 013004  7000          NOP
2058 013005  7410          SKP
2059 013006  5330          JMP     ALAB    /WE HAVE A LABEL
2060 013007  5514          JMP I   ASSIGN  
2061 013010  1160          TAD     CM50    /IF PUNCT...CHECK FOR LEFT PAREN
2062 013011  7640          SZA CLA         /IS IT (
2063 013012  5514          JMP I ASSIGN
2064 013013  4527  ANEXT,  JMS I   ENTITY
2065 013014  7000          NOP
2066 013015  7410          SKP
2067 013016  5221          JMP     THERE   /WE HAVE A LABEL
2068 013017  7000          NOP
2069 013020  4523  ERR28,  JMS I   LUNCH
2070 013021  1032  THERE,  TAD     L32     /GET THE LABEL
2071 013022  3416          DCA I   L16     /PUT IN LIST
2072 013023  2076          ISZ     L76
2073 013024  4575          JMS I   GNB
2074 013025  1162          TAD     CM54    /CHECK FOR BEING A COMMA
2075 013026  7450          SNA             /IS IT A COMMA
2076 013027  5213          JMP     ANEXT   /YES GET ANOTHER LABEL
2077 013030  1152          TAD     C3      /CHECK FOR BEING A RIGHT PAREN
2078 013031  7640          SZA CLA         /IS IT A )
2079 013032  5514          JMP I ASSIGN
2080 013033  4575          JMS I   GNB
2081 013034  1162          TAD     CM54    /CHECK FOR ANOTHER COMMA
2082 013035  7440          SZA             /IS IT ANOTHER
2083 013036  4515          JMS I   PUTCH   /IGNORE ANYTHING ELSE ...
2084 013037  4527          JMS I   ENTITY  /GET THE CONTROL VARIABLE
2085 013040  7410          SKP
2086 013041  5245          JMP     .+4     /WE GOT IT
2087 013042  7000          NOP
2088 013043  7000          NOP
2089 013044  4523  ERR29,  JMS I   LUNCH
2090 013045  3021          DCA     L21     /ZERO THE SYMBOL TABLE SWITCH
2091 013046  4530          JMS I   SYMTAB  /PUT VARIABLE IN SYMBOL TABLE
2092 013047  1077          TAD     L77     /GET ADD RESS OF SYMBOL
2093 013050  4524          JMS I   MODE    /CHECK THE MODE OF THE VAIABLE
2094 013051  4523  ERR30,  JMS I   LUNCH   /ITS FLOATING POINT
2095 013052  4526          JMS I   ZZZ     /PUT OUT STMT LABEL
2096 013053  4334          JMS     LXTAD   /LOAD VARIABLE WITH TAD OR TAD*
2097 013054  4516          JMS I   PROP    /PUT OUT OP CODE
2098 013055  6066  Q6066,          6066    /OP CODE IS TAD
2099 013056  4533          JMS I   CREATE  /GET THE NEXT CREATED LABEL
2100 013057  4517          JMS I   PRCRL   /PRINT THE CREATED LABEL
2101 013060  4520          JMS I   PRINT   /PUT OUT CR LF
2102 013061  4516          JMS I   PROP    /PUT OUT OP CODE
2103 013062  6071                  6071    /OP CODE IS DCA
2104 013063  1356          TAD     GO7
2105 013064  4534          JMS I   PROTAC
2106 013065  4520          JMS I   PRINT   /PUT OUT CRLF
2107 013066  4516          JMS I   PROP    /PUNCH 'TAD I 7'
2108 013067  6063                  OPTADI
2109 013070  1356          TAD     GO7
2110 013071  4534          JMS I   PROTAC
2111 013072  4520          JMS I   PRINT
2112 013073  4516          JMS I   PROP    /PUNCH 'DCA 7'
2113 013074  6071                  OPDCA
2114 013075  1356          TAD     GO7
2115 013076  4534          JMS I   PROTAC
2116 013077  4520          JMS I   PRINT
2117 013100  4516          JMS I   PROP    /PUNCH 'JMP I 7'
2118 013101  6074                  OPJMPI
2119 013102  1356          TAD     GO7
2120 013103  4534          JMS I   PROTAC
2121 013104  4520          JMS I   PRINT
2122 013105  1076          TAD     L76     /PUNCH 'CPAGE <N+1>'
2123 013106  7001          IAC
2124 013107  4536          JMS I   PIFF
2125 013110  1053          TAD     L53     /PUNCH '<CR.LABEL2>, <CR.LABEL2>'
2126 013111  4542          JMS I   CLAB
2127 013112  1053          TAD     L53
2128 013113  4517          JMS I   PRCRL
2129 013114  4520          JMS I   PRINT
2130 013115  1076          TAD     L76     /NOW PUNCH THE LABELS
2131 013116  7041          CIA             /SET NEGATIVE
2132 013117  3076          DCA     L76
2133 013120  1074          TAD     L74
2134 013121  3016          DCA     L16     /USE AUTO INDEXING AGAIN
2135 013122  1416          TAD I   L16     /GET THE NEXT LABEL
2136 013123  4535          JMS I   PLAB    /PRINT THE LABEL
2137 013124  4520          JMS I   PRINT   /PUT OUT CRLF
2138 013125  2076          ISZ     L76
2139 013126  5322          JMP     .-4     /NO
2140 013127  5177          JMP     START
2141               /       THE FOLLOWING SECTION IS TO TREAT REGULAR GOTO S
2142 013130  4526  ALAB,   JMS I ZZZ
2143 013131  1032          TAD     L32
2144 013132  4357          JMS     PRJUMP  /PUT OUT A JUMP TO THE LABEL IN "L32"
2145 013133  5177          JMP     START
2146               
2147 013134  0000  LXTAD,  0
2148 013135  1077          TAD     L77     /GET ADDRESS AGAIN
2149 013136  4531          JMS I   DUMARG
2150 013137  1164          TAD     CM3
2151 013140  1255          TAD     Q6066   /TAD OR TAD*
2152 013141  3343          DCA     OP      /USE AS OPERATOR
2153 013142  4516          JMS I   PROP    /PUT OUT OP CODE
2154 013143  0000  OP,             0
2155 013144  1077          TAD     L77     /GET ADDRESS AGAIN
2156 013145  4532          JMS I   PRSYM   /PRINT THE SYMBOL
2157 013146  4520          JMS I   PRINT   /PUT OUT A CR LF
2158 013147  5734          JMP I   LXTAD
2159               
2160 013150  0000  LLEAD,  0               /PUNCH SOME LEADER...
2161 013151  3007          DCA     L7
2162 013152  4550          JMS I   PUNCH
2163 013153  2007          ISZ     L7
2164 013154  5352          JMP     .-2
2165 013155  5750          JMP I   LLEAD
2166 013156  0007  GO7,    7
2167               
2168 013157  0000  PRJUMP, 0       /SUBROUTINE TO PUT OUT A JUMP
2169 013160  3350          DCA     LLEAD   /STORE THE LABEL
2170 013161  4516          JMS I   PROP
2171 013162  6044                  6044    /JMP
2172 013163  1350          TAD     LLEAD
2173 013164  4535          JMS I   PLAB    /PUT OUT THE LABEL
2174 013165  4520          JMS I   PRINT   /PUT OUT A CRLF
2175 013166  1350          TAD     LLEAD
2176 013167  3012          DCA     L12     /SET CONTENTS OF LAST LINE TO LABEL
2177 013170  5757          JMP I   PRJUMP
2178                      *3200
2179               /       THE FOLLOWING ROUTINE PUNCHES OCTAL NUMBERS
2180               
2181 013200  0000  LPRTAC, 0
2182 013201  3232          DCA     TMP     /SAVE THE NUMBER
2183 013202  3233          DCA     TM
2184 013203  1234          TAD     CM4     /PUT OUT FOUR CHARACTERS
2185 013204  3266          DCA     DCTR    /CHARACTER COUNTER
2186 013205  1232  BK,     TAD     TMP     /GET THE NUMBER
2187 013206  7004          RAL             /ROTATE IT LEFT ONE
2188 013207  7006          RTL             /ROTATE TWO LEFT...THAT MAKES ONE OCTAL DIGIT
2189 013210  3232          DCA     TMP     /SAVE THE ROTATED NUMBER
2190 013211  1232          TAD     TMP     /GET IT IN ACCUMULATOR
2191 013212  0152          AND     C3
2192 013213  7004          RAL             /GET THE DIGIT INTO THE LOW-ORDER AC
2193 013214  2266          ISZ     DCTR    /IS THIS THE LAST DIGIT?
2194 013215  5221          JMP     .+4     /NO, CONTINUE
2195 013216  1235          TAD     C60     /MAKE IT LOOK LIKE A TRIMMED ASCII DIGIT
2196 013217  4520          JMS I   PRINT   /PRINT THE DIGIT
2197 013220  5600          JMP I   LPRTAC
2198 013221  7440          SZA             /DO WE HAVE A ZERO DIGIT?
2199 013222  5226          JMP     .+4
2200 013223  1233          TAD     TM
2201 013224  7650          SNA CLA         /YES, IS IT A LEADING ZERO?
2202 013225  5205          JMP     BK      /YES, IGNORE IT
2203 013226  1235          TAD     C60
2204 013227  4520          JMS I   PRINT
2205 013230  2233          ISZ     TM      /DON'T SUPPRESS ZEROS ANY MORE
2206 013231  5205          JMP     BK      /NOW...PUT OUT ANOTHER
2207 013232  0000  TMP,    0
2208 013233  0000  TM,     0
2209 013234  7774  CM4,    -4
2210 013235  0060  C60,    60
2211 013236  1234  LIF,    TAD     CM4
2212 013237  3343          DCA     COUNT1  /SET UP COUNTER
2213 013240  4575          JMS I   GNB
2214 013241  1160          TAD     CM50    /CHECK FOR      LEFT PAREN
2215 013242  7640          SZA CLA         /IS IT A (
2216 013243  5514          JMP I ASSIGN
2217 013244  4515          JMS I   PUTCH   /YES...PUT IT BACK FOR GENER
2218 013245  4526          JMS I ZZZ
2219 013246  2052          ISZ     L52     /SET BALANCED PARENS SWITCH FOR GENER
2220 013247  2044          ISZ     L44     /SET SWITCH FOR RIGHT SIDE OF EQUALS SIGN
2221 013250  4540          JMS I   GENER   /NOW CALL GENER AND PROCESS EXPRESSION
2222 013251  1441          TAD I   L41
2223 013252  4524          JMS I   MODE    /WHAT IS ITS MODE
2224 013253  4766          JMS I   GETHI   /GET HI ORDER P.P. AC
2225 013254  1367          TAD     CDCA41
2226 013255  3266          DCA     LIFDCA  /SET UP INSTRUCTION TO STORE LABELS
2227 013256  4527  LABL,   JMS I   ENTITY  /GET A LABEL
2228 013257  0034  D34,    34
2229 013260  7410          SKP
2230 013261  5264          JMP     INTEG   /WE GO A LABEL
2231 013262  0046  C46,    46
2232 013263  4523  ERR31,  JMS I   LUNCH   /DIDNT GET A LABEL
2233 013264  1032  INTEG,  TAD     L32     /GET THE LABEL
2234 013265  2266          ISZ     LIFDCA
2235 013266  0000  LIFDCA, .-.             /STORE LABELS IN L42 THROUGH L44
2236                       DCTR=LIFDCA
2237 013267  2343          ISZ     COUNT1  /HAVE WE GOTTEN TOO MANY LABELS
2238 013270  7410          SKP             /NO
2239 013271  5263          JMP     ERR31   /YES
2240 013272  4575          JMS I   GNB
2241 013273  7450          SNA             /SEE IF ITS A CR
2242 013274  5301          JMP     .+5     /ITS A CR
2243 013275  1162          TAD     CM54    /CHECK FOR COMMA
2244 013276  7640          SZA CLA         /IS IT A COMMA
2245 013277  5263          JMP     ERR31
2246 013300  5256          JMP     LABL    /YES
2247 013301  2343          ISZ     COUNT1  /DID WE GET THE RIGHT NUMBER OF LABELS
2248 013302  5263          JMP     ERR31   /NO
2249 013303  1042          TAD     L42
2250 013304  7041          CIA
2251 013305  1044          TAD     L44
2252 013306  7650          SNA CLA         /IF THE JUMPS FOR AC<0 AND AC>0 ARE EQUAL
2253 013307  5333          JMP     ISPECL  /WE CAN SAVE SOME CODE
2254 013310  1043          TAD     L43
2255 013311  7041          CIA
2256 013312  1044          TAD     L44
2257 013313  7650          SNA CLA         /IF THE JUMPS FOR AC=0 AND AC>0 ARE EQUAL
2258 013314  5322          JMP     SPCONL  /WE CAN ALSO SAVE SOME CODE
2259 013315  4516          JMS I   PROP    /PUT OUT OP CODE
2260 013316  6105                  6105    /OP CODE IS SNA
2261 013317  4520          JMS I   PRINT   /PUT OUT CRLF
2262 013320  1043          TAD     L43
2263 013321  4742          JMS I   PRJMP   /OUTPUT THE ZERO BRANCH
2264 013322  4516  SPCONL, JMS I   PROP    /PUT OUT OP CODE
2265 013323  6110                  6110    /OP CODE IS P SPA CLA
2266 013324  4520          JMS I   PRINT   /PUT OUT CRLF
2267 013325  1042          TAD     L42     /OUTPUT THE NEGATIVE BRANCH
2268 013326  4742  IFCOMN, JMS I   PRJMP
2269 013327  1044          TAD     L44
2270 013330  4742          JMS I   PRJMP   /OUTPUT THE POSITIVE (>0) BRANCH
2271 013331  3046          DCA     L46     /ZERO AC
2272 013332  5177          JMP     START   /GO GET NEXT STATEMENT
2273 013333  4516  ISPECL, JMS I   PROP    /PUNCH 'SNA CLA'
2274 013334  6105                  OPSNA
2275 013335  4516          JMS I   PROP
2276 013336  6124                  OPCLA
2277 013337  4520          JMS I   PRINT
2278 013340  1043          TAD     L43
2279 013341  5326          JMP     IFCOMN  /OUTPUT THE ZERO AND POSITIVE BRANCHES
2280 013342  3157  PRJMP,  PRJUMP
2281 013343  0000  COUNT1, 0
2282 013344  0000  LCREAT, 0
2283 013345  2053          ISZ     L53     /INCREMENT BY ONE...
2284 013346  1053          TAD     L53
2285 013347  0155          AND     C77
2286 013350  1370          TAD     CM33
2287 013351  7700          SMA CLA         /HAVE WE BEEN HERE 26 TIMES?
2288 013352  1262          TAD     C46     /YES, BUMP THE HIGH ORDER DIGIT
2289 013353  1053          TAD     L53
2290 013354  3053          DCA     L53     /AND SAVE
2291 013355  1053          TAD     L53     /NOW RETURN IT IN AC
2292 013356  5744          JMP I   LCREAT  /RETURN
2293 013357  0000  LPLAB,  0               /THIS PRINTS REGULAR LABELS
2294 013360  3232          DCA     TMP     /FIRST SAVE LABEL
2295 013361  1257          TAD     D34     /NOW PUNCH A '\'
2296 013362  4520          JMS I   PRINT
2297 013363  1232          TAD     TMP     /GET LABEL
2298 013364  4771          JMS I   DECOUT  /AND PRINT IT
2299 013365  5757          JMP I   LPLAB   /RETURN
2300 013366  6440  GETHI,  LGETHI
2301 013367  3041  CDCA41, DCA     L41
2302 013370  7745  CM33,   -33
2303 013371  7062  DECOUT, LDCOUT
2304               
2305               /TELETYPE OUTPUT ROUTINE FOR ERROR MESSAGES
2306 013372  0000  LTTYPE, 0
2307 013373  6041          TSF
2308 013374  5373          JMP     .-1
2309 013375  6046          TLS
2310 013376  7200          CLA
2311 013377  5772          JMP I   LTTYPE
2312               
2313                      *3400
2314 013400  5630  DORET,  JMP I   XDO
2315 013401  4516  ISZDO,  JMS I   PROP
2316 013402  6170                  6170    /ISZ
2317 013403  1030          TAD     L30
2318 013404  4532          JMS I   PRSYM
2319 013405  4520          JMS I   PRINT
2320 013406  5373          JMP     DOSUBT  /GO GENERATE THE LIMIT TEST
2321 013407  0000  NUMB,   0
2322 013410  0000  SWIT,   0
2323 013411  7773  DM5,    -5
2324 013412  7754  CM24,   -24
2325 013413  5001  C5001,  5001
2326 013414  3624  LEQI,   EQI
2327               
2328 013415  4526  LDO,    JMS I   ZZZ
2329 013416  4527          JMS I   ENTITY  /LOOK FOR THE SCOPE LABEL
2330 013417  0055  C55,    55
2331 013420  7410          SKP
2332 013421  5224          JMP     SLAB    /WE GOT THE SCOPE LABEL
2333 013422  0053  E53,    53
2334 013423  5514          JMP I ASSIGN
2335 013424  1032  SLAB,   TAD     L32     /GET THE INTEGER
2336 013425  4230          JMS     XDO     /PUT OUT DO-LOOP CODE
2337 013426  5177          JMP     START   /NORMAL EXIT
2338 013427  5257          JMP     ERR35   /IMPLIED DO EXIT - ERROR
2339               
2340 013430  0000  XDO,    0               /DO LOOP SUBROUTINE - ENTERED WITH
2341                                       /TARGET LABEL IN AC
2342 013431  3415          DCA I   L15     /PUT IN DO END PUSH DOWN LIST
2343 013432  1074          TAD     L74
2344 013433  3016          DCA     L16     /SET UP LIST OF DO ENDS
2345 013434  3021          DCA     L21     /ZERO THE SYMBOL TABLE SWITCH
2346 013435  7240          CMA CLA
2347 013436  3210          DCA     SWIT    /SET SWITCH FOR CONTROL VARIABLE
2348 013437  1211          TAD     DM5
2349 013440  3207          DCA     NUMB    /SET COUNTER OF NUMBER OF PARAMETERS
2350 013441  4527  GETMOR, JMS I   ENTITY  /LOOK FOR A PARAMETER
2351 013442  5245          JMP     .+3     /ERR
2352 013443  5247          JMP     CVAR    /GOT A VARIABLE
2353 013444  5301          JMP     DPAR    /GOT AN INTEGER
2354 013445  0021  C21,    21
2355 013446  5257          JMP     ERR35
2356 013447  4530  CVAR,   JMS I   SYMTAB  /PUT SYMBOL IN TABLE
2357 013450  1077          TAD     L77     /GET ADDRESS
2358 013451  4524          JMS I   MODE    /DETERMINE MODE OF SYMBOL
2359 013452  5257          JMP     ERR35
2360 013453  1077          TAD     L77     /GET ADDRESS AGAIN
2361 013454  3416  DOSTOR, DCA I   L16     /SAVE
2362 013455  2207          ISZ     NUMB    /HAVE WE GOTTEN TOO MANY PARAMS
2363 013456  7410          SKP             /NO
2364 013457  4523  ERR35,  JMS I   LUNCH   /YES, DO ERROR ...
2365 013460  4575          JMS I   GNB
2366 013461  7450          SNA             /IS IT CR
2367 013462  5306          JMP     ALLDNE+1        /YES WERE DONE
2368 013463  1161          TAD     CM51
2369 013464  7450          SNA             /IS IT A RIGHT PAREN?
2370 013465  5305          JMP     ALLDNE  /YES-FINISH UP AND TAKE IMPLIED DO EXIT
2371 013466  1212          TAD     CM24
2372 013467  7440          SZA             /IS IT =
2373 013470  5274          JMP     MCOM    /NO
2374 013471  2210          ISZ     SWIT    /IS SWITCH SET FOR IT
2375 013472  5257          JMP     ERR35   /NO
2376 013473  5241          JMP     GETMOR  /YESS...GO BACK FOR ANOTHER PARAMETER
2377 013474  1245  MCOM,   TAD     C21     /CHECK FOR COMMA
2378 013475  2210          ISZ     SWIT    /IF NO EQUAL SIGN YET
2379 013476  7440          SZA             /OR IF THIS ISN'T A COMMA
2380 013477  5257          JMP     ERR35   /THEN ITS AN ERROR
2381 013500  5241          JMP     GETMOR  /GET ANOTHER
2382 013501  1032  DPAR,   TAD     L32     /GET THE INTEGER
2383 013502  2210          ISZ     SWIT    /HAVE WE SEEN AN EQUAL SIGN?
2384 013503  5254          JMP     DOSTOR  /YES - SAVE THE INTEGER AND PROCEED
2385 013504  5257          JMP     ERR35   /NO
2386 013505  2230  ALLDNE, ISZ     XDO     /BUMP RETURN POINTER IF TERMINATOR WAS RPAR
2387 013506  7201          CLA IAC
2388 013507  3416          DCA I   L16     /STORE A ONE IN THE FOURTH (OR FIFTH) ARGUMENT
2389 013510  1151          TAD     C2
2390 013511  1207          TAD     NUMB
2391 013512  7710          SPA CLA         /DID WE GET AT LEAST THREE ARGS?
2392 013513  5257          JMP     ERR35   /NO
2393 013514  2044          ISZ     L44
2394 013515  1074          TAD     L74     /GET ERASABLE LOCATIONS
2395 013516  3016          DCA     L16     /USE THE AUTO INDEX REGISTERS
2396 013517  1416          TAD I   L16     /GET CONTROL VARIABLE
2397 013520  3030          DCA     L30     /AND PUT IN THIRTY
2398 013521  1416          TAD I   L16     /GET INITIAL VALUE
2399 013522  3031          DCA     L31     /AND SAVE IT
2400 013523  1416          TAD I   L16     /GET FINAL VALUE
2401 013524  3032          DCA     L32     /AND SAVE IT
2402 013525  1416          TAD I   L16     /GET INCREMENT
2403 013526  3033          DCA     L33     /AND SAVE IT
2404 013527  1074          TAD     L74     /GET ADDR OF ERASABLE AGAIN
2405 013530  7001          IAC             /INCREMENT ONCE
2406 013531  3041          DCA     L41     /TELL TRIPL WHERE TO FIND THE DUMMY TRIPLES
2407 013532  1074          TAD     L74     /GET IT AGAIN
2408 013533  3016          DCA     L16     /USE AUTO INDEX TO STORE TRIPLE
2409 013534  3046          DCA     L46     /ZERO THE AC
2410 013535  1213          TAD     C5001   /SET UP INITIAL TRIPLE NUMBER
2411 013536  3040          DCA     L40
2412 013537  1033          TAD     L33
2413 013540  7041          CIA
2414 013541  1031          TAD     L31
2415 013542  7650          SNA CLA         /IF INITIAL VALUE = STEP SIZE
2416 013543  5353          JMP     STCTLV  /NO NEED TO COMPUTE THE DIFFERENCE
2417 013544  1033          TAD     L33     /GET STEP SIZE
2418 013545  3416          DCA I   L16     /PUT IN TRIPLE
2419 013546  1217          TAD     C55     /PUT IN A MINUS SIGN
2420 013547  3416          DCA I   L16
2421 013550  1031          TAD     L31     /GET INITIAL VALUE
2422 013551  3416          DCA I   L16
2423 013552  4537          JMS I   TRIPL   /PROCESS THE TRIPLE
2424 013553  4614  STCTLV, JMS I   LEQI    /STORE ANSWER IN CONTROL VARIABLE
2425 013554  4542          JMS I   CLAB    /PUT A CDREATED LABVEL ON THE NEXT STATEMENT
2426 013555  1053          TAD     L53     /GET THE CREATED LABEL
2427 013556  3415          DCA I   L15     /AND PUT IN     DO END LIST
2428 013557  1074          TAD     L74
2429 013560  3016          DCA     L16
2430 013561  1033          TAD     L33     /GET STEP SIZE
2431 013562  7110          CLL RAR
2432 013563  7450          SNA             /IF STEP SIZE=1 THEN
2433 013564  5201          JMP     ISZDO   /WE CAN USE AN ISZ TO INCREMENT
2434 013565  7004          RAL
2435 013566  3416          DCA I   L16
2436 013567  1222          TAD     E53     /WERE GOING TO ADD
2437 013570  3416          DCA I   L16
2438               /       L30 IS IN THE THIRD POSITION SINCE WE CALLED "EQI"
2439 013571  4537          JMS I   TRIPL   /ADD STEP SIZE TO CONTROL VARIABLE
2440 013572  4614          JMS I   LEQI    /STORE ANSWER IN CONTROL VARIABLE
2441 013573  1074  DOSUBT, TAD     L74
2442 013574  3016          DCA     L16
2443 013575  1030          TAD     L30     /GET THE CONTROL VARIABLE
2444 013576  3416          DCA I   L16
2445 013577  1217          TAD     C55     /WERE GOING TO SUBTRACT
2446 013600  3416          DCA I   L16
2447 013601  1032          TAD     L32     /GET FINAL VALUE
2448 013602  3416          DCA I   L16
2449 013603  4537          JMS I   TRIPL   /SUBTRACT CONTROL VARIABLE FROM FINAL VALUE
2450 013604  3046         DCA     L46     /CLEAR THE AC FLAG
2451 013605  4516          JMS I   PROP
2452 013606  6110                  6110    /SPA CLA
2453 013607  4520          JMS I   PRINT
2454 013610  4516          JMS I   PROP
2455 013611  6044                  6044    /PUT OUT A JMP
2456 013612  4533          JMS I   CREATE  /TO A CREATED LABEL
2457 013613  3415          DCA I   L15     /PUT CREATED LABEL IN DO END LIST
2458 013614  1053          TAD     L53     /GET LABEL
2459 013615  4517          JMS I   PRCRL   /AND PRINT IT
2460 013616  4520          JMS I   PRINT   /CRLF
2461 013617  2055          ISZ     L55     /INCREMENT UNENDED DO COUNTER
2462 013620  7410          SKP
2463 013621  4523  ERR38,  JMS I   LUNCH   /TOOO MANY UNENDED DOS
2464 013622  5623          JMP I   .+1
2465 013623  3400          DORET           /RETURN FROM SUBROUTINE "XDO"
2466               
2467 013624  0000  EQI,    0
2468 013625  1074          TAD     L74
2469 013626  3016          DCA     L16
2470 013627  1046          TAD     L46     /GET RESULT OF PREVIOUS COMPUTATION
2471 013630  3416          DCA I   L16
2472 013631  1356          TAD     E75     /GET EQUALS SIGN
2473 013632  3416          DCA I   L16
2474 013633  1030          TAD     L30     /GET CONTROL VARAIBLE
2475 013634  3416          DCA I   L16
2476 013635  4537          JMS I   TRIPL   /PROCESS
2477 013636  3046          DCA     L46     /WIPE AC SWITCH
2478 013637  5624          JMP I   EQI     /RETURN
2479 013640  0000  LFUNCT, 0
2480 013641  3355          DCA     ARGCNT
2481 013642  1046          TAD     L46     /GET AC
2482 013643  7640          SZA CLA         /IS IT ZERO
2483 013644  4543          JMS I   STORE   /NO...STORE THE AC
2484 013645  1053          TAD     L53     /GET CURRENT CREATED LABEL
2485 013646  3073          DCA     L73     /AND SAVE
2486 013647  7240          CLA CMA         /AC IS MINUS ONE
2487 013650  1041          TAD     L41     /PUSH LIST POINTER
2488 013651  3042          DCA     L42     /PUSH LIST POINTER MINUS ONE
2489 013652  2042  CKFNCT, ISZ     L42     /INCREMENT POINTER
2490 013653  2042          ISZ     L42     /AGAIN
2491 013654  1442          TAD I   L42     /GET    THE OPERATOR
2492 013655  1357          TAD     CM4047  /SUBTRACT THE FUNCTION OPERATOR
2493 013656  7440          SZA             /IS THIS THE FUNCTION OPERATOR
2494 013657  5346          JMP     CKSBSC  /NO
2495 013660  7201          CLA IAC         /YES...THE FUNCTION NAME IS IN THE NEXT LOCATIO
2496 013661  1042          TAD     L42     /THIS POINTS TO IT
2497 013662  3354          DCA     SAVE    /AND SAVE
2498 013663  1754          TAD I   SAVE
2499 013664  1151          TAD     C2
2500 013665  3224          DCA     EQI
2501 013666  1624          TAD I   EQI
2502 013667  0163          AND     CM2
2503 013670  7001          IAC
2504 013671  3624          DCA I   EQI
2505 013672  7240  MOR,    CLA CMA         /NOW EXAM THE ARGUMENTS
2506 013673  1042          TAD     L42     /WERE POINTING TO THE FIRST ARGUMENT
2507 013674  3042          DCA     L42     /SAVE THE POINTER
2508 013675  2355          ISZ     ARGCNT
2509 013676  4541          JMS I   LCHNG   /CHECK L42 FOR ZERO OR DUMMY ARG
2510 013677  3442          DCA I   L42     /REPLACE IT BY UPDATED VALUE
2511 013700  1042          TAD     L42     /IT WASNT...SEE IF IT WAS THE LAST ARGUMENT
2512 013701  7041          CIA
2513 013702  1041          TAD     L41     /SUBTRACT THE END OF ARGUMENT LIST
2514 013703  7650          SNA CLA         /IS IT ZERO
2515 013704  5311          JMP     OUT     /YES...WE'VE COMPLETED THIS PHASE
2516 013705  7240          CLA CMA         /NO...MOVE THE POINTER BACK ONE
2517 013706  1042          TAD     L42
2518 013707  3042          DCA     L42     /AND SAVE
2519 013710  5272          JMP     MOR     /NOW CHECK THE NEXT ARGUMENT
2520 013711  1354  OUT,    TAD     SAVE    /GET THE POINTER TO THE FUMCTION NAME AGAIN
2521 013712  3042          DCA     L42     /AND PUT IN 42
2522 013713  1442          TAD I   L42     /GET THE ARGUMENT
2523 013714  3317          DCA     FUNOP   /USE FPROP TO PUT OUT THE CALL TO THE FUNCTION
2524 013715  1355          TAD     ARGCNT  /GIVE FPROP THE NUMBER OF ARGUMENTS
2525 013716  4544          JMS I   FPROP   /PUT OUT THE CALL TO THE FUNCTION
2526 013717  0000  FUNOP,  0
2527 013720  1073          TAD     L73     /NOW RESTORE THE CREATED LABEL LOCATION
2528 013721  3053          DCA     L53
2529 013722  1042  MNEXT,  TAD     L42     /GET THE POINTER
2530 013723  1163          TAD     CM2     /MOVE POINTER TO ARGUMENT
2531 013724  3042          DCA     L42     /AND SAVE
2532 013725  1442          TAD I   L42     /GET NEXT ARGUMENT
2533 013726  4753          JMS I   PSYMOT  /GENERATE AN "ARG" FOR THE ARGUMENT
2534 013727  1042          TAD     L42     /GET THE POINTER
2535 013730  7041          CIA             /SET IT NEGATIVE
2536 013731  1041          TAD     L41     /ADD
2537 013732  7640          SZA CLA         /ARE THEY EQUAL
2538 013733  5322          JMP     MNEXT   /NO THERE ARE MORE ARGS
2539 013734  1754          TAD I   SAVE    /YES...GET THE FUNCTION NAME
2540 013735  4524          JMS I   MODE    /WHAT MODE IS IT
2541 013736  1360          TAD     E400    /ITS FLOATING POINT
2542 013737  1040          TAD     L40     /ITS INTEGER
2543 013740  3046          DCA     L46     /PUT THE TRIPLE NUMBER IN THE AC SWITCH
2544 013741  1354          TAD     SAVE    /YES...CHANGE PUSH LIST POINTER
2545 013742  3041          DCA     L41     /STORE POINTER TO NAME IN PUSH LIST POINTER
2546 013743  1046          TAD     L46     /GET CURRENT TRIPLE NUMBER
2547 013744  3441          DCA I   L41     /AND PUT IT IN THE PUSH LIST
2548 013745  5640          JMP I   LFUNCT  /RETURN
2549 013746  7001  CKSBSC, IAC
2550 013747  7640          SZA CLA         /IS IT THE SUBSCRIPT OPERATOR?
2551 013750  5777          JMP I   CKF     /NO - KEEP LOOKING
2552 013751  5752          JMP I   .+1
2553 013752  4110          ERR39
2554 013753  6672  PSYMOT, SYMOUT
2555 013754  0000  SAVE,   0
2556 013755  0000  ARGCNT, 0
2557 013756  0075  E75,    75
2558 013757  3731  CM4047, -4047
2559 013760  0400  E400,   400
2560               
2561 013761  1373          TAD     C47
2562 013762  4776          JMS I   PPACK
2563 013763  4775  LQUOTE, JMS I   PGTC    /GET A CHARACTER
2564 013764  7450          SNA
2565 013765  4523  ERR37,  JMS I   LUNCH   /CARRIAGE RETURN - ERROR
2566 013766  1374          TAD     CM47
2567 013767  7440          SZA
2568 013770  5361          JMP     LQUOTE-2        /IF NOT A QUOTE, STORE IT
2569 013771  5772          JMP I   .+1
2570 013772  1401          FRET
2571 013773  0047  C47,    47
2572 013774  7731  CM47,   -47
2573 013775  0730  PGTC,   LGTC
2574 013776  1437  PPACK,  PACK
2575 013777  4370  CKF,    CKFND
2576                      *4000
2577 014000  4525  LCONT,  JMS I   LOOK    /CHECK REST OF LINE
2578 014001  7774                  -4      /LOOK FOR FOUR CHARACTERS
2579 014002  7767                  -11     /I
2580 014003  7762                  -16     /N
2581 014004  7753                  -25     /U
2582 014005  7773                  -5      /E
2583 014006  4526          JMS I   ZZZ
2584 014007  4516          JMS I   PROP    /PUNCH 'NOP'
2585 014010  6047                  6047
2586 014011  4520          JMS I   PRINT   /PUT OUT A CRLF
2587 014012  5177          JMP     START   /GO GET NEXT STATEMENT
2588               
2589 014013  4525  LPAUSE, JMS I   LOOK    /CHECK REST OF STATEMENT TYPE
2590 014014  7777                  -1      /JUST ONE CHARACTER
2591 014015  7773                  -5      /E
2592 014016  7240          CLA CMA
2593 014017  3267  LSTOP,  DCA     SW      /SET SWITCH FOR STOP OR PAUSE
2594 014020  3032          DCA     L32
2595 014021  4527          JMS I   ENTITY  /LOOK FOR THE OPTIONAL INTEGER
2596 014022  5227          JMP     MCR     /WE GOT A CR
2597 014023  7410          SKP             /ERR
2598 014024  5227          JMP     .+3     /WE GOT AN INTEGER
2599 014025  7000          NOP             /ERR
2600 014026  5514          JMP I ASSIGN
2601               
2602 014027  4526  MCR,    JMS I ZZZ
2603 014030  2267          ISZ     SW      /PAUSE OR STOP?
2604 014031  5250          JMP     STOP
2605 014032  4544          JMS I   FPROP   /PUNCH 'CALL 0,CKIO'
2606 014033  6116          6116
2607 014034  4516          JMS I   PROP    /PRINT OP CODE
2608 014035  6066                  6066    /OPCODE IS TAD
2609 014036  1032          TAD     L32     /GET THE INTEGER
2610 014037  4532          JMS I   PRSYM   /PRINT IT
2611 014040  4520          JMS I   PRINT   /CR
2612 014041  4516          JMS I   PROP
2613 014042  6121                  6121
2614 014043  4520          JMS I   PRINT
2615 014044  4516          JMS I   PROP
2616 014045  6124                  6124
2617 014046  4520          JMS I   PRINT   /PUT OUT CRLF
2618 014047  5177          JMP     START   /GO GET NEXT STATEMENT
2619               
2620 014050  4252  STOP,   JMS     OSTOP
2621 014051  5177          JMP     START
2622               
2623 014052  0000  OSTOP,  0               /PUNCH 'CALL 0,CKIO'
2624 014053  4544          JMS I   FPROP
2625 014054  6116                  6116
2626 014055  4542          JMS I   CLAB    /PUNCH '<LAB>, HLT'
2627 014056  4516          JMS I   PROP
2628 014057  6121                  6121
2629 014060  4520          JMS I   PRINT
2630 014061  4516          JMS I   PROP    /PUNCH 'JMP <LAB>'
2631 014062  6044                  6044
2632 014063  1053          TAD     L53
2633 014064  4517          JMS I   PRCRL
2634 014065  4520          JMS I   PRINT
2635 014066  5652          JMP I   OSTOP
2636               
2637 014067  0000  SW,     0
2638 014070  4525  LFRMAT, JMS I   LOOK    /CHECK REST OF STATEMENT TYPE
2639 014071  7776                  -2      /TWO CHARACTERS
2640 014072  7777                  -1      /A
2641 014073  7754                  -24     /T
2642 014074  2252          ISZ     OSTOP
2643 014075  1074          TAD     L74
2644 014076  3010          DCA     L10
2645 014077  3076          DCA     L76
2646 014100  4516          JMS I PROP
2647 014101  6044          6044
2648 014102  4533          JMS I CREATE
2649 014103  4517          JMS I PRCRL
2650 014104  4520          JMS I PRINT
2651 014105  4575          JMS I   GNB     /READ UNTIL A PAREN IS GOTTEN
2652 014106  1160          TAD     CM50    /SUBTRACT A (
2653 014107  7640          SZA CLA         /IS IT A (
2654 014110  4523  ERR39,  JMS I   LUNCH   /NO...ILLEGAL CHARACTER
2655 014111  1355          TAD     C50     /GET A LEFT PAREN
2656 014112  5316          JMP     PAREN   /AND GO START COUNTING PARENS
2657 014113  4753  AGAIN,  JMS I   GTC
2658 014114  7450          SNA             /IS IT A CR
2659 014115  4515          JMS I   PUTCH   
2660 014116  7106  PAREN,  RTL CLL         /SHIF CHAR LEFT
2661 014117  7006          RTL
2662 014120  7006          RTL
2663 014121  3032          DCA     L32     /SAVE THE CHAR
2664 014122  4753          JMS I   GTC
2665 014123  7450          SNA             /IS IT A CR
2666 014124  3252          DCA     OSTOP
2667 014125  1032          TAD     L32     /PACK THE TWO CHARS (SOME DONE AT FRMTCK)
2668 014126  5777          JMP I   FRMTCK  /GO CHECK IF FORMAT STMT. TOO BIG
2669 014127  1252  FRMT,   TAD     OSTOP   /GET BALANCED PAREN SWITCH
2670 014130  7640          SZA CLA         /ARE THEY BALANCED
2671 014131  5313          JMP     AGAIN   /NO GET SOME MORE CHARS
2672 014132  1076          TAD     L76
2673 014133  4536          JMS I   PIFF
2674 014134  1074          TAD     L74
2675 014135  3010          DCA     L10
2676 014136  1076          TAD     L76
2677 014137  7041          CIA
2678 014140  3076          DCA     L76
2679 014141  4526          JMS I   ZZZ
2680 014142  1410          TAD I   L10
2681 014143  4534          JMS I   PROTAC
2682 014144  4520          JMS I   PRINT
2683 014145  2076          ISZ     L76
2684 014146  5342          JMP     .-4
2685 014147  1053          TAD     L53     /PUNCH '<LABEL>,'
2686 014150  4542          JMS I   CLAB
2687 014151  4520          JMS I   PRINT
2688 014152  5177          JMP     START
2689 014153  0730  GTC,    LGTC
2690 014154  2660  PXSUBR, XXSUBR
2691 014155  0050  C50,    50
2692               
2693 014156  0000  LPIFF,  0               /PUNCH 'IFF <N>'
2694 014157  3366          DCA     LZZZ    /ENTER WITH N IN THE AC
2695 014160  4516          JMS I   PROP
2696 014161  6102                  6102
2697 014162  1366          TAD     LZZZ
2698 014163  4534          JMS I   PROTAC
2699 014164  4520          JMS I   PRINT
2700 014165  5756          JMP I   LPIFF
2701               
2702 014166  0000  LZZZ,   0               /PUNCH THE CURRENT LABEL, IF ANY
2703 014167  1054          TAD     L54
2704 014170  7450          SNA             /IS THERE A LABEL?
2705 014171  5375          JMP     ZZZRET  /NO
2706 014172  4535          JMS I   PLAB    /PUNCH '<LABEL>, '
2707 014173  1154          TAD     C7240
2708 014174  4521          JMS I   P2
2709 014175  3754  ZZZRET, DCA I   PXSUBR  /MAKE SUBROUTINES AND FUNCTIONS ILLEGAL
2710 014176  5766          JMP I   LZZZ
2711 014177  4564  FRMTCK, CKFRMT
2712                      *4200
2713 014200  0000  LTRIPL, 0
2714 014201  4766          JMS I   XZQL    /FIRST CHECK IF A TRIPLE IS LEGAL HERE
2715 014202  1041          TAD     L41     /GET PUSH LIST POINTER
2716 014203  7001          IAC             /INCREMENT TO POINT TO OPERATOR
2717 014204  3042          DCA     L42     /OPERATOR POINTER
2718 014205  1042          TAD     L42     /GET IT AGAIN
2719 014206  7001          IAC             /INCREMENT IT
2720 014207  3043          DCA     L43     /OPERAND TWO POINTER
2721 014210  1442          TAD I   L42     /GET OPERATOR
2722 014211  0155          AND     C77     /MASK GARBAGE BITS
2723 014212  1354          TAD     CM41    /SUBTRACT AN ADD INDIRECT OPERATOR
2724 014213  7650          SNA CLA         /IS OPERATOR  <DOLLAR>
2725 014214  5746          JMP I   LADDIN  /YES PROCESS IT
2726 014215  1443          TAD I   L43     /NO...GET OPERAND TWO
2727 014216  4531          JMS I   DUMARG  /SEE IF ITS A DUMMY ARGUMENT
2728 014217  7410          SKP             /YES IT IS
2729 014220  5231          JMP     CK2     /NO ..CHECK THE OTHER ARGUMENT
2730 014221  1442          TAD I   L42     /YES    GET THE OPERATOR
2731 014222  0155          AND     C77     /MASK GARBAGE BITS
2732 014223  1355          TAD     EM75    /IS IT AN EQUALS SIGN
2733 014224  7450          SNA             /IS OP C
2734 014225  5321          JMP     LEQUIN  /YES USE C*
2735 014226  7001          IAC             /SEE IF ITS ALREADY EQUALS INDIRECT
2736 014227  7640          SZA CLA         /IS OP C*
2737 014230  4756          JMS I   LDUMTW  /YES TWO IS DUMMY ARG
2738 014231  7200  CK2,    CLA
2739 014232  1441          TAD I   L41     /NO IS OPND ONE A SYMBOL
2740 014233  4531          JMS I   DUMARG  /SEE IF ITS A DUMMY ARGUMENT
2741 014234  4762          JMS I   LDUMON  /IT IS
2742 014235  7300          CLA CLL         /NOW LETS SEE WHAT THE OPERATOR IS
2743 014236  1442          TAD I   L42     /GET THE OPERATOR
2744 014237  0155          AND     C77     /MASK OUT GARBAGE BITS
2745 014240  1363          TAD     CM53
2746 014241  7450          SNA             /IS IT  
2747 014242  5745          JMP I   LAADD   /YES
2748 014243  7001          IAC
2749 014244  7450          SNA             /IS IT *
2750 014245  5764          JMP I   LMUL    /YES
2751 014246  1164          TAD     CM3
2752 014247  7450          SNA             /IS IT -
2753 014250  5747          JMP I   LASUB   /YES
2754 014251  1163          TAD     CM2
2755 014252  7450          SNA             /IS IT /
2756 014253  5765          JMP I   LDIV    /YES
2757 014254  1357          TAD     CM16
2758 014255  7450          SNA             /IS IT C
2759 014256  5750          JMP I   LEQU    /YES
2760 014257  7001          IAC
2761 014260  7450          SNA             /IS IT C*
2762 014261  5751          JMP I   LEIND   /YES
2763 014262  1367          TAD     J27
2764 014263  7450          SNA             /IS IT **
2765 014264  5752          JMP I   LEXP    /YES
2766 014265  1151          TAD     C2
2767 014266  7450          SNA             /IS IT A UNARY MINUS
2768 014267  5753          JMP I   LUMIN   /YES
2769 014270  4523  ERR40,  JMS I   LUNCH   /NO BETTER COP OUT
2770 014271  0000  LDMARG, 0
2771 014272  7500          SMA             /IS HIGH ORDER BIT ON
2772 014273  5313          JMP     INC     /NO...ITS NEITHER A SYMBOL OR A TRIPLE NUMBER
2773 014274  7004          RAL             /GET NEXT BIT
2774 014275  7500          SMA             /IS IT ON
2775 014276  5316          JMP     MAYBE   /NO...WE MIGHT HAVE A SUBSCRIPT THOUGH
2776 014277  7010          RAR             /YES...RESTOR THE PARAMETER
2777 014300  7041          CIA             /SET IT NEGATIVE
2778 014301  1047          TAD     L47     /SUBTRACT IT FROMTHE START OF THE FCON TABLE
2779 014302  7510          SPA             /IS THE RELULT POSITIVE
2780 014303  5313          JMP     INC     /NO...ITS AN FCON NOT A SYMBOL
2781 014304  7041          CIA             /YESS...RESTORE ORIGINAL PARAMETER
2782 014305  1047          TAD     L47
2783 014306  1151          TAD     C2      /YES    MOVE POINTER TO CONTROL BITS
2784 014307  3023          DCA     L23     /SAVE
2785 014310  1423          TAD I   L23     /GET THE CONTROL BITS
2786 014311  0360          AND     C10     /MASK ALL BUT DUMMY ARG BIT OUT
2787 014312  7650  INC1,   SNA CLA         /IS THIS SYMBOL. A DUMMY ARG
2788 014313  2271  INC,    ISZ     LDMARG  /NO...INCREMENT THE RETURN
2789 014314  7200          CLA             /CLEAR THE ACCUMULATOR
2790 014315  5671          JMP I   LDMARG  /AND RETURN
2791 014316  0361  MAYBE,  AND     F400    /MASK THE SUBSCRIPT BIT OF THE TRIPLE NUMBER
2792 014317  5312          JMP INC1        /AND CHECK BECAUSE WE TREAT SUBSCS AS DUMMY ARG
2793 014320  5600  ARET,   JMP I   LTRIPL  /THIS IS THE RETURN FROM TRIPLE
2794               
2795 014321  1324  LEQUIN, TAD     C74
2796 014322  3442          DCA I   L42     /SET OP TO =*
2797 014323  5231          JMP     CK2
2798 014324  0074  C74,    74
2799               /
2800               /       THIS ROUTINE CHECKS THE REST OF THE CHARS FOR A STATEMENT
2801 014325  0000  LLOOK,  0
2802 014326  4337          JMS     GLOOK   /GET CHARACTER COUNT
2803 014327  3200          DCA     LTRIPL
2804 014330  4575  ABACK,  JMS I   GNB
2805 014331  4337          JMS     GLOOK   /ADD IN THE TEST CHAR
2806 014332  7640          SZA CLA         /WERE THEY EQUAL
2807 014333  5514          JMP I   ASSIGN  /NO...IT MUST BE AN ASSIGNMENT STATEMENT
2808 014334  2200          ISZ     LTRIPL  /THEY MATCH...ARE WE DONE
2809 014335  5330          JMP     ABACK   /NO
2810 014336  5725          JMP I   LLOOK   /RETURN
2811               
2812 014337  0000  GLOOK,  0
2813 014340  6211          CDF 10
2814 014341  1725          TAD I   LLOOK
2815 014342  2325          ISZ     LLOOK
2816 014343  6201          CDF 00
2817 014344  5737          JMP I   GLOOK
2818               /
2819 014345  5232  LAADD,  AADD
2820 014346  4600  LADDIN, ADDIND
2821 014347  4520  LASUB,  ASUB
2822 014350  5120  LEQU,   EQU
2823 014351  5116  LEIND,  EIND
2824 014352  5061  LEXP,   EXP
2825 014353  5224  LUMIN,  UMIN
2826 014354  7737  CM41,   -41
2827 014355  7703  EM75,   -75
2828 014356  5000  LDUMTW, DUMTWO
2829 014357  7762  CM16,   -16
2830 014360  0010  C10,    10
2831 014361  0400  F400,   400
2832 014362  5013  LDUMON, DUMONE
2833 014363  7725  CM53,   -53
2834 014364  4702  LMUL,   MUL
2835 014365  5037  LDIV,   DIV
2836 014366  5265  XZQL,   LXZQ
2837 014367  0027  J27,    27
2838               
2839 014370  1042  CKFND,  TAD     L42     /SEE IF POINTER IS INTO SYMB. TABLE
2840 014371  1377          TAD     K2000   /(IT HAS HAPPENED!)
2841 014372  7640          SZA     CLA
2842 014373  5776          JMP I   CKFNCP
2843 014374  5775          JMP I   .+1     /YES-ERROR
2844 014375  4110          ERR39
2845 014376  3652  CKFNCP, CKFNCT
2846 014377  2000  K2000,  2000
2847                      *4400
2848                /      FIGURE OUT WHATS IN AC
2849 014400  0000  LCHECK, 0
2850 014401  1046          TAD     L46     /GET WHATS IN THE AC
2851 014402  7041          CIA             /SET NEGATIVE
2852 014403  1441          TAD I   L41     /SUBTRACT
2853 014404  7650          SNA CLA         /ARE THEY EQUAL
2854 014405  5217          JMP     ONE     /YES
2855 014406  1046          TAD     L46     /GET AC AGAIN
2856 014407  7041          CIA             /SET NEGATIVE
2857 014410  1443          TAD I   L43     /SUBTRACT TWO
2858 014411  7650          SNA CLA         /ARE THEY EQUAL
2859 014412  5222          JMP     TWO     /YES
2860 014413  1046          TAD     L46     /GET THE AC
2861 014414  7650          SNA CLA         /IS IT ZERO
2862 014415  5220          JMP     NONE    /NO     YES YES YES
2863 014416  5221          JMP     SOME    /JUST SIMETHING IN AC
2864 014417  2200  ONE,    ISZ     LCHECK
2865 014420  2200  NONE,   ISZ     LCHECK
2866 014421  2200  SOME,   ISZ     LCHECK
2867 014422  5600  TWO,    JMP I   LCHECK
2868               
2869               /       FINDS TEMPORARY THAT TRIPLE NUMBER IS ASSIGNED TO
2870               
2871 014423  0000  LTMPOR, 0
2872 014424  3300          DCA     LFPROP  /SAVE TRIPLE NUMBER
2873 014425  1300          TAD     LFPROP
2874 014426  4524          JMS I   MODE    /DETERMINE ITS MODE
2875 014427  1360          TAD     C30     /FLOATING POINT
2876 014430  1355          TAD     TTAB    /INTEGER
2877 014431  3200          DCA     LCHECK
2878 014432  1361          TAD     CM30
2879 014433  3317          DCA     FOP     /SET UP COUNT FOR SEARCH
2880 014434  1600  LTLP1,  TAD I   LCHECK
2881 014435  7041          CIA
2882 014436  1300          TAD     LFPROP
2883 014437  7650          SNA CLA         /IS THIS THE ONE?
2884 014440  5273          JMP     ZEROIT  /YES - ZERO IT OUT AND RETURN IT
2885 014441  2200          ISZ     LCHECK
2886 014442  2317          ISZ     FOP
2887 014443  5234          JMP     LTLP1   /LOOP OVER ENTIRE TABLE
2888 014444  1200          TAD     LCHECK  /NOT FOUND - WE HAVE TO ASSIGN IT
2889 014445  1361          TAD     CM30
2890 014446  3200          DCA     LCHECK  /RESET POINTERS FOR ZERO SEARCH
2891 014447  1361          TAD     CM30
2892 014450  3317          DCA     FOP
2893 014451  1600  LTLP2,  TAD I   LCHECK
2894 014452  7650          SNA CLA         /IS THIS TEMPORARY FREE?
2895 014453  5260          JMP     TEMPTY  /YES
2896 014454  2200          ISZ     LCHECK
2897 014455  2317          ISZ     FOP
2898 014456  5251          JMP     LTLP2   /CHECK THEM ALL
2899 014457  4523  ERR41,  JMS I   LUNCH   /OUT OF TEMPORARIES
2900 014460  1200  TEMPTY, TAD     LCHECK
2901 014461  7041          CIA
2902 014462  1045          TAD     L45
2903 014463  7650          SNA CLA         /ADJUST THE NUMBER OF FLOATING POINT TEMPS
2904 014464  2045          ISZ     L45
2905 014465  1200          TAD     LCHECK
2906 014466  7041          CIA
2907 014467  1051          TAD     L51
2908 014470  7650          SNA CLA         /ADJUST THE NUMBER OF INTEGER TEMPS
2909 014471  2051          ISZ     L51
2910 014472  1300          TAD     LFPROP  /STORE TRIPLE NUMBER IN THIS TEMPORARY SLOT
2911 014473  3600  ZEROIT, DCA I   LCHECK
2912 014474  1317          TAD     FOP
2913 014475  1277          TAD     C31     /GET POSITIVE NUMBER FROM TABLE COUNTER
2914 014476  5623          JMP I   LTMPOR  /RETURN
2915 014477  0031  C31,    31
2916               
2917 014500  0000  LFPROP, 0               /THIS ROUTINE PUNCHES SUBROUTINE CALLS
2918 014501  3317          DCA     FOP     /SAVE THE NUMBER OF ARGUMENTS
2919 014502  4516          JMS I   PROP
2920 014503  6113                  6113    /PUT OUT THE CALL
2921 014504  1317          TAD     FOP     /GET THE NUMBER OF ARGUMENTS
2922 014505  4534          JMS I   PROTAC  /PRINT IT
2923 014506  1171          TAD     C54     /GET A COMMA
2924 014507  4520          JMS I   PRINT   /PRINT IT
2925 014510  6211          CDF 10
2926 014511  1700          TAD I   LFPROP
2927 014512  6201          CDF 00
2928 014513  4532          JMS I   PRSYM
2929 014514  4520          JMS I   PRINT
2930 014515  2300          ISZ     LFPROP  /INCREMENT RETURN
2931 014516  5700          JMP I   LFPROP  /RETURN
2932 014517  0000  FOP,    0
2933               /       COME HERE IF OP IS -
2934 014520  4566  ASUB,   JMS I   SMODE   /MAKE SURE THAT BOTH ARGS ARE OF SAME MODE
2935 014521  1443          TAD I   L43     /GET OPERAND TWO
2936 014522  4524          JMS I   MODE
2937 014523  5337          JMP     FSUB    /ITS FLOATING POINT
2938 014524  4200          JMS     LCHECK  /ITS INTEGER...CHECK WHATS IN THE AC
2939 014525  5333          JMP     STWO    /TWO IS IN THE AC
2940 014526  4543          JMS I   STORE   /SMETHING IS IN THE AC
2941 014527  4757          JMS I   LADDON  /NOTHING IS IN THE AC...ADD ONE TO IT
2942 014530  4756  ASBCMN, JMS I   LCOMP   /ONE IS IN AC...COMPLEMENT IT
2943 014531  4763          JMS I   LADDTW  /ADD TWO TO IT
2944 014532  5762          JMP I   LRETUR  /AND RETURN
2945 014533  4756  STWO,   JMS I   LCOMP   /TWO IS IN AC...COMPLEMENT IT
2946 014534  4757          JMS I   LADDON  /ADD ONE TO IT
2947 014535  4756          JMS I   LCOMP   /AND COMPLEMENT IT AGAIN
2948 014536  5762          JMP I   LRETUR  /AND RETURN
2949 014537  4200  FSUB,   JMS     LCHECK  /FLOATING POINT...CHECK THE AC
2950 014540  5345          JMP     FS      /TWO IS IN AC
2951 014541  4543          JMS I   STORE   /SOMETHING IN AC...STORE IT
2952 014542  5344          JMP     FAS     /NOTHING IN AC
2953 014543  5330          JMP     ASBCMN  /ONE IS IN AC - COMPLEMENT AND ADD TWO
2954 014544  4763  FAS,    JMS I   LADDTW  /NOTHING IN AC...ADD TWO IN
2955 014545  7001  FS,     IAC             /WE HAVE ONE ARG
2956 014546  4544          JMS I   FPROP
2957 014547  6011                  6011
2958 014550  4570          JMS I   ARG     /PUT OUT THE ARG PSEUDO OP
2959 014551  1441          TAD I   L41     /GET ARGUMENT ONE
2960 014552  4532  IRET,   JMS I   PRSYM   /AND PUT IT OUT
2961 014553  4520          JMS I   PRINT   /PUT OUT CRLF
2962 014554  5762          JMP I   LRETUR
2963 014555  0710  TTAB,   ITTAB           /THIS IS THE STARTING ADDRESS OF THE TEMP TABLE
2964 014556  4667  LCOMP,  COMP
2965 014557  5213  LADDON, ADDONE
2966 014560  0030  C30,    30
2967 014561  7750  CM30,   -30
2968 014562  5274  LRETUR, RETURN
2969 014563  5254  LADDTW, ADDTWO
2970               
2971               /CHECK SIZE OF FORMAT STMT.
2972               /
2973 014564  3410  CKFRMT, DCA I   L10     /CONTINUE PACK ROUTINE
2974 014565  2076          ISZ     L76
2975 014566  1076          TAD     L76
2976 014567  1374          TAD     M174    /IS IT TOO BIG
2977 014570  7700          SMA     CLA
2978 014571  5775          JMP I   ILCON   /YES-GIVE IT ILLEGAL CONT. MESSAGE
2979 014572  5773          JMP I   LFRMT   /NO-GO BACK
2980 014573  4127  LFRMT,  FRMT
2981 014574  7604  M174,   -174
2982 014575  0231  ILCON,  ERR1            /ILLEGAL CONTINUATION MESSAGE
2983                      *4600
2984               /       PROCESS  *
2985 014600  4565  ADDIND, JMS I   CHECK   /CHECK WHATS IN THE AC
2986 014601  7000          NOP             /TWO IS IN AC
2987 014602  7410          SKP             /N SOMETHING IS IN AC
2988 014603  7410          SKP             /NOTHING IS IN AC
2989 014604  4543          JMS I   STORE   /STORE WHATEVER IS IN AC
2990 014605  1441          TAD I   L41     /GET OPERAND ONE
2991 014606  4524          JMS I   MODE    /WHAT MODE IS IT
2992 014607  5214          JMP     FLOT    /YES    IT FLOATING POINT
2993 014610  4516          JMS I   PROP    /IST INTEGER...
2994 014611  6063                  6063    /PUT OUT A TAD*
2995 014612  1441  LOOP6,  TAD I   L41     /GET THE FIRST OPERAND AGAIN
2996 014613  5726          JMP I   LIRET   /GO TO THE RETURN ROUTINE
2997 014614  7001  FLOT,   IAC             /WE ONLY HAVE ONE ARG
2998 014615  4544          JMS I   FPROP   /PUT OUT A CALL TO A FLOATING POINT ROUTINE
2999 014616  6132                  6132    /PUT OUT A CALL TO FLOATING INDIRECT ADD
3000 014617  4570          JMS I   ARG     /PUT OUT THE ARG PSEUDO OP
3001 014620  5212          JMP     LOOP6   /AND JUMP BACK
3002               /       THIS PUTS OUT OPCODES FOR AN ADD
3003 014621  0000  ADDL,   0
3004 014622  7110          CLL RAR
3005 014623  7450          SNA             /TEST FOR 0 OR 1
3006 014624  5240          JMP     ADSPCL
3007 014625  7004          RAL             /NOT 0 OR 1, TREAT NORMALLY
3008 014626  4524          JMS I   MODE    /WHAT MODE ARE WE IN
3009 014627  5233          JMP     LOOP7   /YES
3010 014630  4516          JMS I   PROP    /PUT OUT A TAD
3011 014631  6066                  6066
3012 014632  5621          JMP I   ADDL    /RETURN
3013 014633  7001  LOOP7,  IAC             /WE ONLY HAVE ONE ARGUMENT
3014 014634  4544          JMS I   FPROP   /PUT OUT A CALL TO A FLOATING POINT ROUTINE
3015 014635  6003                  6003    /PUT OUT A FLOATING ADD
3016 014636  4570          JMS I   ARG     /PUT OUT THE ARG PSEUDO OP
3017 014637  5621          JMP I   ADDL    /AND RETURN
3018 014640  2221  ADSPCL, ISZ     ADDL
3019 014641  2221          ISZ     ADDL    /BUMP RETURN POINT PAST ARGUMENT TO "TAD"
3020 014642  7420          SNL             /0?
3021 014643  5621          JMP I   ADDL    /YUP - DON'T PUT OUT NUTTIN
3022 014644  4516          JMS I   PROP
3023 014645  6250          OPIAC           /PUT OUT "IAC"
3024 014646  5621          JMP I   ADDL
3025               
3026               /       STORES CONTENTS OF AC IN TEMPORARY
3027               /       PUT OUT DCA OR CALL STO
3028               /       FOLLOWED BY THE TEMPORARY LOC
3029 014647  0000  LSTORE, 0
3030 014650  1046          TAD     L46     /GET THE AC
3031 014651  4524          JMS I   MODE    /WHAT MODE IS IT
3032 014652  5262          JMP     FSTO    /ITS FLOATING POINT
3033 014653  4516          JMS I   PROP
3034 014654  6071                  6071    /ITS INTEGER...PUT OUT A DCA
3035 014655  1046  STORET, TAD     L46     /GET THE AC AGAIN
3036 014656  4532          JMS I   PRSYM   /PRINT WHATEVER IS IN IT
3037 014657  4520          JMS I   PRINT   /PUT OUT A CRLF
3038 014660  3046          DCA     L46     /ZERO THE AC
3039 014661  5647          JMP I   LSTORE  /AND RETURN
3040 014662  7001  FSTO,   IAC             /WE ONLY HAVE ONE ARG
3041 014663  4544          JMS I   FPROP   /PUT OUT A CALL TO A FLOATING POINT ROUTINE
3042 014664  6006                  6006    /PUT OUT A CALL TOFLOATING STORE
3043 014665  4570          JMS I   ARG     /PUT OUT THE ARG PSEUDO OP
3044 014666  5255          JMP     STORET  /AND JMP BACK
3045 014667  0000  COMP,   0
3046 014670  1046          TAD     L46     /GET THE AC
3047 014671  4524          JMS I   MODE    /WHAT MODE IS IT
3048 014672  5277          JMP     FCOM    /ITS FLOATING POINT
3049 014673  4516          JMS I   PROP    /ITS INYTEGER
3050 014674  6135                  6135    /PUT OUT A CIA
3051 014675  4520          JMS I   PRINT   /PUT OUT A CRLF
3052 014676  5667          JMP I   COMP    /AND RETURN
3053 014677  4544  FCOM,   JMS I   FPROP
3054 014700  6140                  6140    /TO FLOATING CHANGE SIGN
3055 014701  5667          JMP I   COMP
3056               /       COME HERE IF OP IS *
3057 014702  4566  MUL,    JMS I   SMODE   /CHECK FOR SAME MODE
3058 014703  4565          JMS I   CHECK   /CHECK WHATS IN THE AC
3059 014704  5322          JMP     TMUL    /TWO IS IN THE AC
3060 014705  4543          JMS I   STORE   /SOMETHING IS IN AC...STORE IT
3061 014706  4725          JMS I   KADDON  /NOTHING IS IN AC..GET ONE IN AC
3062 014707  1443  AMUL,   TAD I   L43     /GET OPERND TWO
3063 014710  4524          JMS I   MODE    /WHAT MODE IS IT
3064 014711  1327          TAD     EM6
3065 014712  1330          TAD     C6022
3066 014713  3316          DCA     FML     /SAVE OPCODE
3067 014714  7001          IAC
3068 014715  4544          JMS I   FPROP   /PUT OUT A CALL TO A FLOATING POINT ROUTINE
3069 014716  0000  FML,            0
3070 014717  4570          JMS I   ARG     /PUT OUT THE ARG PSEUDO OP
3071 014720  1443          TAD I   L43     /GET OPERAND TWO
3072 014721  5726          JMP I   LIRET   /AND GO TO THE RETURN ROUTINE
3073 014722  1441  TMUL,   TAD I   L41     /GET OPERAND ONE AND REPLACE OPERAND TWO
3074 014723  3443          DCA I   L43
3075 014724  5307          JMP     AMUL    /AND JUMP BACK
3076 014725  5213  KADDON, ADDONE
3077 014726  4552  LIRET,  IRET
3078 014727  7772  EM6,    -6
3079 014730  6022  C6022,  6022
3080               
3081 014731  4525  LSUB,   JMS I   LOOK    /CHECK REST OF STATEMENT
3082 014732  7772          -6      /
3083 014733  7761          -17     /O
3084 014734  7753          -25     /U
3085 014735  7754          -24     /T
3086 014736  7767          -11     /I
3087 014737  7762          -16     /N
3088 014740  7773          -5      /E
3089 014741  5742          JMP I   .+1
3090 014742  6007          TART
3091               
3092 014743  0000  LCLEAR, 0               /CLEAR THE PSEUDO ACC AND MQ
3093 014744  3030          DCA     L30
3094 014745  3031          DCA     L31
3095 014746  3032          DCA     L32
3096 014747  3033          DCA     L33
3097 014750  3034          DCA     L34
3098 014751  3035          DCA     L35
3099 014752  5743          JMP I   LCLEAR
3100                       *5000
3101               /      THIS ROUTINE TAKES CARE OF TWO BEING DUMMY ARG
3102 015000  0000  DUMTWO, 0
3103 015001  1441          TAD I   L41     /GET OPND ONE
3104 015002  3255          DCA     FDV     /AND SAVE
3105 015003  1443          TAD I   L43     /GET OPND TWO
3106 015004  3441          DCA I   L41     /ZERO OPND ONE
3107 015005  4213          JMS     DUMONE  /PROCESS DUMMY ARGUMENT
3108 015006  1255          TAD     FDV     /GET SAVED OPERAND
3109 015007  3441          DCA I   L41     /AND USE AS OPERAND
3110 015010  1046          TAD     L46     /GET TRIPLE NUMBER
3111 015011  3443          DCA I   L43     /AND REPLACE
3112 015012  5600          JMP I   DUMTWO  /RETURN
3113               /       TAKES CARE OF ONE BIING DUMMY ARG
3114 015013  0000  DUMONE, 0
3115 015014  1442          TAD I   L42     /GET OPERATOR
3116 015015  3336          DCA     ASTOP   /AND SAVE
3117 015016  1361          TAD     E41     /GET ADD INDIRECT OPERATOR
3118 015017  3442          DCA I   L42     /AND REPLACE OPERATOR
3119 015020  6211          CDF 10
3120 015021  1537          TAD I   TRIPL
3121 015022  6201          CDF 00
3122 015023  3303          DCA     FEX     /AND SAVE RETURN
3123 015024  4537          JMS I   TRIPL   /CALL TRIPL
3124 015025  1046          TAD     L46     /GET TRIPLE NUMBER
3125 015026  3441          DCA I   L41     /AND REPLACE OPERAND
3126 015027  1336          TAD     ASTOP   /RESTORE OPERATOR
3127 015030  3442          DCA I   L42
3128 015031  2040          ISZ     L40     /ADVANCE TRIPLE
3129 015032  1303          TAD     FEX     /RESTORE RETURN
3130 015033  6211          CDF 10
3131 015034  3537          DCA I   TRIPL
3132 015035  6201          CDF 00
3133 015036  5613          JMP I   DUMONE  /RETURN
3134               /       COME HERE IF OP IS /
3135 015037  4566  DIV,    JMS I   SMODE   /CHECK FOR SAME MODE
3136 015040  4565          JMS I   CHECK   /CHECK WHATS IN THE AC
3137 015041  5246          JMP     DIVE    /TWO IS IN AC
3138 015042  4543         JMS I   STORE   /THERES SOMETHING IN THE AC...STORE IT
3139 015043  7410          SKP             /NOTHING IS IN AC
3140 015044  4543          JMS I   STORE   /THERES SOMETHING IN THE AC...STORE IT
3141 015045  4762          JMS I   MADDTW  /GET TWO INTO THE AC
3142 015046  1441  DIVE,   TAD I   L41     /GET OPERAND ONE
3143 015047  4524          JMS I   MODE    /WHAT MODE IS IT
3144 015050  1363          TAD     FM6
3145 015051  1364          TAD     C6025
3146 015052  3255          DCA     FDV     /SAVE OERATOR
3147 015053  7001          IAC
3148 015054  4544          JMS I   FPROP   /PUT OUT A CALL TO A FLOATING POINT ROUTINE
3149 015055  0000  FDV,            0
3150 015056  4570          JMS I   ARG     /PUT OUT THE ARG PSEUDO OP
3151 015057  1441          TAD I   L41     /GET OPERAND ONE
3152 015060  5765          JMP I   MIRET   /JUMP TO RETURN ROUTINE
3153               /       COME HERE IF OP IS **
3154 015061  4565  EXP,    JMS I   CHECK   /CHECK WHATS IN THE AC
3155 015062  5267          JMP     FEXP    /TWO IS IN AC
3156 015063  4543          JMS I   STORE   /THERES SOMETHING IN THE AC...STORE IT
3157 015064  7410          SKP             /NOW NOTHING IS IN AC
3158 015065  4543          JMS I   STORE   /THERES SOMETHING IN THE AC...STORE IT
3159 015066  4762          JMS I   MADDTW  /GET TWO IN AC
3160 015067  1441  FEXP,   TAD I   L41
3161 015070  4524          JMS I   MODE
3162 015071  1366          TAD     C6
3163 015072  3255          DCA     FDV
3164 015073  1443          TAD I   L43     /GET OPERAND TWO
3165 015074  4524          JMS I   MODE    /WHAT IS ITS    MODE
3166 015075  1152          TAD     C3      /FLOATING POINT
3167 015076  1367          TAD     C6207   /INTEGER
3168 015077  1255          TAD     FDV
3169 015100  3303          DCA     FEX     /SAVE REOUTINE POINTER
3170 015101  7001          IAC
3171 015102  4544          JMS I   FPROP   /PUT OUT A CALL TO A FLOATING POINT ROUTINE
3172 015103  0000  FEX,            0
3173 015104  1441          TAD I   L41     /GET OPERAND ONE
3174 015105  3443          DCA I   L43     /SAVE IN OPERAND TWO
3175 015106  1303          TAD     FEX     /GET THE OP CODE JUST PUT OUT
3176 015107  1373          TAD     CM6207  /SUBTRACT THE INTEGER TO INTEGER CASE
3177 015110  7640          SZA CLA         /WAS THIS THE INTEGER INTEGER CASE
3178 015111  1050          TAD     L50     /NO, GET A FLOATING POINT POINTER
3179 015112  3441          DCA I   L41     /AND SUBSTITUTE IT FOR OPERAND ONE
3180 015113  4570          JMS I   ARG     /PUT OUT THE PSEUDO OP ARG
3181 015114  1443         TAD I   L43     /GET THE REAL OPERAND ONE IN THE AC
3182 015115  5765          JMP I   MIRET   /JUMP TO THE RETURN ROUTINE
3183               /COMES HERE IF THE VARIABLE TO THE LEFT OF THE '=' IS SUBSCRIPTED
3184 015116  1374  EIND,   TAD     C132    /GET AN ASTERISK
3185 015117  3060          DCA     L60     /PUT IT IN SIXTY
3186               /COMES HERE IF THE OPERATOR IS AN '='
3187 015120  4565  EQU,    JMS I   CHECK   /CHECK WHATS IN THE AC
3188 015121  7000          NOP             /TWO IS IN THE AC
3189 015122  4543          JMS I   STORE   /THERES SOMETHING IN THE AC...STORE IT
3190 015123  4760          JMS I   TADDON  /NOTHING IS IN AC...ADD ONE TO IT
3191 015124  1443          TAD I   L43     /GET OPERA ND TWO
3192 015125  4524          JMS I   MODE    /WHAT IS ITS MODE
3193 015126  5346          JMP     FEQU    /ITS FLOATING POINT
3194 015127  1046          TAD     L46     /GET THE AC
3195 015130  4524          JMS I   MODE    /WHAT MODE IS IT
3196 015131  5770          JMP I   LFIX    /ITS FLOATING POINT
3197 015132  1060  EFIX,   TAD     L60     /GET EQUALS INDIRECT LOCATION
3198 015133  1371          TAD     C6071   /ADD A DCA
3199 015134  3336          DCA     ASTOP   /AND SAVE OPCODE
3200 015135  4516          JMS I   PROP    /POT OUT THE OPCODE
3201 015136  0003  ASTOP,          3
3202 015137  3046  EQRET,  DCA     L46     /ZERO THE AC
3203 015140  1443          TAD I   L43     /GET OPERAND TWO
3204 015141  4532          JMS I   PRSYM   /PRINT IT
3205 015142  4520          JMS I   PRINT   /PUT OUT A CRLF
3206 015143  3060          DCA     L60     /ZERO SIXTY
3207 015144  5745          JMP I   .+1     /AND RETURN
3208 015145  4320          ARET
3209 015146  1046  FEQU,   TAD     L46     /GET THE AC
3210 015147  4524          JMS I   MODE    /WHAT MODE IS IT
3211 015150  7410          SKP             /ITS FLOATING POINT
3212 015151  4772          JMS I   LFLOAT  /ITS INTEGER...FLOAT IT
3213 015152  5753          JMP I   .+1
3214 015153  5200          XXX
3215               
3216 015154  0000  LARG,   0
3217 015155  4516          JMS I   PROP
3218 015156  6201                  6201
3219 015157  5754          JMP I   LARG
3220               
3221 015160  5213  TADDON, ADDONE
3222 015161  0041  E41,    41
3223 015162  5254  MADDTW, ADDTWO
3224 015163  7772  FM6,    -6
3225 015164  6025  C6025,  6025
3226 015165  4552  MIRET,  IRET
3227 015166  0006  C6,     6
3228 015167  6207  C6207,  6207
3229 015170  5306  LFIX,   FIX
3230 015171  6071  C6071,  6071
3231 015172  5302  LFLOAT, FLOAT
3232 015173  1571  CM6207, -6207
3233 015174  0132  C132,   132
3234                      *5200
3235 015200  1060  XXX,    TAD     L60     /GET THE INDIRECT EQUALS SWITCH
3236 015201  7650          SNA CLA         /IS THE SWITCH ON
3237 015202  1341          TAD     CM140   /NO, FLOATING POINT STORE
3238 015203  1312          TAD     C6146   /YES...ISTO
3239 015204  3207          DCA     FSTOP   /SAVE OPCODE
3240 015205  7001          IAC             /WE ONLY HAVE ONE ARG
3241 015206  4544          JMS I   FPROP   /PUT OUT A CALL TO A FLOATING POINT ROUTINE
3242 015207  6146  FSTOP,          6146
3243 015210  4570          JMS I   ARG     /PUT OUT THE ARG PSEUDO OP
3244 015211  5612          JMP I   .+1     /JUMP BACK
3245 015212  5137          EQRET
3246               /       THIS ADDS OPERAND ONE TO THE AC
3247 015213  0000  ADDONE, 0
3248 015214  1441          TAD I   L41     /GET OPERAND ONE
3249 015215  4713          JMS I   LADDL   /PUT OUT OPCODES FOR AN ADD
3250 015216  1441          TAD I   L41     /GET FIRST OPERAND
3251 015217  4532          JMS I   PRSYM   /PUT OUT SYMBOL
3252 015220  4520          JMS I   PRINT   /PUT OUT CR LF
3253 015221  1441          TAD I   L41     /GET OPERAND ONE
3254 015222  3046          DCA     L46     /PUTN THE AC
3255 015223  5613          JMP I   ADDONE  /RETURN
3256 015224  4565  UMIN,   JMS I   CHECK   /CHECK WHATSN THE AC
3257 015225  7000          NOP                             /TWOSN AC
3258 015226  4543          JMS I   STORE   /THERES SOMETHINGN THE AC...STORET
3259 015227  4213          JMS     ADDONE  /NOTHINGSN AC NOW...PUT ONEN AC
3260 015230  4714          JMS I   MCOMP   /AND COMPLEMENTT
3261 015231  5274          JMP     RETURN  /AND RETURN
3262 015232  4566  AADD,   JMS I   SMODE
3263 015233  4565          JMS I   CHECK   /CHECK WHATSN THE AC
3264 015234  5241          JMP     AONE    /TWOSN AC
3265 015235  4543          JMS I   STORE   /THERES SOMETHINGN THE AC...STORET
3266 015236  4213          JMS     ADDONE  /GET ONEN AC
3267 015237  4254          JMS     ADDTWO  /ONESN AC
3268 015240  5274          JMP     RETURN  /RETURN
3269 015241  4213  AONE,   JMS     ADDONE  /ADD ONE TO TWO
3270 015242  5274          JMP     RETURN  /AND RETURN
3271 015243  0000  LPROP,  0
3272 015244  6211          CDF 10
3273 015245  1643          TAD I   LPROP
3274 015246  6201          CDF 00
3275 015247  4532          JMS I   PRSYM   /AND PRINT THE SYMBOL
3276 015250  1153          TAD     C40     /GET A SPACE
3277 015251  4520          JMS I   PRINT   /PUT OUT
3278 015252  2243          ISZ     LPROP   /INCREMENT RETURN
3279 015253  5643          JMP I   LPROP   /AND RETURN
3280               /       THIS ADDS OPERAND TWO TO THE AC
3281 015254  0000  ADDTWO, 0
3282 015255  1443          TAD I   L43     /GET OPERAND TWO
3283 015256  4713          JMS I   LADDL   /PUT OUT OPCODES FOR AN ADD
3284 015257  1443          TAD I   L43     /GET SECOND OPERAND
3285 015260  4532          JMS I   PRSYM   /PRINT THE SYMBOL
3286 015261  4520          JMS I   PRINT   /PUT OUT CR LF
3287 015262  1443          TAD I   L43     /GET OPERAND TWO
3288 015263  3046          DCA     L46     /AND PUTN AC
3289 015264  5654          JMP I   ADDTWO  /RETURN
3290 015265  0000  LXZQ,   0               /CHECK FOR EXPRESSION LEFT OF =
3291 015266  7200          CLA
3292 015267  1022          TAD     L22     /GET SUBSCRIPT NESTING DEPTH
3293 015270  1044          TAD     L44     /GET EQUALS SIGN SWITCH
3294 015271  7650          SNA CLA         /ARE THEY BOTH ZERO
3295 015272  4523  ERR42,  JMS I   LUNCH   /N      YES ...THATS AN ERROR
3296 015273  5665          JMP I   LXZQ    /RETURN
3297 015274  1441  RETURN, TAD I   L41     /THISS THE RETURN...GET OPERAND ONE
3298 015275  4524          JMS I   MODE    /WHAT MODEST
3299 015276  1315          TAD     G400    /ITS FLOATING POINT...TURN F.P. BIT ON
3300 015277  1040          TAD     L40     /ADD CURRENT TRIPLE NUMBER
3301 015300  3046          DCA     L46     /PUTN AC SW
3302 015301  5716          JMP I   NARET   /AND NOW RETURN FROM THE ROUTINE
3303 015302  0000  FLOAT,  0
3304 015303  4544          JMS I   FPROP   /PUT OUT A CAL TO THE FLOAT ROUTINE
3305 015304  6127                  6127
3306 015305  5702          JMP I   FLOAT   /AND RETURN
3307 015306  4544  FIX,    JMS I   FPROP   /PUT OUT A CAL
3308 015307  6143                  6143    /TO THE FIX ROUTINE
3309 015310  5711          JMP I   .+1     /AND JUMP BACKLADDL,    ADDL
3310 015311  5132          EFIX
3311 015312  6146  C6146,  6146
3312 015313  4621  LADDL,  ADDL
3313 015314  4667  MCOMP,  COMP
3314 015315  0400  G400,   400
3315 015316  4320  NARET,  ARET
3316 015317  0000  LSMODE, 0
3317 015320  1443          TAD I   L43     /GET FIRST OPERAND
3318 015321  4524          JMS I   MODE    /FIND WHAT ITS MODE IS
3319 015322  5327          JMP     IBM     /ITS FLOATING POINT
3320 015323  1441          TAD I   L41     /GET OPERAND TWO
3321 015324  4524          JMS I   MODE    /THIS BETTER BE INTEGER TOO
3322 015325  5332          JMP     .+5     /ITS NOT, LUNCH
3323 015326  5717          JMP I   LSMODE  /GREAT, RETURN
3324 015327  1441  IBM,    TAD I   L41     /GET OPERAND TWO
3325 015330  4524          JMS I   MODE    /THIS BETTER BE F.P. TOO
3326 015331  5717          JMP I   LSMODE  /IT IS RETURN
3327 015332  4523  ERR43,  JMS I   LUNCH   /ERROR
3328 015333  0000  LPUNCH, 0
3329 015334  6021          PSF             /IS PUNCH READY
3330 015335  5334          JMP     .-1     /NO, TRY AGAIN
3331 015336  6026          PLS             /YES, PUNCH THE CHARACTER
3332 015337  7200          CLA             /CLEAR THE ACCUMULATOR
3333 015340  5733          JMP I   LPUNCH  /AND RETURN
3334 015341  7640  CM140,  -140
3335               
3336 015342  0000  LFINI,  0               /FINAL CLEANUP AT END OF COMPILATION
3337 015343  4544          JMS I   FPROP   /PUNCH 'CALL 0,OPEN'
3338 015344  6231                  OPEN
3339 015345  4516          JMS I   PROP    /PUNCH A 'PAUSE'
3340 015346  6060                  6060
3341 015347  4520          JMS I   PRINT
3342 015350  4520          JMS I   PRINT   /FORCE LAST LINE OUT
3343 015351  1360          TAD     CM100
3344 015352  4761          JMS I   LEADR   /PUNCH SOME LEADER
3345 015353  6211          CDF     10
3346 015354  7402  XFINI,  HLT             /JMP I LFINI, FOR DISK SYSTEM ...
3347 015355  6202          CIF     0
3348 015356  5757          JMP I   D1000   /BEGIN NEXT COMPILATION
3349 015357  1000  D1000,  1000
3350 015360  7700  CM100,  -100
3351 015361  3150  LEADR,  LLEAD
3352               
3353 015362  4520  FORST,  JMS I   PRINT   /FORTRAN STARTING POINT
3354 015363  4777          JMS I   (LIST
3355 015364  3363          DCA     .-1
3356 015365  1376          TAD     (LPUNCH
3357 015366  3150          DCA     PUNCH
3358 015367  1160          TAD     CM50
3359 015370  4761          JMS I   LEADR
3360 015371  4516          JMS I   PROP
3361 015372  6242                  FORTR
3362 015373  4520          JMS I   PRINT
3363 015374  5775          JMP I   .+1
3364 015375  0201          START1
3365               
3366 015376  5333  PAGE
     015377  0342  
3367                      *5400
3368 015400  1174  LLAST,  TAD     C4000   /END OF COMPILATION, SET CHK SO THAT
3369 015401  3111          DCA     CHK     /LGTC WILL NOT READ ANOTHER LINE...
3370 015402  4575          JMS I   GNB
3371 015403  7440          SZA
3372 015404  5514          JMP I   ASSIGN
3373 015405  4777          JMS I   (OSTOP  /PUNCH A 'HLT' ETC.
3374 015406  1055          TAD     L55
3375 015407  1355          TAD     C25
3376 015410  7640          SZA CLA         /IS DO LIST EMPTY?
3377 015411  4523  ERR44,  JMS I   LUNCH   /NO, COMPLAIN...
3378 015412  1056  MORDUM, TAD     L56     /GET POINTER INTO SYMBOL TABLE
3379 015413  1151          TAD     C2      /ADD TWO TO IT FOR CONTROL BITS
3380 015414  3072          DCA     L72     /SAVE ADDRESS OF CONTROL BITS
3381 015415  1472          TAD I   L72     /GET THE CONTROL BITS
3382 015416  0362          AND     E10     /MASK ALL BUT THE DUMMY ARG BIT
3383 015417  7650          SNA CLA         /IS THE DUMMY ARG BIT ON
3384 015420  5233          JMP     LEDOUT  /NO, PUT OUT DUMMY SUBSCRIPT DEFNS
3385 015421  4760          JMS I   DEFN    /YES, PUT OUT THE VARIABLE NAME
3386 015422  4516          JMS I   PROP    /PUT OUT THE OP CODE
3387 015423  6154          6154            /WHICH IS BSS
3388 015424  1151          TAD     C2      /RESERVE TWO LOCATIONS
3389 015425  4534          JMS I   PROTAC  /PRINT THE TWO
3390 015426  4520          JMS I   PRINT
3391 015427  2056          ISZ     L56     /ADVANCE THE POINTER
3392 015430  2056          ISZ     L56
3393 015431  2056          ISZ     L56
3394 015432  5212          JMP     MORDUM  /GO BACK AND DO THE NEXT ONE
3395 015433  3072  LEDOUT, DCA     L72     /ZERO LOCATION 72
3396 015434  1025  LEDOT1, TAD     L25     /GET THE NUMBER OF SUBSCRIPT TEMPS
3397 015435  7040          CMA
3398 015436  1072          TAD     L72     /SUBTRACT FROM THE NUMBER WEVE DEFINED
3399 015437  7650          SNA CLA         /HAVE WE DEFINED THEM ALL YET
3400 015440  5255          JMP     GOOON   /YES, NOW PUT OUT THE END
3401 015441  1357          TAD     K5200   /GET SUBSCRIPT DESIGNATOR
3402 015442  1072          TAD     L72     /GET WHICH SUBSCRIPT
3403 015443  4532          JMS I   PRSYM   /AND PRINT IT
3404 015444  1154          TAD     C7240   /GET THE TERMINATOR
3405 015445  4521          JMS I   P2      /PRINT IT
3406 015446  4516          JMS I   PROP    /PRINT THE OP CODE
3407 015447  6154          6154            /WHICH IS BSS
3408 015450  1151          TAD     C2      /RESERVE TWO LOCATIONS
3409 015451  4534          JMS I   PROTAC
3410 015452  4520          JMS I   PRINT   /CRLF
3411 015453  2072          ISZ     L72     /GO ON TO THE NEXT ONE
3412 015454  5234          JMP     LEDOT1
3413 015455  4516  GOOON,  JMS I   PROP
3414 015456  6157                  6157    /PUT OUT AN END
3415 015457  4520          JMS I   PRINT   /PUT OUT A CRLF
3416 015460  3065          DCA     L65     /ZERO THE PSEUDO LOCATION COUNTER
3417 015461  1177          TAD     START   /CLA = -600
3418 015462  4764          JMS I   LEAD    /PUT OUT LOTS OF LEADER CODE
3419 015463  4516          JMS I   PROP
3420 015464  6162                  6162    /PUT OUT A LAP
3421 015465  4520          JMS I   PRINT
3422 015466  1057  SYM,    TAD     L57
3423 015467  7041          CIA
3424 015470  1056          TAD     L56
3425 015471  7640          SZA CLA         /ARE THERE ANY SYMBOLS
3426 015472  5300          JMP     SYM1
3427 015473  1104          TAD     MIKE8
3428 015474  7640          SZA CLA         /NO, IS THERE ANY EQUIVALENCING?
3429 015475  5763          JMP I   LPTEMP
3430 015476  5677          JMP I   .+1
3431 015477  5666          PTEMP
3432 015500  1056  SYM1,   TAD     L56
3433 015501  1151          TAD     C2
3434 015502  3072          DCA     L72
3435 015503  1472          TAD I   L72     /GET THE CONTROL BITS
3436 015504  3072          DCA     L72     /SAVE THEN
3437 015505  1072          TAD     L72     /GET THE BITS
3438 015506  0356          AND     E7      /MASK
3439 015507  7640          SZA CLA         /ARE THEY FUNCT NAME,
3440 015510  5347          JMP     UP      /YES
3441 015511  4760          JMS I   DEFN    /PUT IT OUT
3442 015512  1072          TAD     L72
3443 015513  0361          AND     E20     /MASK ALL BUT THE DIMEN 
3444 015514  7650          SNA CLA         /IS EITHER ONE ON
3445 015515  5353          JMP     NORM    /NO
3446 015516  1056          TAD     L56
3447 015517  4547          JMS I   DIM
3448 015520  3026          DCA     L26
3449 015521  1414          TAD I   L14     /GET THE SECOND DIMENSION
3450 015522  7141          CLL CIA         /AND NEGATE
3451 015523  3073          DCA     L73     /SAVE
3452 015524  7430          SZL
3453 015525  4523  ERR36,  JMS I LUNCH
3454 015526  1026          TAD     L26
3455 015527  2073          ISZ     L73
3456 015530  5324          JMP     .-4
3457 015531  3026  ACK,    DCA     L26
3458 015532  1056          TAD     L56
3459 015533  4524          JMS I   MODE    /DETERMINE MODE OF SYMBOL
3460 015534  1026          TAD     L26
3461 015535  7104          RAL CLL
3462 015536  1026          TAD     L26
3463 015537  7430          SZL
3464 015540  5325          JMP ERR36
3465 015541  3026          DCA     L26
3466 015542  1072          TAD     L72
3467 015543  0153          AND     C40
3468 015544  7640          SZA CLA
3469 015545  5365          JMP     COM
3470 015546  4567          JMS I   BSS
3471 015547  2056  UP,     ISZ     L56
3472 015550  2056          ISZ     L56
3473 015551  2056          ISZ     L56
3474 015552  5266          JMP     SYM
3475 015553  7001  NORM,   IAC
3476 015554  5331          JMP     ACK
3477 015555  0025  C25,    25
3478 015556  0007  E7,     7
3479 015557  5200  K5200,  5200
3480 015560  5636  DEFN,   LDEFN
3481 015561  0020  E20,    20
3482 015562  0010  E10,    10
3483 015563  7376  LPTEMP, EEK
3484 015564  3150  LEAD,   LLEAD
3485 015565  4516  COM,    JMS I   PROP
3486 015566  6165                  6165
3487 015567  1026          TAD     L26
3488 015570  4534          JMS I   PROTAC
3489 015571  4520          JMS I   PRINT
3490 015572  5347          JMP     UP
3491 015577  4052         *5600
3492 015600  7600  C7600,  7600
3493 015601  0177  C177,   177
3494 015602  0000  LBSS,   0
3495 015603  1065          TAD     L65     /GET THE LOCATION COUNTER
3496 015604  1026          TAD     L26     /ADD THE CURRENT AMOUNT TO IT
3497 015605  0200          AND     C7600   /MASK ALL BUT THE PAGE BITS
3498 015606  3064          DCA     L64     /SAVE THE NUMBER OF PAGES
3499 015607  1065          TAD     L65     /GET THE LOCATION COUNTER AGAIN
3500 015610  1026          TAD     L26     /ADD THE CURRENT DISPLACEMENT AGAIN
3501 015611  0201          AND     C177    /NOW GET THE NUMBER OF LOCATIONS OVER A PAGE
3502 015612  3065          DCA     L65     /AND SAVE
3503 015613  1064  L,      TAD     L64     /GET THE NUMBER OF PAGES TO BE RESERVED
3504 015614  7450          SNA             /ARE THERE ANY TO BE RESERVED
3505 015615  5230          JMP     CRAM    /NO...JUST PUT OUT STRAIGHT NUMBER OF LOCATIONS
3506 015616  1200          TAD     C7600   /YES...SUBTRACT ONE FROM THE PAGE COUNT
3507 015617  3064          DCA     L64     /AND SAVE IT
3508 015620  1065          TAD     L65     /GET THE NUMBER OF EXTRA LOCATIONS
3509 015621  3026          DCA     L26     /AND PUT IN THE DISPLACEMENT LOCATION
3510 015622  4534          JMS I   PROTAC  /PUT OUT A ZERO
3511 015623  4520          JMS I   PRINT   /PUT OUT A CRLF
3512 015624  4516          JMS I   PROP    /PUT OUT THE OPCODE
3513 015625  6151                  6151    /WHICH IS THE PAGE PSEUDO OP
3514 015626  4520          JMS I   PRINT   /PUT OUT A CRLF
3515 015627  5213          JMP     L       /NOW SEE IF WE HAVE PUT OUT ENOUGH PAGES
3516 015630  4516  CRAM,   JMS I   PROP    /NOW PUNCH 'BLOCK <N>'
3517 015631  6154                  BLCK
3518 015632  1026          TAD     L26
3519 015633  4534          JMS I   PROTAC
3520 015634  4520          JMS I   PRINT
3521 015635  5602          JMP I   LBSS
3522 015636  0000  LDEFN,  0
3523 015637  1056          TAD     L56     /GET THE POINTER TO THE SYMBOL
3524 015640  4532          JMS I   PRSYM   /PRINT THE SYMBOL
3525 015641  1154          TAD     C7240   /GET THE TERMINATOR
3526 015642  4521          JMS I   P2      /PRINT IT
3527 015643  5636          JMP I   LDEFN   /AND RETURN
3528 015644  1047  AFCON,  TAD     L47     /GET START OF FCON TABLE
3529 015645  1152          TAD     C3      /UPDATE IT
3530 015646  3056          DCA     L56     /SAVE UPDATED ADDRESS
3531 015647  1050  FLOOP,  TAD     L50     /GET END OF FCON TABLE
3532 015650  7041          CIA
3533 015651  1056          TAD     L56     /SUBTRACT FROM CURRENT POINTER
3534 015652  7650          SNA CLA         /ARE WE DONE
3535 015653  5322          JMP     ALTHRU  /YES
3536 015654  1164          TAD     CM3     /NO, GET MINUS THREE
3537 015655  3063          DCA     L63     /TO USE AS A COUNTER
3538 015656  4236          JMS     LDEFN   /DEFINE IT
3539 015657  1456          TAD I   L56     /GET THE FIRST WORD
3540 015660  2056          ISZ     L56     /ADVANCE THE POINTER TO THE NEXT WORD
3541 015661  4534          JMS I   PROTAC  /PRINT THE WORD
3542 015662  4520          JMS I   PRINT   /PUT OUT A CRLF
3543 015663  2063          ISZ     L63     /HAVE WE PUT OUT ALL THREE WORDS
3544 015664  5257          JMP     .-5     /NO...PUT OUT ANOTHER
3545 015665  5247          JMP     FLOOP   /YES...GET THE NEXT CONSTANT
3546 015666  1373  PTEMP,  TAD     K561
3547 015667  3056          DCA     L56
3548 015670  1045  FTLOOP, TAD     L45
3549 015671  7040          CMA
3550 015672  1056          TAD     L56
3551 015673  7650          SNA CLA
3552 015674  5304          JMP     ITEMP
3553 015675  1152          TAD     C3
3554 015676  3026          DCA     L26
3555 015677  1371          TAD     K5400   /GET F.P. DESIGNATOR
3556 015700  4236          JMS     LDEFN   /PRINT THE SYMBOL
3557 015701  4567          JMS I   BSS     /RESERVE THE LOCATIONS FOR IT
3558 015702  2056          ISZ     L56     /INCREMENT THE POINTER
3559 015703  5270          JMP     FTLOOP
3560 015704  1372  ITEMP,  TAD     K531
3561 015705  3056          DCA     L56
3562 015706  1051  ILOOP,  TAD     L51
3563 015707  7040          CMA
3564 015710  1056          TAD     L56
3565 015711  7650          SNA CLA
3566 015712  5352          JMP     SUBOUT
3567 015713  7001          IAC
3568 015714  3026          DCA     L26
3569 015715  1370          TAD     K5000   /GET THE INTEGER TEMP DESIGNATOR
3570 015716  4236          JMS     LDEFN   /PRINT IT
3571 015717  4567          JMS I   BSS     /RESERVE LOCATIONS FOR IT
3572 015720  2056          ISZ     L56     /INCREMENT THE POINTER
3573 015721  5306          JMP     ILOOP
3574 015722  1376  ALTHRU, TAD     D6      /PUNCH AN 'IFF 6'
3575 015723  4536          JMS I   PIFF    /SO THAT ENTRY WILL NOT BE AT END OF THE PAGE
3576 015724  4516          JMS I   PROP
3577 015725  6055                  6055    /PUT OUT AN EAP
3578 015726  4520          JMS I   PRINT
3579 015727  1070          TAD     L70     /GET THE SUBROUTINE FUNCTION POINTER
3580 015730  7640          SZA CLA         /IS IT ZERO
3581 015731  5346          JMP     THRU    /NO...WE MUST BE IN A SUBR OR A FUNC
3582 015732  4516          JMS I   PROP    /YES ...WERE IN A MAIN PROGRAM
3583 015733  6052                  6052    /PUT OUT ENT
3584 015734  1351          TAD     C6000   /POINTER TO THE SYMBOL MAIN
3585 015735  4532          JMS I   PRSYM   /PRINT THE SYMBOL
3586 015736  4520          JMS I   PRINT   /PUT OUT A CRLF
3587 015737  1351          TAD     C6000   /GET THE POINTER TO MAIN AGAIN
3588 015740  4532          JMS I   PRSYM   /PRINT  IT
3589 015741  1154          TAD     C7240   /GET A COLON
3590 015742  4521          JMS I   P2      /PRINT THEM
3591 015743  4516          JMS I   PROP
3592 015744  6047                  6047
3593 015745  4520          JMS I   PRINT   /PUT OUT A CRLF
3594 015746  4775  THRU,   JMS I   FINI
3595 015747  6201          6201            /CDF FIELD 0
3596 015750  5600          JMP I   C7600   /AND RETURN TO THE MONITOR ...
3597 015751  6000  C6000,  6000
3598 015752  3056  SUBOUT, DCA     L56
3599 015753  1025  SUBOT1, TAD     L25
3600 015754  7040          CMA
3601 015755  1056          TAD     L56
3602 015756  7650          SNA CLA
3603 015757  5244          JMP     AFCON
3604 015760  4516          JMS I   PROP    /PUT OUT THE OP CODE
3605 015761  6176          6176            /WHICH IS DUMMY
3606 015762  1374          TAD     X5200   /GET SUBSCRIPT DESIGNATOR
3607 015763  1056          TAD     L56     /GET THE POINTER 
3608 015764  4532          JMS I   PRSYM   /PRINT THE SYMBOL
3609 015765  4520          JMS I   PRINT   /CRLF
3610 015766  2056          ISZ     L56
3611 015767  5353          JMP     SUBOT1
3612 015770  4070  K5000,  5000-ITTAB
3613 015771  4440  K5400,  5400-FTTAB
3614 015772  0711  K531,   ITTAB+1
3615 015773  0741  K561,   FTTAB+1
3616 015774  5200  X5200,  5200
3617 015775  5342  FINI,   LFINI
3618 015776  0006  D6,     6
3619                      *6000
3620               /FUNCTION AND SUBROUTINE STATEMENT PROCESSOR
3621 016000  4525  LFUNC,  JMS I   LOOK    /CHECK REST OF STATEMENT
3622 016001  7774  MFOUR,          -4      /
3623 016002  7754                  -24     /T
3624 016003  7767                  -11     /I
3625 016004  7761                  -17     /O
3626 016005  7762                  -16     /N
3627 016006  7201          CLA IAC         /SET SWITCH
3628 016007  3067  TART,   DCA     L67     /THIS IS THE SWITCH
3629 016010  1000          TAD     FIRSTF
3630 016011  7650          SNA     CLA     /INSURE SUBR. OR FUNCT. IS FIRST STMT.
3631 016012  4523  ERR47,  JMS I   LUNCH
3632 016013  4342          JMS     SUBB
3633 016014  7240          CLA CMA
3634 016015  1352          TAD     C6275   /THIS IS THE PLACE TO STORE FUNCTION NAME
3635 016016  3011          DCA     L11     /USE AUTO INDEXING TO STORE THE NAME
3636 016017  1030          TAD     L30     /GET THE FIRST WORD
3637 016020  3411          DCA I   L11     /PUT IT IN THE SYMBOL TABLE
3638 016021  1031          TAD     L31     /GET THE SECOND WORD
3639 016022  3411          DCA I   L11     /PUT IT IN THE TABLE
3640 016023  1032          TAD     L32     /GET THE THIRD WORD
3641 016024  7001          IAC             /TURN THE EXTERNAL SYMBOL BIT ON
3642 016025  3411          DCA I   L11     /AND PUT IT IN THE TABLE
3643 016026  1352          TAD     C6275   /GET THE POINTER
3644 016027  3070          DCA     L70     /AND PUT IT IN LOC 70
3645 016030  4516          JMS I   PROP
3646 016031  6052                  6052    /PUT OUT AN ENT
3647 016032  1070          TAD     L70     /GET THE SUBROUTINE NAME
3648 016033  4532          JMS I   PRSYM   /PRINT IT
3649 016034  4520          JMS I   PRINT   /PUT OUT A CRLF
3650 016035  7240          CLA CMA
3651 016036  3341          DCA     READY   /SET SWITCH
3652 016037  1070          TAD     L70     /GET THE SUB NAME
3653 016040  4532          JMS I   PRSYM   /PUT IT OUT
3654 016041  1154          TAD     C7240
3655 016042  4521          JMS I   P2      /PUT IT OUT
3656 016043  4516          JMS I   PROP    /PUT OUT THE OP CODE 'BLOCK 2'
3657 016044  6154                  BLCK
3658 016045  1151          TAD     C2
3659 016046  4534          JMS I   PROTAC
3660 016047  4520          JMS I   PRINT
3661 016050  3351          DCA     WHICH   /ZERO THE SWITCH WHICH TELLS WHICH WORD
3662 016051  4575  MORE,   JMS I   GNB
3663 016052  7450          SNA             /CHECK FOR END OF CARD
3664 016053  5353          JMP     CKCR
3665 016054  1160          TAD     CM50    /CHECK FOR LEFT PAREN
3666 016055  7450          SNA             /IS IT A LPAR
3667 016056  5266          JMP     GET1    /YES
3668 016057  1201          TAD     MFOUR
3669 016060  7450          SNA             /IS IT A COMMA
3670 016061  5270          JMP     XGET    /YES
3671 016062  1152          TAD     C3
3672 016063  7650          SNA CLA         /IS IT A LPAR
3673 016064  5177          JMP     START   /YES
3674 016065  5354          JMP     ERR48   /NO
3675 016066  2341  GET1,   ISZ     READY   /WERE WE READY FOR LPAR
3676 016067  5354          JMP     ERR48   /NO, ERROR ...
3677 016070  4342  XGET,   JMS     SUBB
3678 016071  1032          TAD     L32
3679 016072  1347          TAD     TEN
3680 016073  3032          DCA     L32
3681 016074  1155          TAD     C77     /GET MASK FOR SYMBOL TABLE
3682 016075  3021          DCA     L21     /AND PUT INTO THE SWITCH
3683 016076  4530          JMS I   SYMTAB  /AND PUT IN SYMBOL TABLE
3684 016077  4516          JMS I   PROP
3685 016100  6176                  DUMMY
3686 016101  1077          TAD     L77
3687 016102  4532          JMS I   PRSYM
3688 016103  4520          JMS I   PRINT
3689 016104  4516  DLOOP,  JMS I   PROP
3690 016105  6063                  6063    /PUT OUT A TAD*
3691 016106  1070          TAD     L70     /GET THE FUNCTION NAME
3692 016107  4532          JMS I   PRSYM   /AND PRINT IT
3693 016110  4520          JMS I   PRINT   /PUT OUT A CRLF
3694 016111  4516          JMS I   PROP
3695 016112  6071                  6071    /PUT OUT A DCA
3696 016113  1077          TAD     L77     /GET ADDRESS OF SYMBOL
3697 016114  4532          JMS I   PRSYM   /PRINT IT
3698 016115  1351          TAD     WHICH   /GET THE WHICH SWITCH
3699 016116  7010          RAR             /GET THE LOW BIT INTO THE LINK
3700 016117  7620          SNL CLA         /IS THE WHICH SWITCH BIT SWITCHED
3701 016120  5323          JMP     NEXT    /NO...THAT MEANS WERE ON THE FIRST WORD
3702 016121  1346          TAD     E43     /YES...WERE ON SECOND WORD...GET A "#"
3703 016122  4520          JMS I   PRINT   /PRINT IT
3704 016123  4520  NEXT,   JMS I   PRINT
3705 016124  4516          JMS I   PROP    /PUT OUT AN INC (ISZ WHICH DOES NOT SKIP)
3706 016125  6237                  6237
3707 016126  1070          TAD     L70     /GET THE FUNCTION NAME
3708 016127  4532          JMS I   PRSYM   /AND PRINT IT
3709 016130  1346          TAD     E43
3710 016131  4520          JMS I   PRINT
3711 016132  4520          JMS I   PRINT   /PUT OUT A CRLF
3712 016133  2351          ISZ     WHICH   /INCREMENT THE SHICH SWITCH
3713 016134  1351          TAD     WHICH   /GET THE SWITCH
3714 016135  7010          RAR             /GET LOW BIT IN THE LINK
3715 016136  7630          SZL CLA         /IS THE LOW BIT ON
3716 016137  5304          JMP     DLOOP   /YES...WORK ON THE SECOND WORD
3717 016140  5251          JMP     MORE    /GO GET SOME MORE
3718 016141  0000  READY,  0
3719 016142  0000  SUBB,   0
3720 016143  4527          JMS I   ENTITY
3721 016144  7410          SKP
3722 016145  5742          JMP I   SUBB
3723 016146  0043  E43,    43
3724 016147  0010  TEN,    10
3725 016150  5354          JMP     ERR48
3726 016151  0000  WHICH,  0
3727 016152  6275  C6275,  6275            /SUBROUTINE OR FUNCTION NAME POINTER
3728 016153  2341  CKCR,   ISZ     READY
3729 016154  4523  ERR48,  JMS I   LUNCH
3730 016155  5177          JMP     START
3731               
3732 016156  7240  IOEQL,  CLA CMA         /ROUTINE TO TERMINATE IMPLIED DO LOOPS
3733 016157  1112          TAD     IMPDO
3734 016160  3112          DCA     IMPDO   /REDUCE THE DEPTH BY 1
3735 016161  4770          JMS I   DONEXT  /GENERATE END-OF-LOOP CODE
3736 016162  4575          JMS I   GNB
3737 016163  1161          TAD     CM51
3738 016164  7640          SZA CLA         /SKIP TO A RIGHT PAREN
3739 016165  5362          JMP     .-3
3740 016166  5767          JMP I   .+1
3741 016167  6236          IOH0
3742 016170  0316  DONEXT, LDNEXT
3743                      *6172
3744 016172  6030  C6030,  6030
3745 016173  4525  LWRIT,  JMS I   LOOK    /LOOK FOR REST OF STATEMENT
3746 016174  7777                  -1
3747 016175  7773                  -5
3748 016176  1152          TAD     C3
3749 016177  1372  LREAD,  TAD     C6030   /GET THE POINTER TO READ AND WRITE
3750 016200  3211          DCA     IOP     /USE AS A PARAMETER WITH FPROP
3751 016201  4575          JMS  I  GNB
3752 016202  1160          TAD     CM50
3753 016203  7640          SZA CLA         /IS THIS A LEFT PAREN?
3754 016204  5514          JMP I   ASSIGN
3755 016205  4353          JMS     SUBA
3756 016206  4526          JMS I   ZZZ
3757 016207  1151          TAD     C2
3758 016210  4544          JMS I   FPROP
3759 016211  0000  IOP,    0
3760 016212  4570          JMS I   ARG
3761 016213  1032          TAD     L32
3762 016214  4532          JMS I   PRSYM
3763 016215  4520          JMS I   PRINT
3764 016216  4570          JMS I   ARG
3765 016217  4575          JMS I   GNB
3766 016220  1162          TAD     CM54    /IS IT A COMMA
3767 016221  7640          SZA CLA
3768 016222  5234          JMP     ERR50   /NO, ERROR ...
3769 016223  4353          JMS     SUBA
3770 016224  1032          TAD     L32     /GET FORMAT
3771 016225  7500          SMA
3772 016226  4535          JMS I   PLAB
3773 016227  7510          SPA
3774 016230  4532          JMS I PRSYM
3775 016231  4575          JMS I   GNB
3776 016232  1161          TAD     CM51    /CHECK FOR A RIGHT PAREN
3777 016233  7640          SZA CLA         /IS IT?
3778 016234  4523  ERR50,  JMS I   LUNCH
3779 016235  4520          JMS I   PRINT
3780 016236  4575  IOH0,   JMS I   GNB
3781 016237  7450          SNA
3782 016240  5344          JMP     IOH2
3783 016241  1162          TAD     CM54
3784 016242  7650          SNA CLA         /IS IT A COMMA
3785 016243  5340          JMP     IOH3    /YES ...
3786 016244  4515  IOH1,   JMS I   PUTCH   /NO...PUT IT BACK
3787 016245  4575          JMS I   GNB     /THIS STMT IS TRANSFERRED TO!
3788 016246  1160          TAD     CM50
3789 016247  7650          SNA CLA
3790 016250  5775          JMP I   IOPEN   /OPEN PAREN - MAY BE IMPLIED DO-LOOP
3791 016251  4515  IOH1BK, JMS I   PUTCH
3792 016252  3052          DCA     L52     /SET SWITCHES FOR GENER
3793 016253  3046          DCA     L46
3794 016254  2044          ISZ     L44
3795 016255  4540          JMS I   GENER   /START PROCESSING THE IO LIST
3796 016256  1041          TAD     L41
3797 016257  3042          DCA     L42
3798 016260  1053          TAD     L53
3799 016261  3073          DCA     L73     /SAVE CREATED LABEL LOC
3800 016262  3023          DCA     L23     /ZERO TEMPORARY FOR "DUMARG"
3801 016263  4541          JMS I   LCHNG   /TEST FOR 0 OR DUMMY ARG
3802 016264  3441          DCA I   L41
3803 016265  1023          TAD     L23     /GET TEMPORARY FROM "DUMARG"
3804 016266  7640          SZA CLA         /ZERO MEANS NON-VARIABLE NAME
3805 016267  1423          TAD I   L23     /NON-ZERO POINTS TO FLAG WORD OF VAR
3806 016270  0360          AND     Q20
3807 016271  7650          SNA CLA         /DO WE HAVE AN ARRAY NAME?
3808 016272  5323          JMP     NOSYMB  /NO
3809 016273  4516          JMS I   PROP
3810 016274  6245          OPCMA           /PUT OUT A "CMA" TO DISTINGUISH THIS CALL
3811 016275  4520          JMS I   PRINT   /FROM A REGULAR CALL TO "IOH"
3812 016276  1151          TAD     C2
3813 016277  4544          JMS I   FPROP
3814 016300  6036          6036            /OUTPUT A "CALL 2,IOH"
3815 016301  4570          JMS I   ARG
3816 016302  1023          TAD     L23
3817 016303  1163          TAD     CM2
3818 016304  4547          JMS I   DIM     /GET THE DIMENSIONS
3819 016305  3211          DCA     IOP
3820 016306  1414          TAD I   L14
3821 016307  7041          CIA
3822 016310  3044          DCA     L44
3823 016311  1023          TAD     L23
3824 016312  1163          TAD     CM2
3825 016313  4524          JMS I   MODE    /GET THE MODE OF THE ARRAY
3826 016314  1174          TAD     C4000   /FLOATING POINT - ADD 4000 TO AC
3827 016315  1211          TAD     IOP
3828 016316  2044          ISZ     L44
3829 016317  5315          JMP     .-2     /COMPUTE PRODUCT OF DIMENSIONS PLUS MODE BIT
3830 016320  4534          JMS I   PROTAC  /PRINT IT
3831 016321  4520          JMS I   PRINT
3832 016322  5331          JMP     IOHRSM  /GO PRINT ARRAY NAME
3833 016323  1046  NOSYMB, TAD     L46
3834 016324  7640          SZA CLA
3835 016325  4543          JMS I   STORE
3836 016326  7001          IAC             /THERE WILL BE ONE ARGUMENT
3837 016327  4544          JMS I   FPROP   /PUT OUT THE CALL TO IOH
3838 016330  6036                  6036
3839 016331  1073  IOHRSM, TAD     L73
3840 016332  3053          DCA     L53     /RESTORE CREATED LABEL LOC
3841 016333  1441          TAD I   L41
3842 016334  4776          JMS I   QSYMOT
3843 016335  1063          TAD     L63     /GET TERMINATING CHAR
3844 016336  7650          SNA CLA         /WAS IT A <CR>?
3845 016337  5344          JMP     IOH2    /YES
3846 016340  4575  IOH3,   JMS I   GNB     /GENTLY LOOK AHEAD ...
3847 016341  7650          SNA CLA         /DO WE HAVE A ',<CR>' ?
3848 016342  5177          JMP     START   /YES, DO NOT TERMINATE YET ...
3849 016343  5244          JMP     IOH1    /NO, PUSH IT BACK & PROCESS NEXT ITEM
3850 016344  7001  IOH2,   IAC             /THERE WILL BE ONE ARGUMENT
3851 016345  4544          JMS I   FPROP   /PUT OUT A CALL TO IOH
3852 016346  6036                  6036
3853 016347  4570          JMS I   ARG     /PUT OUT THE PSEUDO OP ARG
3854 016350  4534          JMS I   PROTAC
3855 016351  4520          JMS I   PRINT
3856 016352  5177          JMP     START
3857 016353  0000  SUBA,   0
3858 016354  4527          JMS I   ENTITY
3859 016355  5361          JMP ERR51       /ITS A CR
3860 016356  5362          JMP ERR51+1     /ITS A VARIABLE
3861 016357  5753          JMP I   SUBA
3862 016360  0020  Q20,    20
3863 016361  4523  ERR51,  JMS I   LUNCH
3864 016362  3021          DCA     L21     /ZERO THE SYMBOL TABLE SWITCH
3865 016363  4530          JMS I   SYMTAB
3866 016364  1077          TAD     L77
3867 016365  4524          JMS I   MODE
3868 016366  5361          JMP     ERR51
3869 016367  1077          TAD     L77
3870 016370  3032          DCA     L32
3871 016371  1032          TAD     L32
3872 016372  4531          JMS I   DUMARG
3873 016373  5361          JMP     ERR51
3874 016374  5753          JMP I   SUBA
3875 016375  7121  IOPEN,  IOOPEN
3876 016376  6672  QSYMOT, SYMOUT
3877                              *6400
3878 016400  4525  LRET,   JMS I   LOOK    /CHECK REST OF STATEMENT
3879 016401  7776                  -2
3880 016402  7756                  -22
3881 016403  7762                  -16
3882 016404  4526          JMS I   ZZZ
3883 016405  1070          TAD     L70
3884 016406  7650          SNA CLA         /ARE WE COMPILING MAIN PROGRAM?
3885 016407  4523  ERR60,  JMS I   LUNCH   /YES
3886 016410  1067          TAD     L67
3887 016411  7650          SNA CLA
3888 016412  5232          JMP     INT     /ITS A SUBROUTINE
3889 016413  1070          TAD     L70     /GET HE NAME OF THE FUNCTION
3890 016414  4524          JMS I   MODE    /IS IT FP OR INTEGER
3891 016415  5221          JMP     .+4     /ITS FP
3892 016416  4516          JMS I   PROP
3893 016417  6066                  6066    /OPCODE IS TAD
3894 016420  5225          JMP     .+5     /PUT OUT THE SYMBOL
3895 016421  7001          IAC             /THERE IS ONE ARGUMENT
3896 016422  4544          JMS I   FPROP
3897 016423  6003                  6003
3898 016424  4570          JMS I   ARG
3899 016425  1360          TAD     F34     /GET A BACK SLASH
3900 016426  4520          JMS I   PRINT
3901 016427  1070          TAD     L70     /GET THE NAME OF THE FUNCTION
3902 016430  4532          JMS I   PRSYM   /PRINT THE NAME
3903 016431  4520          JMS I   PRINT   /PUT OUT A CRLF
3904 016432  4516  INT,    JMS I   PROP
3905 016433  6077                  6077    /OPCODE IS RTN
3906 016434  1070          TAD     L70     /GET THE FUNCTION NAME
3907 016435  4532          JMS I   PRSYM   /PRINT IT
3908 016436  4520          JMS I   PRINT   /PUT OUT A CRLF
3909 016437  5177          JMP     START   /WERE DONE
3910               
3911 016440  0000  LGETHI, 0               /PUNCH 'TAD ACH'
3912 016441  4516          JMS I   PROP
3913 016442  6066                  6066
3914 016443  4516          JMS I   PROP    /PRINT THE OP CODE
3915 016444  6226          6226            /WHICH IS ACH (HIGH ORDER AC)
3916 016445  4520          JMS I   PRINT
3917 016446  4544          JMS I   FPROP   /PUNCH 'CALL 0,CLEAR'
3918 016447  6204                  6204
3919 016450  5640          JMP I   LGETHI
3920 016451  0000  LDIM,   0               /GETS THE 1ST DIMENSION OF THIS VARIABLE
3921 016452  3240          DCA     LGETHI  /SYMBOL TABLE ADDRESS IS IN THE AC
3922 016453  7040          CMA
3923 016454  1050          TAD     L50
3924 016455  3014          DCA     L14
3925 016456  1414  LK,     TAD I   L14     /SEARCH THE DIMENSION TABLE
3926 016457  7041          CIA
3927 016460  1240          TAD     LGETHI
3928 016461  7650          SNA CLA
3929 016462  5266          JMP     .+4
3930 016463  2014          ISZ     L14
3931 016464  2014          ISZ     L14
3932 016465  5256          JMP     LK
3933 016466  1414          TAD I   L14     /EXIT WITH DIMENSION IN THE AC
3934 016467  5651          JMP I   LDIM
3935               /       THIS PROCESSES SUBSCRIPTS
3936 016470  5761  SUBRET, JMP I   LSUBSC  /RETURN FROM SUBSC
3937 016471  0000  LSBTEM, 0               /THIS ROUTINE MAKES AN ENTRY
3938 016472  3357          DCA     TRIP    /IN SUBSCRIPT TEMPORARY TABLE
3939 016473  1354          TAD     FBASE
3940 016474  3355          DCA     POINT
3941 016475  1156          TAD     CM40
3942 016476  3356          DCA     PCTR
3943 016477  1755  LOOP,   TAD I   POINT   /LOOK FOR CURRENT TRIPLE NR
3944 016500  7450          SNA             /OR END OF TABLE...
3945 016501  5312          JMP     YES
3946 016502  7041          CIA
3947 016503  1357          TAD     TRIP
3948 016504  7650          SNA CLA
3949 016505  5314          JMP     GOT
3950 016506  2355          ISZ     POINT
3951 016507  2356          ISZ     PCTR
3952 016510  5277          JMP     LOOP
3953 016511  4523  ERR53,  JMS I   LUNCH
3954 016512  1357  YES,    TAD     TRIP
3955 016513  3755          DCA I   POINT
3956 016514  1354  GOT,    TAD     FBASE
3957 016515  7041          CIA
3958 016516  1355          TAD     POINT
3959 016517  3355          DCA     POINT
3960 016520  1355          TAD     POINT
3961 016521  7041          CIA
3962 016522  1025          TAD     L25
3963 016523  7710          SPA CLA         /IF TEMPORARY NR > L25
3964 016524  2025          ISZ     L25     /BUMP L25
3965 016525  1355          TAD     POINT
3966 016526  5671          JMP I   LSBTEM
3967 016527  0000  LWIPE,  0               /ZERO THE SUBSCRIPT TEMP. TABLE
3968 016530  1354          TAD     FBASE
3969 016531  3355          DCA     POINT
3970 016532  1156          TAD     CM40
3971 016533  3356          DCA     PCTR
3972 016534  3755  LOOP2,  DCA I   POINT
3973 016535  2355          ISZ     POINT
3974 016536  2356          ISZ     PCTR
3975 016537  5334          JMP     LOOP2
3976 016540  5727          JMP I   LWIPE
3977 016541  0000  LZER,   0
3978 016542  2341          ISZ     LZER    /INCREMANT
3979 016543  4534          JMS I   PROTAC  /PUT OUT A ZERO
3980 016544  5741          JMP I   LZER    /AND REUTURN
3981 016545  0000  LCLAB,  0
3982 016546  7450          SNA     /IF NO LABEL IN AC,
3983 016547  4533          JMS I   CREATE  /CREATE A LABEL
3984 016550  4517          JMS I   PRCRL   /AND PRINT IT
3985 016551  1154          TAD     C7240   /PUT OUT A COLON AND SPACE
3986 016552  4521          JMS I   P2
3987 016553  5745          JMP I   LCLAB   /RETURN
3988 016554  4600  FBASE,  4600
3989 016555  0000  POINT,  0
3990 016556  0000  PCTR,   0
3991 016557  0000  TRIP,   0
3992 016560  0034  F34,    34
3993 016561  0000  LSUBSC, 0
3994 016562  1046          TAD     L46
3995 016563  7440          SZA             /IS THERE ANYTHING IN THE AC?
3996 016564  7610  CHANGE, SKP CLA         /********************************
3997               /               TRY CHANGING THIS LOCATION TO A "JMS I MODE"
3998               /               TO LIMIT THE CHECK TO THE INTEGER AC!
3999               /               COULD SAVE UP TO 30% IN HEAVILY SUBSCRIPTED F.P.
4000               /               EXPRESSIONS! (IMPORTANT - TEST WITH F.P. SUBSCRIPTS)
4001 016565  7410          SKP             /NOTHING IN THE AC
4002 016566  4543          JMS I   STORE   /YES - STORE IT
4003 016567  7001          IAC
4004 016570  3063          DCA     L63
4005 016571  1053          TAD     L53
4006 016572  3073          DCA     L73
4007 016573  1041          TAD     L41
4008 016574  3042          DCA     L42
4009 016575  2041          ISZ     L41
4010 016576  1441          TAD I   L41
4011 016577  1157          TAD     CM4046
4012 016600  7650          SNA CLA         /WAS IT A PRIME
4013 016601  5211          JMP     BACK
4014 016602  4541          JMS I   LCHNG
4015 016603  3063          DCA     L63
4016 016604  2041          ISZ     L41
4017 016605  2041          ISZ     L41
4018 016606  2042          ISZ     L42
4019 016607  2042         ISZ     L42
4020 016610  7001          IAC
4021 016611  2041  BACK,   ISZ     L41
4022 016612  3272          DCA     SYMOUT
4023 016613  4353          JMS     CHNG
4024 016614  3065          DCA     L65
4025 016615  2042          ISZ     L42
4026 016616  2042          ISZ     L42
4027 016617  4353          JMS     CHNG
4028 016620  3313          DCA     LDUM    /SAVE ARRAY POINTER (OR 0 IF DUMMY)
4029 016621  1073          TAD     L73     /NOW RESTORE THE CREATED LABEL LOC
4030 016622  3053          DCA     L53
4031 016623  1272          TAD     SYMOUT
4032 016624  7650          SNA CLA         /HOW MANY SUBSCRIPTS?
4033 016625  5234          JMP     .+7     /ONE - SKIP OUTPUTTING "TAD"
4034 016626  4516          JMS I   PROP
4035 016627  6066                  6066
4036 016630  1441          TAD I   L41
4037 016631  4547          JMS I   DIM
4038 016632  4532          JMS I   PRSYM
4039 016633  4520          JMS I   PRINT
4040 016634  1441          TAD I   L41
4041 016635  4524          JMS I   MODE
4042 016636  5265          JMP     FP
4043 016637  1366  CASUB,  TAD     H200
4044 016640  1040          TAD     L40
4045 016641  3441          DCA I   L41     /STORE TRIPLE NUMBER WITH MODE BITS IN PD STACK
4046 016642  1272          TAD     SYMOUT  /GET NUMBER OF ARGUMENTS (2 OR 3)
4047 016643  1151          TAD     C2
4048 016644  4544          JMS I   FPROP   /PUT OUT A CALL TO THE SUBSCRIPTING ROUTINE
4049 016645  6173                  6173    /TO THE SUBSCRIPTING ROUTINE
4050 016646  1272          TAD     SYMOUT
4051 016647  7650          SNA CLA         /ONLY ONE ARG?
4052 016650  5253          JMP     .+3     /YES - DON'T OUTPUT FIRST SUBSCRIPT
4053 016651  1063          TAD     L63
4054 016652  4272          JMS     SYMOUT
4055 016653  1065          TAD     L65
4056 016654  4272          JMS     SYMOUT
4057 016655  1313          TAD     LDUM    /GET THE ARRAY NAME
4058 016656  4272          JMS     SYMOUT  /OUTPUT IT AS AN ARGUMENT
4059 016657  1441          TAD I   L41
4060 016660  4532          JMS I   PRSYM   /OUTPUT THE DESTINATION TEMPORARY
4061 016661  4520          JMS I   PRINT
4062 016662  1441          TAD I   L41
4063 016663  3012          DCA     L12     /MARK IT AS THE CONTENTS OF THE LAST LINE
4064 016664  5770          JMP I   FSUBSC  /RETURN
4065 016665  4516  FP,     JMS I   PROP
4066 016666  6245                  OPCMA                   /OPCODE IS CMA
4067 016667  4520          JMS I   PRINT
4068 016670  1365          TAD     H400    /SET MODE TO FLOATING POINT
4069 016671  5237          JMP     CASUB
4070 016672  0000  SYMOUT, 0
4071 016673  3353          DCA     CHNG
4072 016674  1353          TAD     CHNG
4073 016675  7650          SNA CLA
4074 016676  4542          JMS I   CLAB    /CREATE LABEL IF DUMMY ARG
4075 016677  4570          JMS I   ARG
4076 016700  1353          TAD     CHNG
4077 016701  7450          SNA             /IS IT ZERO
4078 016702  4545          JMS I   ZER     /YES PUT OUT A ZERO
4079 016703  4532          JMS I   PRSYM   /OTHERWISE PUT OUT SUBSCRIPT
4080 016704  4520          JMS I   PRINT   /PUT OUT A CRLF
4081 016705  5672          JMP I   SYMOUT
4082               
4083 016706  3024  LDSPCL, DCA     L24
4084 016707  4533          JMS I   CREATE
4085 016710  4517          JMS I   PRCRL   /CHANGE LAST LINE TO STORE IN NEW DESTINATION
4086 016711  3012          DCA     L12     /MARK LAST LINE USELESS FOR OPTOMIZATION
4087 016712  5351          JMP     LDMRET
4088 016713  0000  LDUM,   0
4089 016714  2313          ISZ     LDUM    /INCREMENT RETURN
4090 016715  1442          TAD I   L42     /GET THE THING WHICH IS DUMMY
4091 016716  7041          CIA
4092 016717  1012          TAD     L12     /DID WE JUST PUT THIS OUT AS A SUBSCRIPT
4093 016720  7650          SNA CLA         /DESTINATION??
4094 016721  5306          JMP     LDSPCL  /YES - SAVE OODLES OF CODE
4095 016722  4516          JMS I   PROP
4096 016723  6066                  6066    /PUT OUT A TAD
4097 016724  1442          TAD I   L42
4098 016725  4532          JMS I   PRSYM   /PUT IT OUT
4099 016726  4520          JMS I   PRINT   /PUT OUT A CRLF
4100 016727  4516          JMS I   PROP
4101 016730  6071                  6071    /PUT OUT A DCA
4102 016731  4533          JMS I   CREATE  /CREATE A LABEL
4103 016732  4517          JMS I   PRCRL   /AND PRINT IT
4104 016733  4520          JMS I   PRINT   /PUT OUT A CRLF
4105 016734  4516          JMS I   PROP
4106 016735  6066                  6066
4107 016736  1442          TAD I   L42
4108 016737  4532          JMS I   PRSYM
4109 016740  1367          TAD     H43
4110 016741  4520          JMS I   PRINT
4111 016742  4520          JMS I   PRINT
4112 016743  4516          JMS I   PROP
4113 016744  6071                  6071
4114 016745  1053          TAD     L53
4115 016746  4517          JMS I   PRCRL
4116 016747  1367          TAD     H43
4117 016750  4520          JMS I   PRINT
4118 016751  4520  LDMRET, JMS I   PRINT
4119 016752  5713          JMP I   LDUM    /RETURN
4120 016753  0000  CHNG,   0
4121 016754  1442          TAD I   L42     /NO...THERES TWO SUBSCRIPTS
4122 016755  7450          SNA
4123 016756  1371          TAD     H6041
4124 016757  3442          DCA I   L42
4125 016760  1442          TAD I   L42
4126 016761  4531          JMS I   DUMARG  /SEE IF SECOND SUBSC IS A DUMMY ARG
4127 016762  4546          JMS I   DUM     /YES IT IS A DUMMY ARG
4128 016763  1442          TAD I   L42     /GET THE SECOND SUBSC
4129 016764  5753          JMP I   CHNG
4130               
4131 016765  0400  H400,   400
4132 016766  0200  H200,   200
4133 016767  0043  H43,    43
4134 016770  6470  FSUBSC, SUBRET
4135 016771  6041  H6041,  6041
4136                      *7000
4137 017000  0000  IOHTMP,MCHAR,   0
4138 017001  0000  NPOINT,LLUNCH,  0
4139 017002  7200          CLA
4140 017003  3075          DCA     L75
4141 017004  3024          DCA     L24     /ZERO "BUFFER WAITING TO PRINT" FLAG
4142 017005  3112          DCA     IMPDO   /ZERO IMPLIED DO LOOP FLAG
4143 017006  1256          TAD     TTYPE   /CHANGE TO TTY OUTPUT
4144 017007  3150          DCA     PUNCH
4145 017010  4653          JMS I   LLIST   /TYPE THE CURRENT LINE
4146 017011  7144          CLL CMA RAL
4147 017012  1113          TAD     KOUNT   /USE THE BUFFER POINTER AS AN INDEX
4148 017013  7500          SMA
4149 017014  7040          CMA
4150 017015  3007          DCA     L7
4151 017016  1153          TAD     C40     /NOW PUT OUT SOME SPACES...
4152 017017  4520          JMS I   PRINT
4153 017020  2007          ISZ     L7
4154 017021  5216          JMP     .-3
4155 017022  1254          TAD     D36     /AND AN '^'
4156 017023  4520          JMS I   PRINT
4157 017024  4520          JMS I   PRINT
4158 017025  1255          TAD     LELIST  /NOW TYPE THE ERROR MESSAGE
4159 017026  3010          DCA     L10
4160 017027  1410  UNCH1,  TAD I   L10
4161 017030  7440          SZA             /END OF TABLE?
4162 017031  1201          TAD     LLUNCH
4163 017032  7650          SNA CLA         /IS THIS THE MSG WE WANT?
4164 017033  5236          JMP     UNCH2
4165 017034  2010          ISZ     L10     /NO
4166 017035  5227          JMP     UNCH1
4167 017036  1172  UNCH2,  TAD     BASE
4168 017037  7041          CIA
4169 017040  1410          TAD I   L10
4170 017041  4653          JMS I   LLIST   /FAKE LISTER INTO PRINTING ERROR MESG
4171 017042  4520          JMS I   PRINT   /FORCE BUFFER
4172 017043  1257          TAD     EPNCH   /BACK TO PUNCH OUTPUT
4173 017044  3150          DCA     PUNCH
4174 017045  2075          ISZ     L75     /SET THE NON-PRINT SWITCH
4175 017046  1111          TAD     CHK     /IF ERROR OCCURED WHILE PROCESSING END STMT.
4176 017047  1174          TAD     C4000   /CHK WILL BE 4000-WANT TO ABORT IMMEDIATELY
4177 017050  7640          SZA     CLA     /WAS IT END STMT?
4178 017051  5177          JMP     START   /NO-GO PROCESS NEXT STMT.
4179 017052  5777          JMP I   (THRU   /YES-CLEAN UP AND ABORT
4180 017053  0342  LLIST,  LIST
4181 017054  0036  D36,    36
4182 017055  1161  LELIST, ELIST-1         /ERROR LIST ...
4183 017056  3372  TTYPE,  LTTYPE
4184 017057  5333  EPNCH,  LPUNCH
4185 017060  0000  CTR,    0
4186 017061  0000  TEM,    0
4187               /       THIS ROUTINE PRINTS THE CONTENTS OF THE AC IN DECIMAL
4188 017062  0000  PARCT,LDCOUT, 0
4189 017063  3261          DCA     TEM     /SAVE THE AC
4190 017064  1164          TAD     CM3     /WE WILL PUT OUT FOUR CHARACTERS
4191 017065  3260          DCA     CTR
4192 017066  1317          TAD     ASE     /THIS IS THE ASE OF THE CONVERSION TABLE
4193 017067  3201          DCA     NPOINT  /SAVE IT IN THE POINTER
4194 017070  3320          DCA     FLAG
4195 017071  3200  LOP,    DCA     MCHAR   /ZERO OUT THE CHARACTER
4196 017072  1261          TAD     TEM     /GET THE NUMBER AGAIN
4197 017073  1601          TAD I   NPOINT  /TO GET THE ITEM IN THE TABLE
4198 017074  7510          SPA             /IS THE RESULT POSITIVE
4199 017075  5303          JMP     LOPRST  /NO...RESTORE THE NUMBER
4200 017076  3261          DCA     TEM     /AND SAVE THIS VALUE
4201 017077  1332          TAD     D60
4202 017100  3320          DCA     FLAG    /SET FLAG TO SHOW THAT WE HAVE SOMETHING
4203 017101  2200          ISZ     MCHAR   /YES...INCREMENT THE OUTPUT CHARACTER
4204 017102  5272          JMP     LOP+1   /TRY THE SEQUENCE AGAIN
4205 017103  7200  LOPRST, CLA
4206 017104  1200          TAD     MCHAR
4207 017105  1320          TAD     FLAG
4208 017106  7440          SZA             /DO WE HAVE A SIGNIFICANT DIGIT?
4209 017107  4520          JMS I   PRINT   /YES - PRINT IT
4210 017110  2201          ISZ     NPOINT
4211 017111  2260          ISZ     CTR
4212 017112  5271          JMP     LOP     /AND GET THE NEXT DIGIT
4213 017113  1261          TAD     TEM     /GET THE CHARACTER TO OUTPUT
4214 017114  1332          TAD     D60     /PUT IT IN TRIMMED ASCII FORM
4215 017115  4520          JMS I   PRINT   /PRINT IT
4216 017116  5662          JMP I   LDCOUT  /YES...RETURN TO CALLING PROGRAM
4217 017117  2710  ASE,    THOU
4218 017120  0000  FLAG,   0
4219               
4220               
4221 017121  1113  IOOPEN, TAD     KOUNT
4222 017122  3200          DCA     IOHTMP  /SAVE POINTER TO LEFT PAREN +1
4223 017123  7240          CLA CMA
4224 017124  3262          DCA     PARCT   /INITIALIZE PAREN COUNTER
4225 017125  1113          TAD     KOUNT
4226 017126  3261          DCA     TEM     /TEM POINTS TO ENTITY  (OR PREV ONE IF A VAR)
4227 017127  4527  IOPENL, JMS I   ENTITY  /GET SOMETHING
4228 017130  4523  ERR52,  JMS I   LUNCH   /END OF STMT - BAD
4229 017131  5327          JMP     IOPENL  /VARIABLE - DON'T UPDATE TEM
4230 017132  0060  D60,    60
4231 017133  5325          JMP     IOPENL-2        /CONSTANT - UPDATE TEM
4232 017134  1161          TAD     CM51    /PUNCTUATION - TEST FOR RIGHT PAREN
4233 017135  7450          SNA
4234 017136  5364          JMP     IORPAR  /YES
4235 017137  7001          IAC
4236 017140  7450          SNA             /LEFT PAREN?
4237 017141  5361          JMP     IOLPAR
4238 017142  1372          TAD     CM25
4239 017143  7650          SNA CLA         /IF CHAR IS AN EQUAL SIGL
4240 017144  1262          TAD     PARCT
4241 017145  7001          IAC
4242 017146  7640          SZA CLA         /AND WE ARE ON THE TOP LEVEL OF PARENTHESES
4243 017147  5325          JMP     IOPENL-2
4244 017150  1261          TAD     TEM     /THEN WE HAVE AN IMPLIED DO
4245 017151  3113          DCA     KOUNT
4246 017152  4773          JMS I   DO      /GENERATE DO LOOP CODE
4247 017153  5330          JMP     ERR52   /NOT TERMINATED WITH RPAR - ERROR
4248 017154  2112          ISZ     IMPDO   /BUMP IMPLIED DO COUNT
4249 017155  1200          TAD     IOHTMP
4250 017156  3113          DCA     KOUNT   /RESTORE CHAR PTR TO BEGINNING OF LOOP
4251 017157  5760          JMP I   .+1
4252 017160  6245          IOH1+1          /COMPILE INNARDS OF LOOP
4253               
4254 017161  7240  IOLPAR, CLA CMA
4255 017162  1262          TAD     PARCT
4256 017163  5324          JMP     IOPENL-3        /BUMP PAREN COUNT  UP AND LOOP
4257               
4258 017164  2262  IORPAR, ISZ     PARCT   /BUMP PAREN COUNT DOWN
4259 017165  5325          JMP     IOPENL-2        /LOOP IF NOT BALANCED
4260 017166  1200          TAD     IOHTMP
4261 017167  3113          DCA     KOUNT   /BALANCED - NOT AN IMPLIED DO
4262 017170  5771          JMP I   .+1
4263 017171  6251          IOH1BK          /COMPILE NORMALLY
4264 017172  7753  CM25,   -25
4265 017173  3430  DO,     XDO
4266 017177  5746         *7200
4267 017200  4525  EQUI,   JMS I   LOOK    /CHECK REST OF STATEMENT TYPE
4268 017201  7771          -7      /THERE ARE 7 MORE CHARACTERS
4269 017202  7752          -26     /V
4270 017203  7777          -1      /-A
4271 017204  7764          -14     /-L
4272 017205  7773          -5      /-E
4273 017206  7762          -16     /-N
4274 017207  7775          -3      /-C
4275 017210  7773          -5      /-E
4276 017211  2107  RETA,   ISZ     SNUM    /INCREMENT THE STRING NUMBER
4277 017212  4343          JMS     CCCC    /GET AND CHECK THE NEXT NON-BLANK CHARACTER
4278 017213  7410          SKP             /ONLY LEGAL CHAR HERE IS A "("
4279 017214  5217          JMP     RETB    /WE GOT THE "("
4280 017215  7000          NOP
4281 017216  5300          JMP     ERR59
4282 017217  4527  RETB,   JMS I   ENTITY  /LOOK FOR A VARIABLE
4283 017220  7410          SKP
4284 017221  5225          JMP     LA      /GOT IT, ANYTHING ELSE IS AN ERROR
4285 017222  7000          NOP
4286 017223  7000          NOP
4287 017224  5300          JMP     ERR59
4288 017225  2032  LA,     ISZ     L32     /TURN EQUIVALENCE BIT ON
4289 017226  2032          ISZ     L32
4290 017227  1365          TAD     K57     /GET MASK FOR SYMBOL TABLE
4291 017230  3021          DCA     L21     /PUT IN THE SYMBOL TABLE SWITCH
4292 017231  4530          JMS I   SYMTAB  /PUT IN SYMBOL TABLE
4293 017232  1077          TAD     L77     /GET THE POINTER
4294 017233  2103          ISZ     MIKE4   /AND PUT IN EQUIVALENCE TABLE
4295 017234  3503          DCA I   MIKE4
4296 017235  1107          TAD     SNUM    /GET THE CURRENT STRING NUMBER
4297 017236  2103          ISZ     MIKE4   /AND PUT IT IN THE EQUIVALENCE TABLE
4298 017237  3503          DCA I   MIKE4
4299 017240  2104          ISZ     MIKE8   /INCREMENT NUMBER OF ENTRIES
4300 017241  4343          JMS     CCCC    /GET NEXT PUNCTUATION
4301 017242  5300          JMP     ERR59   /C/R, THAT'S AN ERROR ...
4302 017243  5246          JMP     .+3     /LEFT PAREN, VARIABLE IS SUBSCRIPTED
4303 017244  5337          JMP     LB      /COMMA, NOT SUBSCRIPTED, STRING CONTINUES
4304 017245  5327          JMP     LC      /RIGHT PAREN, NOT SUBSCRIPTED, END OF STRING
4305 017246  4527          JMS I   ENTITY  /LOOK FOR SUBSCRIPT
4306 017247  7000          NOP
4307 017250  7410          SKP
4308 017251  5254          JMP     LD      /GOT IT, ANYTHING ELSE IS ERROR
4309 017252  7000          NOP
4310 017253  5300          JMP     ERR59
4311 017254  7240  LD,     CLA CMA /SUBTRACT ONE FROM
4312 017255  1032          TAD     L32     /FIRST SUBSCRIPT
4313 017256  3105          DCA     INTA    /AND SAVE
4314 017257  4343          JMS     CCCC    /GET NEXT PUNCTUATION
4315 017260  7000          NOP             /CR IS ILLEGAL HERE
4316 017261  5216          JMP     RETB-1  /SO IS LEFT PAREN
4317 017262  7410          SKP             /COMMA, DOUBLY SUBSCRIPTED
4318 017263  5312          JMP     LF      /RIGHT PAREN, SINGLY SUBSCRIPTED
4319 017264  4527          JMS I   ENTITY  /GET OTHER SUBSCRIPT
4320 017265  7000          NOP
4321 017266  7410          SKP
4322 017267  5272          JMP     LG      /GOT IT
4323 017270  7000          NOP
4324 017271  5253          JMP     LD-1
4325 017272  1032  LG,     TAD     L32     /SET IT NEGATIVE
4326 017273  7041          CIA
4327 017274  3106          DCA     INTB    /AND SAVE IT
4328 017275  4343          JMS     CCCC    /GET NEXT PUNCTUATION
4329 017276  7000          NOP
4330 017277  7000          NOP
4331 017300  4523  ERR59,  JMS I   LUNCH
4332 017301  1077          TAD     L77     /RIGHT PAREN IS ONLY LEGAL CHARACTER
4333 017302  4547          JMS I   DIM     /GET DIMENSION INFORMATION
4334 017303  3343          DCA     CCCC    /AND SAVE
4335 017304  7410          SKP             /GO TO TEST PART OF LOOP
4336 017305  1343          TAD     CCCC    /THIS LOOP IS A MAKESHIFT MULTIPLY
4337 017306  2106          ISZ     INTB    /ARE WE DONE
4338 017307  5305          JMP     .-2     /NO
4339 017310  1105          TAD     INTA    /YES, ADD FIRST SUBSCRIPT
4340 017311  3105          DCA     INTA    /AND SAVE
4341 017312  1077  LF,     TAD     L77     /GET POINTER TO VARIABLE
4342 017313  4524          JMS I   MODE    /WHAT MODE IS IT
4343 017314  1105          TAD     INTA    /F.P., MULTIPLY BY THREE
4344 017315  7104          RAL CLL /INTEGER
4345 017316  1105          TAD     INTA
4346 017317  7001          IAC             /ADD ONE TO ANSWER
4347 017320  2103          ISZ     MIKE4   /AND PUT IN EQUIVALENCE TABLE
4348 017321  3503          DCA I   MIKE4
4349 017322  4343          JMS     CCCC    /GET NEXT PUNCTUATION
4350 017323  7000          NOP
4351 017324  5216          JMP     RETB-1  /CR AND "(" ARE ILLEGAL HERE
4352 017325  5217          JMP     RETB    /COMMA MEANS STRING NOT FINISHED
4353 017326  5332          JMP     LI      /")" MEANS STRING FINISHED
4354 017327  7201  LC,     CLA IAC /HERE WE CRAM A ONE INTO EQUIVALENCE
4355 017330  2103          ISZ     MIKE4
4356 017331  3503          DCA I   MIKE4
4357 017332  4343  LI,     JMS     CCCC    /WE FINISHED A STRING, ARE THERE MORE
4358 017333  5177          JMP     START   /NO
4359 017334  7410          SKP
4360 017335  5211          JMP     RETA    /YES
4361 017336  5216          JMP     RETB-1  /"(" AND ")" ARE ILLEGAL HERE
4362 017337  7201  LB,     CLA IAC         /CRAM A ONE INTO TABLE
4363 017340  2103          ISZ     MIKE4
4364 017341  3503          DCA I   MIKE4
4365 017342  5217          JMP     RETB    /AND GO BACK
4366               /
4367               /       THIS"ROUTINE GETS AND CHECKS THE NEXT NON-BLANK CHAR
4368               /
4369 017343  0000  CCCC,   0
4370 017344  4575          JMS I   GNB
4371 017345  7450          SNA             /PUNCTUATION IS WHAT WE WANT
4372 017346  5743          JMP I   CCCC    /ITS A CR
4373 017347  1162          TAD     CM54
4374 017350  7450          SNA             /IS IT A COMMA
4375 017351  5362          JMP     XCOMMA  /YES
4376 017352  1152          TAD     C3
4377 017353  7450          SNA             /IS IT A ")"
4378 017354  5361          JMP     XRPAR   /YES
4379 017355  7001          IAC
4380 017356  7450          SNA             /IS IT A "("
4381 017357  5363          JMP     XLPAR   /YES
4382 017360  5216          JMP     RETB-1  /NONE OF THE ABOVE
4383 017361  2343  XRPAR,  ISZ     CCCC
4384 017362  2343  XCOMMA, ISZ     CCCC
4385 017363  2343  XLPAR,  ISZ     CCCC
4386 017364  5743          JMP I   CCCC
4387 017365  0057  K57,    57
4388               
4389 017366  4575  LFIN,   JMS I   GNB
4390 017367  7640          SZA CLA
4391 017370  5514          JMP I   ASSIGN
4392 017371  4526          JMS I   ZZZ     /PRINT LABEL ON "FINI"
4393 017372  5773          JMP I   .+1
4394 017373  6344          IOH2
4395               
4396               /THE FOLLOWING CODE IS TO PROCESS THE EQUIVALENCE TABLE
4397               /AT THE END OF A COMPILATION
4398                      *7376
4399 017376  2103  EEK,    ISZ     MIKE4
4400 017377  2103          ISZ     MIKE4
4401 017400  3503          DCA I   MIKE4   /SET END OF LIST
4402 017401  4366          JMS     INIT    /INITIALIZE POINTERS
4403 017402  1103  AAB,    TAD     MA      /SET POINTERS TO STRING NUMBERS
4404 017403  1152          TAD     C3
4405 017404  3107          DCA     MB
4406 017405  2103          ISZ     MA
4407 017406  2103          ISZ     MA
4408 017407  2107  AAC,    ISZ     MB
4409 017410  2107  AA,     ISZ     MB
4410 017411  1503          TAD I   MA      /GET FIRST STRING NUMBER
4411 017412  7041          CIA
4412 017413  1507          TAD I   MB      /SUBTRACT FROM SECOND
4413 017414  7640          SZA CLA         /ARE THEY THE SAME
4414 017415  5257          JMP     KICK1   /NO, ADVANCE POINTERS
4415 017416  2103          ISZ     MA      /YES, MOVE TO LINEAR SUBSCRIPT
4416 017417  2107          ISZ     MB
4417 017420  1503          TAD I   MA      /GET FIRST SUBSC
4418 017421  7041          CIA
4419 017422  1507          TAD I   MB      /SUBTRACT FROM SECOND
4420 017423  7750          SPA CLA SNA     /IS FIRST ONE SMALLER
4421 017424  5253          JMP     KICK2   /NO, JUST ADVANCE POINTERS
4422 017425  1103          TAD     MA      /YES, SWITCH PLACES
4423 017426  1163          TAD     CM2
4424 017427  3103          DCA     MA
4425 017430  1107          TAD     MB
4426 017431  1163          TAD     CM2
4427 017432  3107          DCA     MB
4428 017433  1164          TAD     CM3
4429 017434  3366          DCA     INIT
4430 017435  1503  RAUCH,  TAD I   MA
4431 017436  3076          DCA     L76
4432 017437  1507          TAD I   MB
4433 017440  3503          DCA I   MA
4434 017441  1076          TAD     L76
4435 017442  3507          DCA I   MB
4436 017443  2103          ISZ     MA
4437 017444  2107          ISZ     MB
4438 017445  2366          ISZ     INIT
4439 017446  5235          JMP     RAUCH
4440 017447  1103          TAD     MA
4441 017450  1163          TAD     CM2
4442 017451  3103          DCA     MA
4443 017452  5210          JMP     AA      /NOW THEYRE SWITCHED, CHECK AGAIN
4444 017453  7240  KICK2,  CLA CMA         /MOVE BACK FIRST POINTER
4445 017454  1103          TAD     MA
4446 017455  3103          DCA     MA
4447 017456  5207          JMP     AAC
4448 017457  2103  KICK1,  ISZ     MA      /MOVE UP FIRST POINTER
4449 017460  2106          ISZ     MIKE7   /ARE WE OUT OF ENTRIES
4450 017461  5202          JMP     AAB     /NO
4451               /
4452               /       NOW THE SORTING IS DONE
4453               /
4454 017462  4366          JMS     INIT    /INITIALIZE POINTERS
4455 017463  3104          DCA     TOTAL   /ZERO OUT TOTAL
4456 017464  2103  MIKE2,  ISZ     MA
4457 017465  1503          TAD I   MA
4458 017466  4532          JMS I   PRSYM   /PUT OUT THE SYMBOL
4459 017467  1154          TAD     C7240
4460 017470  4521          JMS I   P2      /PUT OUT THE TERMINATOR
4461 017471  7001          IAC
4462 017472  1503          TAD I   MA
4463 017473  3014          DCA     L14
4464 017474  1414          TAD I   L14     /GET CONTROL BITS FROM SYMBOL TABLE
4465 017475  0376          AND     P20
4466 017476  7650          SNA CLA         /IS IT DIMENSIONED
4467 017477  5312          JMP     MIKE5   /NO
4468 017500  1503          TAD I   MA      /YES, COMPUTE THE TOTAL LENGTH
4469 017501  4547          JMS I   DIM
4470 017502  3026          DCA     L26
4471 017503  1414          TAD I   L14
4472 017504  7041          CIA
4473 017505  3073          DCA     L73
4474 017506  1026          TAD     L26
4475 017507  2073          ISZ     L73
4476 017510  5306          JMP     .-2
4477 017511  7410          SKP             /GOT IT
4478 017512  7001  MIKE5,  IAC             /IF NOT DIMENSIONED, USE ONE A LENGTH
4479 017513  3107          DCA     MB      /SAVE LENGTH 
4480 017514  1503          TAD I   MA
4481 017515  4524          JMS I   MODE    /WHAT IS THE MODE OF THE SYMBOL
4482 017516  1107          TAD     MB      /FP, MULTIPLY BY THREE
4483 017517  7104          RAL CLL
4484 017520  1107          TAD     MB
4485 017521  3366          DCA     INIT    /SAVE IT
4486 017522  1104          TAD     TOTAL   /GET TOTAL REMAINING LENGTH OF STRING
4487 017523  7041          CIA
4488 017524  1366          TAD     INIT    /SUBTRACT CURRENT LENGTH FROM IT
4489 017525  7710          SPA CLA         /WHICH IS BIGGER
4490 017526  5331          JMP     .+3     /REMAINING PORTION IS BIGGER
4491 017527  1366          TAD     INIT    /CURRENT PORTION IS BIGGER, REPLACE REMAINING PORTION
4492 017530  3104          DCA     TOTAL
4493 017531  2103          ISZ     MA
4494 017532  1103          TAD     MA
4495 017533  1152          TAD     C3
4496 017534  3107          DCA     MB
4497 017535  1507          TAD I   MB      /GET NEXT ENTRY STRING NUMBER
4498 017536  7041          CIA
4499 017537  1503          TAD I   MA      /SUBTRACT CURRENT STRING NUMBER
4500 017540  7640          SZA CLA         /ARE THEY EQUAL
4501 017541  5362          JMP     MIKE1   /NO
4502 017542  2103          ISZ     MA      /YES, GET THE DIFFERENCE
4503 017543  2107          ISZ     MB
4504 017544  1507          TAD I   MB
4505 017545  7041          CIA
4506 017546  1503          TAD I   MA
4507 017547  3107          DCA     MB      /AND SAVE
4508 017550  1107          TAD     MB      /SUBTRACT DIFFERENCE FROM TOTAL REMAINING
4509 017551  7041          CIA
4510 017552  1104          TAD     TOTAL
4511 017553  3104  MIKE6,  DCA     TOTAL   /SAVE
4512 017554  1107          TAD     MB      /GET THE DIFFERENCE
4513 017555  3026          DCA     L26
4514 017556  4567          JMS I   BSS     /RESERVE THAT MANY LOCATIONS
4515 017557  2106          ISZ     MIKE7   /ARE WE DONE
4516 017560  5264          JMP     MIKE2   /NO
4517 017561  5775          JMP I   ROGER   /YES
4518 017562  1104  MIKE1,  TAD     TOTAL   /SWITCH TOTAL TO THE CURRENT LOCATION
4519 017563  3107          DCA     MB
4520 017564  2103          ISZ     MA      /EQUALIZE POINTERS
4521 017565  5353          JMP     MIKE6
4522               /
4523 017566  0000  INIT,   0
4524 017567  1104          TAD     MIKE8   /GET ENTRY COUNT
4525 017570  7041          CIA             /SET NEGATIVE
4526 017571  3106          DCA     MIKE7   /SAVE
4527 017572  1110          TAD     POINTZ  /GET TABLE POINTER
4528 017573  3103          DCA     MA      /SAVE
4529 017574  5766          JMP I   INIT
4530               /
4531 017575  5666  ROGER,  PTEMP
4532 017576  0020  P20,    20
4533               $

AA      7410
AAB     7402
AAC     7407
AADD    5232
ABACK   4330
ACA     0252
ACK     5531
ADD     2024
ADDIND  4600
ADDL    4621
ADDONE  5213
ADDTWO  5254
ADSPCL  4640
AFCON   5644
AFP     0701
AGAIN   4113
AINT    0722
ALAB    3130
ALLDNE  3505
ALPAR   1300
ALPH    0257
ALPH2   0267
ALPHA   0665
ALTHRU  5722
AMUL    4707
ANEXT   3013
AONE    5241
AREA1   2667
AREA2   2670
ARET    4320
ARG     0170
ARGCNT  3755
ASBCMN  4530
ASE     7117
ASSCK   1510
ASSIGN  0114
ASTOP   5136
ASUB    4520
ASUBSC  2712
ATEM    0725
ATRY    0224
B20     2615
B7      0563
B7000   1334
BACK    6611
BAREA1  0362
BAREA2  0363
BASE    0172
BASE2   0173
BCON    1242
BEGIN   1000 unreferenced
BFOUT   1275
BINTEG  1001
BK      3205
BLCK    6154
BLPHA   1005
BMORE   1103
BNEXT   1023
BONT    1534
BPAR    1162
BPAREN  0066
BPUSH   1160
BRET    1046
BSS     0167
BSYM    6300
BSYMP   1065
BTTAB   1064
C0075   1164
C10     4360
C111    0557
C12     2246
C132    5174
C17     1546
C177    5601
C2      0151
C20     1335
C21     3445
C212    2401
C215    2402
C2440   1744
C25     5555
C3      0152
C30     4560
C300    2400
C31     4477
C3135   1172
C34     2364
C35     2362
C36     1373
C3724   1331
C3730   1327
C40     0153
C400    2170
C4000   0174
C4047   1336
C45     1550
C46     3262
C4643   1170
C47     3773
C5      1332
C50     4155
C5000   1161
C5001   3413
C54     0171
C55     3417
C5700   0564
C6      5166
C60     3235
C6000   5751
C6022   4730
C6025   5164
C6030   6172
C6071   5171
C6146   5312
C6207   5167
C6275   6152
C7      1451
C700    1171
C7000   1165
C7240   0154
C74     4324
C75     0562
C7600   5600
C77     0155
C7700   2534
C7722   1543
C7725   1167
C7750   2167
C7753   1163
C7766   2166
C7767   2172
C7770   1741
C7772   1330
C7773   1736
CA      1517
CAL     0600
CAR     0552
CASUB   6637
CC      1526
CC7700  1571
CCCC    7343
CD      1624
CDCA41  3367
CDONE   1232
CE      1533
CF      1621
CH      1657
CHANGE  6564 unreferenced
CHECK   0165
CHK     0111
CHNG    6753
CJ      1703
CK      1675
CK2     4231
CKCR    6153
CKF     3777
CKFNCP  4376
CKFNCT  3652
CKFND   4370
CKFRMT  4564
CKSBSC  3746
CLAB    0142
CLEAR   2241
CM      1701
CM100   5360
CM1100  0726
CM111   0556
CM1300  1062
CM140   5341
CM16    4357
CM177   0561
CM2     0163
CM20    0566
CM21    1166
CM212   1570
CM24    3412
CM25    7172
CM3     0164
CM30    4561
CM32    2244
CM33    3370
CM4     3234
CM40    0156
CM4046  0157
CM4047  3757
CM41    4354
CM47    3774
CM50    0160
CM51    0161
CM52    1545
CM53    4363
CM54    0162
CM6     1542
CM60    1063
CM61    0565
CM6207  5173
CMNT    0356
COM     5565
COMMA   2721
COMNT   0454
COMP    4667
CON1    0723
COP     1640
COUNT1  3343
COUNT2  0100
COUNT3  0605
CP6     1061
CR2     0627
CRAM    5630
CREATE  0133
CRLF    2573
CTR     7060
CUNT    1312
CVAR    3447
D1000   5357
D177    0560
D33     2361
D34     3257
D36     7054
D6      5776
D60     7132
D7      1333
DA      1724
DB      2100
DC      2112
DCTR    3266
DECOUT  3371
DEFN    5560
DIG     1515
DIM     0147
DIV     5037
DIVE    5046
DIVIDE  2073
DLOOP   6104
DM5     3411
DM6     2245
DMPLIN  1554
DN      1045
DNN     1054
DO      7173
DOEND   2377
DONEXT  6170
DORET   3400
DOSTOR  3454
DOSUBT  3573
DPAR    3501
DUM     0146
DUMARG  0131
DUMMY   6176
DUMONE  5013
DUMPLN  2550
DUMTWO  5000
E10     5562
E20     5561
E400    3760
E41     5161
E43     6146
E53     3422
E7      5556
E75     3756
EEK     7376
EFIX    5132
EIND    5116
ELIST   1162
EM6     4727
EM75    4355
EMSG1   1272
EMSG10  1436
EMSG11  1457
EMSG12  1472
EMSG13  1505
EMSG14  1520
EMSG3   1324
EMSG36  1564
EMSG4   1335
EMSG5   1346
EMSG6   1363
EMSG8   1405
EMSG9   1416
ENTER   2527
ENTITY  0127
EPNCH   7057
EQI     3624
EQRET   5137
EQU     5120
EQUI    7200
ERET    1404
ERR1    0231
ERR10   1530
ERR12   1654
ERR14   2067
ERR15   2210
ERR16   2220
ERR17   2535
ERR18   2616
ERR2    0700
ERR28   3020
ERR29   3044
ERR3    1044
ERR30   3051
ERR31   3263
ERR35   3457
ERR36   5525
ERR37   3765
ERR38   3621
ERR39   4110
ERR40   4270
ERR41   4457
ERR42   5272
ERR43   5332
ERR44   5411
ERR47   6012
ERR48   6154
ERR50   6234
ERR51   6361
ERR52   7130
ERR53   6511
ERR54   2435
ERR59   7300
ERR6    1236
ERR60   6407
ERR9    1347
ESIGN   0101
EXIT    6253 unreferenced
EXP     5061
F34     6560
F400    4361
FAS     4544
FBASE   6554
FCOM    4677
FCON    1175
FCOUNT  2405
FDV     5055
FEQU    5146
FEX     5103
FEXP    5067
FINI    5775
FIRSTF  0000
FIX     5306
FLAG    7120
FLOAT   5302
FLOOP   5647
FLOT    4614
FLPT    1003
FLST    0243 unreferenced
FM6     5163
FML     4716
FOP     4517
FORST   5362
FORTR   6242
FP      6665
FPROP   0144
FPSW    0102
FRET    1401
FRMT    4127
FRMTCK  4177
FS      4545
FSTO    4662
FSTOP   5207
FSUB    4537
FSUBSC  6770
FTLOOP  5670
FTTAB   0740
FUNCT   1277
FUNOP   3717
FV      0704
G400    5315
GENER   0140
GET1    6066
GETCH   0122
GETHI   3366
GETMOR  3441
GETVAR  2611
GLOOK   4337
GLU     0635
GNB     0175
GO7     3156
GOOON   5455
GOT     6514
GTC     4153
GTCL    2242
H200    6766
H400    6765
H43     6767
H6041   6771
HOO     1030
HOOP    2155
I1      2524
I2      2525
IBM     5327
ICON    2325
IE      1305
IFCOMN  3326
ILCON   4575
ILOOP   5706
IMPDO   0112
INBUF   0200
INC     4313
INC1    4312
INDX    1057
INIT    7566
INT     6432
INTA    0105
INTB    0106
INTEG   3264
IOEQL   6156
IOH0    6236
IOH1    6244
IOH1BK  6251
IOH2    6344
IOH3    6340
IOHRSM  6331
IOHTMP  7000
IOLPAR  7161
IOOPEN  7121
IOP     6211
IOPEN   6375
IOPENL  7127
IORPAR  7164
IRET    4552
ISPECL  3333
ISZDO   3401
ITEMP   5704
ITTAB   0710
IX      0555
J10     2171
J27     4367
K2000   4377
K27     2630
K37     2627
K50     2363
K5000   5770
K5200   5557
K531    5772
K5400   5771
K561    5773
K57     7365
KADDON  4725
KICK1   7457
KICK2   7453
KOUNT   0113
KPAR    1207
KRONK   0517
L       5613
L10     0010
L11     0011
L12     0012
L14     0014
L15     0015
L16     0016
L17     0017
L20     0020
L21     0021
L22     0022
L23     0023
L24     0024
L25     0025
L26     0026
L30     0030
L31     0031
L32     0032
L33     0033
L34     0034
L35     0035
L36     0036
L37     0037
L40     0040
L41     0041
L42     0042
L43     0043
L44     0044
L45     0045
L46     0046
L47     0047
L50     0050
L51     0051
L52     0052
L53     0053
L54     0054
L55     0055
L56     0056
L57     0057
L60     0060
L61     0061
L62     0062 unreferenced
L63     0063
L64     0064
L65     0065
L67     0067
L7      0007
L70     0070
L71     0071
L72     0072
L73     0073
L74     0074
L75     0075
L76     0076
L77     0077
LA      7225
LAADD   4345
LABEL   2206
LABELX  1010
LABL    3256
LADDIN  4346
LADDL   5313
LADDON  4557
LADDTW  4563
LAPP    1216
LARG    5154
LASIGN  1345
LASUB   4347
LB      7337
LBNEXT  1326
LBSS    5602
LC      7327
LCAR    0436
LCDONE  1173
LCH     2366
LCHECK  4400
LCHNG   0141
LCLAB   6545
LCLEAR  4743
LCOMON  2604
LCOMP   4556
LCONT   4000
LCOP    1551
LCREAT  3344
LD      7254
LDCOUT  7062
LDEFN   5636
LDIM    6451
LDIMEN  2636
LDIV    4365
LDMARG  4271
LDMRET  6751
LDNEXT  0316
LDO     3415
LDSPCL  6706
LDUM    6713
LDUMON  4362
LDUMTW  4356
LEAD    5564
LEADR   5361
LEDOT1  5434
LEDOUT  5433
LEIND   4351
LELIST  7055
LENTT   1405
LEQI    3414
LEQU    4350
LEQUIN  4321
LEXP    4352
LF      7312
LFCON   2444
LFIN    7366
LFINI   5342
LFIX    5170
LFLOAT  5172
LFPROP  4500
LFRET   1743
LFRMAT  4070
LFRMT   4573
LFUNC   6000
LFUNCT  3640
LG      7272
LGENER  1011
LGETCH  0650
LGETHI  6440
LGNB    0637
LGOTO   3000
LGTC    0730
LI      7332
LIF     3236
LIFDCA  3266
LIRET   4726
LIST    0342
LK      6456
LKPAR   1174
LLAST   5400
LLEAD   3150
LLIST   7053
LLOOK   4325
LLSHIF  1745
LLUNCH  7001
LMODE   0670
LMUL    4364
LMUL10  1552
LNRMAL  2165
LOC     1056
LOOK    0125
LOOP    6477
LOOP1   2410
LOOP2   6534
LOOP6   4612
LOOP7   4633
LOP     7071
LOPRST  7103
LP      1010
LP2     2307
LPAUSE  4013
LPIFF   4156
LPLAB   3357
LPOLIS  1742
LPP     1027
LPRCRL  1364
LPRCTM  1374
LPRINT  2551
LPROP   5243
LPRSYM  2247
LPRTAC  3200
LPTEMP  5563
LPTRIN  0545
LPUNCH  5333
LPUTCH  1340
LQUOTE  3763
LRCD    0400
LRCDA   0476
LRCDL   0410
LRCDX   0467
LREAD   6177
LRET    6400
LRETUR  4562
LSBTEM  6471
LSHIFT  2010
LSMODE  5317
LSTMT   2200
LSTOP   4017
LSTORE  4647
LSUB    4731
LSUBSC  6561
LSWAP   0766
LSYMTB  2406
LSYMTM  2551
LTEM    1466
LTESTE  1547
LTLP1   4434
LTLP2   4451
LTMPOR  4423
LTRIPL  4200
LTTYPE  3372
LUMIN   4353
LUNCH   0123
LWIPE   6527
LWRIT   6173
LXTAD   3134
LXZQ    5265
LZER    6541
LZZZ    4166
M1700   0567 unreferenced
M174    4574
MA      0103
MADDTW  5162
MAYBE   4316
MB      0107
MBACK   2467
MCHAR   7000
MCOM    3474
MCOMP   5314
MCR     4027
MFOUR   6001
MIKE1   7562
MIKE2   7464
MIKE4   0103
MIKE5   7512
MIKE6   7553
MIKE7   0106
MIKE8   0104
MIN104  1060
MIRET   5165
MLOOP   2446
MMSK    0744
MNEXT   3722
MODE    0124
MOR     3672
MORDUM  5412
MORE    6051
MUL     4702
MUL10   2120
MULT    2056
MULT10  2243
NAH     1506
NARET   5316
NCOMMA  1151
NEXT    6123
NO      1135
NOASS   1505
NOHIT1  0314
NOHIT2  0313
NONE    4420
NORM    5553
NORMAL  1723
NOSYMB  6323
NPOINT  7001
NUMB    3407
ON      0610
ONE     4417
OP      3143
OPCLA   6124
OPCMA   6245
OPDCA   6071
OPEN    6231
OPIAC   6250
OPJMPI  6074
OPSNA   6105
OPTAD   6066 unreferenced
OPTADI  6063
OSTOP   4052
OUT     3711
P       0553
P2      0121
P20     7576
P33     1541
PACK    1437
PARCT   7062
PAREN   4116
PBEGN   1000
PCTR    6556
PGTC    3775
PIFF    0136
PIOEQL  1045
PLAB    0135
PLSBSC  1363
POINT   6555
POINTZ  0110
POLISH  2134
POLSH   2153
PPACK   3776
PRCRL   0117
PREC    1066
PRET    1400
PRIME   1323
PRINT   0120
PRIT    2571
PRJMP   3342
PRJUMP  3157
PROCT   2331
PROP    0116
PROTAC  0134
PRSYM   0132
PSYMOT  3753
PTEM    0341
PTEMP   5666
PUNC    0664
PUNCH   0150
PUNCT   1467
PUSH    1200
PUTCH   0115
PXSUBR  4154
Q12     0606
Q20     6360
Q6066   3055
QAGAIN  2645
QBACK   2741
QDONE   2757
QGET    2647
QM32    0727
QONE    2762
QPUNC   2675
QRET    2522
QRPAR   2735
QSYMOT  6376
QTWO    2751
QUOTE   1553
R       2764
RAUCH   7435
RCD     0364
READY   6141
REDY    2765
REP     1034
RETA    7211
RETB    7217
RETUR   1072
RETURN  5274
RIG     2763
RIGHT   2754
RLCD    0765
ROGER   7575
RSHIFT  2042
SAVE    3754
SBSCR   2346
SCODE   1746
SCODL   1756
SCOUNT  2403
SE      1376
SEARCH  2465
SEC     2770
SECOND  2726
SF      1544
SKPIT   2275
SLAB    3424
SLOC1   1767
SLOC2   1770
SMODE   0166
SNUM    0107
SOME    4421
SOUT    1270
SPACE   2223
SPCONL  3322
SSTYP   0365
START   0177
START1  0201
STCTLV  3553
STMT    0367
STOP    4050
STORE   0143
STORET  4655
STORSL  0473
STRT    1066
STWO    4533
STYPE   2600
SUBA    6353
SUBB    6142
SUBOT1  5753
SUBOUT  5752
SUBRET  6470
SUBTEM  2370
SW      4067
SWAP    0370
SWIT    3410
SYM     5466
SYM1    5500
SYMOUT  6672
SYMTAB  0130
TAB     0505
TABLE   1070
TADDON  5160
TART    6007
TEM     7061
TEM1    0554
TEMPO   2333
TEMPOR  2371
TEMPTY  4460
TEN     6147
TEST    0212
TESTE   1600
THERE   3021
THOU    2710
THRU    5746
TINUE   0457
TM      3233
TMP     3232
TMUL    4722
TOTAL   0104
TPT     1067
TPTT    0010
TRIP    6557
TRIPL   0137
TRY     0276
TSYM    7600
TTAB    4555
TTYPE   7056
TWO     4422
UMIN    5224
UNCH    2367
UNCH1   7027
UNCH2   7036
UP      5547
V       2766
VARI    2617
WHICH   6151
WIPE    0366
X17     1740
X52     1544
X5200   5774
X7700   2365
X7725   1737
XARET   1403
XCOMMA  7362
XCTR    2404
XDO     3430
XFCON   2353
XFINI   5354 unreferenced
XFLOAT  1706
XGET    6070
XIRET   1402
XLP     2767
XLPAR   7363
XRPAR   7361
XSAVE   2000
XTAD    1337
XXSUBR  2660
XXX     5200
XZQ     1325
XZQL    4366
YES     6512
ZCHECK  2427
ZCTR    2117
ZER     0145
ZEROIT  4473
ZZZ     0126
ZZZRET  4175