1               /OS8 BASIC LOADER, V5
   2               /
   3               /
   4               /
   5               /
   6               /
   7               /
   8               //
   9               /
  10               /
  11               /
  12               /
  13               /COPYRIGHT (C) 1972, 1973, 1974, 1975
  14               /DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
  15               /
  16               /
  17               /
  18               /THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A
  19               /SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLU-
  20               /SION OF THE ABOVE COPYRIGHT NOTICE.  THIS SOFTWARE, OR ANT OTHER
  21               /COPIES THEREOF, MAY NOT BR PROVIDED OR OTHERWISE MADE AVAILABLE
  22               /TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO
  23               /AGREES TO THESE LICENSE TERMS.  TITLE TO AND OWNERSHIP OF THE
  24               /SOFTWARE SHALL AT ALL TIMES REMAIN IN DEC.
  25               /
  26               /
  27               /THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT
  28               /NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL
  29               /EQUIPMRNT COROPATION.
  30               /
  31               /DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS
  32               /SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC.
  33               /
  34               /
  35               /
  36               /
  37               /
  38               /
  39               /DEC-S8-LBASA-B-LA
  40               /
  41               /COPYRIGHT  C  1972, 1973, 1974
  42               /
  43               /DIGITAL EQUIPMENT CORPORATION
  44               /MAYNARD,MASSACHUSETTS 01754
  45               /
  46               /AUGUST 19, 1972
  47               /
  48               /HANK MAURER, 1972
  49               /SHAWN SPILMAN, 1973
  50               /
  51               /
  52               /
  53               /
  54               /ASSEMBLE AND LOAD AS FOLLOWS:
  55               /
  56               /       .R PAL8
  57               /       *BLOAD,BLOAD<BLOAD.03
  58               /       .R ABSLDR
  59               /       *BLOAD$
  60               /       .SA SYS BLOAD;7605
  61               /
  62               /NOTE DIFFERENCES FROM VERSION 1 BY TRUNCATING
  63               /THE SOURCE AFTER TAG "IMAGE" AND THEN:
  64               /
  65               /       .R SRCCOM
  66               /       *LPT:<BLOAD.01,BLOAD.03
  67               /       *
  68               /
  69               /ALL CODE FOLLOWING TAG "IMAGE" IS NEW FOR VERSION 3
  70               /
  71                       VERSON= 5       /VERSION WORD LOCATED AT TAG "VERLOC"
  72                                       /LEFT HALF CONTAINS 60+VERSON
  73                                       /RIGHT HALF CONTAINS PATCH LEVEL (A=01)
  74               
  75               /
  76               /CORRECTIONS MADE FOR V4                J.K 1975
  77               / .MADE SWAP ROUTINE A REAL SWAP
  78               / ./V FOR VERSION NUMBER
  79               / ./C SO NON-BASIC SAVE FILES CAN CHAIN TO BASIC SAVE FILES
  80               / .ADJUST JSW FOR /K
  81               / .CORRECTED CCB FOR /K
  82               / .CALCULATION OF DEFAULT CORE SIZE FOR PDP-8
  83               / .TEST FOR BATCH RUNNIG
  84               / .CHANGE ORDER OF CISTRT SO A CHAIN CAN BE
  85               /       CAN BE DONE FROM A .SV FILE WITH A 
  86               /       FILE STATEMENT
  87               /
  88               
  89               /JR     30-APR-77       UPDATE VERSION AND FIX ERROR IN MAKECI WHEN BATCH NOT 
  90               /                       RUNNING
  91                      /OS8 BASIC COMPILER POST PROCESSOR
  92               
  93                       /AUTO INDEX REGISTERS
  94               
  95                       X10=10
  96                       X11=11
  97                       X13=13
  98                       STACK=15
  99               
 100                       /DUMMY SECTIONS FOR COMPILER/RUNTIME COMMUNICATIONS
 101               
 102                       NOPUNCH
 103               
 104                       /BRTS COMMUNICATIONS REGION
 105               
 106                       *20
 107 000020  0000  STCDF,  0
 108 000021  0000  NSTADR, 0
 109 000022  0000  NASTAD, 0
 110 000023  0000  SSTADR, 0
 111 000024  0000  SASTAD, 0
 112 000025  0000  CODCDF, 0
 113 000026  0000  CODBGN, 0
 114 000027  0000  DATTOP, 0
 115 000030  0000  DATPTR, 0
 116 000031  0000  SWPINF, 0
 117               
 118                       /BCOMP COMMON REGION
 119               
 120                       *40
 121 000040  0000  VARCNT, 0
 122 000041  0000  SVCNT,  0
 123 000042  0000  ACNT,   0
 124 000043  0000  SACNT,  0
 125 000044  0000  LOCTRH, 0
 126 000045  0000  LOCTRL, 0
 127 000046  0000  BLOCK,  0
 128 000047  0000  HIFLD,  0
 129 000050  0000  BRTS,   0
 130 000051  0000  DLSIZE, 0
 131 000052  0000  ABORTX, 0
 132               
 133                       /PAGE 0 LOCATIONS USED BY LOADER
 134               
 135 000053  0000  FREEHI, 0
 136 000054  0000  FREELO, 0
 137 000055  0000  TEMP,   0
 138 000056  0000  TEMP2,  0
 139 000057  0000  TEMP3,  0
 140 000060  0000  WORD1,  0
 141 000061  0000  WORD2,  0
 142 000062  0000  WORD3,  0
 143 000063  0000  NCHARS, 0
 144 000064  0000  SUBHI,  0
 145 000065  0000  SUBLO,  0
 146 000066  0000  CODSZ1, 0
 147 000067  0000  CODSZ2, 0
 148 000070  0000  LOCHI,  0
 149 000071  0000  LOCLO,  0
 150 000072  0000  CODB,   0
 151 000073  0000  CODF,   0
 152 000074  0000  ICOUNT, 0
 153 000075  0000  OCOUNT, 0
 154 000076  0000  AC1,    0
 155 000077  0000  AC2,    0
 156 000100  0000  AC3,    0
 157 000101  0000  SC,     0
 158 000102  0000  LINEH,  0
 159 000103  0000  LINEL,  0
 160 000104  0000  XLABEL, 0
 161 000105  0000  CLRFLD, 0
 162 000106  0000  CLREND, 0
 163 000107  0000  RESADR, 0
 164               
 165                       /MORE COMPILER DEFINITIONS
 166               
 167                       SVARST= 1036
 168                       ARAYST= 2132
 169                       SARYST= 2332
 170                       STEMPS= 2560
 171                       LITRL=  STEMPS+2
 172                       SLITRL= LITRL+2
 173                       DATLST= SLITRL+2
 174               
 175                       /MISC DEFINES
 176               
 177                       STACKA= 7120    /MAIN STACK OF COMPILER
 178                       EDTBGN= 3212    /START OF EDITOR
 179                       EDTSIZ= 2100    /SIZE OF EDITOR
 180                       BRTBGN= 200     /START OF BRTS
 181                       BRTSIZ= 3400    /SIZE OF BRTS
 182                       DCB=    7760
 183                       JSW=    7746    /OS/8 JOB STATUS WORD
 184                       BIPCCL= 7777    /OS/8 SOFTWARE CORE SIZE AND BATCH FLAGS WORD
 185                       FSTOP1= 7       /ADDR OF BRTS EXIT ROUTINE
 186               
 187                       ENPUNCH         /END OF DUMMY SECTIONS
 188                      /LOADER PROPER
 189               
 190                       *400
 191 000400  4777  LOADER, JMS I   (IMAGE  /CORE IMAGE FILE PATCH
 192 000401  1376          TAD     (7577   /EXECUTION RESUMES HERE
 193 000402  3054          DCA     FREELO
 194 000403  7041          CIA IAC
 195 000404  3031          DCA     SWPINF  /SET SWAPPER FLAG TO INDICATE 17600 IS IN FIELD 1
 196 000405  3102          DCA     LINEH   /CLEAR LINE NUMBER
 197 000406  3103          DCA     LINEL
 198 000407  1015          TAD     STACK   /ANY UNCLOSED FOR'S ?
 199 000410  7041          CIA
 200 000411  1375          TAD     (STACKA-1
 201 000412  7650          SNA CLA
 202 000413  5216          JMP     .+3     /NO
 203 000414  4774          JMS I   (ERMSG  /YES
 204 000415  2506          2506
 205 000416  7240          CLA CMA
 206 000417  1047          TAD     HIFLD   /NO CDF'S IF ONLY 8K
 207 000420  7640          SZA CLA
 208 000421  5233          JMP     NOPATCH /NO PATCHES
 209 000422  1373          TAD     (PATLST-1
 210 000423  3010          DCA     X10
 211 000424  1410  PATLUP, TAD I   X10
 212 000425  7450          SNA
 213 000426  5772          JMP I   (STSTUF
 214 000427  3055          DCA     TEMP
 215 000430  1371          TAD     (SKP    /ALWAYS TWO WORDS
 216 000431  3455          DCA I   TEMP
 217 000432  5224          JMP     PATLUP
 218 000433  6211  NOPATCH,CDF     10
 219 000434  1770          TAD I   (DCB    /CHECK FOR TD8E SYSTEM
 220 000435  0367          AND     (770    /ED FRIEDMAN GAVE ME THIS CODE
 221 000436  1366          TAD     (-210   /AND I'M TAKING IT ON FAITH
 222 000437  6201          CDF
 223 000440  7650          SNA CLA
 224 000441  1765          TAD I   (7612   /IS IT A ROM SYSTEM ?
 225 000442  1364          TAD     (-3
 226 000443  7640          SZA CLA
 227 000444  5250  GOTTD,  JMP     NOTD8E  /NO TD/8E OR ROM TD/8E
 228                                       /PREV INSTR NOP'D OUT TO FORCE TD8E (IMAGE)
 229 000445  1363          TAD     (7377   /TD8E SYS WASTES 400 WORDS
 230 000446  3054          DCA     FREELO
 231 000447  7130          STL RAR         /SET SWAP INFO (17600 OUT NOW)
 232 000450  3031  NOTD8E, DCA     SWPINF
 233 000451  4762          JMS I   (FREEF  /GET CDF TO HIGHEST FIELD
 234 000452  3335          DCA     SWPF1   /INTO 2 PLACES
 235 000453  1335          TAD     SWPF1
 236 000454  3342          DCA     SWPF2
 237 000455  4263          JMS     SWAP    /MOVE OS8 OUT
 238 000456  1361          TAD     (TAD L6221
 239 000457  3303          DCA     TDLIE+1
 240 000460  1361          TAD     (TAD L6221
 241 000461  3305          DCA     TDLIE+3
 242 000462  5772          JMP I   (STSTUF /DO SYMBOL TABLE STUFF
 243 000463  0000  SWAP,  0               /SWAP OS8 RESIDENT
 244 000464  7130          CLL CML RAR     /4000
 245 000465  0031          AND     SWPINF  /IS IT A TD8E SYS ?
 246 000466  7640          SZA CLA
 247 000467  5274          JMP     TD8ESYS /YES
 248 000470  4317          JMS     SWPSUB  /SWAP 17600 TO/FROM N7600
 249 000471  6211          CDF     10
 250 000472  7600          7600
 251 000473  5663          JMP I   SWAP
 252 000474  4317  TD8ESYS,JMS     SWPSUB  /SWAP 17600 TO/FROM N7400
 253 000475  6211          CDF     10
 254 000476  7400          7400
 255 000477  4317          JMS     SWPSUB  /SWAP 27600 TO/FROM N7600
 256 000500  6221  L6221,  CDF     20
 257 000501  7600  L7600,  7600
 258 000502  7126  TDLIE,  CLL CML RTL     /FIX UP 07600 STUFF TO MATCH
 259 000503  1335          TAD     SWPF1   /CIF CDF N0
 260 000504  3760          DCA I   (7642
 261 000505  1335          TAD     SWPF1
 262 000506  7001          IAC             /CIF N0
 263 000507  3757          DCA I   (7721
 264 000510  1757          TAD I   (7721
 265 000511  3756          DCA I   (7727
 266 000512  5663          JMP I   SWAP
 267 000513  7200  SWPRET, CLA
 268 000514  6201          CDF             /RETURN IF 8K
 269 000515  5663          JMP I   SWAP
 270 000516  0000  SWPFLAG,0
 271               
 272 000517  0000  SWPSUB, 0               /SWAPPER
 273 000520  1717          TAD I   SWPSUB  /GET FIELD
 274 000521  3332          DCA     SWP1    /TWICE
 275 000522  1332          TAD     SWP1
 276 000523  3337          DCA     SWP2    /ONCE FOR EACH DIRECTION
 277 000524  2317          ISZ     SWPSUB
 278 000525  1717          TAD I   SWPSUB  /GET HI FIELD ADDR
 279 000526  3055          DCA     TEMP
 280 000527  2317          ISZ     SWPSUB
 281 000530  1301          TAD     L7600   /GET COUNT/POITER
 282 000531  3056          DCA     TEMP2
 283 000532  7402  SWP1,   HLT
 284 000533  1456          TAD I   TEMP2   /GET PART OF RESIDENT
 285 000534  3057          DCA     TEMP3
 286 000535  5313  SWPF1,  JMP     SWPRET  /RETURN IF 8K ONLY
 287 000536  1455          TAD I   TEMP
 288 000537  7402  SWP2,   HLT
 289 000540  3456          DCA I   TEMP2
 290 000541  1057          TAD     TEMP3
 291 000542  7402  SWPF2,  HLT
 292 000543  3455          DCA I   TEMP    /INTO HI FIELD
 293 000544  2055          ISZ     TEMP    /BUMP POINTER
 294 000545  7000          NOP             /JR PROTECT AGAINST WRAP AROUND
 295 000546  2056          ISZ     TEMP2   /AND PTR/CTR
 296 000547  5332          JMP     SWP1    /LOOP
 297 000550  6201          CDF
 298 000551  5717          JMP I   SWPSUB
 299               
 300 000556  7727          PAGE
     000557  7721  
     000560  7642  
     000561  1300  
     000562  2130  
     000563  7377  
     000564  7775  
     000565  7612  
     000566  7570  
     000567  0770  
     000570  7760  
     000571  7410  
     000572  1000  
     000573  1343  
     000574  1712  
     000575  7117  
     000576  7577  
     000577  2400  
 301 000600  6201  NODATA,        CDF
 302 000601  4777          JMS I   (FREEF  /SAVE FIELD
 303 000602  7041          CIA
 304 000603  3105          DCA     CLRFLD  /FOR ARRAY CLEARING
 305 000604  1054          TAD     FREELO  /SAVE THIS ADDR
 306 000605  7041          CIA
 307 000606  3106          DCA     CLREND  /FOR END OF ARRAY CLEAR
 308 000607  2054          ISZ     FREELO  /MAKE IT NEXT FREE + 1
 309 000610  1376          TAD     (SVARST-1
 310 000611  3010          DCA     X10     /ALLOCATE STRING VARS
 311 000612  1375          TAD     (-436
 312 000613  3055          DCA     TEMP
 313 000614  6211  ASVLUP, CDF     10
 314 000615  1410          TAD I   X10     /LOOK FOR DEFINED STRING VAR
 315 000616  3056          DCA     TEMP2   /SAVE SYMBOL NUMBER
 316 000617  1410          TAD I   X10     /GET SIZE
 317 000620  7510          SPA
 318 000621  1374          TAD     (4010   /IF UNDEF USE 16 CHARS
 319 000622  3057          DCA     TEMP3
 320 000623  1056          TAD     TEMP2   /IS IT DEFINED ?
 321 000624  6201          CDF
 322 000625  7700          SMA CLA
 323 000626  4260          JMS     SVSTOR  /YES, CREATE ENTRY
 324 000627  2055          ISZ     TEMP    /BUMP COUNT
 325 000630  5214          JMP     ASVLUP  /LOOP
 326 000631  6211          CDF     10      /ALLOCATE STRING TEMPS
 327 000632  1773  P6,     TAD I   (STEMPS+1
 328 000633  3243          DCA     STEMPF  /INIT FIELD
 329 000634  1772          TAD I   (STEMPS /AND POINTER
 330 000635  7410          SKP
 331 000636  1055  STMLUP, TAD     TEMP    /LOOK AT NEXT ENTRY
 332 000637  7450          SNA
 333 000640  5771          JMP I   (ALLOCA /DONE GO ALLOCATE ARRAYS
 334 000641  1370          TAD     (-1
 335 000642  3010          DCA     X10     /GET POINTER
 336 000643  6211  STEMPF, CDF     10
 337 000644  1410          TAD I   X10     /GET ADDR OF NEXT ENTRY
 338 000645  3055          DCA     TEMP    /SAVE IT
 339 000646  1410  P7,     TAD I   X10     /AND ITS FIELD
 340 000647  3243          DCA     STEMPF
 341 000650  2010          ISZ     X10     /SKIP TEMP NUMBER
 342 000651  1410          TAD I   X10     /GET SYM NUMBER
 343 000652  3056          DCA     TEMP2
 344 000653  6201          CDF
 345 000654  1367          TAD     (110    /GIVE IT MAX SIZE
 346 000655  3057          DCA     TEMP3
 347 000656  4260          JMS     SVSTOR  /ALOOCATE IT
 348 000657  5236          JMP     STMLUP  /LOOP
 349 000660  0000  SVSTOR, 0               /MAKE ST ENTRY FOR STRING VAR
 350 000661  1056          TAD     TEMP2   /FIND ST ADDR
 351 000662  7104          CLL RAL
 352 000663  1056          TAD     TEMP2
 353 000664  1023          TAD     SSTADR
 354 000665  3011          DCA     X11
 355 000666  1057          TAD     TEMP3   /NUMBER OF CHARS
 356 000667  1366          TAD     (3
 357 000670  7110          CLL RAR
 358 000671  3065          DCA     SUBLO   /NUMBER OF WORDS
 359 000672  3064          DCA     SUBHI
 360 000673  4331          JMS     SUB     /FREEHI,LO=FREEHI,LO-SUBHI,LO
 361 000674  1054          TAD     FREELO  /SAVE ADDR
 362 000675  3411          DCA I   X11
 363 000676  4777          JMS I   (FREEF  /AND FIELD
 364 000677  3411          DCA I   X11
 365 000700  1057          TAD     TEMP3   /PUT IN MAX LENGTH
 366 000701  7041          CIA             /(NEGATIVE)
 367 000702  3411          DCA I   X11
 368 000703  5660          JMP I   SVSTOR
 369 000704  0000  PSN,    0               /PRINT 3 DIGITS DECIMAL
 370 000705  3061          DCA     WORD2
 371 000706  7146          CLL CMA RTL     /-3
 372 000707  3104          DCA     XLABEL
 373 000710  1061  PRNTSN, TAD     WORD2   /GET NEXT DIGIT
 374 000711  7106          CLL RTL         /INTO THE LOW ORDER
 375 000712  7006          RTL             /THREE BITS AND THE LINK
 376 000713  3061          DCA     WORD2   /SAVE SHIFTED NUMBER
 377 000714  1061          TAD     WORD2   /NOW DO LAST SHIFT
 378 000715  7004          RAL
 379 000716  0365          AND     (17     /ONLY FOUR BITS
 380 000717  7440  SPACE,  SZA
 381 000720  5324          JMP     NOZERO  /NOT A ZERO
 382 000721  1764          TAD I   (TTY    /ANY DIGITS YET ?
 383 000722  7650          SNA CLA
 384 000723  5326          JMP     LEAD0   /NO, ITS A LEADING ZERO
 385 000724  1363  NOZERO, TAD     (60     /MAKE IT ASCII
 386 000725  4764          JMS I   (TTY    /PRINT DIGIT
 387 000726  2104  LEAD0,  ISZ     XLABEL  /BUMP COUNT
 388 000727  5310          JMP     PRNTSN  /MORE DIGIT(S)
 389 000730  5704          JMP I   PSN
 390 000731  0000  SUB,    0               /DOUBLE SUBTRACT
 391 000732  1065          TAD     SUBLO   /SUBTRACT LOWER
 392 000733  7161          CLL CML CIA
 393 000734  1054          TAD     FREELO
 394 000735  3054          DCA     FREELO
 395 000736  7004          RAL             /GET BORROW
 396 000737  1064          TAD     SUBHI
 397 000740  7041          CIA
 398 000741  1053          TAD     FREEHI  /SUBTRACT UPPER
 399 000742  3053          DCA     FREEHI  /SAVE NEW UPPER
 400 000743  1053          TAD     FREEHI  /DID IT FIT ?
 401 000744  7740          SMA SZA CLA
 402 000745  5731          JMP I   SUB     /YUP
 403 000746  3102  TOOBIG, DCA     LINEH   /CLEAR LINE NUMBER
 404 000747  3103          DCA     LINEL
 405 000750  4762          JMS I   (ERMSG  /WRITE MESSAGE
 406 000751  2402          2402            /TOO BIG
 407 000752  5761          JMP I   (ABORTL /ABORT RUN
 408               
 409 000753  0000  TTX,    0               /PRINT CHAR ON TTY
 410 000754  6041          TSF             /WAIT FOR PREVIOUS CHAR
 411 000755  5354          JMP     .-1
 412 000756  6046          TLS             /PRINT THIS ONE
 413 000757  7200          CLA
 414 000760  5753          JMP I   TTX
 415               
 416 000761  2136          PAGE
     000762  1712  
     000763  0060  
     000764  1740  
     000765  0017  
     000766  0003  
     000767  0110  
     000770  7777  
     000771  1400  
     000772  2560  
     000773  2561  
     000774  4010  
     000775  7342  
     000776  1035  
     000777  2130  
 417               /    CAUTION !!!
 418               /    THIS PAGE AND THE NEXT ONE ARE
 419               /    OVERLAYED BY THE INPUT BUFFER
 420               /    AS SOON AS THE ROUTINE "INWORD"
 421               /    IS CALLED. THIS FIRST HAPPENS
 422               /    AFTER THE TAG "RELCIT" .
 423               
 424 001000  1054  STSTUF, TAD     FREELO  /SAVE START OF RESIDENT -1
 425 001001  7041          CIA             /NEGATED
 426 001002  3107          DCA     RESADR  /USED TO COMPUTE AMOUNT OF MOVE
 427 001003  1040          TAD     VARCNT  /GET NUMBER OF
 428 001004  1377          TAD     (401    /VARIABLES
 429 001005  7041          CIA
 430 001006  3040          DCA     VARCNT
 431 001007  1041          TAD     SVCNT   /STRING VARIABLES
 432 001010  1377          TAD     (401
 433 001011  7041          CIA
 434 001012  3041          DCA     SVCNT
 435 001013  1042          TAD     ACNT    /ARRAYS
 436 001014  1376          TAD     (41
 437 001015  7041          CIA
 438 001016  3042          DCA     ACNT
 439 001017  1043          TAD     SACNT   /AND STRING ARRAYS
 440 001020  1376          TAD     (41
 441 001021  7041          CIA
 442 001022  3043          DCA     SACNT
 443 001023  4775          JMS I   (FREEF  /SAVE HIGH FIELD
 444 001024  3020          DCA     STCDF
 445 001025  1040          TAD     VARCNT  /SUBTRACT SPACE FOR
 446 001026  7104          CLL RAL         /SCALAR TABLE (3 WORDS A PIECE)
 447 001027  1040          TAD     VARCNT
 448 001030  1054          TAD     FREELO  /DON'T BOTHER WITH A
 449 001031  3054          DCA     FREELO  /DOUBLE PREC. SUBTRACTION
 450 001032  1054          TAD     FREELO  /SAVE START OF SCALAR TABLE
 451 001033  7001          IAC             /FOR INTERPRETER
 452 001034  3021          DCA     NSTADR
 453 001035  1054          TAD     FREELO  /CLEAR ALL VARIABLES
 454 001036  3010          DCA     X10     /IN THE
 455 001037  3410          DCA I   X10     /SCALAR TABLE
 456 001040  3410          DCA I   X10
 457 001041  3410          DCA I   X10
 458 001042  2040          ISZ     VARCNT
 459 001043  5237          JMP     .-4     /JUST TO BE NICE
 460 001044  6211          CDF     10      /PREPARE TO MOVE
 461 001045  1774  P1,     TAD I   (LITRL+1/THE NUMERIC LITERALS
 462 001046  3257          DCA     LFLD    /INTO THE SCALAR TABLE
 463 001047  1773          TAD I   (LITRL
 464 001050  6201          CDF
 465 001051  7410          SKP
 466 001052  1055  NLLOOP, TAD     TEMP    /ADDR OF NEXT LITERAL
 467 001053  7450          SNA
 468 001054  5311          JMP     NONL    /NO MORE NUMERIC LITERALS
 469 001055  1372          TAD     (-1
 470 001056  3010          DCA     X10
 471 001057  6211  LFLD,   CDF     10
 472 001060  1410          TAD I   X10     /GET ADDR OF NEXT LITERAL
 473 001061  3055          DCA     TEMP
 474 001062  1410  P2,     TAD I   X10     /ALSO ITS FIELD
 475 001063  3257          DCA     LFLD
 476 001064  1410          TAD I   X10     /NOW ITS VALUE
 477 001065  3060          DCA     WORD1
 478 001066  1410          TAD I   X10
 479 001067  3061          DCA     WORD2
 480 001070  1410          TAD I   X10
 481 001071  3062          DCA     WORD3
 482 001072  1410          TAD I   X10     /NOW THE SYMBOL NUMBER
 483 001073  3056          DCA     TEMP2
 484 001074  1056          TAD     TEMP2   /TIMES THREE
 485 001075  7104          CLL RAL
 486 001076  1056          TAD     TEMP2
 487 001077  1054          TAD     FREELO  /PLUS START
 488 001100  3011          DCA     X11     /GIVES STORE ADDR
 489 001101  6201          CDF
 490 001102  1060          TAD     WORD1   /NOW PUT LITERAL INTO TABLE
 491 001103  3411          DCA I   X11
 492 001104  1061          TAD     WORD2
 493 001105  3411          DCA I   X11
 494 001106  1062          TAD     WORD3
 495 001107  3411          DCA I   X11
 496 001110  5252          JMP     NLLOOP  /DO NEXT LITERAL
 497 001111  1042  NONL,   TAD     ACNT    /ALLOCATE ARRAY TABLE
 498 001112  7104          CLL RAL
 499 001113  7104          CLL RAL         /FOUR WORDS PER
 500 001114  1054          TAD     FREELO  /SUBTRACT FROM LOWER END
 501 001115  3054          DCA     FREELO
 502 001116  1054          TAD     FREELO  /SAVE THIS
 503 001117  3022          DCA     NASTAD  /START OF ARRAY TABLE
 504 001120  1041          TAD     SVCNT   /ALLOCATE
 505 001121  7104          CLL RAL         /STRING VAR TABLE
 506 001122  1041          TAD     SVCNT
 507 001123  1054          TAD     FREELO  /3 WORDS EACH
 508 001124  3054          DCA     FREELO
 509 001125  1054          TAD     FREELO  /AND SAVE IT FOR THE INT
 510 001126  3023          DCA     SSTADR
 511 001127  1043          TAD     SACNT   /NOW SPACE FOR STRING
 512 001130  7104          CLL RAL         /ARRAY
 513 001131  7104          CLL RAL
 514 001132  1054          TAD     FREELO  /TABLE
 515 001133  3054          DCA     FREELO
 516 001134  1054          TAD     FREELO  /SAVE FOR INT
 517 001135  3024          DCA     SASTAD
 518 001136  6211          CDF     10      /PREPARE TO MOVE
 519 001137  1771  P3,     TAD I   (SLITRL+1
 520 001140  3362          DCA     SLFLD   /STRING LITERALS
 521 001141  1770          TAD I   (SLITRL
 522 001142  6201          CDF
 523 001143  7410          SKP
 524 001144  1055  SLLOOP, TAD     TEMP    /IS NEXT LIT THERE ?
 525 001145  7450          SNA
 526 001146  5767          JMP I   (NOSL   /NO, END OF THE LINE
 527 001147  1372          TAD     (-1
 528 001150  3010          DCA     X10
 529 001151  4361          JMS     SFLD    /SET THE FIELD
 530 001152  1410          TAD I   X10     /GET ADDR OF NEXT
 531 001153  3055          DCA     TEMP
 532 001154  1410  P4,     TAD I   X10     /ALSO FIELD
 533 001155  3056          DCA     TEMP2
 534 001156  1410          TAD I   X10     /THEN CHAR COUNT
 535 001157  3063          DCA     NCHARS
 536 001160  5766          JMP I   (SLIT2  /DO REST OF STRING LIT
 537 001161  0000  SFLD,   0
 538 001162  6211  SLFLD,  CDF     10
 539 001163  5761          JMP I   SFLD
 540               
 541 001166  1200          PAGE
     001167  1257  
     001170  2564  
     001171  2565  
     001172  7777  
     001173  2562  
     001174  2563  
     001175  2130  
     001176  0041  
     001177  0401  
 542 001200  1063  SLIT2, TAD     NCHARS  /COMPUTE WORD COUNT
 543 001201  1377          TAD     (3
 544 001202  7110          CLL RAR
 545 001203  1010          TAD     X10     /TO GET ADDR OF SYMBOL NUMBER
 546 001204  3057          DCA     TEMP3
 547 001205  1457          TAD I   TEMP3
 548 001206  7104          CLL RAL         /SYM NUMBER TIMES 3
 549 001207  1457          TAD I   TEMP3
 550 001210  1023          TAD     SSTADR  /PLUS BASE
 551 001211  3011          DCA     X11     /GIVES ST ADDR
 552 001212  1063          TAD     NCHARS  /ALLOCATE SPACE FOR IT
 553 001213  7001          IAC
 554 001214  7170          CLL CML CMA RAR
 555 001215  3057          DCA     TEMP3   /(SAVE NUMBER OF WORDS)
 556 001216  1057          TAD     TEMP3
 557 001217  7100          CLL
 558 001220  1054          TAD     FREELO
 559 001221  3054          DCA     FREELO  /BELOW THE SYMBOL TABLES
 560 001222  7420          SNL
 561 001223  5337          JMP     TMSLIT  /TOO MUCH STRING LITERALS
 562 001224  1054          TAD     FREELO
 563 001225  1376          TAD     (-END-10
 564 001226  7630          SZL CLA
 565 001227  5337          JMP     TMSLIT  /DITTO
 566 001230  1054          TAD     FREELO  /STICK THE ADDR
 567 001231  7001          IAC
 568 001232  6201          CDF
 569 001233  3411          DCA I   X11     /INTO THE ST ENTRY
 570 001234  4775          JMS I   (FREEF  /ALSO THE FIELD
 571 001235  3411          DCA I   X11
 572 001236  1063          TAD     NCHARS  /ALSO THE SIZE
 573 001237  7041          CIA
 574 001240  3411          DCA I   X11
 575 001241  1054          TAD     FREELO  /THIS IS WHERE IT GOES
 576 001242  3011          DCA     X11
 577 001243  1063          TAD     NCHARS  /PUT IN THE LENGTH TOO
 578 001244  7041          CIA             /(NEGATIVE)
 579 001245  5251          JMP     .+4
 580 001246  4774  MOVSL,  JMS I   (SFLD
 581 001247  1410          TAD I   X10
 582 001250  6201          CDF
 583 001251  3411          DCA I   X11     /MOVE THE LITERAL TEXT
 584 001252  2057          ISZ     TEMP3
 585 001253  5246          JMP     MOVSL
 586 001254  1056  P5,     TAD     TEMP2   /PUT THE FIELD OF THE NEXT
 587 001255  3773          DCA I   (SLFLD  /ENTRY WHERE IT DOES THE MOST GOOD
 588 001256  5772          JMP I   (SLLOOP /DO THE NEXT LITERAL
 589 001257  1054  NOSL,   TAD     FREELO  /SAVE TOP OF DATA LIST
 590 001260  3027          DCA     DATTOP
 591 001261  1027          TAD     DATTOP  /IF EMPTY MAKE TOP=BOTTOM
 592 001262  3030          DCA     DATPTR
 593 001263  1051          TAD     DLSIZE
 594 001264  7450          SNA             /IS ANY DATA ?
 595 001265  5771          JMP I   (NODATA /NO
 596 001266  7100          CLL
 597 001267  1054          TAD     FREELO  /GET START OF DATA
 598 001270  3054          DCA     FREELO
 599 001271  7420          SNL
 600 001272  5332          JMP     TMDATA  /TOO MUCH DATA
 601 001273  1054          TAD     FREELO
 602 001274  1376          TAD     (-END-10
 603 001275  7630          SZL CLA
 604 001276  5332          JMP     TMDATA  /DITTO
 605 001277  1054          TAD     FREELO  /SAVE IT
 606 001300  3030          DCA     DATPTR
 607 001301  1054          TAD     FREELO  /USE X13 TO FILL LIST
 608 001302  3013          DCA     X13
 609 001303  1370          TAD     (DATLST-1
 610 001304  3010          DCA     X10
 611 001305  6211          CDF     10
 612 001306  1410  DATLUP, TAD I   X10     /ANY MORE DATA ELEMENTS ?
 613 001307  7450          SNA
 614 001310  5771          JMP I   (NODATA
 615 001311  3055          DCA     TEMP    /SAVE ADDR
 616 001312  1410  P8,     TAD I   X10     /GET NEW FIELD
 617 001313  3320          DCA     DATAF1
 618 001314  1320  P9,     TAD     DATAF1  /TWICE
 619 001315  3326          DCA     DATAF2
 620 001316  1055          TAD     TEMP    /START WITH NEW ELEMENT
 621 001317  3010          DCA     X10
 622 001320  6211  DATAF1, CDF     10
 623 001321  1455          TAD I   TEMP    /GET COUNT
 624 001322  3055          DCA     TEMP
 625 001323  1410  DATMOV, TAD I   X10     /GET NEXT WORD
 626 001324  6201          CDF
 627 001325  3413          DCA I   X13     /MOVE INTO DATA AREA
 628 001326  6211  DATAF2, CDF     10
 629 001327  2055          ISZ     TEMP
 630 001330  5323          JMP     DATMOV
 631 001331  5306          JMP     DATLUP  /DO NEXT ELEMENT
 632 001332  3103  TMDATA, DCA     LINEL   /ZERO LINE NUMBER
 633 001333  3102          DCA     LINEH
 634 001334  4767          JMS I   (ERMSG  /PRINT ERROR MESSAGE
 635 001335  2404          2404
 636 001336  5766          JMP I   (ABORTL
 637 001337  3102  TMSLIT, DCA     LINEH   /CLEAR THE LINE NUMBER
 638 001340  3103          DCA     LINEL
 639 001341  4767          JMS I   (ERMSG  /PRINT MESSAGE
 640 001342  2423          2423
 641 001343  5766          JMP I   (ABORTL
 642               
 643 001344  1045  PATLST, P1;P2;P3;P4;P5;P6;P7;P8;P9;0
     001345  1062  
     001346  1137  
     001347  1154  
     001350  1254  
     001351  0632  
     001352  0646  
     001353  1312  
     001354  1314  
     001355  0000  
 644               
 645 001366  2136          PAGE
     001367  1712  
     001370  2565  
     001371  0600  
     001372  1144  
     001373  1162  
     001374  1161  
     001375  2130  
     001376  5370  
     001377  0003  
 646 001400  1042  ALLOCA,        TAD     ACNT    /ANY ARRAYS ?
 647 001401  7650          SNA CLA
 648 001402  5260          JMP     ALLOCS  /NO
 649 001403  1377          TAD     (ARAYST /ALLOCATE ARRAYS
 650 001404  3010          DCA     X10
 651 001405  1022          TAD     NASTAD
 652 001406  3011          DCA     X11
 653 001407  6211  DOARAY, CDF     10
 654 001410  1410          TAD I   X10     /GET NEXT ARRAY
 655 001411  3055          DCA     TEMP
 656 001412  1410          TAD I   X10     /GET FIRST DIM
 657 001413  7450          SNA
 658 001414  1376          TAD     (12     /USE 10 IF NONE
 659 001415  7001          IAC             /ALLOCATE 0TH ELEMENT
 660 001416  3056          DCA     TEMP2
 661 001417  1410          TAD I   X10     /GET SECOND DIM
 662 001420  7450          SNA
 663 001421  1376          TAD     (12
 664 001422  7001          IAC
 665 001423  3057          DCA     TEMP3
 666 001424  1057          TAD     TEMP3   /GET READY TO SUBTRACT
 667 001425  3065          DCA     SUBLO
 668 001426  3064          DCA     SUBHI
 669 001427  6201          CDF
 670 001430  7132          CLL CML RTR
 671 001431  0055          AND     TEMP    /HOW MANY DIMS ?
 672 001432  7650          SNA CLA
 673 001433  5237          JMP     ONLY1   /ONE
 674 001434  1056          TAD     TEMP2   /PRODUCT OF DIMS
 675 001435  4775          JMS I   (MUL12
 676 001436  5242          JMP     TIMES3  /MULT BY 3
 677 001437  3057  ONLY1,  DCA     TEMP3   /ZERO SECOND DIMENSION
 678 001440  1056          TAD     TEMP2
 679 001441  3065          DCA     SUBLO
 680 001442  1374  TIMES3, TAD     (3      /MULT SIZE BY 3
 681 001443  4775          JMS I   (MUL12
 682 001444  4773          JMS I   (SUB    /SUBTRACT FROM FREE
 683 001445  1054          TAD     FREELO
 684 001446  3411          DCA I   X11     /SAVE ADDR IN S.T.
 685 001447  4772          JMS I   (FREEF
 686 001450  3411          DCA I   X11
 687 001451  1056          TAD     TEMP2   /ALSO DIMS
 688 001452  3411          DCA I   X11
 689 001453  1057          TAD     TEMP3
 690 001454  3411          DCA I   X11
 691 001455  2010          ISZ     X10     /SKIP SYMBOL NUMBER
 692 001456  2042          ISZ     ACNT
 693 001457  5207          JMP     DOARAY
 694 001460  1043  ALLOCS, TAD     SACNT   /ANY STRING ARRAYS
 695 001461  7650          SNA CLA
 696 001462  5771          JMP I   (RELCIT /NO
 697 001463  1370          TAD     (SARYST+1
 698 001464  3010          DCA     X10     /ALLOCATE STRING ARRAYS
 699 001465  1024          TAD     SASTAD
 700 001466  3011          DCA     X11
 701 001467  6211  DOSARY, CDF     10
 702 001470  1410          TAD I   X10
 703 001471  7450          SNA
 704 001472  1376          TAD     (12     /USE 10 FOR DIM
 705 001473  7001          IAC
 706 001474  3057          DCA     TEMP3
 707 001475  1410          TAD I   X10     /GET DIM
 708 001476  7450          SNA
 709 001477  1367          TAD     (10     /USE 16 IF NO SIZE SPEC
 710 001500  3056          DCA     TEMP2
 711 001501  1057          TAD     TEMP3
 712 001502  3065          DCA     SUBLO   /PREPARE FOR MULT
 713 001503  3064          DCA     SUBHI
 714 001504  6201          CDF
 715 001505  1056          TAD     TEMP2   /GET NUM WORDS PER STRING
 716 001506  1374          TAD     (3
 717 001507  7110          CLL RAR
 718 001510  4775          JMS I   (MUL12  /GET ARRAY SIZE
 719 001511  4773          JMS I   (SUB    /DO SUBTRACTION
 720 001512  1054          TAD     FREELO  /SAVE ADDR
 721 001513  3411          DCA I   X11
 722 001514  4772          JMS I   (FREEF
 723 001515  3411          DCA I   X11
 724 001516  1056          TAD     TEMP2   /AND STRING SIZE
 725 001517  7041          CIA             /(SIZES ARE NEG)
 726 001520  3411          DCA I   X11
 727 001521  1057          TAD     TEMP3   /AND NUMBER OF STRINGS
 728 001522  3411          DCA I   X11
 729 001523  2010          ISZ     X10     /SKIP NEXT NAME
 730 001524  2010          ISZ     X10     /AND NEXT SYM NUMBER
 731 001525  2043          ISZ     SACNT
 732 001526  5267          JMP     DOSARY
 733 001527  5771          JMP I   (RELCIT
 734 001530  0000  INWORD, 0               /READ FROM CODE FILE
 735 001531  2074          ISZ     ICOUNT  /ANYTHING IN BUFFER
 736 001532  5345          JMP     NOREAD  /YASSUH!
 737 001533  4766          JMS I   (7607   /READ NEXT BLOCK
 738 001534  0200          200
 739 001535  1000          1000            /NOTE: THIS OVERLAYS USED CODE
 740 001536  0000  INBLOK, 0
 741 001537  5765          JMP I   (IOERR
 742 001540  2336          ISZ     INBLOK  /BUMP BLOCK COUNTER
 743 001541  1335          TAD     INBLOK-1/RESET BUFFER POINTER
 744 001542  3350          DCA     INPTR
 745 001543  1364          TAD     (-400   /AND COUNTER
 746 001544  3074          DCA     ICOUNT
 747 001545  1750  NOREAD, TAD I   INPTR   /GET WORD
 748 001546  2350          ISZ     INPTR   /BUMP POINTER
 749 001547  5730          JMP I   INWORD
 750 001550  0000  INPTR,  0
 751               
 752 001551  0000  CIPAT,  0       /PATCH TO MAKECI
 753 001552  1363          TAD     (1000
 754 001553  3762          DCA I   (JSW    /CHANGE JSW
 755 001554  3761  COPT,   DCA I   (CISTRT+1       /& TAKE CARE OF /C
 756 001555  5751          JMP I CIPAT
 757               
 758 001561  7001          PAGE
     001562  7746  
     001563  1000  
     001564  7400  
     001565  2310  
     001566  7607  
     001567  0010  
     001570  2333  
     001571  1600  
     001572  2130  
     001573  0731  
     001574  0003  
     001575  2252  
     001576  0012  
     001577  2132  
 759 001600  1045  RELCIT,        TAD     LOCTRL  /FIND START OF CODE
 760 001601  7101          CLL IAC
 761 001602  3065          DCA     SUBLO   /BY SUBTRACTING
 762 001603  7004          RAL
 763 001604  1044          TAD     LOCTRH  /AMOUNT FROM FREE
 764 001605  3064          DCA     SUBHI
 765 001606  4777          JMS I   (SUB
 766 001607  1054          TAD     FREELO  /THIS IS THE START OF THE CODE
 767 001610  3026          DCA     CODBGN  /MINUS ONE
 768 001611  1053          TAD     FREEHI  /THIS IS THE FIELD NUMBER
 769 001612  3025          DCA     CODCDF
 770 001613  1045          TAD     LOCTRL  /SET UP PROG SIZE COUNT
 771 001614  7161          CLL CML CIA
 772 001615  3066          DCA     CODSZ1  /LOWER COUNT
 773 001616  7004          RAL
 774 001617  1044          TAD     LOCTRH
 775 001620  7041          CIA
 776 001621  3067          DCA     CODSZ2  /UPPER COUNT
 777 001622  1046          TAD     BLOCK   /SET UP FOR READ AND WRITE
 778 001623  3776          DCA I   (OUBLOK
 779 001624  1046          TAD     BLOCK
 780 001625  3775          DCA I   (INBLOK
 781 001626  1374          TAD     (-401
 782 001627  3075          DCA     OCOUNT
 783 001630  7240          CLA CMA
 784 001631  3074          DCA     ICOUNT
 785 001632  4773  RELOOP, JMS I   (INWORD /GET A WORD OF CODE
 786 001633  3055          DCA     TEMP
 787 001634  1372          TAD     (3000
 788 001635  1055          TAD     TEMP    /CHECK FOR OPCODE 5000 (GOTO)
 789 001636  0371          AND     (7000
 790 001637  7640          SZA CLA
 791 001640  5303          JMP     NORELC  /NO JUMP
 792 001641  1055          TAD     TEMP    /REMOVE FIELD BITS
 793 001642  0370          AND     (340
 794 001643  7112          CLL RTR
 795 001644  1264          TAD     CDF0
 796 001645  3254          DCA     LBLFLD  /FIELD OF LABEL ENTRY
 797 001646  1055          TAD     TEMP    /ZERO FIELD BITS
 798 001647  0367          AND     (7437
 799 001650  3055          DCA     TEMP
 800 001651  4773          JMS I   (INWORD /GET REST OF ADDR
 801 001652  3056          DCA     TEMP2
 802 001653  4766          JMS I   (CHKLBL /CHECK FOR UNDEFINED LABEL
 803 001654  7402  LBLFLD, HLT
 804 001655  1456          TAD I   TEMP2
 805 001656  0365          AND     (7      /GET ADDR TO BE RELOCATED
 806 001657  3070          DCA     LOCHI
 807 001660  2056          ISZ     TEMP2
 808 001661  1456          TAD I   TEMP2
 809 001662  7100          CLL
 810 001663  1026          TAD     CODBGN  /ADD BASE ADDR
 811 001664  6201  CDF0,   CDF
 812 001665  3071          DCA     LOCLO   /SAVE LOW PART OF JUMP
 813 001666  7004          RAL
 814 001667  1025          TAD     CODCDF  /GET HIGH PART
 815 001670  1070          TAD     LOCHI
 816 001671  7106          CLL RTL         /PUT IT INTO CORRECT PLACE
 817 001672  7006          RTL
 818 001673  7004          RAL
 819 001674  1055          TAD     TEMP    /PLUS INSTRUCTION
 820 001675  4764          JMS I   (OUTWRD
 821 001676  2066          ISZ     CODSZ1  /BUMP COUNTER
 822 001677  7410          SKP
 823 001700  2067          ISZ     CODSZ2  /CAN'T BE LAST WORD
 824 001701  1071          TAD     LOCLO   /OUTPUT LOW ORDER ADDR
 825 001702  7410          SKP
 826 001703  1055  NORELC, TAD     TEMP    /JUST OUTPUT IT
 827 001704  4764  RELOUT, JMS I   (OUTWRD
 828 001705  2066          ISZ     CODSZ1  /DOUBLE WORD ISZ BUMP
 829 001706  5232          JMP     RELOOP
 830 001707  2067          ISZ     CODSZ2
 831 001710  5232          JMP     RELOOP
 832 001711  5763          JMP I   (LOADIT /DONE RELOCATING, GO LOAD
 833               
 834                       /PRINT ERROR MESSAGE
 835               
 836 001712  0000  ERMSG,  0               /PRINT ERROR MESSAGE
 837 001713  6201          CDF
 838 001714  1712          TAD I   ERMSG   /GET CODE
 839 001715  7112          CLL RTR         /PRINT FIRST CHAR
 840 001716  7012          RTR
 841 001717  7012          RTR
 842 001720  4340          JMS     TTY
 843 001721  1712          TAD I   ERMSG   /PRINT SECOND CHAR
 844 001722  4340          JMS     TTY
 845 001723  2312          ISZ     ERMSG   /FIX RETURN ADDR
 846 001724  1362          TAD     (240    /PRINT SPACE
 847 001725  4340          JMS     TTY
 848 001726  3340          DCA     TTY     /USE TTY AS A SWITCH
 849 001727  1102          TAD     LINEH   /PRINT HIGH ORDER
 850 001730  4761          JMS I   (PSN
 851 001731  1103          TAD     LINEL   /THEN LOW ORDER
 852 001732  4761          JMS I   (PSN    /(LINE NUMBER NATCH !)
 853 001733  1360          TAD     (215    /PRINT CARRIAGE RETURN
 854 001734  4757          JMS I   (TTX
 855 001735  1356          TAD     (212    /PRINT LINE FEED
 856 001736  4757          JMS I   (TTX
 857 001737  5712          JMP I   ERMSG   /RETURN
 858               
 859 001740  0000  TTY,    0               /CONVERT TO ASCII AND PRINT
 860 001741  1362          TAD     (240
 861 001742  0355          AND     (77
 862 001743  1362          TAD     (240
 863 001744  4757          JMS I   (TTX    /PRINT CHAR
 864 001745  5740          JMP I   TTY     /RETURN
 865               
 866 001755  0077          PAGE
     001756  0212  
     001757  0753  
     001760  0215  
     001761  0704  
     001762  0240  
     001763  2000  
     001764  2333  
     001765  0007  
     001766  2105  
     001767  7437  
     001770  0340  
     001771  7000  
     001772  3000  
     001773  1530  
     001774  7377  
     001775  1536  
     001776  2360  
     001777  0731  
 867 002000  4777  LOADIT,        JMS I   (OUDUMP /DUMP LAST BLOCK
 868 002001  1045          TAD     LOCTRL  /SET UP COUNTER
 869 002002  7161          CIA CLL CML
 870 002003  3066          DCA     CODSZ1
 871 002004  7004          RAL
 872 002005  1044          TAD     LOCTRH
 873 002006  7041          CIA
 874 002007  3067          DCA     CODSZ2
 875 002010  1026          TAD     CODBGN
 876 002011  3055          DCA     TEMP    /CODE BEGIN -1
 877 002012  1046          TAD     BLOCK   /SET UP BLOCK NUMBER
 878 002013  3776          DCA I   (INBLOK
 879 002014  7240          CLA CMA
 880 002015  3074          DCA     ICOUNT
 881 002016  1025          TAD     CODCDF  /SET UP CODE CDF
 882 002017  7106          CLL RTL
 883 002020  7004          RAL
 884 002021  1375          TAD     (6201
 885 002022  3025          DCA     CODCDF
 886 002023  1025          TAD     CODCDF
 887 002024  3233          DCA     CF
 888 002025  2055  LODLUP, ISZ     TEMP    /BUMP POINTER
 889 002026  5232          JMP     NOFJMP  /FIELD IS OK
 890 002027  1233          TAD     CF      /BUMP THE FIELD
 891 002030  1374          TAD     (10
 892 002031  3233          DCA     CF
 893 002032  4773  NOFJMP, JMS I   (INWORD /GET NEXT WORD
 894 002033  7402  CF,     HLT
 895 002034  3455          DCA I   TEMP    /SAVE THE WORD
 896 002035  6201  CDFZER, CDF
 897 002036  2066          ISZ     CODSZ1  /MORE CODE ?
 898 002037  5225          JMP     LODLUP  /YES
 899 002040  2067          ISZ     CODSZ2
 900 002041  5225          JMP     LODLUP  /YES
 901 002042  1233          TAD     CF      /GET THE FIELD
 902 002043  3261          DCA     CLEARF  /AND SAVE IT
 903 002044  1106  CLRLUP, TAD     CLREND  /IS THIS THE END OF CLEAR ?
 904 002045  1055          TAD     TEMP
 905 002046  7640          SZA CLA
 906 002047  5254          JMP     MORCLR  /NO, KEEP GOING
 907 002050  1105          TAD     CLRFLD  /DO FIELDS MATCH ?
 908 002051  1261          TAD     CLEARF
 909 002052  7650          SNA CLA
 910 002053  5264          JMP     DONCLR  /YES, ARRAYS ARE CLEARED
 911 002054  2055  MORCLR, ISZ     TEMP    /BUMP POINTER
 912 002055  5261          JMP     CLEARF  /DON'T BUMP FIELD
 913 002056  1261          TAD     CLEARF  /DO BUMP FIELD
 914 002057  1374          TAD     (10
 915 002060  3261          DCA     CLEARF
 916 002061  7402  CLEARF, HLT
 917 002062  3455          DCA I   TEMP    /CLEAR THE WORD
 918 002063  5244          JMP     CLRLUP  /DO MORE
 919 002064  1261  DONCLR, TAD     CLEARF  /COPY THE FIELD
 920 002065  3277          DCA     STFLDM
 921 002066  1055          TAD     TEMP    /GET THE COUNT
 922 002067  1107          TAD     RESADR  /OF HOW MUCH SYMBOL TABLE
 923 002070  3056          DCA     TEMP2   /TO MOVE
 924 002071  1055          TAD     TEMP    /PUT IT INTO AUTO XR'S
 925 002072  3013          DCA     X13
 926 002073  1013          TAD     X13
 927 002074  3011          DCA     X11
 928 002075  6201  MOVSTL, CDF
 929 002076  1411          TAD I   X11     /GET NEXT WORD OF ST
 930 002077  7402  STFLDM, HLT
 931 002100  3413          DCA I   X13     /STORE IT
 932 002101  2056          ISZ     TEMP2
 933 002102  5275          JMP     MOVSTL
 934 002103  4340          JMS     MOVFIN  /MOVE FINI PAGE INTO 7000-7177
 935 002104  5772          JMP I   (7000   /GO READ BRTS.SV
 936 002105  0000  CHKLBL,        0               /CHECK LABEL FOR UNDEF
 937 002106  1705          TAD I   CHKLBL  /GET FIELD
 938 002107  3310          DCA     .+1
 939 002110  7402          HLT
 940 002111  1456          TAD I   TEMP2   /GET FIRST WORD OF LABEL
 941 002112  7710          SPA CLA
 942 002113  5705          JMP I   CHKLBL  /SIGN BIT IS DEFINED
 943 002114  7144          CLL CMA RAL     /GET ADDR OF LINE NUM
 944 002115  1056          TAD     TEMP2
 945 002116  3104          DCA     XLABEL
 946 002117  1504          TAD I   XLABEL  /GET HIGH ORDER LINE
 947 002120  3102          DCA     LINEH
 948 002121  2104          ISZ     XLABEL
 949 002122  1504          TAD I   XLABEL  /GET LOW ORDER
 950 002123  3103          DCA     LINEL
 951 002124  6201          CDF
 952 002125  4771          JMS I   (ERMSG  /PRINT MESSAGE
 953 002126  2523          2523
 954 002127  5705          JMP I   CHKLBL  /RETURN
 955               
 956 002130  0000  FREEF,  0               /MAKE A CDF FROM FREEHI
 957 002131  1053          TAD     FREEHI
 958 002132  7106          CLL RTL
 959 002133  7004          RAL
 960 002134  1235          TAD     CDFZER
 961 002135  5730          JMP I   FREEF
 962               
 963 002136  4340  ABORTL, JMS     MOVFIN  /PUT FINI PAGE INTO 7000-7177
 964                                       /AND ABORT THE RUN
 965 002137  5770          JMP I   (ABORT-FINI+7000
 966               
 967 002140  0000  MOVFIN, 0               /FINI PAGE MOVER
 968 002141  6201          CDF
 969 002142  1367          TAD     (FINI-1 /MOVE INT READING CODE
 970 002143  3010          DCA     X10
 971 002144  1366          TAD     (6777   /INTO 7000
 972 002145  3011          DCA     X11
 973 002146  1365          TAD     (-200
 974 002147  3055          DCA     TEMP    /PUT CORRECT COUNT HERE
 975 002150  1410          TAD I   X10
 976 002151  3411          DCA I   X11     /MOVE CODE
 977 002152  2055          ISZ     TEMP
 978 002153  5350          JMP     .-3
 979 002154  5740          JMP I   MOVFIN
 980               
 981 002165  7600          PAGE
     002166  6777  
     002167  2177  
     002170  7113  
     002171  1712  
     002172  7000  
     002173  1530  
     002174  0010  
     002175  6201  
     002176  1536  
     002177  2354  
 982 002200  1647  FINI,  TAD I   XERMSG  /ANY ERRORS ?
 983 002201  7640          SZA CLA
 984 002202  5313          JMP     ABORT   /YES, DON'T RUN IT
 985 002203  1246          TAD     XINT    /MOVE INT STUFF
 986 002204  3277          DCA     FTEMP
 987 002205  1245          TAD     M12     /10 KEY LOCATIONS
 988 002206  3301          DCA     FCNT
 989 002207  1251          TAD     XSAVE   /INTO A SAFE PLACE
 990 002210  3300          DCA     FTEMP2
 991 002211  1677          TAD I   FTEMP
 992 002212  2277          ISZ     FTEMP
 993 002213  3700          DCA I   FTEMP2
 994 002214  2300          ISZ     FTEMP2
 995 002215  2301          ISZ     FCNT
 996 002216  5211          JMP     .-5     /MOVE LOOP
 997 002217  1050          TAD     BRTS    /READ IN BRTS
 998 002220  3224          DCA     BRTSB
 999 002221  4650          JMS I   X7607
1000 002222  3400          BRTSIZ
1001 002223  0000          0
1002 002224  0000  BRTSB,  0
1003 002225  5310          JMP     IOERR
1004 002226  1251          TAD     XSAVE
1005 002227  3277          DCA     FTEMP
1006 002230  1246          TAD     XINT    /MOVE STUFF BACK
1007 002231  3300          DCA     FTEMP2
1008 002232  1677          TAD I   FTEMP
1009 002233  2277          ISZ     FTEMP
1010 002234  3700          DCA I   FTEMP2
1011 002235  2300          ISZ     FTEMP2
1012 002236  2245          ISZ     M12
1013 002237  5232          JMP     .-5
1014 002240  1377          TAD     (JMP I FSTOP1   /PATCH ^C LOCATIONS
1015 002241  3776          DCA I   (7600
1016 002242  1377          TAD     (JMP I FSTOP1
1017 002243  3775          DCA I   (7605
1018 002244  5774          JMP I   (BRTBGN /GO START BRTS
1019               
1020 002245  7766  M12,    -12
1021 002246  0020  XINT,   20
1022 002247  1712  XERMSG, ERMSG
1023 002250  7607  X7607,  7607
1024 002251  7052  XSAVE,  7001+XSAVE-FINI
1025               
1026 002252  0000  MUL12,  0               /MULTIPLY 12BITS AND 24 BITS
1027 002253  3100          DCA     AC3     /SAVE 12 BIT THING
1028 002254  3077          DCA     AC2     /CLEAR REST OF AC
1029 002255  3076          DCA     AC1
1030 002256  1373          TAD     (-15    /ONLY TEST 12 BITS
1031 002257  3101          DCA     SC
1032 002260  5276          JMP     MULBGN
1033 002261  7420  MULLUP, SNL             /WAS BIT ON ?
1034 002262  5270          JMP     NOADD   /NO, DON'T ADD
1035 002263  1065          TAD     SUBLO   /ADD TO HIGH ORDER 2/3'S OF AC
1036 002264  1077          TAD     AC2
1037 002265  3077          DCA     AC2
1038 002266  7024          CML RAL
1039 002267  1064          TAD     SUBHI
1040 002270  1076  NOADD,  TAD     AC1     /SHIFT AC RIGHT
1041 002271  7110          CLL RAR
1042 002272  3076          DCA     AC1
1043 002273  1077          TAD     AC2
1044 002274  7010          RAR
1045 002275  3077          DCA     AC2
1046 002276  1100  MULBGN, TAD     AC3
1047 002277  7010  FTEMP,  RAR
1048 002300  3100  FTEMP2, DCA     AC3
1049 002301  2101  FCNT,   ISZ     SC      /BUMP SHIFT COUNTER
1050 002302  5261          JMP     MULLUP
1051 002303  1077          TAD     AC2     /ANSWER IS LOWER 2/3'S OF AC
1052 002304  3064          DCA     SUBHI
1053 002305  1100          TAD     AC3
1054 002306  3065          DCA     SUBLO
1055 002307  5652          JMP I   MUL12
1056               
1057 002310  3103  IOERR,  DCA     LINEL   /ZERO LINE NUMBER
1058 002311  4647          JMS I   XERMSG  /PRINT MESSAGE
1059 002312  1117          1117
1060 002313  4772  ABORT,  JMS I   (SWAP   /SWAP OS8 BACK
1061 002314  4774          JMS I (200      /CHECK OUT W/ CI BUILDER
1062 002315  1371          TAD     (4207   /RESTORE ^C LOCATIONS
1063 002316  3776          DCA I   (7600
1064 002317  1370          TAD     (6213
1065 002320  3775          DCA I   (7605
1066 002321  1052          TAD     ABORTX  /CALLED VIA CHAIN ?(FROM EDIT)
1067 002322  7450          SNA
1068 002323  5776          JMP I   (7600   /NO, RETURN TO OS8
1069 002324  3330          DCA     EDTBLK  /YES, SAVE EDITOR START
1070 002325  4650          JMS I   X7607   /READ IN EDITOR
1071 002326  2100          EDTSIZ          /THIS MUCH
1072 002327  0000          0
1073               OWTEMP,
1074 002330  0000  EDTBLK, 0
1075 002331  5775          JMP I   (7605   /ERROR
1076 002332  5767          JMP I   (EDTBGN /GO START EDITOR
1077               
1078 002333  0000  OUTWRD, 0               /OUTPUT WORD TO TEMP FILE
1079 002334  2075          ISZ     OCOUNT  /ANY ROOM ?
1080 002335  5346          JMP     NOWRIT  /YES
1081 002336  3330          DCA     OWTEMP  /SAVE WORD
1082 002337  4354          JMS     OUDUMP  /WRITE BLOCK
1083 002340  2360          ISZ     OUBLOK  /BUMP BLOCK NUMBER
1084 002341  1357          TAD     OUBLOK-1/RESET BUFFET POINTER
1085 002342  3353          DCA     OUPTR
1086 002343  1366          TAD     (-400
1087 002344  3075          DCA     OCOUNT  /AND COUNT
1088 002345  1330          TAD     OWTEMP  /RESTORE AC
1089 002346  6211  NOWRIT, CDF     10
1090 002347  3753          DCA I   OUPTR   /INTO BUFFER
1091 002350  6201          CDF
1092 002351  2353          ISZ     OUPTR
1093 002352  5733          JMP I   OUTWRD
1094 002353  0000  OUPTR,  0
1095 002354  0000  OUDUMP, 0               /WRITE BLOCK
1096 002355  4650          JMS I   X7607   /WRITE BLOCK
1097 002356  4210          4210
1098 002357  0000          0
1099 002360  0000  OUBLOK, 0
1100 002361  5310          JMP     IOERR
1101 002362  5754          JMP I   OUDUMP
1102               
1103                       END=FINI+200
1104               
1105 002366  7400          PAGE
     002367  3212  
     002370  6213  
     002371  4207  
     002372  0463  
     002373  7763  
     002374  0200  
     002375  7605  
     002376  7600  
     002377  5407  
1106                      BLDCI=200       /PAGE INTO WHICH MAKECI GETS MOVED
1107                       LOADBL=357      /LOC WHERE BCOMP LEAVES BLOAD BLOCK #
1108               
1109 002400  0000  IMAGE,  0
1110 002401  1777          TAD I   (LOADBL /COME HERE TO CREATE CORE IMAGE
1111 002402  1376          TAD     (6              /ALREADY HAVE THIS MUCH
1112 002403  3775          DCA I   (LDRBLK /INIT BLOAD OVRLY READER
1113 002404  6211          CDF 10
1114 002405  1774          TAD I   (7644   /TEST FOR /V
1115 002406  6201          CDF
1116 002407  0373          AND     (4
1117 002410  7640          SZA CLA
1118 002411  4772          JMS I   (VERNUM
1119 002412  6211          CDF 10
1120 002413  1771          TAD I   (7643   /GET OPTION BITS
1121 002414  6201          CDF
1122 002415  3055          DCA     TEMP
1123 002416  1055          TAD     TEMP
1124 002417  7012          RTR
1125 002420  7620          SNL CLA         /HAVE K OPTION?
1126 002421  5321          JMP     LSTART  /NO: START LOADER
1127 002422  1055          TAD     TEMP
1128 002423  7006          RTL
1129 002424  7630          SZL CLA         /HAVE B OPTION?
1130 002425  3770          DCA I   (FLGRTS /YES: FLAG IT
1131 002426  1055          TAD     TEMP    /TEST FOR /C
1132 002427  7006          RTL
1133 002430  7710          SPA CLA
1134 002431  5234          JMP     .+3
1135 002432  1367          TAD     (NOP
1136 002433  3766          DCA I   (COPT
1137 002434  6211          CDF 10
1138 002435  1765          TAD I   (7646   /GET =N
1139 002436  6201          CDF
1140 002437  0364          AND (7          /WIPE ALT MODE
1141 002440  7450          SNA
1142 002441  7126          CLL CML RTL     /DEFAULT=12K FOR NOW
1143 002442  3055          DCA     TEMP
1144 002443  7140          CLL CMA
1145 002444  1055          TAD     TEMP    /MUST BE >1 HERE
1146 002445  7650          SNA CLA
1147 002446  2055          ISZ     TEMP
1148 002447  1055          TAD     TEMP
1149 002450  7140          CLL CMA
1150 002451  1047          TAD     HIFLD
1151 002452  7620          SNL CLA         /WHICH HAS MORE CORE?
1152 002453  5256          JMP     .+3             /TARGET MACHINE: TOUGH
1153 002454  1055          TAD     TEMP    /HOST MACHINE
1154 002455  3047          DCA     HIFLD   /FAKE OUT LOADER
1155 002456  1047          TAD     HIFLD
1156 002457  7041          CIA
1157 002460  3763          DCA I   (FLDCNT /INIT CI BUILDER
1158 002461  1763          TAD I   (FLDCNT
1159 002462  3762          DCA I   (MYCORE /AND CI STARTER
1160 002463  6211          CDF 10
1161 002464  3765          DCA I   (7646   /CLEAR =N BITS
1162 002465  3771          DCA I   (7643   /AND EARLY OPTIONS
1163 002466  1774          TAD I   (7644   /GET OPTION BITS
1164 002467  6201          CDF
1165 002470  7006          RTL
1166 002471  7630          SZL CLA         /HAVE N SWITCH?
1167 002472  5316          JMP     NOTDSY  /NEVER SEES TD8E SYSTEM
1168 002473  1047          TAD     HIFLD
1169 002474  7110          CLL RAR
1170 002475  7650          SNA CLA         /HAVE OVER 8K CORE?
1171 002476  5316          JMP     NOTDSY
1172 002477  1367          TAD     (NOP
1173 002500  3761          DCA I   (GOTTD  /YES: FORCE SYS=TD8E
1174 002501  6211          CDF 10          /THE QUESTION IS,
1175 002502  1760          TAD I   (DCB    /WAS IT A LITTLE WHITE ONE
1176 002503  0357          AND (770        /OR NOT?
1177 002504  1356          TAD     (-210
1178 002505  6201          CDF
1179 002506  7650          SNA CLA
1180 002507  1755          TAD I   (7612
1181 002510  1354          TAD     (-3
1182 002511  7650          SNA CLA
1183 002512  5315          JMP     .+3             /IT WAS TRUTH!
1184 002513  1353          TAD     (SWAP-LOADER+5600
1185 002514  3752          DCA I   (TDLIE  /LIES: MUST LIE TO SWAPPER ALSO
1186 002515  7201          CLA IAC
1187 002516  3751  NOTDSY, DCA I   (TDFLAG /NOT 0 MEANS HAVE TD8E
1188 002517  7040          CMA
1189 002520  3750          DCA I   (ERMSG  /FORCE LOAD ABORT
1190 002521  1347  LSTART, TAD     (BLDCI-1        /MOVE CI BUILDER
1191 002522  3010          DCA     X10             /INTO LOW CORE
1192 002523  1346          TAD     (MAKECI-1
1193 002524  3011          DCA     X11
1194 002525  1411          TAD I   X11
1195 002526  3410          DCA I   X10
1196 002527  2334          ISZ     ICTR
1197 002530  5325          JMP     .-3
1198 002531  1047          TAD     HIFLD   /START OF BLOAD V1
1199 002532  3053          DCA     FREEHI
1200 002533  5600          JMP I   IMAGE   /RETURN TO LOADER
1201               
1202 002534  7600  ICTR,   -200
1203 002535  0000  CCLIST, 0               /1ST 4 WORDS OF CCB
1204 002536  6203          6203
1205 002537  7000          CISTRT
1206 002540  1000          1000            /JOB STATUS WORD
1207               
1208 002546  2577          PAGE
     002547  0177  
     002550  1712  
     002551  2730  
     002552  0502  
     002553  5663  
     002554  7775  
     002555  7612  
     002556  7570  
     002557  0770  
     002560  7760  
     002561  0444  
     002562  2754  
     002563  2727  
     002564  0007  
     002565  7646  
     002566  1554  
     002567  7000  
     002570  2731  
     002571  7643  
     002572  3000  
     002573  0004  
     002574  7644  
     002575  2676  
     002576  0006  
     002577  0357  
1209                      CCB=1000        /LOC TO START BUILDING CCB
1210               
1211 002600  0000  MAKECI, 0               /THIS PAGE GETS MOVED!
1212 002601  6041          TSF
1213 002602  5201          JMP     .-1             /SEE TAG "ABORT" IN BLOAD V1
1214 002603  2777          ISZ I   (ERMSG  /WHY ARE WE HERE?
1215 002604  5332          JMP     BOSFIX  /GENUINE ABORTION
1216 002605  1376          TAD     (CCB-1
1217 002606  3010          DCA     X10
1218 002607  1375          TAD     (CCLIST-1
1219 002610  3011          DCA     X11
1220 002611  1411          TAD I   X11     /1ST FOUR WORDS OF CCB
1221 002612  3410          DCA I   X10
1222 002613  2325          ISZ     MKCCNT
1223 002614  5211          JMP     .-3
1224 002615  1327  CCSEGS, TAD     FLDCNT
1225 002616  7145          CLL CIA RAL
1226 002617  7006          RTL             /THIS FIELD
1227 002620  3055          DCA     TEMP
1228 002621  1374          TAD     (70
1229 002622  0025          AND     CODCDF  /LOWEST FIELD USED
1230 002623  7141          CLL CIA
1231 002624  1055          TAD     TEMP
1232 002625  7420          SNL             /THIS FIELD USED?
1233 002626  5254          JMP     NOCODE  /NO: BYPASS IT
1234 002627  7640          SZA CLA         /IS IT FULL?
1235 002630  5242          JMP     ALLCODE /YES
1236 002631  1026          TAD     CODBGN  /PROBABLY NOT
1237 002632  0373          AND     (7400
1238 002633  3056          DCA     TEMP2
1239 002634  1056          TAD     TEMP2
1240 002635  7041          CIA
1241 002636  7110          CLL RAR
1242 002637  1055          TAD     TEMP
1243 002640  3055          DCA     TEMP
1244 002641  1056          TAD     TEMP2
1245 002642  3410  ALLCODE,DCA I   X10
1246 002643  1327          TAD     FLDCNT
1247 002644  7001          IAC
1248 002645  1330          TAD     TDFLAG
1249 002646  7700          SMA CLA         /NEED TOP PAGE?
1250 002647  1372          TAD     (3700   /NO: 37 PAGES
1251 002650  1055          TAD     TEMP    /YES: 40 PAGES
1252 002651  0323          AND     K3777
1253 002652  3410          DCA I   X10
1254 002653  2771          ISZ I   (CCB
1255 002654  7300  NOCODE, CLA CLL
1256 002655  2327          ISZ     FLDCNT  /NEXT FIELD ZERO?
1257 002656  5215          JMP     CCSEGS  /NO: LOOP
1258 002657  1331          TAD     FLGRTS
1259 002660  7640          SZA CLA         /NEED BRTS?
1260 002661  1370          TAD     (CISTRT
1261 002662  3410          DCA I   X10
1262 002663  1331          TAD     FLGRTS
1263 002664  7640          SZA CLA
1264 002665  1367          TAD     (200-3700
1265 002666  1372          TAD     (3700
1266 002667  3410          DCA I   X10
1267 002670  1771          TAD I   (CCB
1268 002671  7040          CMA
1269 002672  3771          DCA I   (CCB            /NEGATE SEG COUNT
1270 002673  4766          JMS I   (7607   /READ CI STARTER
1271 002674  0200  KP200,  200             /FROM END OF BLOAD.SV
1272 002675  7000          CISTRT          /INTO HI CORE
1273 002676  0000  LDRBLK, 0               /INIT BY "IMAGE"
1274 002677  7600  BOSPT1, 7600            /CAN'T GET THIS ERROR
1275 002700  4755          JMS I   JCIP
1276 002701  1330          TAD     TDFLAG  /PASS TD8E FLAG
1277 002702  3765          DCA I   (FLAGTD
1278 002703  1331          TAD     FLGRTS
1279 002704  3764          DCA I   (RTSFLG /AND BRTS FLAG
1280 002705  1354          TAD     MYCORE
1281 002706  3763          DCA I   (NOCORE /AND CORE LIMIT
1282 002707  1362          TAD     (17             /SAVE 10 KEY LOCATIONS
1283 002710  3010          DCA     X10
1284 002711  1361          TAD     (KEYLOC-1
1285 002712  3011          DCA     X11
1286 002713  1410          TAD I   X10
1287 002714  3411          DCA I   X11
1288 002715  2326          ISZ     MCICNT
1289 002716  5313          JMP     .-3
1290 002717  4766          JMS I   (7607   /CALL SYS HANDLER
1291 002720  4200          4200            /TO WRITE CCB
1292 002721  0600          CCB-200         /(AND PRECEDING PG)
1293 002722  0037          37              /INTO SCRATCH BLOCK
1294 002723  3777  K3777,  3777            /CAN'T GET THIS ERROR
1295 002724  5760          JMP I   (EXEUIT
1296               
1297 002725  7774  MKCCNT, -4
1298 002726  7766  MCICNT, -12
1299 002727  7771  FLDCNT, -7
1300 002730  0001  TDFLAG, 1               /0 MEANS TD8E IS DEATH AT RT
1301 002731  7777  FLGRTS, -1              /0 MEANS INCL BRTS IN CI
1302               
1303 002732  1757  BOSFIX, TAD I   (BIPCCL
1304 002733  7004          RAL
1305 002734  7700          SMA CLA
1306 002735  5600          JMP I   MAKECI  /BATCH NOT RUNNING
1307 002736  1757          TAD I   (7777
1308 002737  0374          AND     (70
1309 002740  1346          TAD     CDFZRO
1310 002741  3344          DCA     BOSCDF  /CDF TO BATCH FIELD
1311 002742  6211  BOSLUP, CDF 10
1312 002743  1677          TAD I   BOSPT1  /GET BATCH WRDS
1313 002744  6211  BOSCDF, CDF 10
1314 002745  3753          DCA I   BOSPT2  /BACK INTO POSITION
1315 002746  6201  CDFZRO, CDF
1316 002747  2277          ISZ     BOSPT1
1317 002750  2353          ISZ     BOSPT2
1318 002751  5342          JMP     BOSLUP
1319 002752  5600          JMP I   MAKECI
1320               
1321 002753  7774  BOSPT2, 7774
1322 002754  0000  MYCORE, 0
1323 002755  1551  JCIP,   CIPAT
1324               
1325 002757  7777          PAGE
     002760  7320  
     002761  7327  
     002762  0017  
     002763  7207  
     002764  7344  
     002765  7345  
     002766  7607  
     002767  4300  
     002770  7000  
     002771  1000  
     002772  3700  
     002773  7400  
     002774  0070  
     002775  2534  
     002776  0777  
     002777  1712  
1326 003000  0000  VERNUM,        0
1327 003001  1377          TAD     (VTEXT
1328 003002  3055          DCA     TEMP
1329 003003  1455  MOREV,  TAD I   TEMP
1330 003004  7450          SNA
1331 003005  5216          JMP     VOUT
1332 003006  7112          CLL RTR
1333 003007  7012          RTR
1334 003010  7012          RTR
1335 003011  4776          JMS I   (TTY
1336 003012  1455          TAD I TEMP
1337 003013  4776          JMS I   (TTY
1338 003014  2055          ISZ     TEMP
1339 003015  5203          JMP     MOREV
1340 003016  1375  VOUT,   TAD     (215
1341 003017  4774          JMS I   (TTX
1342 003020  1373          TAD     (212
1343 003021  4774          JMS I   (TTX
1344 003022  5600          JMP I   VERNUM
1345               
1346 003023  0214  VTEXT,  TEXT    /BLOAD  V/
     003024  1701  
     003025  0440  
     003026  4026  
     003027  0000  
1347                       *.-1
1348 003027  6501  VERLOC, 100^VERSON+6001
1349 003030  0000          0
1350               
1351 003173  0212          PAGE
     003174  0753  
     003175  0215  
     003176  1740  
     003177  3023  
1352                      *7000
1353                       BSTART=200      /START ADDR FOR BRTS
1354 007000  7410  CISTRT, SKP             /RUNNED
1355 007001  5256          JMP CHAIN       /CHAINED
1356 007002  1377          TAD (7603
1357 007003  3010          DCA X10
1358 007004  1376          TAD (NAMLST-1
1359 007005  3011          DCA X11
1360 007006  6211          CDF     10
1361 007007  3410          DCA I   X10     /ZERO EDITOR
1362 007010  3410          DCA I   X10     /COMPILER
1363 007011  3410          DCA I   X10     /AND LOADER BLOCK #S
1364 007012  6201          CDF
1365 007013  6212          CIF 10
1366 007014  4775          JMS I (7700
1367 007015  0010          10              /USRIN
1368 007016  1411  FINDSV, TAD I   X11     /LOOKUP SOME SAVE FILES
1369 007017  7450          SNA
1370 007020  5237          JMP     LUBUF   /GO LOOK FOR BASIC.UF
1371 007021  3226          DCA     XXXXSV  /SAVE POINTER TO NAME
1372 007022  7201          CLA IAC         /THEY'RE ON SYS
1373 007023  6212          CIF     10
1374 007024  4774          JMS I   (200
1375 007025  0002          2
1376 007026  0000  XXXXSV, 0
1377 007027  0000          0
1378 007030  4773          JMS I   (ERRORX /ERROR
1379 007031  1226          TAD     XXXXSV  /GET STARTING BLOCK
1380 007032  7001          IAC             /PLUS 1
1381 007033  6211          CDF     10
1382 007034  3410          DCA I   X10     /INTO INFO AREA
1383 007035  6201          CDF
1384 007036  5216          JMP     FINDSV  /LOOP
1385 007037  7201  LUBUF,  CLA IAC
1386 007040  6212          CIF     10
1387 007041  4774          JMS I   (200    /LOOKUP BASIC.UF
1388 007042  0002          2
1389 007043  7110          BUFN            /(USER DEFINED FUNCTIONS)
1390 007044  0000          0
1391 007045  5250          JMP     .+3     /OK IF NOT THERE
1392 007046  1243          TAD     .-3     /GET STARTING BLOCK +1
1393 007047  7001          IAC
1394 007050  6211          CDF     10
1395 007051  3410          DCA I   X10     /INTO INFO BLOCK
1396 007052  6201          CDF 0
1397 007053  6212          CIF 10
1398 007054  4774          JMS I   (200
1399 007055  0011          11              /USR OUT
1400 007056  6211  CHAIN,  CDF 10
1401 007057  1772          TAD I (7607     /GET BRTS STARTING BLK
1402 007060  6201          CDF
1403 007061  3771          DCA I   (BRTSST /INTO RTS READER
1404 007062  5770          JMP I   (BINIT
1405               
1406 007063  7070  NAMLST, BRTSN
1407 007064  7074          BAFN
1408 007065  7100          BSFN
1409 007066  7104          BFFN
1410 007067  0000          0
1411 007070  0222  BRTSN,  FILENAME BRTS.SV
     007071  2423  
     007072  0000  
     007073  2326  
1412 007074  0201  BAFN,   FILENAME BASIC.AF
     007075  2311  
     007076  0300  
     007077  0106  
1413 007100  0201  BSFN,   FILENAME BASIC.SF
     007101  2311  
     007102  0300  
     007103  2306  
1414 007104  0201  BFFN,   FILENAME BASIC.FF
     007105  2311  
     007106  0300  
     007107  0606  
1415 007110  0201  BUFN,   FILENAME BASIC.UF
     007111  2311  
     007112  0300  
     007113  2506  
1416 007114  0000  CORE,  0
1417 007115  1767          TAD I   (BIPCCL
1418 007116  0340          AND COR70
1419 007117  7110          CLL RAR
1420 007120  7012          RTR
1421 007121  7440          SZA             /IS THERE A SYSTEM VALUE?
1422 007122  5714          JMP I CORE      /YES: USE IT
1423 007123  6201  COR0,   CDF
1424 007124  1361          TAD     CORSIZ
1425 007125  7006          RTL
1426 007126  7004          RAL
1427 007127  0340          AND     COR70
1428 007130  1353          TAD     COREX
1429 007131  3332          DCA     .+1
1430 007132  6201  COR1,   CDF
1431 007133  1757          TAD I   CORLOC
1432 007134  7000  COR2,   NOP
1433 007135  3332          DCA     COR1
1434 007136  1334          TAD     COR2
1435 007137  3757          DCA I   CORLOC
1436 007140  0070  COR70,  70
1437 007141  1757          TAD I   CORLOC
1438 007142  7400  CORX,   7400
1439 007143  1342          TAD     CORX
1440 007144  1360          TAD     CORV
1441 007145  7640          SZA CLA
1442 007146  5353          JMP     COREX
1443 007147  1332          TAD     COR1
1444 007150  3757          DCA I   CORLOC
1445 007151  2361          ISZ     CORSIZ
1446 007152  5323          JMP     COR0
1447 007153  6201  COREX,  CDF
1448 007154  7240          CLA CMA         /HI FIELD IS #FIELDS-1
1449 007155  1361          TAD     CORSIZ
1450 007156  5714          JMP I CORE
1451 007157  7142  CORLOC, CORX
1452 007160  1400  CORV,   1400
1453 007161  0001  CORSIZ, 1
1454               
1455 007167  7777          PAGE
     007170  7211  
     007171  7216  
     007172  7607  
     007173  7312  
     007174  0200  
     007175  7700  
     007176  7062  
     007177  7603  
1456 007200  0000  GETRTS,        0               /READ BRTS INTO 0-6777
1457 007201  1050          TAD BRTS
1458 007202  3206          DCA BRTSBB
1459 007203  4777          JMS I (7607
1460 007204  3400          BRTSIZ
1461 007205  0000          0
1462 007206  0000  BRTSBB, 0
1463 007207  7777  NOCORE, -1              /CAN'T GET THIS ERROR
1464 007210  5600          JMP I GETRTS
1465 007211  2344  BINIT,  ISZ RTSFLG      /NEED BRTS?
1466 007212  5220          JMP BRTSIN      /GOT IT: START IT
1467 007213  4777          JMS I   (7607
1468 007214  3400          BRTSIZ
1469 007215  0000          0
1470 007216  0000  BRTSST, 0
1471 007217  0020  SR2,    20              /CAN'T GET THIS ERROR
1472 007220  6211  BRTSIN, CDF     10      /WHAT ARE WE RUNNING ON?
1473 007221  2316          ISZ EKOUNT
1474 007222  1776          TAD I   (DCB    /CHECK FOR TD8E SYSTEM
1475 007223  0375          AND     (770    /ED FRIEDMAN GAVE ME THIS CODE
1476 007224  1374          TAD     (-210   /AND I'M TAKING IT ON FAITH
1477 007225  6201          CDF
1478 007226  7650          SNA CLA
1479 007227  1773          TAD I   (7642   /IS IT A ROM SYSTEM ?
1480 007230  1372          TAD     (-6223
1481 007231  7640          SZA CLA
1482 007232  5346          JMP PSADJ       /NO TD/8E OR ELSE ROM TD/8E
1483 007233  1345          TAD FLAGTD
1484 007234  7650          SNA CLA         /IMAGE OK ON TD8E?
1485 007235  4312          JMS ERRORX      /NO: DONT RUN IT
1486 007236  1330          TAD KEYLOC
1487 007237  3243          DCA CDFTOP
1488 007240  6221  SWPLOOP,CDF 20
1489 007241  1753          TAD I TDCTR
1490 007242  3200          DCA GETRTS
1491 007243  6271  CDFTOP, CDF     70
1492 007244  1753          TAD I TDCTR
1493 007245  3312          DCA ERRORX
1494 007246  1200          TAD GETRTS
1495 007247  3753          DCA I TDCTR
1496 007250  6221          CDF 20
1497 007251  1312          TAD ERRORX
1498 007252  3753          DCA I TDCTR
1499 007253  2353          ISZ TDCTR
1500 007254  5240          JMP SWPLOOP
1501 007255  6201          CDF
1502 007256  7126          CLL CML RTL
1503 007257  1243          TAD CDFTOP      /PATCH MONITOR FIELD STUFF
1504 007260  3773          DCA I   (7642   /CDF CIF HI CORE
1505 007261  7001          IAC
1506 007262  1243          TAD CDFTOP
1507 007263  3771          DCA I   (7721   /CIF HI CORE
1508 007264  1771          TAD I   (7721
1509 007265  3770          DCA  I  (7727
1510 007266  2316  CCHEK,  ISZ EKOUNT
1511 007267  4767          JMS I   (CORE   /HOW MUCH CORE DO WE HAVE?
1512 007270  1207          TAD NOCORE      /HOW MUCH DO WE NEED?
1513 007271  7710          SPA CLA
1514 007272  4312          JMS ERRORX      /INSUFFICIENT CORE
1515 007273  1742          TAD I SR1       /RESTORE KEY LOCATIONS
1516 007274  3617          DCA I SR2
1517 007275  2342          ISZ SR1
1518 007276  2217          ISZ SR2
1519 007277  2343          ISZ SR3
1520 007300  5273          JMP .-5
1521 007301  1366          TAD (JMP I FSTOP1       /PATCH CTRL/C LOCS
1522 007302  3765          DCA I (7600
1523 007303  1366          TAD (JMP I FSTOP1
1524 007304  3764          DCA I (7605
1525 007305  1031          TAD     SWPINF  /TELL BRTS OS/8 PG 17600 OUT NOW
1526 007306  7010          RAR
1527 007307  7124          STL RAL
1528 007310  3031          DCA     SWPINF
1529 007311  5763          JMP I   (BSTART /START BRTS
1530               
1531 007312  0000  ERRORX, 0
1532 007313  6212          CIF 10
1533 007314  4762          JMS I (7700
1534 007315  0007          7
1535 007316  0001  EKOUNT, 1
1536 007317  5764          JMP I   (7605
1537               
1538 007320  1344  EXEUIT, TAD RTSFLG
1539 007321  7650          SNA CLA         /NEED BRTS?
1540 007322  4200          JMS GETRTS      /YES: READ IT
1541 007323  1361          TAD (4207       /RESTORE ^C HOOKS
1542 007324  3765          DCA I (7600
1543 007325  1360          TAD (6213
1544 007326  3764          DCA I (7605
1545 007327  5765          JMP I (7600     /BACK TO OS8
1546 007330  0000  KEYLOC, ZBLOCK 12
     007331  0000  
     007332  0000  
     007333  0000  
     007334  0000  
     007335  0000  
     007336  0000  
     007337  0000  
     007340  0000  
     007341  0000  
1547 007342  7330  SR1,    KEYLOC
1548 007343  7766  SR3,    -12
1549 007344  7777  RTSFLG, -1              /0 MEANS BRTS IS IN CORE
1550 007345  0001  FLAGTD, 1               /1 IF TD8E IS OK AT RUNTIME
1551 007346  1357  PSADJ,  TAD (4001
1552 007347  0341          AND KEYLOC+11
1553 007350  1356          TAD (2000
1554 007351  3341          DCA KEYLOC+11
1555 007352  5266          JMP CCHEK
1556 007353  7600  TDCTR,  7600
1557               
1558 007356  2000          PAGE
     007357  4001  
     007360  6213  
     007361  4207  
     007362  7700  
     007363  0200  
     007364  7605  
     007365  7600  
     007366  5407  
     007367  7114  
     007370  7727  
     007371  7721  
     007372  1555  
     007373  7642  
     007374  7570  
     007375  0770  
     007376  7760  
     007377  7607  
1559                       $$$$$

ABORT   2313
ABORTL  2136
ABORTX  0052
AC1     0076
AC2     0077
AC3     0100
ACNT    0042
ALLCOD  2642
ALLOCA  1400
ALLOCS  1460
ARAYST  2132
ASVLUP  0614
BAFN    7074
BFFN    7104
BINIT   7211
BIPCCL  7777
BLDCI   0200
BLOCK   0046
BOSCDF  2744
BOSFIX  2732
BOSLUP  2742
BOSPT1  2677
BOSPT2  2753
BRTBGN  0200
BRTS    0050
BRTSB   2224
BRTSBB  7206
BRTSIN  7220
BRTSIZ  3400
BRTSN   7070
BRTSST  7216
BSFN    7100
BSTART  0200
BUFN    7110
CCB     1000
CCHEK   7266
CCLIST  2535
CCSEGS  2615
CDF0    1664
CDFTOP  7243
CDFZER  2035
CDFZRO  2746
CF      2033
CHAIN   7056
CHKLBL  2105
CIPAT   1551
CISTRT  7000
CLEARF  2061
CLREND  0106
CLRFLD  0105
CLRLUP  2044
CODB    0072 unreferenced
CODBGN  0026
CODCDF  0025
CODF    0073 unreferenced
CODSZ1  0066
CODSZ2  0067
COPT    1554
COR0    7123
COR1    7132
COR2    7134
COR70   7140
CORE    7114
COREX   7153
CORLOC  7157
CORSIZ  7161
CORV    7160
CORX    7142
DATAF1  1320
DATAF2  1326
DATLST  2566
DATLUP  1306
DATMOV  1323
DATPTR  0030
DATTOP  0027
DCB     7760
DLSIZE  0051
DOARAY  1407
DONCLR  2064
DOSARY  1467
EDTBGN  3212
EDTBLK  2330
EDTSIZ  2100
EKOUNT  7316
END     2400
ERMSG   1712
ERRORX  7312
EXEUIT  7320
FCNT    2301
FINDSV  7016
FINI    2200
FLAGTD  7345
FLDCNT  2727
FLGRTS  2731
FREEF   2130
FREEHI  0053
FREELO  0054
FSTOP1  0007
FTEMP   2277
FTEMP2  2300
GETRTS  7200
GOTTD   0444
HIFLD   0047
ICOUNT  0074
ICTR    2534
IMAGE   2400
INBLOK  1536
INPTR   1550
INWORD  1530
IOERR   2310
JCIP    2755
JSW     7746
K3777   2723
KEYLOC  7330
KP200   2674 unreferenced
L6221   0500
L7600   0501
LBLFLD  1654
LDRBLK  2676
LEAD0   0726
LFLD    1057
LINEH   0102
LINEL   0103
LITRL   2562
LOADBL  0357
LOADER  0400
LOADIT  2000
LOCHI   0070
LOCLO   0071
LOCTRH  0044
LOCTRL  0045
LODLUP  2025
LSTART  2521
LUBUF   7037
M12     2245
MAKECI  2600
MCICNT  2726
MKCCNT  2725
MORCLR  2054
MOREV   3003
MOVFIN  2140
MOVSL   1246
MOVSTL  2075
MUL12   2252
MULBGN  2276
MULLUP  2261
MYCORE  2754
NAMLST  7063
NASTAD  0022
NCHARS  0063
NLLOOP  1052
NOADD   2270
NOCODE  2654
NOCORE  7207
NODATA  0600
NOFJMP  2032
NONL    1111
NOPATC  0433
NOREAD  1545
NORELC  1703
NOSL    1257
NOTD8E  0450
NOTDSY  2516
NOWRIT  2346
NOZERO  0724
NSTADR  0021
OCOUNT  0075
ONLY1   1437
OUBLOK  2360
OUDUMP  2354
OUPTR   2353
OUTWRD  2333
OWTEMP  2330
P1      1045
P2      1062
P3      1137
P4      1154
P5      1254
P6      0632
P7      0646
P8      1312
P9      1314
PATLST  1344
PATLUP  0424
PRNTSN  0710
PSADJ   7346
PSN     0704
RELCIT  1600
RELOOP  1632
RELOUT  1704 unreferenced
RESADR  0107
RTSFLG  7344
SACNT   0043
SARYST  2332
SASTAD  0024
SC      0101
SFLD    1161
SLFLD   1162
SLIT2   1200
SLITRL  2564
SLLOOP  1144
SPACE   0717 unreferenced
SR1     7342
SR2     7217
SR3     7343
SSTADR  0023
STACK   0015
STACKA  7120
STCDF   0020
STEMPF  0643
STEMPS  2560
STFLDM  2077
STMLUP  0636
STSTUF  1000
SUB     0731
SUBHI   0064
SUBLO   0065
SVARST  1036
SVCNT   0041
SVSTOR  0660
SWAP    0463
SWP1    0532
SWP2    0537
SWPF1   0535
SWPF2   0542
SWPFLA  0516 unreferenced
SWPINF  0031
SWPLOO  7240
SWPRET  0513
SWPSUB  0517
TD8ESY  0474
TDCTR   7353
TDFLAG  2730
TDLIE   0502
TEMP    0055
TEMP2   0056
TEMP3   0057
TIMES3  1442
TMDATA  1332
TMSLIT  1337
TOOBIG  0746 unreferenced
TTX     0753
TTY     1740
VARCNT  0040
VERLOC  3027 unreferenced
VERNUM  3000
VERSON  0005
VOUT    3016
VTEXT   3023
WORD1   0060
WORD2   0061
WORD3   0062
X10     0010
X11     0011
X13     0013
X7607   2250
XERMSG  2247
XINT    2246
XLABEL  0104
XSAVE   2251
XXXXSV  7026