1 /OS8 SABR ASSEMBLER OVERLAY ***SPATCH.07*** 2 / 3 / 4 / 5 / 6 / 7 / 8 / 9 // 10 / 11 / 12 / 13 / 14 /COPYRIGHT (C) 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 /FIXES TO SPATCH FOR V18 J.K. 1975 42 / 43 / .CHANGED USE OF 17645 SO /N CAN BE PASSED TO LOADER 44 / BIT 0 OF 17645 INDICATES THAT SABR WAS CHAINED 45 / TO FROM FORT 46 / .ALLOW TWO PAGE OUTPUT HANDLER 47 / 48 / 49 /SABR ASSEMBLER, LIKE 8K FORTRAN UNDER OS/8, RUNS 50 /IN FIELD 1 WITH ITS TABLES IN FIELD 0. 51 / OCTOBER 26,1971 52 / 53 /MODIFIED SO THAT SABR WILL, AT RUN TIME, DETERMINE IF THE USER 54 /SPECIFIED I/O DEVICES REQUIRE TWO PAGE HANDLERS, AND IF SO 55 /SABR WILL ALLOCATE SPACE FOR THEM. ALSO IF ALL I/O IS DONE VIA THE 56 /SYSTEM DEVICE, SABR WILL NOT RESERVE ANY SPACE FOR I/O HANDLERS 57 /SPACE FOR TWO PAGE HANDLERS IS MADE BY SHRINKING THE INPUT 58 /BUFFERS-CURRENTLY 4 PAGES-TO 2 PAGES. B.CLOGHER 10/71 59 / 60 61 FIELD 0 62 SDVHND=772 63 MPARAM=7643 64 DVHNDL=7647 65 JSBITS=7746 66 MOFILE=7600 67 CORE1=6200 /UPPER CORE LIMIT OF OCCURRENCE TABLE(VARIES WITH I/O HANDLERS NEEDED!!) 68 SABR=201 /SABR V17 FIRST LOC AFTER "JMS I IOINIT" 69 PASS=110 /SABR V17 70 SERROR=JMS I 177/SABR V17 71 ERRE=2701 /SABR V17 72 PRSYMP=41 /SABR V17 73 TEM1=123 /SABR V17 74 TEM2=124 /" 75 M4=3704 /" 76 CLOC1=6 /" 77 CLOC2=3162 /" 78 CLOC3=4356 /" 79 CTYPE=23 /" 80 CRLF=24 81 CHR=61 /" 82 SYMBOL=3 /" 83 LLFS=5364 /" 84 LINE=67 /" 85 L64=4772 /" 86 TYPE=54 /" 87 PUNCH=42 /" 88 INBUF=6200 /6200-7177 OR 6600-7177 89 PRJ5=4051 90 PRNOP=4136 91 PRJ2=4170 92 PRS2=4025 93 PRS5=4101 94 *30 /CCL PATCH; GOES HERE AS A HACK 95 000030 1177 CCLKLG, TAD [SKP 96 000031 3576 DCA I [CCLSKP 97 000032 6211 CDF 10 98 000033 1575 TAD I [7645 99 000034 7700 SMA CLA 100 000035 5574 JMP I [NOTFRT 101 000036 1575 TAD I [7645 102 000037 0043 AND P3777 103 000040 3575 DCA I [7645 104 000041 6201 CDF 105 000042 5573 JMP I [SETCOR 106 000043 3777 P3777, 3777 107 108 *200 /INITIALIZATION - GETS DESTROYED DURING SABR EXECUTION 109 110 000200 2572 START, ISZ I [FSWITC /SKIPS SINCE FSWITC=-1. ENTRY FROM "R SABR" 111 000201 5030 FSTART, JMP CCLKLG /ENTRY FROM 8K FORTRAN VIA "RUN SABR" MONITOR CALL 112 000202 7240 CLA CMA /USED AS TEM. BY SUBR. DNUM 113 000203 3572 DCA I [FSWITC /USED AS TEM. BY SUBR. DNUM 114 000204 6212 PTEM1, CIF 10 115 000205 4571 JMS I [7700 /CALL I/O MONITOR 116 000206 0010 10 /AND ASK IT TO STICK AROUND 117 000207 6212 CIF 10 118 000210 4570 JMS I [200 119 000211 0005 5 /COMMAND DECODE 120 000212 2302 2302 /.SB ASSUMED EXTENSION 121 000213 6211 NOTFRT, CDF 10 122 000214 1567 TAD I [MPARAM 123 000215 0166 AND [100 124 000216 6201 CDF 0 125 000217 7650 SNA CLA /IS /F SWITCH ON? 126 000220 3572 DCA I [FSWITC /NO - ZERO OUT FSWITC 127 000221 1565 TAD I [JSBITS 128 000222 1164 TAD [1000 129 000223 3565 DCA I [JSBITS 130 000224 5231 CCLSKP, JMP .+5 131 000225 2563 SETCOR, ISZ I [FDSW /SET DELETE SWITCH 132 000226 6212 CIF 10 133 000227 4571 JMS I [7700 /CALL I/O MONITOR--LOCK IT IN 134 000230 0010 10 135 000231 6211 CDF 10 136 000232 1562 TAD I [MOFILE /CHECK FIRST TWO OUT DEV. SPECS.--NEED 2 PAGE HNDLR? 137 000233 4346 OUTL, JMS DNUM 138 000234 5343 JMP OSYS /NO OUTPUT OR SYS DEV. 139 000235 5341 JMP TWOPAG /NEED TWO-PAGE HANDLER 140 000236 1561 DONE, TAD I [MOFILE+5 /1 PAGE HNDLR-LOOK AT 2ND OUT DEV. 141 000237 2374 ISZ CNT /DONE BOTH? 142 000240 5233 JMP OUTL /NO-GO ON 143 000241 7200 CLA /YES- 144 000242 1376 TAD PTEM2 /ARE BOTH OUT DEVS. SYS: OR NOT THERE? 145 000243 7640 SZA CLA /IF SO-ALLOT 0 PAGES FOR OUTPUT HANDLER 146 000244 1162 TAD [-200 /NO-ALLOT 1 PAGE FOR HANDLER 147 000245 3344 DONE1, DCA OPGES /-SIZE OF OUT HANDLER NEEDED 148 000246 1777 INLP, TAD I TEM /NOW LOOP THRU 9 POSSIBLE INPUT SPECS. 149 000247 4346 JMS DNUM 150 000250 5334 JMP ISYS /INPUT NOT THERE OR SYS DEV. 151 000251 5337 JMP TWOPG /TWO PAGE HANDLER NEEDED 152 000252 2377 ILP1, ISZ TEM /ONE-MOVE PTR TO NEXT 153 000253 2377 ISZ TEM 154 000254 2375 ISZ CNT1 /DONE ALL 9? 155 000255 5246 JMP INLP /NO 156 000256 1373 TAD TEM3 /YES-ARE ALL INPUTS FROM SYS OR NOT THERE? 157 000257 7640 SZA CLA /IF SO-DON'T SAVE ROOM FOR INPUT HANDLER 158 000260 1162 TAD [-200 /NO-NEED ONE PAGE FOR HANDLER 159 000261 3335 IDONE, DCA IPGES /STORE AS SIZE OF INPUT HANDLER 160 000262 1335 TAD IPGES 161 000263 1344 TAD OPGES 162 000264 1160 TAD [400 /NEED MORE THAN A TOTAL OF 2 PAGES FOR HANDLERS? 163 000265 6201 CDF 00 /BACK TO DF 0 164 000266 7700 SMA CLA 165 000267 5300 JMP NOTWO /NO-GO ON 166 000270 3557 DCA I [INREC1 /YES-ADJUST INPUT ROUTINE FOR ONLY 2 PAGE BUFFERS 167 000271 1170 TAD [200 168 000272 3556 DCA I [INBFPT-1 169 000273 3555 DCA I [INRD1 170 000274 3554 DCA I [INRD1+1 171 000275 1153 TAD [6600 /RESET ADDRESS OF INPUT BUFFER 172 000276 3552 DCA I [INBFPT 173 000277 1160 TAD [400 174 000300 1151 NOTWO, TAD [6200 /RESET UPPER CORE LIM. OF OCCURRANCE TABLE 175 000301 1335 TAD IPGES 176 000302 1344 TAD OPGES 177 000303 3151 DCA [CORE1 178 000304 1344 TAD OPGES 179 000305 1170 TAD [200 180 000306 7710 SPA CLA /MORE THAN ONE PAGE OUT HNDLR NEEDED? 181 000307 7001 IAC /YES 182 000310 1344 TAD OPGES 183 000311 1552 TAD I [INBFPT /ADJUST HANDLER FETCH FOR TWO PAGE HANDLER 184 000312 6211 CDF 10 /BACK TO DATA FIELD 1 185 000313 3550 DCA I [OUHND 186 000314 7040 CMA /PROPAGATE CHANGES INTO MAIN PART OF SABR 187 000315 1151 TAD [CORE1 188 000316 3547 DCA I [CLOC1 189 000317 1547 TAD I [CLOC1 190 000320 3546 DCA I [CLOC3 191 000321 1151 TAD [CORE1 192 000322 3545 DCA I [CLOC2 193 000323 1335 TAD IPGES 194 000324 1170 TAD [200 195 000325 7710 SPA CLA /MORE THAN ONE PAGE FOR INPUT HNDLR? 196 000326 7001 IAC /YES-ADJUST IN HNDLR FETCH ROUTINE 197 000327 1545 TAD I [CLOC2 /(CONTAINS START ADDRESS OF CORE FOR IN HNDLR.) 198 000330 6201 CDF 00 199 000331 3544 DCA I [ADEVN /STORE FOR HNDLR FETCH ROUTINE 200 000332 6211 CDF 10 201 000333 5560 JMP I [LCHK 202 000334 2373 ISYS, ISZ TEM3 203 000335 0000 IPGES, 0 204 000336 5252 JMP ILP1 /INPUT SPEC. NOT THERE OR SYS DEV. 205 000337 1162 TWOPG, TAD [-200 /INPUT SPEC-NEEDS TWO PAGES 206 000340 5260 JMP IDONE-1 207 000341 1162 TWOPAG, TAD [-200 /OUT HNDLR NEEDS TWO PAGES 208 000342 5244 JMP DONE1-1 209 000343 2376 OSYS, ISZ PTEM2 /OUT HNDLR NOT NEEDED OR SYS. DEVICE 210 000344 0000 OPGES, 0 211 000345 5236 JMP DONE 212 / 213 /ROUTINE TO CHECK DEVICE SPECS. LEFT BY COMMAND DECODER AND SEE 214 /IF WE NEED ANY TWO PAGE HANDLERS. ALSO CHECK IF ALL I/O IS FROM 215 /SYS DEVICE IN WHICH WE DON'T HAVE TO SAVE ROOM FOR ANY HANDLERS 216 /RETN. TO CALL + 1 IF DON'T NEED ROOM FOR ANY HANDLER 217 /RETN. TO CALL + 2 IF NEED 2 PAGES FOR HANDLER 218 /RETN. TO CALL + 3 IF NEED 1 PAGE FOR HANDLER 219 / 220 000346 0000 DNUM, 0 221 000347 0143 AND [17 /MASK DEV. # 222 000350 3202 DCA FSTART+1 /STORE 223 000351 1202 TAD FSTART+1 224 000352 7100 CLL 225 000353 7450 SNA /ANYTHING THERE? 226 000354 5746 JMP I DNUM /NO-TREAT LIKE SYS. DEV 227 000355 1142 TAD [DVHNDL-1 /CHECK IF THIS HANDLER CO-RESIDENT WITH SYS.(TD8/E--UNIT 1) 228 000356 3203 DCA FSTART+2 229 000357 1603 TAD I FSTART+2 230 000360 1170 TAD [200 231 000361 7630 SZL CLA /IS ENTRY PT. ABOVE 7600?? 232 000362 5746 JMP I DNUM /YES-JUST LIKE SYS DEV. 233 000363 1202 TAD FSTART+1 234 000364 1141 TAD [SDVHND-1 /NO-PICK UP TABLE WD WHICH TELLS IF 2 PAGE HNDLR. 235 000365 3203 DCA FSTART+2 236 000366 1603 TAD I FSTART+2 237 000367 2346 ISZ DNUM /BUMP RETN. 238 000370 7700 SMA CLA /BIT 0=1? I.E. DOES IT NEED TWO PAGES? 239 000371 2346 ISZ DNUM /NO-NORMAL RETN. TO CALL+3--NEED 1 PAGE 240 000372 5746 JMP I DNUM /YES-RETN. TO CALL+2--NEED 2 PAGES 241 000373 7767 TEM3, -11 242 000374 7776 CNT, -2 243 000375 7767 CNT1, -11 244 000376 7776 PTEM2, -2 245 000377 7617 TEM, MOFILE+17 246 *400 247 000400 1540 LCHK, TAD I [MPARAM+1 248 000401 0377 AND (4 249 000402 7650 SNA CLA 250 000403 2277 ISZ STSABR 251 000404 1540 TAD I [MPARAM+1 252 000405 0137 AND [40 253 000406 7650 SNA CLA /IF /S IS ON 254 000407 1561 TAD I [MOFILE+5 255 000410 7640 SZA CLA /OR IF THERE IS NO LISTING OUTPUT FILE 256 000411 5220 JMP NSPEED 257 000412 1136 TAD [PRS5&177+5200 /SPEED UP SYMBOL TABLE SORT 258 000413 3535 DCA I [PRJ5 259 000414 3534 DCA I [PRNOP 260 000415 3533 DCA I [SYMXX /AND PRINT "U" MESSAGE FOR UNDEFINEDS 261 000416 1132 TAD [PRS2-1&177+5200 262 000417 3531 DCA I [PRJ2 263 000420 6211 NSPEED, CDF 10 264 000421 1530 TAD I [MOFILE+4 /GET EXTENSION OF BINARY OUTPUT 265 000422 7450 SNA /IS IT THERE? 266 000423 1127 TAD [2214 /NO - SET TO .RL 267 000424 3530 DCA I [MOFILE+4 268 000425 1526 TAD I [MOFILE+11 269 000426 7450 SNA 270 000427 1125 TAD [1423 /SIMILIARLY SET LISTING EXTENSION TO .LS 271 000430 3526 DCA I [MOFILE+11 272 000431 3524 DCA I [OUTINH 273 000432 1562 TAD I [MOFILE 274 000433 7650 SNA CLA /BINARY OUTPUT? 275 000434 5241 JMP NOBNOT /NO 276 000435 6213 CDF CIF 10 277 000436 4523 JMS I [TSTNTR /YES - OPEN IT 278 000437 6211 CDF 10 279 000440 5244 JMP YESBOT 280 000441 1122 NOBNOT, TAD [MOFILE+1 281 000442 3521 DCA I [PFILE 282 000443 2524 ISZ I [OUTINH /INHIBIT OUTPUT 283 000444 1561 YESBOT, TAD I [MOFILE+5 284 000445 6201 CDF 0 285 000446 7640 SZA CLA 286 000447 3520 DCA I [LSTFLG 287 000450 6211 CDF 10 288 000451 1567 TAD I [MPARAM 289 000452 0117 AND [41 /"L" OR "G" FLAGS ON? 290 000453 6201 CDF 0 291 000454 7650 SNA CLA 292 000455 5274 JMP NOLOAD 293 000456 4516 JMS I [MINCOR 294 000457 7201 CLA IAC /DEVICE "SYS" 295 000460 6212 CIF 10 296 000461 4570 JMS I [200 297 000462 0002 2 /LOOKUP 298 000463 0502 ALOAD, LOADER 299 000464 0000 0 /LENGTH GOES HERE AND IS IGNORED 300 000465 5300 JMP NOLODR /COULDN'T FIND IT 301 000466 1263 TAD ALOAD 302 000467 3515 DCA I [LDRBLK 303 000470 6211 CDF 10 304 000471 1514 TAD I [OUTREC 305 000472 6201 CDF 0 306 000473 3513 DCA I [REMEMB 307 000474 4512 NOLOAD, JMS I [OPENFL /OPEN FIRST INPUT FILE WHILE MONITOR STILL IN CORE 308 000475 6213 CDF CIF 10 309 000476 5677 JMP I .+1 310 000477 0201 STSABR, SABR /FIRST LOC IN SABR AFTER "INITIAL DIALOGUE" 311 000500 1111 NOLODR, TAD [1200 312 000501 5510 JMP I [ERROR 313 000502 1417 LOADER, TEXT /LOADERSV/ 000503 0104 000504 0522 000505 2326 000506 0000 314 000577 0004 *1100 /FILE OPENER - RESIDES IN PART OF THE OLD SABR INPUT BUFFER 315 001100 7760 O7760, 7760 316 001101 0000 OPENFL, 0 317 001102 6211 CDF 10 318 001103 1755 TAD I FILPTR 319 001104 7450 SNA /IS THERE ANOTHER INPUT FILE? 320 001105 5777 JMP I (ERROR+1 /ERROR - NO END STATEMENT IN PROGRAM 321 001106 3353 DCA OTEMP 322 001107 1353 TAD OTEMP 323 001110 0376 AND (17 /EXTRACT DEVICE NUMBER 324 001111 1375 TAD (DVHNDL-1 325 001112 3354 DCA OTEMP2 326 001113 1754 TAD I OTEMP2 327 001114 3354 DCA OTEMP2 328 001115 2355 ISZ FILPTR 329 001116 1755 TAD I FILPTR /GET STARTING BLOCK # 330 001117 6201 CDF 0 331 001120 3774 DCA I (INREC /STORE IT AWAY 332 001121 2355 ISZ FILPTR 333 001122 1353 TAD OTEMP 334 001123 0373 AND (7760 /EXTRACT LENGTH 335 001124 7440 SZA /LENGTH OF 256 IMPLIES MAY BE LARGER 336 001125 1376 TAD (17 337 001126 7132 CLL CML RTR 338 001127 7012 RTR /GET LENGTH AS A NORMAL NEGATIVE NUMBER 339 001130 3772 DCA I (INCNT /STORE THAT AWAY TOO 340 001131 1354 TAD OTEMP2 341 001132 7440 SZA 342 001133 5346 JMP GOTIT 343 001134 4771 JMS I (MINCOR /GET MONITOR 344 001135 1357 TAD ADEVN /THIS LOC. SET UP BY INITIALIZATION ROUTINE 345 001136 3343 DCA ADEVNO 346 001137 1353 TAD OTEMP 347 001140 6212 CIF 10 348 001141 4756 JMS I O200 349 001142 0001 1 /ASSIGN 350 001143 5600 ADEVNO, 5600 /FORCE HANDLER INTO PAGE 5600 351 001144 5770 JMP I (DELERR /GIVE S ERROR 352 001145 1343 TAD ADEVNO 353 001146 3767 GOTIT, DCA I (INDEV 354 001147 4766 JMS I (MOUCOR /GET MONITOR OUT 355 001150 7240 CLA CMA 356 001151 3765 DCA I (INCHCT /FORCE BUFFER LOAD ON FIRST READ 357 001152 5701 JMP I OPENFL 358 001153 0000 OTEMP, 0 359 001154 0000 OTEMP2, 0 360 001155 7617 FILPTR, 7617 361 001156 0200 O200, 200 362 001157 0000 ADEVN, 0 /SET UP BY INIT. ROUTINE-PAGE ADDR. OF IN HNDLR 363 001165 7533 *1600 001166 1614 001167 7317 001170 7272 001171 1600 001172 7535 001173 7760 001174 7311 001175 7646 001176 0017 001177 1632 364 001600 0000 MINCOR, 0 365 001601 6214 RDF 366 001602 1204 TAD MINCIF 367 001603 3212 DCA MINXIT 368 001604 6203 MINCIF, CDF CIF 0 369 001605 6212 CIF 10 370 001606 4627 JMS I SYSTEM 371 001607 0010 10 /ESCAPE 372 001610 1230 TAD MIN200 373 001611 3227 DCA SYSTEM 374 001612 0000 MINXIT, 0 /RESTORE CALLING FIELDS 375 001613 5600 JMP I MINCOR 376 001614 0000 MOUCOR, 0 377 001615 6201 CDF 0 378 001616 1227 TAD SYSTEM 379 001617 7500 E7500, SMA 380 001620 6212 CIF 10 381 001621 7700 MN7700, SMA CLA 382 001622 4627 JMS I SYSTEM 383 001623 0011 11 /GET OUT 384 001624 1221 TAD MN7700 385 001625 3227 DCA SYSTEM 386 001626 5614 JMP I MOUCOR 387 001627 0200 SYSTEM, 200 388 001630 0200 MIN200, 200 389 001631 1217 ERROR, TAD E7500 /MAKE SABR ERROR "B" 390 001632 3200 DCA MINCOR 391 001633 4214 JMS MOUCOR /KICK MONITOR OUT 392 001634 6213 CDF CIF 10 393 001635 3643 DCA I EPASS /SET PASS=0 SO ERROR WILL PRINT 394 001636 1244 TAD EL64 395 001637 3645 DCA I ETYPE 396 001640 1200 TAD MINCOR 397 001641 5642 JMP I .+1 398 001642 2701 ERRE 399 001643 0110 EPASS, PASS 400 001644 4772 EL64, L64 401 001645 0054 ETYPE, TYPE 402 *7200 403 007200 0000 SPAUSE, 0 /"PAUSE" STATEMENT PATCH 404 007201 1210 TAD FSWITC 405 007202 7104 CLL RAL 406 007203 1777 TAD I (FILPTR 407 007204 3777 DCA I (FILPTR /RESET FILE POINTER IF CALLED FROM FORTRAN 408 007205 4776 JMS I (OPENFL /OPEN NEXT FILE 409 007206 6213 CDF CIF 10 410 007207 5600 JMP I SPAUSE 411 007210 7777 FSWITC, -1 /AS ADVERTISED 412 413 007211 1775 DELETE, TAD I (MPARAM 414 007212 7012 RTR /PUT "K" SWITCH IN LINK 415 007213 7600 D7600, 7600 416 007214 6201 CDF 0 417 007215 1774 TAD I (JSBITS 418 007216 7010 RAR 419 007217 7124 CLL CML RAL 420 007220 3774 DCA I (JSBITS /MARK "DON'T CARE IF MONITOR AREA DESTROYED" BITS 421 007221 1261 TAD FDSW 422 007222 7670 SZL SNA CLA /DELETE ONLY IF CALLED FROM FORTRAN WITH 423 007223 5234 JMP NODLET /"K" SWITCH(IN LINK) ZERO 424 007224 4773 JMS I (MINCOR 425 007225 7201 CLA IAC /DEVICE "SYS" 426 007226 6212 CIF 10 427 007227 4772 JMS I (200 428 007230 0004 4 /CLOSE - USED AS DELETE 429 007231 7276 NAME /NAME FOR CLOSE PROCESSOR 430 007232 0000 0 /NO BLOCKS - WILL BE DELETED 431 007233 5272 JMP DELERR /ERROR 432 007234 1257 NODLET, TAD LDRBLK 433 007235 7650 SNA CLA /WAS A LOADER BLOCK STORED 434 007236 5262 JMP GETOUT 435 007237 6211 CDF 10 436 007240 1771 TAD I (L64 437 007241 6201 CDF 0 438 007242 7640 SZA CLA /IF WE USED THE TELETYPE ROUTINE, 439 007243 5262 JMP GETOUT /THEN THERE WAS AN ERROR 440 007244 1260 TAD REMEMB 441 007245 6211 CDF 10 442 007246 3770 DCA I (MOFILE+1 443 007247 7330 CLL CML CLA RAR 444 007250 1767 TAD I (MPARAM+2 445 007251 3767 DCA I (MPARAM+2 446 007252 6201 CDF 0 447 007253 4773 JMS I (MINCOR 448 007254 6212 CIF 10 449 007255 4772 JMS I (200 450 007256 0006 6 /RUN 451 007257 0000 LDRBLK, 0 452 007260 0000 REMEMB, 0 453 007261 0000 FDSW, 0 454 007262 1766 GETOUT, TAD I (SYSTEM 455 007263 6211 CDF 10 456 007264 7700 D7700, SMA CLA 457 007265 7040 CMA 458 007266 3664 DCA I D7700 459 007267 6201 CDF 0 460 007270 5671 JMP I .+1 461 007271 7605 7605 462 007272 1365 DELERR, TAD (1700 /GIVE A "S" ERROR 463 007273 1372 DELER2, TAD (200 464 007274 6203 CDF CIF 0 465 007275 5764 JMP I (ERROR 466 007276 0617 NAME, 0617;2224;2216;2415 007277 2224 007300 2216 007301 2415 467 468 007302 0000 INREAD, 0 469 007303 0264 AND D7700 470 007304 7650 SNA CLA 471 007305 4723 JMS I POPNFL 472 007306 4717 JMS I INDEV 473 007307 0400 400 /OR 200 IF NEED TWO PAGE HANDLERS-REDUCE BUFFER SIZE TO MAKE ROOM 474 007310 6200 INBFPT, INBUF 475 007311 0000 INREC, 0 476 007312 5320 JMP INERR 477 007313 2302 ISZ INREAD 478 007314 2311 ISZ INREC 479 007315 2311 INREC1, ISZ INREC /OR 0000 IF TWO PAGE HANDLERS-SINCE IN BUFFER IS 1/2 SIZE 480 007316 5702 JMP I INREAD 481 007317 0000 INDEV, 0 482 007320 7710 INERR, SPA CLA 483 007321 5273 JMP DELER2 484 007322 5314 JMP INREC+3 485 007323 1101 POPNFL, OPENFL 486 487 007324 0000 CLSMBE, 0 /SUBR TO CLOSE OUTPUT FILE IF ONE EXISTS 488 007325 6213 CDF CIF 10 489 007326 1763 TAD I (OUTINH 490 007327 7650 SNA CLA 491 007330 4762 JMS I (OUCLOS 492 007331 6202 CIF 0 /IN CASE WE DIDN'T CLOSE IT 493 007332 5724 JMP I CLSMBE 494 007362 6544 *7400 /END OF PASS CRAP AND INPUT ROUTINE 007363 6415 007364 1631 007365 1700 007366 1627 007367 7645 007370 7601 007371 4772 007372 0200 007373 1600 007374 7746 007375 7643 007376 1101 007377 1155 495 007400 0040 P40, 40 496 007401 2777 PASEND, ISZ I (PASS /BUMP PASS COUNTER 497 007402 5233 LSTFLG, JMP SBSYMT /ZERO IF LISTING FILE EXISTS 498 007403 4776 JMS I (CLSMBE /CLOSE BINARY FILE 499 007404 6213 CDF CIF 10 500 007405 4775 JMS I (TSTNTR /ENTER LISTING FILE 501 007406 1774 TAD I (FSWITC 502 007407 7640 SZA CLA 503 007410 5214 JMP .+4 504 007411 1373 TAD (7617 505 007412 3772 DCA I (FILPTR /RESET FILE POINTER TO BEGINNING 506 007413 4771 JMS I (OPENFL /AND OPEN FIRST FILE 507 /IF CALLED FROM FORTRAN WE DONT HAVE TO DO THIS 508 /BECAUSE OF THE PECULIAR NATURE OF FORTRAN OUTPUT 509 007414 4770 JMS I (MOUCOR /KICK MONITOR OUT 510 007415 6213 CDF CIF 10 511 007416 1767 TAD I (MPARAM+1 512 007417 0200 P200, AND P40 /MASK OUT "S" SWITCH 513 007420 3766 DCA I (OUTINH /INTO "OUTPUT INHIBIT" FLAG 514 007421 4765 JMS I (SYMPRT /PRINT SYMBOL TABLE UNDER CONTROL OF /S 515 007422 3766 DCA I (OUTINH /ZERO FLAG FOR LISTING 516 007423 1767 TAD I (MPARAM+1 /SYMPRT RETURNS WITH DATA FIELD=10 517 007424 7006 RTL 518 007425 6212 CIF 10 519 007426 7620 SNL CLA /"N" FLAG IS IN THE LINK 520 007427 5764 JMP I (ENDRSM /HE WANTS A LISTING - GO GET IT 521 007430 6202 SBREND, CIF 0 522 007431 4776 JMS I (CLSMBE /CLOSE OUTPUT FILE 523 007432 5763 JMP I (DELETE /DELETE FORTRN.TM AND CHAIN OR RETURN 524 525 007433 1362 SBSYMT, TAD (TDUMMY 526 007434 6213 CDF CIF 10 527 007435 3761 DCA I (PUNCH /INHIBIT ALL FUTURE OUTPUT 528 007436 4765 JMS I (SYMPRT /CHECK SYMTAB FOR UNDEFINEDS 529 007437 6201 CDF 0 530 007440 2760 ISZ I (JSBITS /SET "DON'T CARE ABOUT USR CORE" FLAG 531 007441 5230 JMP SBREND /NOW GO CLOSE BINARY OUTPUT FILE AND RETURN 532 533 007442 0000 INCHAR, 0 534 007443 2273 ISZ INJMP 535 007444 6031 KSF 536 007445 5252 JMP .+5 537 007446 6034 KRS 538 007447 1357 TAD (-203 539 007450 7650 SNA CLA 540 007451 5756 JMP I (7600 /EXIT TO MONITOR IF ^C TYPED 541 007452 2333 ISZ INCHCT 542 007453 5273 INJMPP, INJMPE 543 007454 1335 TAD INCNT 544 007455 4755 INRD, JMS I (INREAD 545 007456 3335 DCA INCNT /RETURN HERE ON EOF 546 007457 2335 INRD1, ISZ INCNT /SET TO 0000 IF 2 PAGE HANDLERS FORCE INPT. BUFF. TO 1/2 SIZE 547 007460 7410 SKP / " " " 548 007461 1354 TAD (600 549 007462 2335 ISZ INCNT 550 007463 7400 IN7400, 7400 551 007464 1353 TAD (-1401 552 007465 3333 DCA INCHCT 553 007466 1253 TAD INJMPP 554 007467 3273 DCA INJMP 555 007470 1752 TAD I (INBFPT 556 007471 3332 DCA INPTR 557 007472 5243 JMP INCHAR+1 558 INJMPE=JMP . 559 007473 5273 INJMP, INJMPE 560 007474 5315 JMP INCHA1 561 007475 5311 JMP INCHA2 562 007476 1253 INCHA3, TAD INJMPP 563 007477 3273 DCA INJMP 564 007500 1732 TAD I INPTR 565 007501 0263 AND IN7400 566 007502 7112 CLL RTR 567 007503 7012 RTR 568 007504 1334 TAD INTEMP 569 007505 7012 RTR 570 007506 7012 RTR 571 007507 2332 ISZ INPTR 572 007510 5316 JMP INCOM 573 007511 1732 INCHA2, TAD I INPTR 574 007512 0263 AND IN7400 575 007513 3334 DCA INTEMP 576 007514 2332 ISZ INPTR 577 007515 1732 INCHA1, TAD I INPTR 578 007516 0351 INCOM, AND (177 579 007517 7440 SZA 580 007520 1350 TAD (-177 581 007521 7450 SNA 582 007522 5243 JMP INCHAR+1 583 007523 1347 TAD (145 /CHECK FOR ^Z 584 007524 7450 SNA 585 007525 5255 JMP INRD /^Z ON INPUT MEANS GO TO NEXT FILE 586 007526 1346 TAD (232 587 007527 6213 CDF CIF 10 588 007530 3745 DCA I (CHR 589 007531 5642 JMP I INCHAR 590 007532 0000 INPTR, 0 591 007533 0000 INCHCT, 0 592 007534 0000 INTEMP, 0 593 007535 0000 INCNT, 0 594 007545 0061 FIELD 1 007546 0232 007547 0145 007550 7601 007551 0177 007552 7310 007553 6377 007554 0600 007555 7302 007556 7600 007557 7575 007560 7746 007561 0042 007562 4662 007563 7211 007564 0563 007565 4574 007566 6415 007567 7644 007570 1614 007571 1101 007572 1155 007573 7617 007574 7210 007575 6457 007576 7324 007577 0110 000110 1631 000111 1200 000112 1101 000113 7260 000114 6534 000115 7257 000116 1600 000117 0041 000120 7402 000121 6561 000122 7601 000123 6457 000124 6415 000125 1423 000126 7611 000127 2214 000130 7604 000131 4170 000132 5224 000133 4651 000134 4136 000135 4051 000136 5301 000137 0040 000140 7644 000141 0771 000142 7646 000143 0017 000144 1157 000145 3162 000146 4356 000147 0006 000150 6571 000151 6200 000152 7310 000153 6600 000154 7460 000155 7457 000156 7307 000157 7315 000160 0400 000161 7605 000162 7600 000163 7261 000164 1000 000165 7746 000166 0100 000167 7643 000170 0200 000171 7700 000172 7210 000173 0225 000174 0213 000175 7645 000176 0224 000177 7410 595 *6400 /OUTPUT ROUTINE INTERFACE - CANT GO PAST 6423 596 016400 0000 OUCHAR, 0 597 016401 3614 DCA I POUTEM 598 016402 1215 TAD OUTINH 599 016403 7640 SZA CLA 600 016404 5600 OUCRET, JMP I OUCHAR /DOUBLES AS OFF-PAGE RETURN 601 016405 2612 ISZ I POUJMP 602 016406 2307 ISZ OUCHCT 603 016407 5613 JMP I POUJMX 604 016410 4327 JMS OUTDMP 605 016411 5202 JMP OUCHAR+2 606 016412 6611 POUJMP, OUJMP 607 016413 6610 POUJMX, OUJMX 608 016414 6652 POUTEM, OUTEMP 609 016415 0000 OUTINH, 0 610 016416 1223 F3ERR, TAD O2100 611 016417 1223 F2ERR, TAD O2100 612 016420 6203 F1ERR, CDF CIF 0 613 016421 5622 JMP I .+1 614 016422 1631 ERROR 615 016423 2100 O2100, 2100 616 *6457 /LOADS OVER OLD SABR INITIALIZATION ROUTINE 617 016457 0000 TSTNTR, 0 /CALLED FROM FIELD 0 618 016460 1361 TAD PFILE 619 016461 1360 TAD C4 620 016462 3361 DCA PFILE 621 016463 1761 TAD I PFILE 622 016464 2361 ISZ PFILE 623 016465 3370 DCA ODEVNO 624 016466 1371 TAD OUHND /THIS LOC. IS SET UP AT INIT. TIME 625 016467 3277 DCA OUHNDL 626 016470 6202 CIF 0 627 016471 4777 JMS I (MINCOR 628 016472 4776 JMS I (200 629 016473 0013 13 /RESET OUTPUT DEVICE 630 016474 1370 TAD ODEVNO /LOAD OUTPUT DEVICE 631 016475 4776 JMS I (200 632 016476 0001 1 633 016477 7400 OUHNDL, 7400 634 016500 5217 JMP F2ERR 635 016501 1361 TAD PFILE 636 016502 3307 DCA ENAME /POINTS TO FILE NAME 637 016503 3362 DCA OULNGT /ZERO CLOSING LENGTH 638 016504 1370 TAD ODEVNO /LOAD DEVICE NUMBER AND REQUESTED LENGTH 639 016505 4776 JMS I (200 640 016506 0003 3 /ENTER 641 016507 0000 ENAME, 0 /POINTER INTO COMMAND DECODER AREA GOES HERE 642 OUCHCT=ENAME 643 016510 0000 ELENGT, 0 /"0 LENGTH" MEANS AS LARGE A SPACE AS POSSIBLE 644 016511 5217 JMP F2ERR /COULDN'T ENTER FILE - MAYBE BAD DIRECTORY 645 016512 1307 TAD ENAME /GET STARTING BLOCK # 646 016513 3334 DCA OUTREC /STORE IT AWAY 647 016514 4317 JMS OUSPTR /INITIALIZE OUTPUT ROUTINE 648 016515 6203 ENTRTN, CDF CIF 0 649 016516 5657 JMP I TSTNTR 650 016517 0000 OUSPTR, 0 651 016520 1333 TAD POUBUF 652 016521 3775 DCA I (OUPTR 653 016522 1374 TAD (-601 654 016523 3307 DCA OUCHCT 655 016524 1373 TAD (OUJMPE 656 016525 3612 DCA I POUJMP 657 016526 5717 JMP I OUSPTR 658 016527 0000 OUTDMP, 0 659 016530 6202 CIF 0 660 016531 4677 JMS I OUHNDL 661 016532 4200 4200 662 016533 1200 POUBUF, 1200 /REMAINDER OF OLD SABR INPUT BUFFER 663 016534 0000 OUTREC, 0 664 016535 5216 JMP F3ERR 665 016536 2334 ISZ OUTREC 666 016537 4317 JMS OUSPTR 667 016540 2362 ISZ OULNGT 668 016541 2310 ISZ ELENGT 669 016542 5727 JMP I OUTDMP 670 016543 5217 JMP F2ERR 671 016544 0000 OUCLOS, 0 672 016545 1367 TAD OUT232 /PUT A ^Z IN THE OUTPUT FILE 673 016546 4200 JMS OUCHAR 674 016547 1307 TAD OUCHCT 675 016550 7040 CMA 676 016551 7640 SZA CLA 677 016552 5346 JMP .-4 /FILL REMAINDER OF BUFFER WITH ZEROS 678 016553 4327 JMS OUTDMP 679 016554 6202 CIF 0 680 016555 4777 JMS I (MINCOR 681 016556 1370 TAD ODEVNO 682 016557 4776 JMS I (200 683 016560 0004 C4, 4 /CLOSE 684 016561 7574 PFILE, 7574 685 016562 0000 OULNGT, 0 686 016563 5217 JMP F2ERR /ERROR ON CLOSE 687 016564 3362 DCA OULNGT 688 016565 6202 CIF 0 689 016566 5744 JMP I OUCLOS 690 016567 0232 OUT232, 232 691 016570 0000 ODEVNO, 0 692 016571 0000 OUHND, 0 /SET UP AT INIT. TIME TO ALLOW 2 PAGE HNDLR 693 /IF NEEDED 694 016573 5211 *6610 /OUTPUT ROUTINE - CANT GO PAST 6661 016574 7177 016575 6647 016576 0200 016577 1600 695 016610 6201 OUJMX, CDF 0 696 OUJMPE=JMP . 697 016611 5211 OUJMP, OUJMPE 698 016612 5241 JMP OUCHA1 699 016613 5236 JMP OUCHA2 700 016614 1252 OUCHA3, TAD OUTEMP 701 016615 7006 RTL 702 016616 7006 RTL 703 016617 3252 DCA OUTEMP 704 016620 1250 TAD OUJMPP 705 016621 3211 DCA OUJMP 706 016622 1252 TAD OUTEMP 707 016623 0253 AND OU7400 708 016624 1651 TAD I OUPOLD 709 016625 3651 DCA I OUPOLD 710 016626 1252 TAD OUTEMP 711 016627 7006 RTL 712 016630 7006 RTL 713 016631 0253 AND OU7400 714 016632 1647 TAD I OUPTR 715 016633 3647 DCA I OUPTR 716 016634 2247 ISZ OUPTR 717 016635 5244 JMP OUCOM 718 016636 1247 OUCHA2, TAD OUPTR 719 016637 3251 DCA OUPOLD 720 016640 2247 ISZ OUPTR 721 016641 1252 OUCHA1, TAD OUTEMP 722 016642 0254 AND OU377 723 016643 3647 DCA I OUPTR 724 016644 6211 OUCOM, CDF 10 725 016645 5646 JMP I .+1 726 016646 6404 OUCRET 727 016647 0000 OUPTR, 0 728 016650 5211 OUJMPP, OUJMPE 729 016651 0000 OUPOLD, 0 730 016652 0000 OUTEMP, 0 731 016653 7400 OU7400, 7400 732 016654 0377 OU377, 377 733 /PATCHES TO SABR TO HOOK INTO THESE WONDERFUL ROUTINES 734 *4574 /OLD "INITR" ROUTINE AREA - 4 LOCATIONS LONG 735 014574 0000 SYMPRT, 0 /INTERMEDIATE ROUTINE TO PRINT SYMBOL TABLE 736 014575 4441 JMS I PRSYMP /CALL SABR'S ROUTINE 737 014576 6202 CIF 0 738 014577 5774 JMP I SYMPRT /BUT RETURN TO FIELD 0 739 740 *4641 /CODE IN THIS SECTION CAN'T GO PAST 4704 741 014641 0000 FETCH, 0 /REPLACES ROUTINE IN SABR OF SAME NAME 742 014642 6203 CDF CIF 0 743 014643 4645 JMS I .+2 744 014644 5641 JMP I FETCH 745 014645 7442 INCHAR 746 747 014646 7700 LDRCT, 7700 /FOR LEADER-TRAILER ROUTINE ON SAME PAGE 748 749 014647 0000 USYMFG, 0 /ROUTINE TO GIVE UNDEFINED SYMBOL MESSAGES WHEN 750 014650 4423 JMS I CTYPE /NO SYMBOL TABLE IS REQUESTED 751 014651 5647 SYMXX, JMP I USYMFG /ZEROED IF CHECKING FOR UNDEFINEDS 752 014652 1003 TAD SYMBOL 753 014653 3660 DCA I PLLFS /SET UP SABR CELLS SO THAT ERROR ROUTINE WILL 754 014654 3067 DCA LINE /PRINT THE NAME OF THE UNDEFINED SYMBOL 755 014655 1261 TAD U2300 /FUDGE FOR "U" ERROR MESSAGE - UNFORTUNATELY, 756 014656 5657 JMP I .+1 /THIS MESSAGE IS INSTANTLY FATAL - SERVES HIM RIGHT 757 014657 6420 F1ERR 758 014660 5364 PLLFS, LLFS /RANDOM LOCATION IN SABR 759 014661 2300 U2300, 2300 760 761 014662 0000 TDUMMY, 0 /DUMMY OUTPUT ROUTINE 762 014663 7200 CLA 763 014664 5662 JMP I TDUMMY /AS DUMMY AS YOU CAN GET 764 765 *6133 /PATCH TO SYMBOL TABLE PRINTER TO USE ABOVE 766 016133 4777 JMS I 6177 /THIS REPLACES A "JMS I CTYPE" 767 *6177 768 016177 4647 USYMFG /LUCKILY THERE WAS A LOCATION FREE 769 770 *3665 /REWRITE OF OCTAL TYPEOUT ROUTINE TO 771 013665 3123 DCA TEM1 /NOT KEEP INFORMATION IN THE LINK ACROSS 772 013666 1304 TAD M4 /A CALL TO THE OUTPUT ROUTINE 773 013667 3124 DCA TEM2 774 013670 1123 L62A, TAD TEM1 775 013671 7006 RTL 776 013672 7004 RAL 777 013673 3123 DCA TEM1 778 013674 1123 TAD TEM1 779 013675 7004 RAL 780 *3702 781 013702 5270 JMP L62A 782 783 *4317 /"PAUSE" PROCESSOR 784 014317 7200 CLA /REPLACES CLA HLT 785 014320 6203 CDF CIF 0 786 787 *4332 /PATCHES TO INITIALIZATION ROUTINE 788 014332 7000 NOP /DON'T GIVE 789 014333 7000 NOP /TWO USELESS CARRIAGE RETURN - LINE FEED PAIRS 790 791 *4341 792 014341 7000 NOP /DON'T JMS I 4372 'CAUSE WE HAVE CHANGED 4372! 793 794 *4372 /MORE "PAUSE" FUDGE 795 014372 7200 SPAUSE 796 797 *4715 /ALTER COUNT ON LEADER-TRAILER 798 014715 1246 TAD LDRCT 799 800 *561 /"END" STMT PROCESSOR 801 010561 6202 CIF 0 802 010562 5777 JMP I PEND /END OF PASS 1 803 ENDRSM=. 804 805 *565 /MORE ON "END" 806 010565 7000 NOP /ELIMINATE HALT AT END OF PASS 1 807 808 *570 /STILL MORE ON "END" 809 010570 6203 CDF CIF 0 810 010571 5776 JMP I SEND /END OF PASS 2 811 812 *576 /THERE ARE (WERE) TWO WHOLE FREE LOCATIONS IN THIS PAGE! 813 010576 7430 SEND, SBREND 814 010577 7401 PEND, PASEND 815 816 *2761 /FATAL ERROR HALT IN ERROR ROUTINE 817 012761 6203 CDF CIF 0 818 012762 5566 JMP I 166 /166 = LITERAL 7600 819 820 *4003 /LISTING ROUTINE 821 014003 7610 SKP CLA /ALWAYS PUT LISTING ON "PUNCH" 822 823 *PUNCH /POINTER TO PUNCH ROUTINE 824 010042 6400 OUCHAR /POINTER TO MY PUNCH ROUTINE 825 / 826 *200 827 010200 7000 VERNUM 828 010201 4600 JMS I .-1 829 / 830 *7000 831 017000 0000 VERNUM, 0 832 017001 4424 JMS I CRLF 833 017002 1612 TAD I POINT 834 017003 4423 JMS I CTYPE 835 017004 2212 ISZ POINT 836 017005 2213 ISZ COUNT 837 017006 5202 JMP .-4 838 017007 4424 JMS I CRLF 839 017010 3454 DCA I TYPE 840 017011 5600 JMP I VERNUM 841 / 842 017012 7014 POINT, TITLET 843 017013 7773 COUNT, -5 844 017014 2301 TITLET, TEXT /SABR V18A / 017015 0222 017016 4026 017017 6170 017020 0140 017021 0000 845 $ ADEVN 1157 ADEVNO 1143 ALOAD 0463 C4 6560 CCLKLG 0030 CCLSKP 0224 CHR 0061 CLOC1 0006 CLOC2 3162 CLOC3 4356 CLSMBE 7324 CNT 0374 CNT1 0375 CORE1 6200 COUNT 7013 CRLF 0024 CTYPE 0023 D7600 7213 unreferenced D7700 7264 DELER2 7273 DELERR 7272 DELETE 7211 DNUM 0346 DONE 0236 DONE1 0245 DVHNDL 7647 E7500 1617 EL64 1644 ELENGT 6510 ENAME 6507 ENDRSM 0563 ENTRTN 6515 unreferenced EPASS 1643 ERRE 2701 ERROR 1631 ETYPE 1645 F1ERR 6420 F2ERR 6417 F3ERR 6416 FDSW 7261 FETCH 4641 FILPTR 1155 FSTART 0201 FSWITC 7210 GETOUT 7262 GOTIT 1146 IDONE 0261 ILP1 0252 IN7400 7463 INBFPT 7310 INBUF 6200 INCHA1 7515 INCHA2 7511 INCHA3 7476 unreferenced INCHAR 7442 INCHCT 7533 INCNT 7535 INCOM 7516 INDEV 7317 INERR 7320 INJMP 7473 INJMPE 5273 INJMPP 7453 INLP 0246 INPTR 7532 INRD 7455 INRD1 7457 INREAD 7302 INREC 7311 INREC1 7315 INTEMP 7534 IPGES 0335 ISYS 0334 JSBITS 7746 L62A 3670 L64 4772 LCHK 0400 LDRBLK 7257 LDRCT 4646 LINE 0067 LLFS 5364 LOADER 0502 LSTFLG 7402 M4 3704 MIN200 1630 MINCIF 1604 MINCOR 1600 MINXIT 1612 MN7700 1621 MOFILE 7600 MOUCOR 1614 MPARAM 7643 NAME 7276 NOBNOT 0441 NODLET 7234 NOLOAD 0474 NOLODR 0500 NOTFRT 0213 NOTWO 0300 NSPEED 0420 O200 1156 O2100 6423 O7760 1100 unreferenced ODEVNO 6570 OPENFL 1101 OPGES 0344 OSYS 0343 OTEMP 1153 OTEMP2 1154 OU377 6654 OU7400 6653 OUCHA1 6641 OUCHA2 6636 OUCHA3 6614 unreferenced OUCHAR 6400 OUCHCT 6507 OUCLOS 6544 OUCOM 6644 OUCRET 6404 OUHND 6571 OUHNDL 6477 OUJMP 6611 OUJMPE 5211 OUJMPP 6650 OUJMX 6610 OULNGT 6562 OUPOLD 6651 OUPTR 6647 OUSPTR 6517 OUT232 6567 OUTDMP 6527 OUTEMP 6652 OUTINH 6415 OUTL 0233 OUTREC 6534 P200 7417 unreferenced P3777 0043 P40 7400 PASEND 7401 PASS 0110 PEND 0577 PFILE 6561 PLLFS 4660 POINT 7012 POPNFL 7323 POUBUF 6533 POUJMP 6412 POUJMX 6413 POUTEM 6414 PRJ2 4170 PRJ5 4051 PRNOP 4136 PRS2 4025 PRS5 4101 PRSYMP 0041 PTEM1 0204 unreferenced PTEM2 0376 PUNCH 0042 REMEMB 7260 SABR 0201 SBREND 7430 SBSYMT 7433 SDVHND 0772 SEND 0576 SERROR 4577 unreferenced SETCOR 0225 SPAUSE 7200 START 0200 unreferenced STSABR 0477 SYMBOL 0003 SYMPRT 4574 SYMXX 4651 SYSTEM 1627 TDUMMY 4662 TEM 0377 TEM1 0123 TEM2 0124 TEM3 0373 TITLET 7014 TSTNTR 6457 TWOPAG 0341 TWOPG 0337 TYPE 0054 U2300 4661 USYMFG 4647 VERNUM 7000 YESBOT 0444