Directory of image this file is from
This file as a plain text file
/PDP-8 PS/8 CROSS REFERENCE PAL8-V7 4/20/71 PAGE 1 1 /PDP-8 PS/8 CROSS REFERENCE 2 /VERSION 04 3 4 /1 APRIL 1971 EF/EF 5 6 /COPYRIGHT 1971 DIGITAL EQUIPMENT CORP. 7 / MAYNARD,MASS. 8 9 10 /CREF IS A CROSS REFERENCING PROGRAM FOR THE PS/8 ASSEMBLERS, 11 /PAL8 AND SABR. THE PURPOSE OF CREF IS: 12 13 / 1) PROVIDE A SEQUENCE NUMBERED (DECIMAL) OUTPUT LISTING 14 15 / 2) PROVIDE A LIST OF ALL USER DEFINED SYMBOLS AND LITERALS 16 / AND THE SEQUENCE NUMBER OF THE LINES IN WHICH THEY OCCUR
/PDP-8 PS/8 CROSS REFERENCE PAL8-V7 4/20/71 PAGE 2 17 18 /DETAILS OF CREF. 19 20 /CORE UTILIZED 21 /FIELD 0 22 23 /0-3177: MAINLINE CREF CODE 24 /4000-4377: INITIALIZATION CODE.EXECUTED ONCE AT BEGINNING 25 /LATER OVERWRITTEN BY INPUT BUFFER 26 /3200-3577: INPUT DEVICE HANDLER 27 /3600-4177: OUTPUT HANDLER 28 /4200-5577: INPUT BUFFER 29 /7200-7577: OUTPUT BUFFER 30 31 /5600-7174: USED FOR REFERENCE STORAGE 32 33 /FIELD 1 34 35 /0-NSYM*4+10 NSYM=NO. OF SYMBOLS.(USER+PERMANENT+LITERALS). 36 /7424-7577 PSEUDO OP TABLE 37 /THE REMAINDER IS USED FOR REFERENCES DURING PASSES GREATER THAN ONE 38 39 /SYSTEM SCRATCH USED. 40 /IF CREF DECIDES THAT MORE THAN 2 PASSES ARE REQUIRED, THE SYMBOL 41 /TABLE IS SEGMENTED AT AN OPTIMUM POINT, AND PART IS SAVED 42 /IN SCRATCH BLOCKS 27-50 FOR A THIRD (OR LARGER) PASS. 43 44 45 /MAJOR ROUTINES AND CODE SECTIONS 46 47 /MAIN-START OF TEXT PROCESSING.CHECKS FOR VALID LINE.READS AND WRITES 48 /TEXT LINES 49 /CVTSEQ CONVERTS SEQUENCE NUMBERS FROM OCTAL TO DECIMAL AND 50 / WRITES THEM INTO THE OUTPUT BUFFER 51 52 /GETLIN- GET A LINE OF INPUT INTO LINE BUFFER 53 54 /WRTLIN- WRITE A LINE OF TEXT INTO OUTPUT BUFFER 55 56 /ANALYZ- LINE SCANNING BEGINS.ALL SYMBOLS COLLECTED HERE 57 58 /PACK- CHARACTER PACKING ROUTINE. THE SCHEME USED MAPS LETTERS 59 /A-Z AND [,],\,^ INTO 0-37. 0-9 INTO 40-51 60 / THE PACKING IS: CHAR1-300^52+CHAR2-300 61 62 /SYMCHK- BINARY SYMBOL TABLE SEARCH 63 64 /ENTRY- MAKES ENTRIES IN USER SYMBOL TABLE 65 66 /BUMP- BUMPS REFERENCE COUNTER OF SYMBOLS IN PASS 1 67 68 /ENDPAS- TERMINATES A PASS THROUGH INPUT 69 70 /PASSN2- FILLS IN REFERENCE STORAGE ARE DURING PASSES 71 / AFTER POASS ONE
/PDP-8 PS/8 CROSS REFERENCE PAL8-V7 4/20/71 PAGE 2-1 72 73 /DUMP- DUMPS CREF TABLE TO OUT BUFFER 74 75 76 /SWITCHES IN CREF: 77 / /R=INPUT IS SABR CODE 78 /P=DISABLE LISTING OUTPUT. RE ENABLE FOR CREF TABLE 79 /X=DON'T CREF LITERALS
/PDP-8 PS/8 CROSS REFERENCE PAL8-V7 4/20/71 PAGE 3 80 81 /PAGE ZERO FOR CREF 82 83 0010 *10 84 /AUTO INDEX REGISTERS 85 86 00010 4377 XRLINE, SYMTAB-1 /USED TO MOVE UP SYMBOL TABLE 87 00011 7777 XRLIT, -1 /DITTO 88 00012 0000 XRSYM1, 0 89 00013 0000 XRSYM2, 0 /THESE ARE USED IN SEARCHING SYMBOLS 90 91 0020 *20 92 00020 0254 TXTBEG, LINBUF+12 /TEXT STARTS HERE 93 00021 0241 MARGIN, LINBUF-1 /LINE BUFFER 94 00022 0000 COUNT, 0 /GENERAL COUNTER 95 00023 0000 CHAR, 0 /HOLDS CHARACTER TO EXAMINE 96 00024 0000 SEQNO, 0 /SEQUENCE NO. 97 00025 0000 SAVE, 0 98 00026 0000 TEMP, 0 99 00027 0000 TEMP1, 0 /THESE THREE ARE TEMPORARY STORAGE 100 00030 0000 DSWIT, 0 101 00031 0000 RSWIT, 0 /CD SWITCH WORDS 102 00032 7566 MLF, -212 /-LINE FEED 103 00033 7772 SYMCNT, -6 /ALLOW 6 CHARACTER SYMBOLS 104 00034 0036 ISYM, SYM1 /POINTER TO SYMBOL COLLECTOR 105 00035 0000 PSWCH, 0 /PACK SWITCH..LEFT OR RIGHT HALF 106 00036 0000 SYM1, 0 107 00037 0000 SYM2, 0 108 00040 0000 SYM3, 0 /COLLECT SYMBOLS HERE 109 00041 0000 USER, 0 /USER MUST FOLLOW SYM3! 110 00042 0110 110 /INITIAL SYMBOL TABLE ENTRIES 111 00043 0000 PSEUDO, 0 112 00044 0000 0 /THESE 2 GET FILLED IN AT INITIALIZATION 113 00045 1600 PASN2, PASSN2 /IF NOT PASS 1 GO HERE WITH A SYMBOL 114 00046 7777 PASSG1, -1 /=0 IF NOT PASS1 115 00047 0000 MAXFLD, 0 /-# OF FIRST NON-EXISTENT FIELD 116 00050 0000 CONST, 0 /EITHHER 0 OR 96(10) 117 00051 0000 FLDPTR, 0 /POINTER TO CORE FIELD 118 00052 0200 USR, 200 /MONITOR IN CORE..CHANGED TO 7700 119 00053 5621 DOLLAR, DOLL1 120 00054 0002 SYMFLD, 2 /FIELDS WITH SYMBOLS: BITS 5-11 121 00055 0000 MASKF, 0 /MASK FOR ABOVE WORD 122 123 /THESE ARE THE PRESENT PARAMETERS FOR THE I/O ROUTINES 124 125 4200 OUCTL=4200 126 7200 OUBUF=7200 127 3600 OUDEVH=3600 128 0000 OUFLD=OUCTL&70 129 130 0600 INCTL=0600 131 4200 INBUF=4200 132 3200 INDEVH=3200 133 0003 INRECS=3 134 0000 INFLD=INCTL&70
/PDP-8 PS/8 CROSS REFERENCE PAL8-V7 4/20/71 PAGE 3-1 135 /(SUBJECT TO CHANGE WITHOUT NOTICE!) 136 137 00056 0000 SYMADD, 0 /CONTAINS SYMBOL ADDRESS 138 00057 0000 SYMNUM, 0 /ABOVE MOD 4 139 0041 K0=USER 140 00060 0000 BUFFER, 0 /POINTER FOR UNPACKING 141 0052 R=52 142 0052 RAD=52 /RADIX FOR CONVERTING SYMBOLS 143 144 00061 0000 ADDER, 0 145 00062 0000 SYSM, 0 146 00063 0000 BASE, 0 /THESE ARE USED TO END A PASS 147 00064 0000 SYMLIM, 0 /UPPER LIMIT FOR SYMBOL REF TABLE 148 00065 0000 FINI, 0 149 150 00066 0000 IOSR, 0 151 00067 4577 JMS I [7607 152 00070 4010 CNTROL, 4010 /THIS IS ON PAGE ZERO MAINLY 153 00071 0004 CTPTR, 4 /BECAUSE CTPTR IS USED A LOT 154 0027 SCRATCH=27 155 00072 0027 SCRATCH /SYSTEM SCRATCH FOR OVERFLOW 156 00073 5576 JMP I [ERROR /ERROR ON SYS!!! 157 00074 5466 JMP I IOSR 158 00075 7710 LNPRPG, -70 /# LINES OF TEXT PER PAGE 159 00076 6030 THOUS, 6030 /CONVERSION TABLE..OCTAL-DECIMAL 160 00077 7634 7634 161 00100 7766 7766 162 00101 7777 7777 163 164 00102 5615 FPUT, STORIT /INITIALLY POINTS TO DCA I XRLINE 165 166 0100 M12=THOUS+2 167 0101 M1=THOUS+3
/PDP-8 PS/8 CROSS REFERENCE PAL8-V7 4/20/71 PAGE 4 168 169 0200 *200 170 00200 5777 JMP I (ST1 /INITIALIZATION GETS DESTROYED 171 00201 5776 BREAK, JMP I (CHAIN /CHAIN ENTRY POINT 172 00202 0000 ZBLOCK 7 /BREAK TABLE. HOLDS SYMBOL 173 /NUMBERS DURING VARIOUS PASSES 174 /OF CREF. THE ENTRIES ARE THE NUMBER 175 /OF THE LARGEST SYMBOL 176 /WHOSE REFERENCES ARE IN A PARTICULAR 177 /FIELD. THE 0TH ENTRY CORRESPONDS TO 178 /FIELD 0. 179 00211 3025 ERROR, DCA SAVE 180 00212 1175 TAD [-6 181 00213 3033 DCA SYMCNT /12 CHARACTER MESSAGES 182 00214 1025 TAD SAVE 183 00215 7104 CLL RAL 184 00216 3025 DCA SAVE /NOW FORMING ADDRESS OF ERROR MESSAGE 185 00217 1025 TAD SAVE 186 00220 7104 CLL RAL 187 00221 1025 TAD SAVE 188 00222 1233 TAD MSGBS 189 00223 3060 DCA BUFFER /POINTS TO APPROPRIATE ERROR MESSAGE 190 00224 1234 TAD TTY /POINT TO TTY OUT ROUTINE 191 00225 3174 DCA [OCHAR 192 193 00226 1460 TAD I BUFFER 194 00227 4573 JMS I [DIVIDE /CONVERT AND PRINT MESSAGE 195 00230 2033 ISZ SYMCNT 196 00231 5226 JMP .-3 197 00232 5572 JMP I [7605 198 00233 3000 MSGBS, MSGTBL 199 00234 2761 TTY, TTYPRT 200 201 00235 0000 CLEAR, 0 /ROUTINE TO CLEAN OUT OLD SYMBOL 202 00236 3036 DCA SYM1 203 00237 3037 DCA SYM2 204 00240 3040 DCA SYM3 205 00241 5635 JMP I CLEAR 206 207 208 209 /THE INPUT LINE IS STORED HERE. XRLINE POINTS TO VARIOUS 210 /PLACES THROUGHOUT THE SCAN, AND CHAR HOLDS THE CORRESPONDING 211 /CHARACTER WHILE WE EXAMINE IT. 212 213 0242 LINBUF=. 214 0250 LITBUF=.+6 215 0246 VERTST=.+4 216 217
/PDP-8 PS/8 CROSS REFERENCE PAL8-V7 4/20/71 PAGE 5 218 00376 4005 219 00377 4000 220 0400 *400 221 222 /MAIN IS THE START OF CREF.(IF SABR, NXTLIN IS START). 223 /AT MAIN WE SCAN A LINE OF TEXT FOR BINARY DATA. IF NONE IS FOUND, 224 /THE LINE IS WRITTEN OUT AND A NEW LINE READ. IF BINARY IS FOUND, 225 /THE SEQUENCE NUMBER OF THE LINE IS PLACED IN THE OUTPUT 226 /BUFFER AND THE ANALYSIS BEGINS AT ANALYZ. 227 228 00400 4571 MAIN, JMS I [FORM /FORM FEED (CR/LF) 229 00401 4570 JMS I [HEADER /SKIP HEADER 230 00402 4777 JMS I (GETLIN /AND ONE CR/LF 231 00403 4347 NOTBIN, JMS WRTLIN 232 00404 4777 NXTLIN, JMS I (GETLIN 233 00405 1410 TAD I XRLINE 234 00406 3023 DCA CHAR 235 00407 4567 JMS I [CHECK /CHECK FOR ALPHA LINE 236 00410 0301 301 237 00411 7442 -336 238 00412 7410 SKP 239 00413 5203 JMP NOTBIN 240 00414 1023 TAD CHAR 241 00415 1250 TAD MCTLD /IF RUB OUT, USED /D 242 00416 7450 SNA 243 00417 5566 JMP I [ENDPAS /CAN'T OUTPUT SYM TABLE 244 00420 1376 TAD (163 /CHECK FOR FORM FEED 245 00421 7450 SNA 246 00422 5200 JMP MAIN /YES.. 247 00423 1375 TAD (-41 /IF ------, HE USED /T(DUMMY!) 248 00424 7650 SNA CLA 249 00425 5200 JMP MAIN /GIVE HIM A FORM FEED 250 00426 2075 NOFORM, ISZ LNPRPG /=0 AFTER PASS1 NEW PAGE? 251 00427 7410 SKP /SKIP A FORM FEED 252 00430 4571 JMS I [FORM 253 00431 2024 ISZ SEQNO /BUMP SEQUENCE 254 00432 5235 JMP MAIN2 255 00433 1165 TAD [140 256 00434 3050 DCA CONST 257 00435 4564 MAIN2, JMS I [PASTST /STILL PASS ONE? 258 00436 5243 JMP MAIN3 259 00437 1024 TAD SEQNO 260 00440 4251 JMS CVTSEQ 261 00441 1163 TAD [-3 /3 SPACES 262 00442 4562 JMS I [SPACE 263 00443 1023 MAIN3, TAD CHAR 264 00444 1161 TAD [-215 265 00445 7650 SNA CLA 266 00446 5203 JMP NOTBIN 267 00447 5560 JMP I [ANALYZ 268 00450 7401 MCTLD, -377 /RUB OUT 269 270 /THIS ROUTINE CONVERTS SEQUENCE NUMBERS TO DECIMAL NUMBERS AND 271 /PUTS THEM INTO THE OUTPUT BUFFER. IT IS USED WHEN PRINTING 272 /THE CREF TABLE ALSO
/PDP-8 PS/8 CROSS REFERENCE PAL8-V7 4/20/71 PAGE 5-1 273 /THE CALLING SEQUENCE IS: AC=OCTAL NUMBER TO BE CONVERTED. 274 /THE OUTPUT IS AUTOMATICALLY 4 DIGITS. 275 276 277 0027 POSPT=TEMP1 278 0055 DIGPT=MASKF 279 280 00451 0000 CVTSEQ, 0 281 00452 1050 TAD CONST 282 00453 3025 DCA SAVE /TEMP STORE 283 00454 1050 TAD CONST 284 00455 7640 SZA CLA 285 00456 1157 TAD [4 286 00457 3342 DCA DIGIT1 287 00460 3343 DCA DIGIT1+1 288 00461 3344 DCA DIGIT1+2 289 00462 3345 DCA DIGIT1+3 /ZERO CONVERSION AREA 290 00463 1156 TAD [-4 291 00464 3022 DCA COUNT 292 00465 1025 TAD SAVE 293 00466 7100 CLL /SEE IF SEQUENCE IS ABOVE 8000(10) 294 00467 1050 TAD CONST /EITHER 0 OR 140(8) 295 00470 7420 SNL 296 00471 5275 JMP CVT2 /O.K. 297 00472 3025 DCA SAVE /CORRECTED NUMBER 298 00473 1155 TAD [10 299 00474 3342 DCA DIGIT1 /PUT AN 8 INTO THERE FOR PRINTING 300 00475 7200 CVT2, CLA 301 00476 1374 TAD (DIGIT1 302 00477 3055 DCA DIGPT 303 00500 1373 TAD (THOUS 304 00501 3027 DCA POSPT 305 00502 1025 TAD SAVE 306 00503 7100 RPEAT, CLL 307 00504 1427 TAD I POSPT /POINTS TO -1000,-100,-10, OR -1 308 00505 7420 SNL /IF LINK ON,WE DID TOO MUCH 309 00506 5311 JMP ADDUP /COLLECT THE CONVERTED DIGIT 310 00507 2455 ISZ I DIGPT /BUMP THE COUNTER DIGIT1-DIGIT1+3 311 00510 5303 JMP RPEAT 312 313 00511 7041 ADDUP, CIA /RESTORE THE LAST ONE 314 00512 1427 TAD I POSPT 315 00513 7041 CIA 316 00514 2027 ISZ POSPT 317 00515 2055 ISZ DIGPT 318 00516 2022 ISZ COUNT /DONE ALL 4? 319 00517 5303 JMP RPEAT 320 00520 1156 TAD [-4 /YES..OUTPUT THE CONVERTED NUMBERS 321 00521 3022 DCA COUNT 322 00522 1374 TAD (DIGIT1 323 00523 3055 DCA DIGPT 324 00524 1455 SPCLUP, TAD I DIGPT 325 00525 1346 TAD ZSPRES /LEADING ZERO SUPPRESSION 326 00526 3346 DCA ZSPRES 327 00527 1346 TAD ZSPRES
/PDP-8 PS/8 CROSS REFERENCE PAL8-V7 4/20/71 PAGE 5-2 328 00530 7650 SNA CLA /ZSPRES IS 0 UNTIL A VALID # IS FOUND 329 00531 1372 TAD (-20 330 00532 1455 TAD I DIGPT 331 00533 1154 TAD [260 332 00534 4574 JMS I [OCHAR 333 00535 2055 ISZ DIGPT 334 00536 2022 ISZ COUNT 335 00537 5324 JMP SPCLUP 336 00540 3346 DCA ZSPRES 337 00541 5651 JMP I CVTSEQ 338 339 00542 0000 DIGIT1, 0 340 00543 0000 0 341 00544 0000 0 342 00545 0000 0 343 00546 0000 ZSPRES, 0
/PDP-8 PS/8 CROSS REFERENCE PAL8-V7 4/20/71 PAGE 6 344 /WRTLIN TRANSFERS INPUT LINE TO OUTPUT BUFFER 345 346 00547 0000 WRTLIN, 0 347 00550 1021 TAD MARGIN 348 00551 3010 DCA XRLINE /RESET MARGIN TO LEFT 349 00552 1410 OLINE, TAD I XRLINE /PICK UP TEXT CHARACTER 350 00553 3023 DCA CHAR 351 00554 1023 TAD CHAR 352 00555 7450 SNA /IF NULL,WAS PREMATURE TERMINATOR 353 00556 5365 JMP FLUSH /YES. READ AND WRITE THE REST 354 00557 4574 JMS I [OCHAR /OUTPUT THE CHARACTER 355 00560 1023 TAD CHAR 356 00561 1032 TAD MLF /WAS THIS END OF LINE? 357 00562 7640 SZA CLA 358 00563 5352 JMP OLINE /NO..LOOP AGAIN 359 00564 5747 JMP I WRTLIN 360 361 00565 4570 FLUSH, JMS I [HEADER 362 00566 5747 JMP I WRTLIN /OVERFLOW NOT IN BUFFER
/PDP-8 PS/8 CROSS REFERENCE PAL8-V7 4/20/71 PAGE 7 363 364 00572 7760 365 00573 0076 366 00574 0542 367 00575 7737 368 00576 0163 369 00577 3122 370 0600 *600 371 /ANALYZ IS A WORK HORSE. IN IT CHARACTERS ARE EXAMINED AND 372 /SYMBOLS ARE BUILT UP. IF A SYMBOL OR A REFERENCE TO A 373 /SYMBOL IS FOUND,THE APPROPRIATE ACTION IS TAKEN;I.E. 374 /EITHER ENTERING A NEW SYMBOL, BUMPING THE RFERENCE COUNTER, 375 /OR BOTH. 376 377 00600 1346 ANALYZ, TAD SEMISV /IF #0, LAST WAS SEMICOLON 378 00601 7450 SNA 379 00602 1020 TAD TXTBEG /IF=0, START NORMALLY 380 00603 3010 DCA XRLINE 381 382 00604 1410 SCAN, TAD I XRLINE 383 00605 3023 DCA CHAR 384 00606 4567 JMS I [CHECK /ALPHANUMERIC CHECK 385 00607 0301 301 386 00610 7446 -332 387 00611 7410 SKP /NONE..TEST FOR PECIAL CHARS 388 00612 5334 JMP PAKIT /FOUND A LETTER PACK AWAY 389 00613 4567 JMS I [CHECK /TEST FOR 0-9 390 00614 0260 260 391 00615 7507 -271 392 00616 7410 SKP /NOPE..COULD BE SABR 393 00617 5331 JMP SCAN1 394 00620 5226 SCAN3, JMP TSTIT /IF SABR, THIS LOC IS AND 0 395 00621 4567 SCAN2, JMS I [CHECK /TEST FOR [,],\,AND ^ 396 00622 0333 333 397 00623 7442 -336 398 00624 7410 SKP 399 00625 5334 JMP PAKIT /VALID SABR CHARACTERS 400 401 00626 4337 TSTIT, JMS REPACK 402 00627 1023 TAD CHAR /IS THIS A ;? 403 00630 1377 TAD (-273 /IF SO, SAVE PLACE ON LINE 404 00631 7640 SZA CLA 405 00632 5235 JMP .+3 /IF ; SAVE PLACE ON LINE 406 00633 1010 TAD XRLINE 407 00634 3346 DCA SEMISV 408 00635 1036 TAD SYM1 /IS THERE A LEGAL SYMBOL? 409 00636 7650 SNA CLA 410 00637 5300 JMP TSTEND /NO..LOOK FOR A LINE FEED 411 00640 1023 TAD CHAR 412 00641 1376 TAD (-257 413 00642 7650 SNA CLA /A COMMENT? 414 00643 7001 IAC /YES..NEED SPECIAL RETURN 415 00644 3347 DCA SLSWIT 416 417 00645 4553 REF, JMS I [SYMCHK /THIS IS EITHER A REFERENCE OR A
/PDP-8 PS/8 CROSS REFERENCE PAL8-V7 4/20/71 PAGE 7-1 418 /DEFINITION OR A PERMANENT SYMBOL,PSEUDO 419 00646 0043 PSEUDO /CHECK PSEUDOS FIRST 420 00647 5261 JMP USSYM /NOT A PSEUDO-OP 421 00650 1056 TAD SYMADD 422 00651 1152 TAD [3 423 00652 3025 DCA SAVE /SYMCHK RETURNS ADDRESS OF SYMBOL IN SYMADD 424 00653 6211 CDF 10 425 00654 1425 TAD I SAVE 426 00655 3025 DCA SAVE 427 00656 6201 CDF 0 428 00657 4775 JMS I (CLEAR /WIPE OUT PSEUDO OP 429 00660 5425 JMP I SAVE /PERFORM THE NECESSARY OP FOR PSEUDO 430 431 00661 4564 USSYM, JMS I [PASTST 432 00662 5445 JMP I PASN2 433 00663 4553 JMS I [SYMCHK 434 00664 0041 USER /CHECK PERMANENT AND USER SYMBOLS 435 00665 5271 JMP NTER /DIDN'T FIND IT; SO WE HAVE TO ENTER IT 436 00666 4551 JMS I [TSTPRM /FOUND;TEST FOR PERMANENT SYMBOL 437 00667 5273 JMP B /WAS A PERMANENT SYMBOL 438 00670 5272 JMP BMPIT /FOUND AND NOT PERMANENT;INCREASE THE 439 /REFERENCE COUNTER BY ONE 440 441 00671 4550 NTER, JMS I [ENTRY /ENTER THE SYMBOL BY PUSHING DOWN ALL 442 /THE ONES BELOW IT 443 00672 4547 BMPIT, JMS I [BUMP /AND INCREASE THE REFERENCE COUNT 444 00673 4546 B, JMS I [CLEAR /SETUP FOR NEXT 445 00674 1347 TAD SLSWIT /WAS LAST A /? 446 00675 7640 SZA CLA 447 00676 5774 JMP I (NOTBIN 448 00677 5350 JMP SCANER 449 450 00700 1023 TSTEND, TAD CHAR 451 00701 7450 SNA /IF NULL, END THE LINE 452 00702 5306 JMP CLRSEM 453 00703 1032 TAD MLF /ARE WE DONE WITH THIS LINE? 454 00704 7640 SZA CLA 455 00705 5310 JMP .+3 /IF LF, CLEAR OUT SEMICOLON 456 00706 3346 CLRSEM, DCA SEMISV 457 00707 5774 JMP I (NOTBIN 458 00710 1023 TAD CHAR 459 00711 1376 TAD (-257 460 00712 7450 SNA /COMMENT LINE? 461 00713 5306 JMP CLRSEM 462 00714 1373 TAD (15 /A "? 463 00715 7450 SNA 464 00716 2010 ISZ XRLINE /YES..SKIP NEXT LETTER 465 00717 1145 TAD [-2 /A $? 466 00720 7450 SNA 467 00721 5453 JMP I DOLLAR 468 00722 1156 TAD [-4 469 00723 7450 SNA /TEST FOR ( 470 00724 5772 JMP I (LIT1 471 00725 1371 TAD (-63 472 00726 7640 SZA CLA /TEST FOR [
/PDP-8 PS/8 CROSS REFERENCE PAL8-V7 4/20/71 PAGE 7-2 473 00727 5350 JMP SCANER /NONE OF THEM KEEP GOING 474 00730 5770 JMP I (LIT2 475 476 00731 1036 SCAN1, TAD SYM1 /IF WE DON'T HAVE A SYMBOL 477 00732 7650 SNA CLA /DON'T PACK THIS CHARACTER 478 00733 5204 JMP SCAN 479 00734 1023 PAKIT, TAD CHAR 480 00735 4544 JMS I [PACK /PACK A CHARACTER 481 00736 5204 JMP SCAN 482 483 00737 0000 REPACK, 0 /RESET SYMBOL AREA 484 00740 1175 TAD [-6 485 00741 3033 DCA SYMCNT /SYMBOL COUNTER..6 CHARS 486 00742 1367 TAD (SYM1 487 00743 3034 DCA ISYM 488 00744 3035 DCA PSWCH 489 00745 5737 JMP I REPACK 490 491 00746 0000 SEMISV, 0 492 00747 0000 SLSWIT, 0 493 494 00750 1023 SCANER, TAD CHAR /IF LAST WAS ; READ IN OVERLAY 495 00751 1377 TAD (-273 496 00752 7650 SNA CLA 497 00753 5774 JMP I (NOTBIN 498 00754 5204 JMP SCAN 499 500 00755 0000 SUB3, 0 /SUBTRACTS 3 FROM CTPTR 501 00756 1163 TAD [-3 502 00757 1071 TAD CTPTR 503 00760 3071 DCA CTPTR 504 00761 5755 JMP I SUB3 505 00767 0036 506 00770 3060 507 00771 7715 508 00772 3065 509 00773 0015 510 00774 0403 511 00775 0235 512 00776 7521 513 00777 7505 514 1000 *1000 515 516 517 /THE PACKING SCHEME IS THE SAME AS THAT USED IN PAL8. THAT IS 518 /IN EACH WORD WE HAVE 2 CHARS. CHAR1-300^45+CHAR2-300. 519 /PERMANENT SYMBOLS HAVE THE FIRST WORD SET TO A NEGATIVE. 520 521 01000 0000 PACK, 0 522 01001 3240 DCA BLAH 523 01002 1033 TAD SYMCNT 524 01003 7700 SMA CLA /OVERFLOW PROTECT 525 01004 5600 JMP I PACK 526 01005 1240 TAD BLAH 527 01006 0143 AND [77 /STRIP IT
/PDP-8 PS/8 CROSS REFERENCE PAL8-V7 4/20/71 PAGE 7-3 528 01007 1377 TAD (-37 /INCLUDE VALID SABR CHARS 529 01010 7540 SMA SZA 530 01011 1376 TAD (-20 /NUMBERS GET MAPPED: 40-51 531 01012 1375 TAD (37 /LETTERS ARE MAPPED:01-37 532 01013 2035 ISZ PSWCH /WHICH HALF? 533 01014 5221 JMP LEFT 534 01015 1434 TAD I ISYM 535 01016 3434 DCA I ISYM 536 01017 2034 ISZ ISYM 537 01020 5235 JMP PCKOUT 538 01021 7104 LEFT, CLL RAL /*2 539 01022 3330 DCA TLOW 540 01023 1330 TAD TLOW 541 01024 7106 CLL RTL 542 01025 3025 DCA SAVE /*10 543 01026 1025 TAD SAVE 544 01027 7106 CLL RTL /*40 545 01030 1025 TAD SAVE 546 01031 1330 TAD TLOW /*52!! 547 01032 3434 DCA I ISYM 548 01033 7240 CLA CMA /RESET FLIP FLOP 549 01034 3035 DCA PSWCH 550 01035 2033 PCKOUT, ISZ SYMCNT 551 01036 7000 NOP 552 01037 5600 JMP I PACK 553 01040 0000 BLAH, 0 554 555 556
/PDP-8 PS/8 CROSS REFERENCE PAL8-V7 4/20/71 PAGE 8 557 558 /SYMCHK IS THE BINARY SEARCH ROUTINE FOR CREF. SYMBOLS 559 /ARE A GROUP OF FOUR ENTRIES:THE FIRST THREE WORDS ARE 560 /THE STRIPPED-40 REPRESENTATION OF THE SYMBOL. THE LAST 561 /IS THE REFERENCE COUNTER (IN THE CASE OF A USER SYMBOL) OR 562 /A -1 (IN THE CASE OF A PERMANENT SYMBOL). IN PSEUDO OPS 563 /THE FOURTH WORD DESCRIBES THE DESTINATION OR ACTION 564 /TO BE PERFORMED BY THAT PSEUDO OP. 565 /THE TABLE USER,0 HAS ENTRIES WHICH ARE THE SYMBOL NUMBER 566 /AND NOT THE ABSOLUTE CORE LOCATION OF A SYMBOL. 567 568 /CALLING SYMCHK: 569 / JMS SYMCHK 570 / TABLE /FIRST WORD OF TWO WHICH GIVES THE LIMITS 571 /MOD 4 OF THE APPROPRIATE TABLE 572 /SYMCHK RETURNS WITH THE NUMBER OF THE SYMBOL IN SYMNUM 573 /AND THE CORE ADDRESS OF THE SYMBOL IN SYMADD. IF THE 574 /SYMBOL IS NOT FOUND, THESE WORDS CONTAIN THE PROPER LOCATION 575 /FOR THE SYMBOL. 576 577 01041 0000 SYMCHK, 0 578 01042 1641 TAD I SYMCHK 579 01043 3327 DCA THI 580 01044 3331 DCA LAST 581 01045 1727 TAD I THI /GET LIMITS OF TABLE 582 01046 3330 DCA TLOW /LOW LIMIT 583 01047 2327 ISZ THI 584 01050 1727 TAD I THI 585 01051 3327 DCA THI /HIGH LIMIT 586 587 01052 1330 COMP, TAD TLOW 588 01053 7041 CIA 589 01054 1327 TAD THI 590 01055 7110 CLL RAR /HALF DIFFERENCE BETWEEN THE LIMITS 591 01056 7450 SNA /IF THIS IS ZERO, WE'RE DONE 592 01057 2331 ISZ LAST /THIS WILL BE LAST TRY 593 01060 1330 TAD TLOW /FORM THE NUMBER OF THE ENTRY 594 01061 3057 DCA SYMNUM /WE ARE GOING TO TEST NOW 595 01062 4774 JMS I (SETXR /SET UP INDICES FOR TEST 596 01063 2022 ISZ COUNT /WE ONLY WANT -3 IN COUNT! 597 598 01064 7100 S1, CLL 599 01065 6211 CDF 10 600 01066 1413 TAD I XRSYM2 /SYMBOL TABLE ENTRY 601 01067 6201 CDF 0 602 01070 0142 AND [3777 /MASK PERMANENT SYMBOL BIT 603 01071 7040 CMA /USE ONE'S COMPLEMENT 604 01072 1412 TAD I XRSYM1 /OUR COLLECTED SYMBOL 605 01073 7040 CMA /0 AC IF EQUAL 606 01074 7640 SZA CLA /WATCH THE LINK!! 607 01075 5302 JMP COMPR /NOW TEST FOR HI OR LOW COMPARISON 608 01076 2022 ISZ COUNT 609 01077 5264 JMP S1 610 01100 2241 ISZ SYMCHK /TAKE FOUND ENTRY 611 01101 5316 JMP OUT1
/PDP-8 PS/8 CROSS REFERENCE PAL8-V7 4/20/71 PAGE 8-1 612 613 614 01102 1331 COMPR, TAD LAST /LAST GASP? 615 01103 7640 SZA CLA 616 01104 5312 JMP OUT2 /YEP 617 01105 1057 TAD SYMNUM /LINK TELLS THE TALE! 618 01106 7420 SNL 619 01107 5251 JMP COMP-1 /ADJUST HIGH LIMIT 620 01110 3330 DCA TLOW 621 01111 5252 JMP COMP 622 623 624 01112 1057 OUT2, TAD SYMNUM 625 01113 7430 SZL 626 01114 7001 IAC 627 01115 3057 DCA SYMNUM 628 01116 1057 OUT1, TAD SYMNUM /ADDING THE FIRST ENTRY AFTER 629 01117 7440 SZA /AN EXPUNGE WILL CAUSE SYMNUM TO BE 0 630 /AUTOMATICALL IT HAS TO BE 1 631 01120 5323 JMP .+3 632 01121 2057 ISZ SYMNUM 633 01122 5316 JMP OUT1 634 01123 7106 CLL RTL /FORM SYMADD FROM SYMNUM 635 01124 3056 DCA SYMADD /CORE ADDRESS OF THE SYMBOL 636 01125 2241 ISZ SYMCHK 637 01126 5641 JMP I SYMCHK 638 639 01127 0000 THI, 0 640 01130 0000 TLOW, 0 641 642 01131 0000 LAST, 0 643 644 645 646 /THESE TABLES DEFINE THE LIMITS OF CORE STORAGE IN CREF. 647 /BASTBL GIVES THE START LOC WHERE REFERENCES WILL BE STORED. 648 /LTTBL GIVES THE LO CORE LIMIT OF THOSE REFS. THERE IS ONE ENTRY FOR 649 /EACH FIELD 650 651 01132 7174 BASTBL, 7174 /THIS TABLE GIVES THE BASE 652 01133 7424 7424 /LOCATIONS INEACH FIELD WHERE THE 653 01134 7574 7574 /REFERENCES BEGIN 654 01135 7574 7574 /REFS START HERE AND BUILD TOWARD LOWER 655 01136 7574 7574 /CORE ADDRESSES 656 01137 7574 7574 657 01140 7574 7574 658 01141 7574 7574 659 01142 5621 LTTBL, DOLL1 /THIS TABLE GIVES THE LOW 660 01143 0010 10 /CORE ADDRESS OF THE REFS IN EACH FIELD 661 01144 0004 4 /NOTE:ENDPAS JUGGLES THESE AROUND 662 01145 0004 4 /TO OPTIMIZE CREF STORAGE 663 01146 0004 4 664 01147 0004 4 665 01150 0004 4 666 01151 0004 4
/PDP-8 PS/8 CROSS REFERENCE PAL8-V7 4/20/71 PAGE 8-2 667 668 01152 0000 DIVE, 0 669 01153 7450 SNA /IF 0, PRODUCE A SPACE 670 01154 5752 JMP I DIVE 671 01155 1377 TAD (-37 672 01156 7540 SMA SZA 673 01157 1141 TAD [-60 674 01160 1143 TAD [77 675 01161 5752 JMP I DIVE 676 677 01162 0000 SETXR, 0 /SETUP INDEX REGS FOR SEARC,ENTRY 678 01163 1057 TAD SYMNUM /SETUP WHEN FOUND SYMBOL 679 01164 7106 CLL RTL /CORE ADDRESS OF SYMBOL 680 01165 1101 TAD M1 681 01166 3013 DCA XRSYM2 682 01167 1140 TAD [SYM1-1 683 01170 3012 DCA XRSYM1 684 01171 1156 TAD [-4 685 01172 3022 DCA COUNT 686 01173 5762 JMP I SETXR
/PDP-8 PS/8 CROSS REFERENCE PAL8-V7 4/20/71 PAGE 9 687 688 01174 1162 689 01175 0037 690 01176 7760 691 01177 7741 692 1200 *1200 693 /ENTRY IS SLOW! IT ENTERS A SYMBOL BY PUSHING DOWN WHAT IS 694 /BELOW THE PROPER ENTRY.ENTRY CAN ONLY BE USED IN MAKING 695 /ENTRIES IN THE PERMANENT (USER) SYMBOL TABLE. 696 /ENTRY CONDITIONS:AC SHOULD BE CLEAR! 697 / SYMNUM SHOULD HAVE THE SYMBOL NUMBER OF THE 698 / PROPOSED ENTRY. SYMCHK RETURNS THIS WHEN THE 699 / SEARCH IS UNSUCCESSFUL. 700 701 01200 0000 ENTRY, 0 702 01201 4777 JMS I (SETXR /SETUP INDEX REGISTERS 703 01202 1042 TAD USER+1 /CHECK FOR POSSIBLE OVERFLOW 704 01203 7040 CMA /WE DON'T WANT TO WIPE PSEUDO TABLE 705 01204 1043 TAD PSEUDO 706 01205 7750 SPA SNA CLA 707 01206 5250 JMP NMOR /BAD!OVERFLOW HAS OCCURRED 708 01207 2042 ISZ USER+1 /OK..BUMP SYMBOL COUNT 709 01210 1042 TAD USER+1 710 01211 7106 CLL RTL /CORE ADDRESS OF ENTRY 711 01212 3027 DCA TEMP1 712 01213 1027 TAD TEMP1 713 01214 1156 TAD [-4 /GIVES BOTTOM OF TABLE NOW 714 01215 3025 DCA SAVE 715 01216 1025 TAD SAVE /TEST FOR AN 'ADD-ON' ENTRY 716 01217 7040 CMA 717 01220 1056 TAD SYMADD 718 01221 3022 DCA COUNT /-# OF WORDS TO MOVE 719 720 01222 6211 CDF 10 721 01223 1425 NTR1, TAD I SAVE 722 01224 3427 DCA I TEMP1 /THE BAD LOOP! 723 01225 7040 CMA 724 01226 1025 TAD SAVE 725 01227 3025 DCA SAVE /I WISH WE HAD A DSZ!(DECREMENT &SKIP ON 0 726 01230 7040 CMA 727 01231 1027 TAD TEMP1 728 01232 3027 DCA TEMP1 729 01233 2022 ISZ COUNT /DONE? 730 01234 5223 JMP NTR1 /UNFORTUNATELY NOT 731 732 01235 6201 CDF 0 733 01236 7200 ENTER, CLA /NOW PUT IN OUR ENTRY 734 01237 1156 TAD [-4 735 01240 3022 DCA COUNT /THE 4TH IS A 0 WORD (USER FOLLOWS SYM3) 736 01241 1412 NTR2, TAD I XRSYM1 737 01242 6211 CDF 10 738 01243 3413 DCA I XRSYM2 739 01244 6201 CDF 0 740 01245 2022 ISZ COUNT 741 01246 5241 JMP NTR2
/PDP-8 PS/8 CROSS REFERENCE PAL8-V7 4/20/71 PAGE 9-1 742 01247 5600 JMP I ENTRY 743 744 01250 7201 NMOR, CLA IAC /+1 745 01251 5576 JMP I [ERROR /SYMBOL OVERFLOW
/PDP-8 PS/8 CROSS REFERENCE PAL8-V7 4/20/71 PAGE 10 746 747 748 01252 4272 TXT, JMS GETC 749 01253 1376 TAD (-240 /IGNORE SPACES 750 01254 7650 SNA CLA 751 01255 5252 JMP TXT 752 01256 1023 TAD CHAR 753 01257 7041 CIA /STRING DELIMITER 754 01260 3277 DCA DELMIT 755 01261 4272 TXT2, JMS GETC 756 01262 1277 TAD DELMIT /REACHED END OF STRING? 757 01263 7650 SNA CLA 758 01264 5537 JMP I [B /YES 759 01265 1023 TAD CHAR /NO..END OF LINE? 760 01266 1375 TAD (-215 761 01267 7650 SNA CLA 762 01270 5537 JMP I [B 763 01271 5261 JMP TXT2 764 765 01272 0000 GETC, 0 766 01273 1410 TAD I XRLINE 767 01274 3023 DCA CHAR 768 01275 1023 TAD CHAR 769 01276 5672 JMP I GETC /GETA CHAR;STORE IT, RETURN IN AC 770 01277 0000 DELMIT, 0 771
/PDP-8 PS/8 CROSS REFERENCE PAL8-V7 4/20/71 PAGE 11 772 773 774 775 01300 0000 BUMP, 0 /ROUTINE TO BUMP REFERENCE COUNTERS 776 01301 1056 TAD SYMADD 777 01302 1152 TAD [3 778 01303 3025 DCA SAVE /ADDRESS OF REFEENCE COUNTER 779 01304 6211 CDF 10 780 01305 1425 TAD I SAVE 781 01306 7710 SPA CLA /IF 4000 BIT ON, AN EXTRA ENTRY HAS 782 /ALREADY BEEN MADE FOR THIS SYMBOL 783 01307 5317 JMP ONEISZ 784 01310 1050 TAD CONST 785 01311 7650 SNA CLA /IS SEQNO >4095? 786 01312 5317 JMP ONEISZ /NOT YET 787 01313 1136 TAD [4000 788 01314 1425 TAD I SAVE 789 01315 3425 DCA I SAVE /MARK IT AS BEING NOTED 790 01316 7040 CMA 791 01317 1101 ONEISZ, TAD M1 /EITHER -1 OR -2 792 01320 3022 DCA COUNT 793 01321 1142 BUMP2, TAD [3777 /THIS CODE PROTECTS AGAINST 794 01322 0425 AND I SAVE />2048 REFS. IF SIGN BIT EVER BECOMES 795 01323 2425 ISZ I SAVE /NEG. ON THE ISZ,KILL IT!! 796 01324 7000 NOP /USELESS PROTECTION 797 01325 1152 TAD [3 /IF AC GOES NEG. HE DIES!! 798 01326 7710 SPA CLA 799 01327 5334 JMP ERR7 800 01330 2022 ISZ COUNT 801 01331 5321 JMP BUMP2 802 01332 6201 CDF 0 803 01333 5700 JMP I BUMP 804 805 01334 6201 ERR7, CDF 0 806 01335 1135 TAD [7 807 01336 5576 JMP I [ERROR 808 809 01337 0000 PTRSET, 0 /THIS ROUTINE TAKES 810 01340 1152 TAD [3 /THE SYMBOL TABLE THAT 811 01341 3060 DCA BUFFER /PRODUCED AND SETS UP EACH REFERENCE 812 01342 3057 DCA SYMNUM /AREA WITH A POINTER INTO THE AREA 813 01343 7240 CLA CMA 814 01344 1042 TAD USER+1 /AND A 0 LOCATION TO HOLD THE DEFINITION 815 01345 7041 CIA /SEQUENCE NO. 816 01346 3022 DCA COUNT 817 01347 1157 PTRST1, TAD [4 /START PICKING UP POINTERS 818 01350 1060 TAD BUFFER 819 01351 3060 DCA BUFFER 820 01352 2057 ISZ SYMNUM /CORRESPONDING SYMBOL NUMBER 821 01353 4774 JMS I (GETFLD /FORM CDF N FOR REFERENCE AREA 822 01354 3363 DCA CDTFLD 823 01355 6211 CDF 10 824 01356 1460 TAD I BUFFER /IF PERMANENT SYMBOL, THIS LOC=0 825 01357 7450 SNA /IF SO, SKIP IT 826 01360 5370 JMP PTRST2
/PDP-8 PS/8 CROSS REFERENCE PAL8-V7 4/20/71 PAGE 11-1 827 01361 1101 TAD M1 828 01362 3025 DCA SAVE 829 01363 7402 CDTFLD, HLT 830 01364 3425 DCA I SAVE 831 01365 2025 ISZ SAVE /POINT TO INDEX WORD 832 01366 1134 TAD [2 833 01367 3425 DCA I SAVE 834 01370 6201 PTRST2, CDF 0 835 01371 2022 ISZ COUNT 836 01372 5347 JMP PTRST1 837 01373 5737 JMP I PTRSET
/PDP-8 PS/8 CROSS REFERENCE PAL8-V7 4/20/71 PAGE 12 838 839 01374 1714 840 01375 7563 841 01376 7540 842 01377 1162 843 1400 *1400 844 /ENDPAS IS ARRIVED AT WHEN A PASS THROUGH THE INPUT HAS BEEN 845 /COMPLETED.SOME COMPLICATED DIDDLING GOES ON HERE. 846 /PUT IN MORE COMPLETE COMMENTS LATER 847 848 01400 2046 ENDPAS, ISZ PASSG1 849 01401 5777 JMP I (DUMP /DUMP WHAT WE HAVE 850 01402 1062 TAD SYSM /IS THERE STUFF ON SYS? 851 01403 7450 SNA 852 01404 5215 JMP NDPS1 /NO 853 01405 7001 IAC /POINT TO END OF NEW TABLE 854 01406 3042 DCA USER+1 /YES..THAT BECOMES THE TOTAL NO. 855 /OF SYMBOLS IN OUR NEW TABLE 856 01407 1142 TAD [3777 /O.K...NOW READ IN A SEGMENT 857 01410 0070 AND CNTROL /NOW FORMING READ CONTROL 858 01411 3070 DCA CNTROL 859 01412 1157 TAD [4 /READ SYMBOLS INTO F1 AT LOC.4 860 01413 3071 DCA CTPTR 861 01414 4066 JMS IOSR /DO THE READ 862 01415 3051 NDPS1, DCA FLDPTR /INITIALLY AT FIELD 0 863 01416 3061 END2, DCA ADDER /ADDER HOLDS THE COUNT OF THE NUMBER 864 /OF REFERENCES TO THE SYMBOLS THUS FAR 865 /EXAMINED. THIS IS COMPARED TO THE AVAILAABLE 866 /CORE IN A PARTICULAR FIELD. WHEN THAT OVER- 867 /FLOWS WE HAVE TO EITHER MOVE TO ANOTHER FIELD 868 /FOR THE REFERENCES OR WRITE PART OF THE SYMBOL 869 /TABLE ONTO SYS. 870 01417 1376 TAD (BASTBL 871 01420 1051 TAD FLDPTR 872 01421 3027 DCA TEMP1 /INITIAL BASE OF REFS 873 01422 1427 TAD I TEMP1 874 01423 3063 DCA BASE 875 01424 1051 TAD FLDPTR /NOW GET MASK FOR QUESTION.. 876 01425 7040 CMA /DOES THIS FIELD HAVE SYMBOLS? 877 01426 3022 DCA COUNT 878 01427 7120 CLL CML 879 01430 7004 RAL 880 01431 2022 ISZ COUNT 881 01432 5230 JMP .-2 882 01433 3055 DCA MASKF 883 01434 1051 TAD FLDPTR /GET ADDRESS OF UPPER LIMIT 884 01435 1375 TAD (LTTBL /FOR LATER 885 01436 3064 DCA SYMLIM 886 01437 1051 TAD FLDPTR /SET NEW LIMIT IN FIELD 1 887 01440 1133 TAD [BREAK 888 01441 3366 DCA NUSER /THE NEW LIMIT FOR REFS IS 889 01442 3766 DCA I NUSER /ZERO SYMBOL IN CURRENT FIELD LOC. 890 01443 1464 TAD I SYMLIM 891 01444 1071 FUJ1, TAD CTPTR /IF MORE THAN 2 FIELDS EXIST 892 /THIS BECOMES A NOP. THE LIMIT IN
/PDP-8 PS/8 CROSS REFERENCE PAL8-V7 4/20/71 PAGE 12-1 893 /FIELD 1 IS AT THE BOTTOM OF THE 894 /SYMBOL TABLE 895 01445 3367 DCA LIMIT 896 01446 1071 NDPS2, TAD CTPTR /CTPTR HOLD THE CORE ADDRESS OF THE 897 /THE 4TH LOCATION OF A GIVEN SYMBOL. THIS 898 /IS ALSO THE REFERENCE COUNTER FOR THAT SYMBOL 899 01447 7112 CLL RTR /FORM SYMBOL NUMBER 900 01450 0132 AND [1777 901 01451 3022 DCA COUNT /SAVE FOR LATER 902 01452 1061 TAD ADDER 903 01453 7041 CIA 904 01454 1063 TAD BASE /NEXT REFERENCE AREA 905 01455 3025 DCA SAVE /IF IT FITS IN THIS AREA 906 /USED WHEN WE MAKE ACTUAL REF ENTRIES 907 01456 6211 CDF 10 908 01457 1471 TAD I CTPTR /# REFS FOR THIS SYMBOL 909 01460 3026 DCA TEMP 910 01461 1152 TAD [3 911 01462 1071 TAD CTPTR 912 01463 3071 DCA CTPTR 913 01464 1026 TAD TEMP 914 01465 7710 SPA CLA /PERMANENT SYMBOL 915 01466 5314 JMP PRMSYM /YES 916 01467 1471 TAD I CTPTR 917 01470 0142 AND [3777 /MASK GT 4095 BIT 918 01471 1061 TAD ADDER 919 01472 3061 DCA ADDER /SEE IF THIS SYMBOL WILL FIT IN THE 920 /CURRENT FIELD HOLDING REFS 921 01473 6211 CDF 10 /MUST ADD UP NEW REFS ALSO 922 01474 1471 TAD I CTPTR 923 01475 0142 AND [3777 924 01476 6201 CDF 0 925 01477 7100 CLL 926 01500 1367 TAD LIMIT /IF LINK GOES ON, REFS WON'T FIT 927 01501 7430 SZL 928 01502 5336 JMP CUTSYM 929 01503 7140 CMA CLL /WHEN UPPER MEETS LOWER,QUIT 930 01504 1025 TAD SAVE 931 01505 7620 SNL CLA 932 01506 5336 JMP CUTSYM /OK..QUIT! 933 01507 6211 CDF 10 934 01510 1025 TAD SAVE /FITS..PUT IN BASE WHERE THIS SYMBOL'S 935 /REFS BEGIN 936 01511 3471 DCA I CTPTR 937 01512 2061 ISZ ADDER 938 01513 2061 ISZ ADDER /2 EXTRA FOR BOOKKEEPING 939 01514 6201 PRMSYM, CDF 0 940 01515 1022 TAD COUNT /SYMBOL NUMBER..REMEMBER? 941 01516 3766 DCA I NUSER 942 01517 1054 TAD SYMFLD /BUT..IF THIS FIELD HAS SYMBOLS, 943 01520 0055 AND MASKF /LET'S REDUCE HIS AVAILABLE SPACE 944 01521 7650 SNA CLA 945 01522 5326 JMP .+4 /NO SYMBOLS 946 01523 1157 TAD [4 947 01524 1367 TAD LIMIT
/PDP-8 PS/8 CROSS REFERENCE PAL8-V7 4/20/71 PAGE 12-2 948 01525 3367 DCA LIMIT 949 01526 1022 TAD COUNT /SEE IF WE ARE DONE 950 01527 7040 CMA 951 01530 1042 TAD USER+1 952 01531 7450 SNA 953 01532 5774 JMP I (DONE /YES!! PROBABLY FORGOT SOMETHING 954 01533 3062 DCA SYSM /BECOMES # SYMBOLS TO WRITE OUT IN CASE 955 /WE RUN OUT OF ROOM 956 01534 2071 ISZ CTPTR 957 01535 5246 JMP NDPS2 /CYCLE FOR NEXT SYMBOL
/PDP-8 PS/8 CROSS REFERENCE PAL8-V7 4/20/71 PAGE 13 958 959 01536 7200 CUTSYM, CLA 960 01537 2051 ISZ FLDPTR /GOTO ANOTHER FIELD 961 01540 1051 TAD FLDPTR /DOES IT EXIST? 962 01541 7100 CLL 963 01542 1047 TAD MAXFLD 964 01543 7620 SNL CLA 965 01544 5364 JMP END3 /YES..GROOVY 966 01545 1062 TAD SYSM /NOPE..HAVE TO WRITE REMAINDER OUT 967 01546 7104 CLL RAL /CONVER TO PAGES 968 01547 0131 AND [3700 /FORM CONTROL WORD FOR WRITE 969 01550 1373 TAD (4110 970 01551 3070 DCA CNTROL 971 01552 4772 JMS I (SUB3 /RESET CTPTR 972 01553 1766 TAD I NUSER 973 01554 7001 IAC /FUDGE LAST ENTRY IN TABLE 974 01555 3042 DCA USER+1 /NEW END OF TABLE 975 01556 4066 JMS IOSR /WRITE THE SEGMENT 976 01557 6211 CDF 10 /PUT A 7777 AT END OF CURRENT SEG. 977 01560 7240 CLA CMA 978 01561 3471 DCA I CTPTR 979 01562 6201 CDF 0 980 01563 5771 JMP I (DONE+1 /NOT DONE YET!! 981 982 01564 4772 END3, JMS I (SUB3 983 01565 5216 JMP END2 /AND RESUME THY WORK!!
/PDP-8 PS/8 CROSS REFERENCE PAL8-V7 4/20/71 PAGE 14 984 985 986 987 988 01566 0000 NUSER, 0 989 01567 0000 LIMIT, 0
/PDP-8 PS/8 CROSS REFERENCE PAL8-V7 4/20/71 PAGE 15 990 01571 1766 991 01572 0755 992 01573 4110 993 01574 1765 994 01575 1142 995 01576 1132 996 01577 2000 997 1600 *1600 998 999 /PASSN2 IS ENTERED WHEN WE HAVE COLLECTED SOME SORT OF A 1000 /SYMBOL AND IT IS NOT PASS ONE. WE HAVE TO MAKE SURE IT 1001 /IS A USER SYMBOL OR LITERAL. IF IT IS, WE HAVE TO ENTER 1002 /THE SEQUENCE # IN THE AREA SET UP FOR REFERENCES TO THIS 1003 /SYMBOL. ALSO, IF THE REFERENCE IS A DEFINITION, THE SECOND 1004 /LOCATION IN THE REFERENCE AREA IS LOADED WITH THE SEQUENCE 1005 /NO. OF THE LINE WE ARE DOING. 1006 1007 01600 4553 PASSN2, JMS I [SYMCHK 1008 01601 0041 USER /IS IT KNOWN TO US? 1009 01602 5537 JMP I [B /NO..BUT IT MIGHT BE IN A SEGMENT EITHER 1010 /ALREADY DONE OR YET TO BE DONE!! 1011 01603 4302 JMS TSTPRM /TEST FOR A PERMANENT SYMBOL 1012 01604 5537 JMP I [B /PERMANENT SYMBOL 1013 /NOTE:SAVE IS SET UP IN TSTPRM TO CONTAIN THE ADDRESS OF THE 1014 /INDEX WORD. WE USE THIS LATER ON 1015 1016 01605 4314 JMS GETFLD 1017 01606 3267 DCA CDFN /DETERMINE WHAT FIELD THIS SYMBOL HAS ITS 1018 /REFS IN AND FORM A CDF N 1019 01607 1023 TAD CHAR 1020 01610 1264 TAD MCOMMA /IS THIS A DEFINITION? 1021 01611 7440 SZA 1022 01612 1263 TAD MEQ /AN= MAYBE? 1023 01613 7650 SNA CLA 1024 01614 7001 IAC /ONE OR OTHER..MARK AS DEFINITION 1025 01615 3262 DCA DEF 1026 01616 6211 CDF 10 1027 01617 1425 TAD I SAVE /PICK UP POINTER TO REFERENCE AREA 1028 01620 3025 DCA SAVE 1029 01621 1267 TAD CDFN 1030 01622 3223 DCA .+1 1031 01623 7402 HLT /I HATED TO DO THIS!!! 1032 01624 1425 TAD I SAVE 1033 01625 7710 SPA CLA /IF THIS IS NEGATIVE, ITMEANS THAT THE 1034 /SEQUENCE NUMBER HAS WRAPPED AROUND, BUT WE HAVE 1035 /ALREADY MADE A 0 ENTRY TO SHOW THAT 1036 01626 5241 JMP P2 1037 01627 1050 TAD CONST /HAS THE SEQUENCE # WRAPPED? 1038 01630 7650 SNA CLA 1039 01631 5241 JMP P2 /NOT YET 1040 01632 4265 JMS REFENT /YES..MAKE A 0 ENTRY 1041 01633 1267 TAD CDFN 1042 01634 3235 DCA .+1 1043 01635 7402 HLT 1044 01636 1425 TAD I SAVE /MARK AS HAVING A 0 ENTRY
/PDP-8 PS/8 CROSS REFERENCE PAL8-V7 4/20/71 PAGE 15-1 1045 01637 1136 TAD [4000 1046 01640 3425 DCA I SAVE 1047 01641 6201 P2, CDF 0 1048 01642 1024 TAD SEQNO /NOW MAKE A REAL ENTRY 1049 01643 4265 JMS REFENT 1050 01644 1262 TAD DEF 1051 01645 7650 SNA CLA /SHOULD WE FILL IN THE DEFINITION LOC? 1052 01646 5537 JMP I [B /NO 1053 01647 7240 CLA CMA 1054 01650 1025 TAD SAVE /YES..POINT TO IT 1055 01651 3025 DCA SAVE 1056 01652 1267 TAD CDFN 1057 01653 3254 DCA .+1 1058 01654 7402 HLT /THIS IS SLOPPY, BUT SO AM I 1059 01655 1024 TAD SEQNO 1060 01656 7041 CIA 1061 01657 3425 DCA I SAVE 1062 01660 6201 CDFZ, CDF 0 1063 01661 5537 JMP I [B 1064 01662 0000 DEF, 0 1065 01663 7757 MEQ, -21 1066 01664 7524 MCOMMA, -254
/PDP-8 PS/8 CROSS REFERENCE PAL8-V7 4/20/71 PAGE 16 1067 1068 /REFENT, MAKES REFERENCES IN THE SYMBOLS AREA AND BUMPS THE 1069 /FIRST LOCATION TO POINT TO THE NEXT LOC. 1070 1071 01665 0000 REFENT, 0 1072 01666 3027 DCA TEMP1 /SAVE SEQNO 1073 01667 7402 CDFN, HLT 1074 01670 1425 TAD I SAVE 1075 01671 0142 AND [3777 /MASK OFF WRAP AROUND BIT 1076 01672 7041 CIA 1077 01673 1025 TAD SAVE /FORM ADDRESS OF THIS REFERENCE 1078 01674 3026 DCA TEMP 1079 01675 1027 TAD TEMP1 1080 01676 3426 DCA I TEMP 1081 01677 2425 ISZ I SAVE /BUMP POINTER 1082 01700 6201 CDF 0 1083 01701 5665 JMP I REFENT 1084 1085 /TSTPRM TESTS THE SYMBOL WE HAVE FOUND FOR BEING A PERMANENT SYMBOL 1086 /PERMANENT SYMBOLS ARE DISTINGUISHED BY HAVING THE 4000 BIT ON. 1087 1088 01702 0000 TSTPRM, 0 1089 01703 1056 TAD SYMADD 1090 01704 1152 TAD [3 1091 01705 3025 DCA SAVE /WE USE THIS ON RETURN!! 1092 01706 6211 CDF 10 1093 01707 1456 TAD I SYMADD 1094 01710 6201 CDF 0 1095 01711 7700 SMA CLA /IS IT MINUS? 1096 01712 2302 ISZ TSTPRM 1097 01713 5702 JMP I TSTPRM 1098 1099 /GETFLD DETERMINES WHAT FIELD A PARTICULAR SYMBOL HAS ITS 1100 /REFS IN. IT DOES IT BY COMPARING THE CURRENT SYMBOLS NUMBER 1101 /WITH THE ENTRIES IN THE BREAK TABLE. 1102 1103 01714 0000 GETFLD, 0 1104 01715 3051 DCA FLDPTR 1105 01716 1133 GF1, TAD [BREAK 1106 01717 1051 TAD FLDPTR /GET BREAK TABLE ENTRY 1107 01720 3026 DCA TEMP 1108 01721 1426 TAD I TEMP 1109 01722 7041 CIA 1110 01723 1057 TAD SYMNUM /SYMNUM WAS SET UP WHEN WE FOUND THE SYMBOL 1111 01724 7750 SPA SNA CLA 1112 01725 5330 JMP GF2 /FIRST NEG. VALUE GIVE FLDPTR 1113 01726 2051 ISZ FLDPTR /TRY NEXT 1114 01727 5316 JMP GF1 1115 01730 4332 GF2, JMS CHDF /FORM THE CDF N 1116 01731 5714 JMP I GETFLD 1117 1118 01732 0000 CHDF, 0 1119 01733 1051 TAD FLDPTR 1120 01734 7106 CLL RTL 1121 01735 7004 RAL
/PDP-8 PS/8 CROSS REFERENCE PAL8-V7 4/20/71 PAGE 16-1 1122 01736 1260 TAD CDFZ 1123 01737 5732 JMP I CHDF 1124 1125 01740 0000 SPACE, 0 /GENERATES AS MANY SPACES AS ARE IN AC 1126 01741 3332 DCA CHDF 1127 01742 1130 TAD [240 1128 01743 4574 JMS I [OCHAR 1129 01744 2332 ISZ CHDF 1130 01745 5342 JMP SPACE+2 1131 01746 5740 JMP I SPACE 1132 1133 01747 0000 CHECK, 0 1134 01750 1747 TAD I CHECK /SUBROUTINE TO TEST CHAR 1135 01751 7041 CIA /AGAINST PRESCRIBED LIMITS 1136 01752 1023 TAD CHAR 1137 01753 7100 CLL 1138 01754 1747 TAD I CHECK 1139 01755 2347 ISZ CHECK 1140 01756 1747 TAD I CHECK 1141 01757 2347 ISZ CHECK 1142 01760 7420 SNL 1143 01761 7610 SKP CLA /VERY UNESTHETIC..BUT IT WORKS! 1144 01762 7650 SNA CLA 1145 01763 2347 ISZ CHECK 1146 01764 5747 JMP I CHECK 1147 1148 01765 2065 DONE, ISZ FINI /SET COMPLETION FLAG 1149 01766 4527 JMS I [IOPEN /SET FOR REREAD 1150 01767 4777 JMS I (PTRSET /PREPARE REFERENCE AREAS 1151 01770 3024 DCA SEQNO /BACK TO BASICS 1152 01771 3050 DCA CONST 1153 01772 5776 JMP I (FIRST /READ FIRST RECORDS
/PDP-8 PS/8 CROSS REFERENCE PAL8-V7 4/20/71 PAGE 17 1154 1155 01776 2152 1156 01777 1337 1157 2000 *2000 1158 /DUMP DOES A LITTLE FORMATTING OF THE OUTPUT, AND DUMPS THE 1159 /CROSS REFERENCING TABLE ONTO THE OUTPUT DEVICE. 1160 /ANY FIDDLING WITH THE BUFFERS OR DEVICE HANDLERS WILL HAVE TO 1161 /BE DONE IN DUMP 1162 1163 1164 0063 COUNTR=BASE 1165 0066 REFBUF=IOSR 1166 0061 SCHAR=ADDER 1167 1168 02000 7240 DUMP, CLA CMA 1169 02001 3046 DCA PASSG1 /FORCES ANOTHER PASS AT ENDPAS 1170 02002 4571 JMS I [FORM /FIRST TIME THRU GETS A FORM FEED 1171 02003 3202 DCA .-1 /FUTURE PASSES DON'T 1172 02004 1042 TAD USER+1 1173 02005 7041 CIA 1174 02006 3063 DCA COUNTR /# SYMBOLS TO PROCESS NOW 1175 02007 1152 TAD [3 1176 02010 3060 DCA BUFFER /FIRST SYMBOL IS HERE 1177 02011 2075 DMP, ISZ LNPRPG /IS FORM FEED NEEDED? 1178 02012 7410 SKP /NOT YET 1179 02013 4571 JMS I [FORM 1180 02014 1163 DMP3, TAD [-3 1181 02015 3033 DCA SYMCNT /2 CHARACTERS PER PASS 1182 02016 3050 DCA CONST /RESET FOR <4096 1183 02017 1100 TAD M12 1184 02020 3356 DCA LINENO 1185 02021 2060 NXTDV, ISZ BUFFER 1186 02022 6211 CDF 10 1187 02023 1460 TAD I BUFFER /PICK UP PACKES WORD 1188 02024 6201 CDF 0 1189 02025 7510 SPA /PERMANENT SYMBOL? 1190 02026 5343 JMP DPERM /YES 1191 02027 4777 JMS I (DIVIDE /CONVERT 2 CHARS AND PRINT 1192 02030 2033 ISZ SYMCNT 1193 02031 5222 JMP NXTDV+1 1194 02032 1156 TAD [-4 1195 02033 4562 JMS I [SPACE /GENERATE(AC) SPACES 1196 02034 1060 TAD BUFFER 1197 02035 7112 CLL RTR /GET SYMBOL NUMBER 1198 02036 0132 AND [1777 1199 02037 3057 DCA SYMNUM 1200 02040 4776 JMS I (GETFLD 1201 02041 3245 DCA CDFNA /CDF N 1202 02042 6211 CDF 10 1203 02043 1460 TAD I BUFFER 1204 02044 3066 DCA REFBUF /BASE OF REFS FOR SYMBOL 1205 02045 7402 CDFNA, HLT 1206 02046 1466 TAD I REFBUF /IF THIS IS NEGATIVE, 1207 02047 7710 SPA CLA /WE LEFT A REF FOR A 0 ENTRY 1208 02050 1101 TAD M1 /IN THAT CASE,DON'T INCLUDE THAT ONE AS
/PDP-8 PS/8 CROSS REFERENCE PAL8-V7 4/20/71 PAGE 17-1 1209 02051 1145 TAD [-2 /A REAL ENTRY. 1210 02052 3033 DCA SYMCNT 1211 02053 1466 TAD I REFBUF 1212 02054 0142 AND [3777 /NOW CALCULATE REAL NO. ENTRIES 1213 02055 1033 TAD SYMCNT 1214 02056 7041 CIA 1215 02057 3033 DCA SYMCNT 1216 02060 7240 CLA CMA 1217 02061 1066 TAD REFBUF 1218 02062 3066 DCA REFBUF 1219 02063 1466 TAD I REFBUF /SEQUENCE # OF DEF. 1220 02064 3355 DCA DEFSEQ 1221 02065 7240 DMP2, CLA CMA 1222 02066 1066 TAD REFBUF 1223 02067 3066 DCA REFBUF 1224 02070 1245 TAD CDFNA 1225 02071 3272 DCA .+1 1226 02072 7402 HLT 1227 02073 1466 TAD I REFBUF /PICK UP A REFERENCE 1228 02074 1355 TAD DEFSEQ /IS THIS THE DEF? 1229 02075 7650 SNA CLA 1230 02076 1152 TAD [3 /YES..PRINT # AFTER SEQ # 1231 02077 1130 TAD [240 /IF NO, PRINT 2 SPACES 1232 02100 3061 DCA SCHAR 1233 02101 1466 TAD I REFBUF 1234 02102 7640 SZA CLA /IF A 0, ALL FOLLOWING REFS ARE >4095 1235 02103 5307 JMP .+4 1236 02104 1165 TAD [140 1237 02105 3050 DCA CONST 1238 02106 5265 JMP DMP2 /IGNORE ZERO ENTRY!! 1239 02107 1466 TAD I REFBUF 1240 02110 6201 CDF 0 1241 02111 4775 JMS I (CVTSEQ /WRITE THE DECIMAL SEQUENCE # 1242 02112 1061 TAD SCHAR 1243 02113 4574 JMS I [OCHAR /EITHER # OR SPACE 1244 02114 7240 CLA CMA 1245 02115 4562 JMS I [SPACE 1246 02116 2033 ISZ SYMCNT /MORE TO DO? 1247 02117 5326 JMP DMP0 /NO, BUT IS CR/LF REQUIRED? 1248 02120 2063 GETMOR, ISZ COUNTR /EXHAUSTED ALL SYMBOLS? 1249 02121 5341 JMP DMP5 1250 02122 1065 TAD FINI /YES..ARE WE ALL DONE 1251 02123 7650 SNA CLA 1252 02124 5566 JMP I [ENDPAS /NO..READ IN NEXT SEGMENT 1253 02125 5774 JMP I (OCLOSE 1254 1255 02126 2356 DMP0, ISZ LINENO /A CR/LF NEEDED? 1256 02127 5265 JMP DMP2 1257 02130 1100 TAD M12 1258 02131 3356 DCA LINENO /RESET ENTRIES PER LINE 1259 02132 2075 ISZ LNPRPG /FORM FEED? 1260 02133 7410 SKP 1261 02134 4571 JMS I [FORM 1262 02135 4773 JMS I (CRLF 1263 02136 1100 TAD M12 /AND INDENT NEXT LINE
/PDP-8 PS/8 CROSS REFERENCE PAL8-V7 4/20/71 PAGE 17-2 1264 02137 4562 JMS I [SPACE 1265 02140 5265 JMP DMP2 1266 1267 02141 4773 DMP5, JMS I (CRLF 1268 02142 5211 JMP DMP 1269 1270 02143 7200 DPERM, CLA 1271 02144 1152 TAD [3 /PERMANENT SYMBOL 1272 02145 1060 TAD BUFFER 1273 02146 3060 DCA BUFFER /LOOK AT NEXT 1274 02147 2063 ISZ COUNTR 1275 02150 5221 JMP NXTDV 1276 02151 5322 JMP GETMOR+2 1277 1278 1279 02152 4772 FIRST, JMS I (ASHDLR /RESET INPUT FOR READ 1280 02153 4771 JMS I (RDREC /AND READ SOME RECORDS 1281 02154 5770 JMP I (NXTLIN /START READING TEXT 1282 1283 02155 0000 DEFSEQ, 0 1284 02156 7766 LINENO, -12 1285 02157 0000 PASTST, 0 /SR WHICH DETERMINE IF PASS > 1 1286 02160 1046 TAD PASSG1 1287 02161 7710 SPA CLA /IF >0=> PASS >1 1288 02162 2357 ISZ PASTST 1289 02163 5757 JMP I PASTST
/PDP-8 PS/8 CROSS REFERENCE PAL8-V7 4/20/71 PAGE 18 1290 02170 0404 1291 02171 2712 1292 02172 2672 1293 02173 2523 1294 02174 2400 1295 02175 0451 1296 02176 1714 1297 02177 2532 1298 2200 *2200 1299 1300 /I/O ROUTINES FOR PS/8 1301 1302 02200 0000 OUSETP, 0 1303 02201 1377 TAD (OUCTL&3700 1304 02202 7041 CIA 1305 02203 3270 DCA OUDWCT /SIZE OF BUFF IN DOUBLEWORDS 1306 02204 1376 TAD (OUBUF 1307 02205 3266 DCA OUPTR /INITIALIZE POINTER 1308 02206 1267 TAD OUJMPE 1309 02207 3225 DCA OUJMP /RESET 3 WAY SWITCH 1310 02210 5600 JMP I OUSETP 1311 1312 02211 0000 OCHAR, 0 1313 02212 0375 AND (377 /CALLED WITH CHARACTER IN AC 1314 02213 3264 DCA OUTEMP 1315 02214 4564 JMS I [PASTST 1316 02215 5611 JMP I OCHAR 1317 02216 6034 OUTSW, KRS /TEST FOR ^C WITH FLAG ON 1318 02217 1374 TAD (-203 1319 02220 7650 SNA CLA 1320 02221 6031 KSF 1321 02222 5224 JMP .+2 1322 02223 5526 JMP I [7600 /SAVE CORE FOR SOME REASON 1323 02224 2225 OUCHAR, ISZ OUJMP /BUMP 3 WAY SWAITCH 1324 02225 7402 OUJMP, HLT 1325 02226 5261 JMP OCHAR1 1326 02227 5256 JMP OCHAR2 1327 02230 1264 OCHAR3, TAD OUTEMP /PICK UP CHARACTER 1328 02231 7106 CLL RTL 1329 02232 7006 RTL 1330 02233 0373 AND (7400 /3RD WORD MERGED INTO 2 BUFFER WORDS 1331 02234 1665 TAD I OUPOLD 1332 02235 3665 DCA I OUPOLD 1333 02236 1264 TAD OUTEMP 1334 02237 7112 CLL RTR 1335 02240 7012 RTR 1336 02241 7010 RAR 1337 02242 0373 AND (7400 1338 02243 1666 TAD I OUPTR 1339 02244 3666 DCA I OUPTR 1340 02245 1267 TAD OUJMPE 1341 02246 3225 DCA OUJMP /RESET FOR NEW SET OF 3 CHARS 1342 02247 2266 ISZ OUPTR /BUMP BUFFER POINTER 1343 1344 02250 2270 ISZ OUDWCT
/PDP-8 PS/8 CROSS REFERENCE PAL8-V7 4/20/71 PAGE 18-1 1345 02251 5263 JMP OUCOMN 1346 02252 1271 TAD OUCT /YEP 1347 02253 4336 JMS OUTDMP /WRITE IT 1348 02254 4200 JMS OUSETP /RESET OUT BUFFER 1349 02255 5611 JMP I OCHAR 1350 02256 1266 OCHAR2, TAD OUPTR 1351 02257 3265 DCA OUPOLD /FOR LATER 1352 02260 2266 ISZ OUPTR /SECOND WORD GOES HERE 1353 02261 1264 OCHAR1, TAD OUTEMP 1354 02262 3666 DCA I OUPTR 1355 02263 5611 OUCOMN, JMP I OCHAR 1356 1357 1358 02264 0000 OUTEMP, 0 /TEMP STORE 1359 02265 0000 OUPOLD, 0 /HOLDS OLD POINTER 1360 02266 0000 OUPTR, 0 1361 02267 5225 OUJMPE, JMP OUJMP 1362 02270 0000 OUDWCT, 0 1363 1364 02271 4200 OUCT, OUCTL
/PDP-8 PS/8 CROSS REFERENCE PAL8-V7 4/20/71 PAGE 19 1365 1366 1367 02272 0000 OOPEN, 0 /OPEN AN OUTPUT FILE;FETCH HANDLER 1368 02273 1372 TAD (OFILE 1369 02274 3315 DCA OUBLK /POINT TO FILE NAME 1370 02275 1371 TAD (OUDEVH+1 1371 02276 3305 DCA OUHNDL /LEAVE ROOM FOR 2 PAGE HANDLER 1372 02277 6211 CDF 10 1373 02300 1526 TAD I [7600 /OUTPUT DEVICE # 1374 02301 6201 CDF 0 1375 02302 6212 CIF 10 1376 02303 4452 JMS I USR /ASSIGN,FETCH HANDLER 1377 02304 0001 1 1378 02305 7402 OUHNDL, HLT /GETS ENTRY POINT OF HANDLER 1379 02306 5576 JMP I [ERROR /HANDLER FAILURE 1380 02307 6211 OUENTR, CDF 10 1381 02310 1526 TAD I [7600 1382 02311 6201 CDF 0 1383 02312 6212 CIF 10 1384 02313 4525 JMS I [200 1385 02314 0003 3 /ENTER OUTPUT FILE 1386 02315 2460 OUBLK, OFILE 1387 02316 0000 OUELEN, 0 /RETURNS WITH LENGTH OF HOLE 1388 02317 5325 JMP OEFAIL 1389 02320 3770 DCA I (OUCCNT 1390 02321 1315 TAD OUBLK /STARTING RECORD 1391 02322 3353 DCA OUREC 1392 02323 4200 JMS OUSETP /SETUP OUTPUT AREA 1393 02324 5672 JMP I OOPEN 1394 1395 02325 6211 OEFAIL, CDF 10 1396 02326 1526 TAD I [7600 1397 02327 0367 AND (7760 /GET LENGTH PART 1398 02330 7650 SNA CLA /WAS IT 0? 1399 02331 5362 JMP ERR3 /YEP..HE LOSES 1400 02332 1526 TAD I [7600 1401 02333 0124 AND [17 /TRY WITH INDETERMINATE LENGTH 1402 02334 3526 DCA I [7600 1403 02335 5307 JMP OUENTR 1404 1405 02336 0000 OUTDMP, 0 /WRITE ACTUAL OUTPUT 1406 02337 3351 DCA OUCTLW 1407 02340 4766 JMS I (OUNREC /FIGURE # RECS TO WRITE 1408 02341 1770 TAD I (OUCCNT 1409 02342 3770 DCA I (OUCCNT /UPDATE CLOSE LENGTH 1410 02343 1770 TAD I (OUCCNT 1411 02344 7120 CLL CML 1412 02345 1316 TAD OUELEN /ROOM FOR THIS WRITE? 1413 02346 7620 SNL CLA 1414 02347 5361 JMP ERR4 /HE LOSES 1415 02350 4705 JMS I OUHNDL /NJ WRITE IT 1416 02351 0000 OUCTLW, 0 1417 02352 7200 OUBUF 1418 02353 0000 OUREC, 0 1419 02354 5576 JMP I [ERROR /A HANDLER BADNESS
/PDP-8 PS/8 CROSS REFERENCE PAL8-V7 4/20/71 PAGE 19-1 1420 02355 4766 JMS I (OUNREC 1421 02356 1353 TAD OUREC /UPDATE OUTPUT RECORD # 1422 02357 3353 DCA OUREC 1423 02360 5736 JMP I OUTDMP 1424 1425 02361 7001 ERR4, IAC /NO ROOM FOR OUTPUT 1426 02362 7001 ERR3, IAC 1427 02363 1134 ERR2, TAD [2 1428 02364 6201 CDF 0 1429 02365 5576 JMP I [ERROR
/PDP-8 PS/8 CROSS REFERENCE PAL8-V7 4/20/71 PAGE 20 1430 1431 02366 2440 1432 02367 7760 1433 02370 2433 1434 02371 3601 1435 02372 2460 1436 02373 7400 1437 02374 7575 1438 02375 0377 1439 02376 7200 1440 02377 0200 1441 2400 *2400 1442 02400 1377 OCLOSE, TAD (232 1443 02401 4574 JMS I [OCHAR 1444 02402 4574 JMS I [OCHAR 1445 02403 4574 FILLIP, JMS I [OCHAR /FILL WITH 0'S 1446 02404 4247 JMS OTYPE 1447 02405 7710 M70, SPA CLA /IF DIRECTOR DEVICE, WHOLE REB;ELSE HALF 1448 02406 1376 TAD (100 1449 02407 1143 TAD [77 1450 02410 0775 AND I (OUDWCT 1451 02411 7640 SZA CLA /TO BOUNDARY YET? 1452 02412 5203 JMP FILLIP /NO..KEEP FILLING 1453 02413 1775 TAD I (OUDWCT 1454 02414 1374 TAD (OUCTL&3700 1455 02415 7450 SNA /FULL WRITE LEFT? 1456 02416 5221 JMP NODUMP /YES..BUT ^Z IS OUT 1457 02417 1373 TAD (4000+OUFLD /FORM WRITE 1458 02420 4772 JMS I (OUTDMP 1459 02421 6212 NODUMP, CIF 10 1460 02422 4452 JMS I USR 1461 02423 0010 10 /LOCK IN MONITOR 1462 02424 6211 CDF 10 1463 02425 1526 TAD I [7600 1464 02426 6201 CDF 0 1465 02427 6212 CIF 10 1466 02430 4525 JMS I [200 1467 02431 0004 4 /CLOSE OUTPUT FILE 1468 02432 2460 OFILE /POINTER TO FILE NAME 1469 02433 0000 OUCCNT, 0 /CLOSING LDNGTH 1470 02434 5236 JMP ERR5 /SORRY 1471 02435 5572 JMP I [7605 1472 1473 02436 1371 ERR5, TAD (5 1474 02437 5576 JMP I [ERROR 1475 1476 02440 0000 OUNREC, 0 /ESTIMATE # RECS 1477 02441 1770 TAD I (OUCTLW 1478 02442 7106 CLL RTL 1479 02443 7006 RTL 1480 02444 7006 RTL /ITS NOT AN ESTIMATE, BUT EXACT!! 1481 02445 0124 AND [17 1482 02446 5640 JMP I OUNREC 1483 1484 02447 0000 OTYPE, 0
/PDP-8 PS/8 CROSS REFERENCE PAL8-V7 4/20/71 PAGE 20-1 1485 02450 6211 CDF 10 1486 02451 1526 TAD I [7600 /DETERMINE WHAT TYPE OF DEVICE 1487 02452 0124 AND [17 1488 7760 DCB=7760 1489 02453 1367 TAD (DCB-1 1490 02454 3264 DCA FORM 1491 02455 1664 TAD I FORM /CHECK DEVICE CONTROL BLOCK 1492 02456 6201 CDF 0 1493 02457 5647 JMP I OTYPE 1494 02460 0000 OFILE, ZBLOCK 4 /OUTPUT FILE NAME GOES HERE 1495 1496 02464 0000 FORM, 0 /GENERATE 214 IF NOT TTY 1497 02465 4564 JMS I [PASTST /IF PASS>1, NO FORM FEED 1498 02466 5664 JMP I FORM 1499 02467 1331 TAD TTYSWT 1500 02470 7640 SZA CLA 1501 02471 5317 JMP FORM2 1502 02472 1075 TAD LNPRPG /FILL TO END OF PAGE 1503 02473 7450 SNA /IF 0, GENERATE 8 LINE FEEDS 1504 02474 1156 TAD [-4 1505 02475 3022 DCA COUNT 1506 02476 4323 JMS CRLF / 1507 02477 2022 ISZ COUNT 1508 02500 5326 JMP CRLF1 /HA! GENERATE EXTRA LINE FEED!! 1509 02501 1175 TAD [-6 1510 02502 3022 DCA COUNT 1511 02503 1123 TAD ["- /GENERATE ------ 1512 02504 4574 JMS I [OCHAR 1513 02505 2022 ISZ COUNT 1514 02506 5303 JMP .-3 1515 02507 1156 TAD [-4 1516 02510 3022 DCA COUNT 1517 02511 4323 FORM3, JMS CRLF 1518 02512 2022 ISZ COUNT 1519 02513 5326 JMP CRLF1 1520 02514 1205 TAD M70 /WATCH IT M70=SPA CLA 1521 02515 3075 DCA LNPRPG /RESET TO TOP OF PAGE 1522 02516 5664 JMP I FORM 1523 1524 02517 7240 FORM2, CLA CMA 1525 02520 3022 DCA COUNT 1526 02521 7040 CMA 1527 02522 5311 JMP FORM3 /USE [215 TO GENERATE A 214 1528 1529 02523 0000 CRLF, 0 /GENERATE CRRIAGE RET AND LINE FEED 1530 02524 1122 TAD [215 1531 02525 4574 JMS I [OCHAR 1532 02526 1121 CRLF1, TAD [212 1533 02527 4574 JMS I [OCHAR 1534 02530 5723 JMP I CRLF 1535 1536 02531 0000 TTYSWT, 0 1537 1538 02532 0000 DIVIDE, 0 1539 02533 3362 DCA DIV45B
/PDP-8 PS/8 CROSS REFERENCE PAL8-V7 4/20/71 PAGE 20-2 1540 02534 3363 DCA DIV45C 1541 02535 5340 JMP DIV45D /START UP HERE 1542 1543 02536 2363 DIV45A, ISZ DIV45C /BUMP THE QUOTIENT 1544 02537 3362 DCA DIV45B /NEW DIVIDEND 1545 02540 1362 DIV45D, TAD DIV45B 1546 02541 1366 TAD (-52 /DIVIDE BY 52 1547 02542 7500 SMA 1548 02543 5336 JMP DIV45A /STILL +; KEEP LOOPING 1549 02544 1365 TAD (52 /REMAINDER IN AC AFTER ADD 1550 02545 7450 SNA 1551 02546 5350 JMP DIVOUT /IF 0, MAKE CHARACTER A SPACE 1552 02547 4764 JMS I (DIVE /LETTER OR NUMBER? 1553 02550 1130 DIVOUT, TAD [240 1554 02551 3362 DCA DIV45B 1555 02552 1363 TAD DIV45C 1556 02553 4764 JMS I (DIVE 1557 02554 1130 TAD [240 1558 02555 4574 JMS I [OCHAR 1559 02556 1362 TAD DIV45B 1560 02557 4574 JMS I [OCHAR 1561 02560 2060 ISZ BUFFER 1562 02561 5732 JMP I DIVIDE 1563 1564 1565 02562 0000 DIV45B, 0 1566 02563 0000 DIV45C, 0
/PDP-8 PS/8 CROSS REFERENCE PAL8-V7 4/20/71 PAGE 21 1567 1568 02564 1152 1569 02565 0052 1570 02566 7726 1571 02567 7757 1572 02570 2351 1573 02571 0005 1574 02572 2336 1575 02573 4000 1576 02574 0200 1577 02575 2270 1578 02576 0100 1579 02577 0232 1580 2600 *2600 1581 02600 0000 IOPEN, 0 1582 02601 7240 CLA CMA 1583 02602 3265 DCA INCHCT /FORCE READ OF NEW FILE 1584 02603 2267 ISZ INEOF 1585 02604 1377 TAD (7617 1586 02605 3266 DCA INFPTR 1587 02606 5600 JMP I IOPEN 1588 1589 02607 4200 INPTR, INBUF 1590 1591 02610 0000 ICHAR, 0 1592 02611 2227 INCHAR, ISZ INJMP /PACKING SWITCH 1593 02612 2265 ISZ INCHCT /BUFFER EXHAUSTED? 1594 02613 5227 INJMPP, JMP INJMP /NOPE 1595 02614 1267 TAD INEOF /WAS LAST AN EOF? 1596 02615 7650 SNA CLA 1597 02616 5225 JMP INGBUF /NO..GET NEXT INPUT 1598 02617 6211 INNEWF, CDF 10 1599 02620 1666 TAD I INFPTR 1600 02621 6201 CDF 0 1601 02622 7650 SNA CLA /MORE INPUT? 1602 02623 5610 JMP I ICHAR /NO..EOF RETURN 1603 1604 02624 4272 JMS ASHDLR /SET UP STRT RECORD 1605 02625 4312 INGBUF, JMS RDREC /AND READ SOME RECORDS 1606 02626 5211 JMP INCHAR 1607 /THIS IS DONE TO OPTIMIZE THE DECTAPE 1608 /ROCKING. INITIALIZATION DOES THESE 1609 /THE FIRST TIME. 1610 1611 1612 02627 5227 INJMP, JMP . /3 WAY SWITCH 1613 02630 5251 JMP ICHAR1 1614 02631 5245 JMP ICHAR2 1615 02632 1213 ICHAR3, TAD INJMPP 1616 02633 3227 DCA INJMP 1617 02634 1607 TAD I INPTR 1618 02635 0376 AND (7400 /CONTENTS OF BUFFER 1619 02636 7112 CLL RTR 1620 02637 7012 RTR 1621 02640 1331 TAD INCTLW
/PDP-8 PS/8 CROSS REFERENCE PAL8-V7 4/20/71 PAGE 21-1 1622 02641 7012 RTR 1623 02642 7012 RTR /GETS THIRD WORD FROM 1 AND 2 1624 02643 2207 ISZ INPTR /NEXT BUFFER LOC 1625 02644 5252 JMP INCOMN 1626 02645 1607 ICHAR2, TAD I INPTR 1627 02646 0376 AND (7400 1628 02647 3331 DCA INCTLW /TEMP SAVE 1629 02650 2207 ISZ INPTR 1630 02651 1607 ICHAR1, TAD I INPTR 1631 02652 0375 INCOMN, AND (177 /PARITY TEST 1632 02653 7450 SNA /IF 200 CODE..IGNORE IT 1633 02654 5211 JMP INCHAR 1634 02655 1125 TAD [200 1635 02656 1374 TAD (-232 /IS IT ^Z? 1636 02657 7450 SNA 1637 02660 5610 JMP I ICHAR /YES..NOMMORE!! 1638 02661 1373 TAD (232 1639 02662 2210 ISZ ICHAR /SKIP EOF RETTRN 1640 02663 3023 DCA CHAR 1641 02664 5610 JMP I ICHAR 1642 02665 0000 INCHCT, 0 1643 02666 7617 INFPTR, 7617 1644 02667 0000 INEOF, 0 1645 02670 0000 INCTR, 0 1646 02671 0000 INHAND, 0 1647 1648 02672 0000 ASHDLR, 0 1649 1650 02673 6211 CDF 10 1651 02674 1666 TAD I INFPTR 1652 02675 0372 AND (7760 /LENGTH PART OF WORD 1653 02676 7440 SZA /0 IMPLIES .GTE. 256 1654 02677 1124 TAD [17 1655 02700 7132 CLL CML RTR 1656 02701 7012 RTR 1657 02702 3270 DCA INCTR 1658 02703 2266 ISZ INFPTR /BUMP TO NEXT 1659 02704 1666 TAD I INFPTR /GET STARTING RECORD 1660 02705 3333 DCA INREC 1661 02706 2266 ISZ INFPTR 1662 02707 3267 DCA INEOF 1663 02710 6201 CDF 0 1664 02711 5672 JMP I ASHDLR 1665 1666 02712 0000 RDREC, 0 1667 02713 1270 TAD INCTR 1668 02714 7100 CLL 1669 02715 1371 TAD (INRECS /LINK ON IF OVERFLOW AND LAST READ 1670 02716 7420 SNL 1671 02717 3270 DCA INCTR /UPDATE IF NO OVERFLOW 1672 02720 7430 SZL 1673 02721 2267 ISZ INEOF 1674 02722 7172 CLL CML CMA RTR /CONTROL WORD FROM OVERFLOW 1675 02723 7012 RTR 1676 02724 7012 RTR
/PDP-8 PS/8 CROSS REFERENCE PAL8-V7 4/20/71 PAGE 21-2 1677 02725 1370 TAD (INCTL+1 1678 02726 3331 DCA INCTLW 1679 02727 6201 CDF 0 1680 02730 4671 JMS I INHAND 1681 02731 0000 INCTLW, 0 1682 02732 4200 INBUFP, INBUF 1683 02733 0000 INREC, 0 1684 02734 5354 JMP INERRX /FATAL OR EOF 1685 02735 1333 INBREC, TAD INREC 1686 02736 1371 TAD (INRECS 1687 02737 3333 DCA INREC /UPDATE # READ 1688 02740 1331 TAD INCTLW 1689 02741 0126 AND [7600 1690 02742 7104 CLL RAL 1691 02743 1331 TAD INCTLW 1692 02744 0126 AND [7600 1693 02745 7040 CMA 1694 02746 3265 DCA INCHCT /NEW CHARACTER COUNT 1695 02747 1213 TAD INJMPP 1696 02750 3227 DCA INJMP 1697 02751 1332 TAD INBUFP 1698 02752 3207 DCA INPTR 1699 02753 5712 JMP I RDREC 1700 1701 02754 2267 INERRX, ISZ INEOF /FATAL OR EOF 1702 02755 7700 SMA CLA 1703 02756 5335 JMP INBREC /EOF..NEXT FILE 1704 02757 1367 TAD (6 1705 02760 5576 JMP I [ERROR 1706 1707 02761 0000 TTYPRT, 0 /SIMPLE TTY OUTPUT ROUTINE 1708 02762 6046 TLS 1709 02763 6041 TSF 1710 02764 5363 JMP .-1 1711 02765 7200 CLA 1712 02766 5761 JMP I TTYPRT
/PDP-8 PS/8 CROSS REFERENCE PAL8-V7 4/20/71 PAGE 22 1713 1714 1715 02767 0006 1716 02770 0601 1717 02771 0003 1718 02772 7760 1719 02773 0232 1720 02774 7546 1721 02775 0177 1722 02776 7400 1723 02777 7617 1724 3000 *3000 1725 03000 0521 MSGTBL, "H-300^R+"A-300 /HANDLER FAIL 1726 03001 1120 "N-300^R+"D-300 1727 03002 0775 "L-300^R+"E-300 1728 03003 1364 "R-300^R 1729 03004 0375 "F-300^R+"A-300 1730 03005 0606 "I-300^R+"L-300 1731 1732 03006 1467 "S-300^R+"Y-300 1733 03007 1042 "M-300^R 1734 03010 1214 "O-300^R+"V-300 1735 03011 0344 "E-300^R+"R-300 1736 03012 0410 "F-300^R+"L-300 1737 03013 1215 "O-300^R+"W-300 1738 1739 03014 0255 "D-300^R+"E-300 /DEV LPT BAD 1740 03015 1634 "V-300^R 1741 03016 1010 "L-300^R+"P-300 1742 03017 1510 "T-300^R 1743 03020 0125 "B-300^R+"A-300 1744 03021 0250 "D-300^R 1745 1746 03022 0340 "E-300^R+"N-300 1747 03023 1515 "T-300^R+"E-300 1748 03024 1364 "R-300^R 1749 03025 0375 "F-300^R+"A-300 1750 03026 0606 "I-300^R+"L-300 1751 03027 0326 "E-300^R+"D-300 1752 1753 03030 1213 "O-300^R+"U-300 1754 03031 1510 "T-300^R 1755 03032 0255 "D-300^R+"E-300 1756 03033 1634 "V-300^R 1757 03034 0421 "F-300^R+"U-300 1758 03035 1004 "L-300^R+"L-300 1759 1760 03036 0212 "C-300^R+"L-300 1761 03037 1211 "O-300^R+"S-300 1762 03040 0322 "E-300^R 1763 03041 0375 "F-300^R+"A-300 1764 03042 0606 "I-300^R+"L-300 1765 03043 0326 "E-300^R+"D-300 1766 1767 03044 0610 "I-300^R+"N-300
/PDP-8 PS/8 CROSS REFERENCE PAL8-V7 4/20/71 PAGE 22-1 1768 03045 1265 "P-300^R+"U-300 1769 03046 1510 "T-300^R 1770 03047 0344 "E-300^R+"R-300 1771 03050 1403 "R-300^R+"O-300 1772 03051 1364 "R-300^R 1773 1774 03052 2664 2664 /2045 REFS 1775 03053 3015 3015 1776 03054 0022 "R-300 1777 03055 0330 "E-300^R+"F-300 1778 03056 1436 "S-300^R 1779 03057 0000 0 1780 1781 /LITERAL PROCESSORS. LITERALS ARE HANDLED ACCORDING TO THEIR 1782 /BINARY DEFINITION. A CURRENT PAGE LITERAL AT,SAY, 0377 WILL 1783 /BE CALLED _L0377. A PAGE ZERO LITERAL AT LOCATION 0100 WILL 1784 /BE CALLED _L0100 1785 1786 03060 1377 LIT2, TAD (2540 /PAGE 0..FIRST NUMBER ALWAYS 0 1787 03061 3037 DCA SYM2 /_L GOES IN SYM1 FOR BOTH 1788 03062 2034 ISZ ISYM 1789 03063 2034 ISZ ISYM /POINT TO SYM3 FOR LAST 2 DIGITS 1790 03064 5276 JMP LIT3 /COMMON CODE 1791 03065 1021 LIT1, TAD MARGIN /CURRENT PAGE..GET PAGE DIGITS FIRST 1792 03066 4776 JMS I (VTST /VTST TESTS FOR THE VERSION OF 1793 /OF PAL8 BEING USED, THEN DESTROYS 1794 /THE CALL, LEAVING EITHER NOP OR IAC 1795 03067 3011 DCA XRLIT 1796 03070 2034 ISZ ISYM /POINT TO SECOND WORD 1797 03071 1411 TAD I XRLIT /FIRST BINARY DIGIT 1798 03072 4544 JMS I [PACK 1799 03073 1411 TAD I XRLIT 1800 03074 0375 AND (266 /THIS KNOCKS OFF RELATIVE ADDRESS BIT 1801 03075 4544 JMS I [PACK /GOES INTO RIGHT HALF OF SYM2 1802 03076 1030 LIT3, TAD DSWIT /IF /D, DON'T CREF LITERALS 1803 03077 7640 SZA CLA 1804 03100 5320 JMP LITEX /DON'T DO ANYTHING BUT CLEAR COUNTERS 1805 03101 1374 TAD (LITBUF /NOW PICK UP RELATIVE ADD BIT FROM INSTRUCT. 1806 03102 4776 JMS I (VTST 1807 03103 3011 DCA XRLIT 1808 03104 1411 TAD I XRLIT 1809 03105 0373 AND (1 1810 03106 1037 TAD SYM2 1811 03107 3037 DCA SYM2 /FORMING ADDRESS OF LITERAL! 1812 03110 1411 TAD I XRLIT 1813 03111 4544 JMS I [PACK 1814 03112 1411 TAD I XRLIT 1815 03113 4544 JMS I [PACK /LOAD UP SYM3 1816 03114 1120 TAD [2442 1817 03115 3036 DCA SYM1 /PUT IN _L (NEGATIVE!) 1818 03116 4772 JMS I (REPACK 1819 1820 03117 5771 JMP I (USSYM /DO THE BOOKKEEPING 1821 03120 4772 LITEX, JMS I (REPACK 1822 03121 5537 JMP I [B
/PDP-8 PS/8 CROSS REFERENCE PAL8-V7 4/20/71 PAGE 22-2 1823
/PDP-8 PS/8 CROSS REFERENCE PAL8-V7 4/20/71 PAGE 23 1824 03122 0000 GETLIN, 0 /GET A LINE OF INPUT AND STORE 1825 03123 1021 TAD MARGIN /IT AT LINBUF 1826 03124 3010 DCA XRLINE 1827 03125 4517 INLINE, JMS I [ICHAR 1828 03126 5566 JMP I [ENDPAS 1829 03127 1023 TAD CHAR /LINE FEED TERMINATES THIS ROUTINE 1830 03130 1032 TAD MLF 1831 03131 7650 SNA CLA 1832 03132 5325 JMP INLINE /IGNORE LF'S ON INPUT 1833 03133 1023 TAD CHAR 1834 03134 4502 JMS I FPUT /EITHER DCA I XRLINE...OR JMS I [OCHAR 1835 03135 1023 TAD CHAR 1836 03136 1161 TAD [-215 1837 03137 7450 SNA 1838 03140 5353 JMP GLIN4 /OUTPUT MUST SEE LINE FEED 1839 03141 7001 IAC /IF FORM FEED, MAKE A NEW LINE 1840 03142 7650 SNA CLA 1841 03143 5351 JMP GLIN3 1842 03144 1010 TAD XRLINE 1843 03145 1370 TAD (-375 1844 03146 7710 SPA CLA 1845 03147 5325 JMP INLINE 1846 03150 5354 JMP GLIN4+1 /IF OVERFLOW, WE WRITE A NULL 1847 /CHARACTER INTO BUFFER. THIS 1848 /PREVENTS MESSY LISTING FILE. 1849 03151 1122 GLIN3, TAD [215 1850 03152 4502 JMS I FPUT 1851 03153 1121 GLIN4, TAD [212 1852 03154 4502 JMS I FPUT 1853 03155 1021 TAD MARGIN 1854 03156 3010 DCA XRLINE 1855 03157 6031 KSF /TEST FOR ^C 1856 03160 5722 JMP I GETLIN /FLAG NOT UP 1857 03161 6034 KRS 1858 03162 1367 TAD (-203 1859 03163 7650 SNA CLA 1860 03164 5572 JMP I [7605 /FOUND ^C 1861 03165 5722 JMP I GETLIN 1862 1863 1864 /THIS INITIALIZATION CODE IS DESTROYED WHEN DATA IS READ 1865 /INTO THE BUFFER. FOR THAT REASON, CREF IS NOT RESTARTABLE 1866 1867 03167 7575 1868 03170 7403 1869 03171 0661 1870 03172 0737 1871 03173 0001 1872 03174 0250 1873 03175 0266 1874 03176 6053 1875 03177 2540 1876 4000 *4000 1877 04000 6201 ST1, CDF 0 1878 04001 6212 CIF 10
/PDP-8 PS/8 CROSS REFERENCE PAL8-V7 4/20/71 PAGE 23-1 1879 04002 4452 JMS I USR 1880 04003 0005 5 1881 04004 1423 1423 /DEFAULT EXTENSION IS .LS 1882 04005 6211 CHAIN, CDF 10 1883 04006 1777 TAD I (7617 /IF NO INPUT, RESTART CD 1884 04007 7650 SNA CLA 1885 04010 5200 JMP ST1 1886 04011 1526 TAD I [7600 /IF NO OUTPUT, GIVE HIM LPT!! 1887 04012 7640 SZA CLA 1888 04013 5227 JMP ST2 1889 04014 6201 CDF 0 1890 04015 6212 CIF 10 1891 04016 4525 JMS I [200 1892 04017 0012 12 /ASSIGN-NO FETCH 1893 04020 1420 1420 1894 04021 2400 DEVS, 2400 1895 04022 0000 0 1896 04023 5351 JMP ERRTWO /DEFAULT DEVICE IS BAD 1897 04024 1221 TAD DEVS 1898 04025 6211 CDF 10 1899 04026 3526 DCA I [7600 1900 04027 7201 ST2, CLA IAC 1901 04030 0776 AND I (7644 /TEST FOR /X 1902 04031 3030 DCA DSWIT 1903 04032 1776 TAD I (7644 1904 04033 0375 AND (400 /P USED? 1905 04034 7650 SNA CLA 1906 04035 5241 JMP ST3 1907 04036 6201 CDF 0 1908 04037 1350 TAD KILOUT /YES..DISABLE PASR ONE OUTPUT 1909 04040 3774 DCA I (OUTSW 1910 04041 6211 ST3, CDF 10 1911 04042 1776 TAD I (7644 1912 04043 6201 CDF 0 1913 04044 0373 AND (100 /IF SABR, SET RSWIT AND DSWIT 1914 04045 7650 SNA CLA 1915 04046 5253 JMP BLUE0 /PAL8 1916 04047 2031 ISZ RSWIT 1917 04050 2030 ISZ DSWIT 1918 04051 3772 DCA I (NOFORM 1919 04052 3771 DCA I (SCAN3 /ENABLE CHECK FOR SABR CHARS 1920 04053 1156 BLUE0, TAD [-4 1921 04054 3022 DCA COUNT /SET UP OUT FILE POINTER 1922 04055 6211 BLUE, CDF 10 1923 04056 1770 TAD I (7601 1924 04057 6201 CDF 0 1925 04060 3767 DCA I (OFILE 1926 04061 2370 ISZ (7601 1927 04062 2367 ISZ (OFILE 1928 04063 2022 ISZ COUNT 1929 04064 5255 JMP BLUE 1930 04065 4516 JMS I [OOPEN 1931 04066 4766 JMS I (OTYPE 1932 04067 0365 AND (770 /CHECK FOR TTY AS OUTPUT 1933 04070 3764 DCA I (TTYSWT
/PDP-8 PS/8 CROSS REFERENCE PAL8-V7 4/20/71 PAGE 23-2 1934 04071 1764 TAD I (TTYSWT /IF LPT IS OUTPUT, 1935 04072 7640 SZA CLA /NO INTERNAL FORM FEEDS GENERATED 1936 04073 3772 DCA I (NOFORM 1937 1938 1939 1940 /NOW WE MOVE UP THE PERMANENT AND PSEUDO-OP TABLES. 1941 /THE Y WERE ASSEMBLED IN FIELD 0 TO SAVE DECTAPE MOTION 1942 /WHEN LOADING. 1943 04074 4763 JMS I (FTEST /GET MACHINE SIZE 1944 04075 6211 CDF 10 /ASSIGN THE INPUT HANDLER 1945 04076 1777 TAD I (7617 1946 04077 6201 CDF 0 1947 04100 6212 CIF 10 1948 04101 4452 JMS I USR 1949 04102 0001 1 1950 04103 3201 INHNDL, INDEVH+1 1951 04104 7402 HLT /YECH!!! 1952 04105 1303 TAD INHNDL 1953 04106 3762 DCA I (INHAND /SETUP ENTRY POINT 1954 04107 4761 JMS I (ASHDLR /SET UP FIRST READ 1955 04110 1115 TAD [7700 1956 04111 3052 DCA USR /SAVE SYMBOL TABLE 1957 04112 1760 TAD I (7746 1958 04113 0145 AND [-2 1959 04114 1150 TAD [1200 /MARK NOT RESTARTABLE 1960 04115 3760 DCA I (7746 /SAVE CORE BIT 1961 04116 1410 TAD I XRLINE 1962 04117 3022 DCA COUNT /INITIAL LOAD PROVIDES PARAMETERS FOR 1963 /THE SYMBOL TABLE. THIS IS # WORDS TO MOVE 1964 04120 4340 JMS MOVEM 1965 04121 1031 TAD RSWIT 1966 04122 7650 SNA CLA /DETERMINE WHICH PSEUDO-OPS 1967 04123 1357 TAD (PPSEUD-SPSEUD 1968 04124 1356 TAD (SPSEUD-1 1969 04125 3010 DCA XRLINE 1970 04126 1410 TAD I XRLINE 1971 04127 3043 DCA PSEUDO /TABLES INITIALLY HAVE A SHORT HEADER 1972 /WHICH CONTAINS INFORMATION ABOUT THEM 1973 /PSEUDO CONTAINS STARTING # OF FIRST 1974
/PDP-8 PS/8 CROSS REFERENCE PAL8-V7 4/20/71 PAGE 24 1975 1976 1977 04130 1410 BLUE2, TAD I XRLINE 1978 04131 3044 DCA PSEUDO+1 /LAST ENTRY # 1979 04132 1410 TAD I XRLINE 1980 04133 3022 DCA COUNT /# ENTRIES TO MOVE 1981 04134 1410 TAD I XRLINE 1982 04135 3011 DCA XRLIT /WHERE THE Y GO IN FIELD 1 1983 04136 4340 JMS MOVEM 1984 04137 5755 JMP I (FIRST+1 /READ FIRST RECORDS 1985 1986 04140 0000 MOVEM, 0 1987 04141 1410 TAD I XRLINE 1988 04142 6211 CDF 10 1989 04143 3411 DCA I XRLIT 1990 04144 6201 CDF 0 1991 04145 2022 ISZ COUNT 1992 04146 5341 JMP .-5 1993 04147 5740 JMP I MOVEM 1994 04150 5611 KILOUT, OCHAR&177+5600 /JMP I OCHAR 1995 04151 7326 ERRTWO, CLA CLL CML RTL 1996 04152 5576 JMP I [ERROR /THIS IS AN IMPOSSIBLE ERROR 1997 1998 1999 2000 2001 04155 2153 2002 04156 5043 2003 04157 0170 2004 04160 7746 2005 04161 2672 2006 04162 2671 2007 04163 4200 2008 04164 2531 2009 04165 0770 2010 04166 2447 2011 04167 2460 2012 04170 7601 2013 04171 0620 2014 04172 0426 2015 04173 0100 2016 04174 2216 2017 04175 0400 2018 04176 7644 2019 04177 7617 2020 4200 *4200 2021 /THIS JUNK DETERMINES THE # OF FIELDS AVAILABLE TO CREF 2022 /THE NOPS ARE BECAUSE THE PDP-8 HAS A NASTY BUG WHICH CAUSES 2023 /A REFERENCE TO A NONEXISTENT FIELD TO EXECUTE THE EFFECTIVE ADDRESS 2024 /OF THE BAD INSTRUCTION AND THEN SKIPPING THE NEXT LOC. 2025 2026 04200 0000 FTEST, 0 2027 04201 1377 TAD (7645 2028 04202 3000 DCA 0 /TO TEST FOR WRAP AROUND;IE PDP-8/L 2029 04203 6211 CHUG, CDF 10
/PDP-8 PS/8 CROSS REFERENCE PAL8-V7 4/20/71 PAGE 24-1 2030 04204 1234 TAD K 2031 04205 3441 DCA I K0 /WIPES LOC 0 OF EVERY FIELD 2032 04206 7000 NOP 2033 04207 1000 TAD 0 /NOW CHECK FIELD 0 LOC. 0 2034 04210 7041 CIA 2035 04211 1377 TAD (7645 2036 04212 7640 SZA CLA 2037 04213 5227 JMP DUN /WRAP AROUND HAS OCCURRED 2038 04214 1441 TAD I K0 2039 04215 7000 NOP 2040 04216 7041 CIA 2041 04217 1234 TAD K /USUAL CASE RETURNS 7777 IN AC 2042 04220 7640 SZA CLA 2043 04221 5227 JMP DUN 2044 04222 2234 ISZ K /OK SO FAR TRY NEXT FIELD 2045 04223 1155 TAD [10 2046 04224 1203 TAD CHUG 2047 04225 3203 DCA CHUG 2048 04226 5201 JMP CHUG-2 2049 04227 6201 DUN, CDF 0 2050 04230 1234 TAD K 2051 04231 7041 CIA 2052 04232 3047 DCA MAXFLD /- NO. OF FIRST NONEXISTENT FIELD 2053 04233 5600 JMP I FTEST 2054 04234 0001 K, 1 2055 2056 04377 7645 2057 00115 7700 2058 00116 2272 2059 00117 2610 2060 00120 2442 2061 00121 0212 2062 00122 0215 2063 00123 0255 2064 00124 0017 2065 00125 0200 2066 00126 7600 2067 00127 2600 2068 00130 0240 2069 00131 3700 2070 00132 1777 2071 00133 0201 2072 00134 0002 2073 00135 0007 2074 00136 4000 2075 00137 0673 2076 00140 0035 2077 00141 7720 2078 00142 3777 2079 00143 0077 2080 00144 1000 2081 00145 7776 2082 00146 0235 2083 00147 1300 2084 00150 1200
/PDP-8 PS/8 CROSS REFERENCE PAL8-V7 4/20/71 PAGE 24-2 2085 00151 1702 2086 00152 0003 2087 00153 1041 2088 00154 0260 2089 00155 0010 2090 00156 7774 2091 00157 0004 2092 00160 0600 2093 00161 7563 2094 00162 1740 2095 00163 7775 2096 00164 2157 2097 00165 0140 2098 00166 1400 2099 00167 1747 2100 00170 5600 2101 00171 2464 2102 00172 7605 2103 00173 2532 2104 00174 2211 2105 00175 7772 2106 00176 0211 2107 00177 7607 2108 0000 FIELD 0 2109 /THESE ARE THE PERMANENT AND PSEUDO OP TABLES FOR CREF 2110 /RAD IS THE BASE USED TO PACK THE CHARACTERS. FOR SABR IT MAY 2111 /HAVE TO BE MOVED TO 51 RATHER THAN 45. 2112 2113 0052 RAD=52 2114 2115 4400 *4400 2116 2117 04400 7325 SYMTAB, -453 /INITIAL ENTRIES 2118 2119 NOPUNCH 2120 0000 *0 2121 ENPUNCH 2122 00000 0000 ZBLOCK 4 /DUMMY ENTRY..SYMCHK NEEDS IT 2123 2124 2125 00004 4070 "A-300^RAD+"N-300+4000 /AND 2126 00005 0250 "D-300^RAD 2127 00006 0000 ZBLOCK 2 2128 2129 00010 4202 "C-300^RAD+"D-300+4000 /CDF 2130 00011 0374 "F-300^RAD 2131 00012 0000 ZBLOCK 2 2132 2133 00014 4207 "C-300^RAD+"I-300+4000 /CIA 2134 00015 0052 "A-300^RAD 2135 00016 0000 ZBLOCK 2 2136 2137 00020 4207 "C-300^RAD+"I-300+4000 /CIF 2138 00021 0374 "F-300^RAD 2139 00022 0000 ZBLOCK 2
/PDP-8 PS/8 CROSS REFERENCE PAL8-V7 4/20/71 PAGE 24-3 2140 2141 00024 4212 "C-300^RAD+"L-300+4000 /CLA 2142 00025 0052 "A-300^RAD 2143 00026 0000 ZBLOCK 2 2144 2145 00030 4212 "C-300^RAD+"L-300+4000 /CLL 2146 00031 0770 "L-300^RAD 2147 00032 0000 ZBLOCK 2 2148 2149 00034 4213 "C-300^RAD+"M-300+4000 /CMA 2150 00035 0052 "A-300^RAD 2151 00036 0000 ZBLOCK 2 2152 2153 0052 R=52 2154 2155 00040 4213 "C-300^R+"M-300+4000 /CML 2156 00041 0770 "L-300^R 2157 00042 0000 ZBLOCK 2 2158 2159 00044 4253 "D-300^R+"C-300+4000 /DCA 2160 00045 0052 "A-300^R 2161 00046 0000 ZBLOCK 2 2162 2163 00050 4253 "D-300^R+"C-300+4000 /DCEA 2164 00051 0323 "E-300^R+"A-300 2165 00052 0000 ZBLOCK 2 2166 2167 00054 4253 "D-300^R+"C-300+4000 /DCMA 2168 00055 1043 "M-300^R+"A-300 2169 00056 0000 0 2170 00057 0000 0 2171 2172 00060 4255 "D-300^R+"E-300+4000 /DEAC 2173 00061 0055 "A-300^R+"C-300 2174 00062 0000 ZBLOCK 2 2175 2176 00064 4255 "D-300^R+"E-300+4000 /DEAL 2177 00065 0066 "A-300^R+"L-300 2178 00066 0000 ZBLOCK 2 2179 2180 00070 4256 "D-300^R+"F-300+4000 /DFSC 2181 00071 1441 "S-300^R+"C-300 2182 00072 0000 ZBLOCK 2 2183 2184 00074 4256 "D-300^R+"F-300+4000 /DFSE 2185 00075 1443 "S-300^R+"E-300 2186 00076 0000 ZBLOCK 2 2187 2188 00100 4265 "D-300^R+"M-300+4000 /DMAC 2189 00101 0055 "A-300^R+"C-300 2190 00102 0000 ZBLOCK 2 2191 2192 00104 4265 "D-300^R+"M-300+4000 /DMAR 2193 00105 0074 "A-300^R+"R-300 2194 00106 0000 ZBLOCK 2
/PDP-8 PS/8 CROSS REFERENCE PAL8-V7 4/20/71 PAGE 24-4 2195 2196 00110 4265 "D-300^R+"M-300+4000 /DMAW 2197 00111 0101 "A-300^R+"W-300 2198 00112 0000 ZBLOCK 2 2199 2200 00114 4273 "D-300^R+"S-300+4000 /DSAC 2201 00115 0055 "A-300^R+"C-300 2202 00116 0000 ZBLOCK 2 2203 2204 00120 4274 "D-300^R+"T-300+4000 /DTCA 2205 00121 0177 "C-300^R+"A-300 2206 00122 0000 ZBLOCK 2
/PDP-8 PS/8 CROSS REFERENCE PAL8-V7 4/20/71 PAGE 25 2207 2208 00124 4274 "D-300^R+"T-300+4000 /DTLB 2209 00125 0772 "L-300^R+"B-300 2210 00126 0000 ZBLOCK 2 2211 2212 00130 4274 "D-300^R+"T-300+4000 /DTRA 2213 00131 1365 "R-300^R+"A-300 2214 00132 0000 ZBLOCK 2 2215 2216 00134 4274 "D-300^R+"T-300+4000 /DTRB 2217 00135 1366 "R-300^R+"B-300 2218 00136 0000 ZBLOCK 2 2219 2220 00140 4274 "D-300^R+"T-300+4000 /DTSF 2221 00141 1444 "S-300^R+"F-300 2222 00142 0000 ZBLOCK 2 2223 2224 00144 4274 "D-300^R+"T-300+4000 /DTXA 2225 00145 1761 "X-300^R+"A-300 2226 00146 0000 ZBLOCK 2 2227 2228 00150 4462 "G-300^R+"L-300+4000 /GLK 2229 00151 0716 "K-300^R 2230 00152 0000 ZBLOCK 2 2231 2232 00154 4534 "H-300^R+"L-300+4000 /HLT 2233 00155 1510 "T-300^R 2234 00156 0000 ZBLOCK 2 2235 2236 00160 4573 "I-300^R+"A-300+4000 /IAC 2237 00161 0176 "C-300^R 2238 00162 0000 ZBLOCK 2 2239 2240 00164 4611 "I-300^R+"O-300+4000 /IOF 2241 00165 0374 "F-300^R 2242 00166 0000 ZBLOCK 2 2243 2244 00170 4611 "I-300^R+"O-300+4000 /ION 2245 00171 1114 "N-300^R 2246 00172 0000 ZBLOCK 2 2247 2248 00174 4611 "I-300^R+"O-300+4000 /IOT 2249 00175 1510 "T-300^R 2250 00176 0000 ZBLOCK 2 2251 2252 00200 4615 "I-300^R+"S-300+4000 /ISZ 2253 00201 2104 "Z-300^R 2254 00202 0000 ZBLOCK 2 2255 2256 00204 4661 "J-300^R+"M-300+4000 /JMP 2257 00205 1240 "P-300^R 2258 00206 0000 ZBLOCK 2 2259 2260 00210 4661 "J-300^R+"M-300+4000 /JMS 2261 00211 1436 "S-300^R
/PDP-8 PS/8 CROSS REFERENCE PAL8-V7 4/20/71 PAGE 25-1 2262 00212 0000 ZBLOCK 2 2263 2264 00214 4721 "K-300^R+"C-300+4000 /KCC 2265 00215 0176 "C-300^R 2266 00216 0000 ZBLOCK 2 2267 2268 00220 4740 "K-300^R+"R-300+4000 /KRB 2269 00221 0124 "B-300^R 2270 00222 0000 ZBLOCK 2 2271 2272 00224 4740 "K-300^R+"R-300+4000 /KRS 2273 00225 1436 "S-300^R 2274 00226 0000 ZBLOCK 2 2275 2276 00230 4741 "K-300^R+"S-300+4000 /KSF 2277 00231 0374 "F-300^R 2278 00232 0000 ZBLOCK 2 2279 2280 00234 4771 "L-300^R+"A-300+4000 /LAS 2281 00235 1436 "S-300^R 2282 00236 0000 ZBLOCK 2 2283 2284 00240 5133 "N-300^R+"O-300+4000 /NOP 2285 00241 1240 "P-300^R 2286 00242 0000 ZBLOCK 2 2287 2288 00244 5206 "O-300^R+"P-300+4000 /OPR 2289 00245 1364 "R-300^R 2290 00246 0000 ZBLOCK 2 2291 2292 00250 5211 "O-300^R+"S-300+4000 /OSR 2293 00251 1364 "R-300^R 2294 00252 0000 ZBLOCK 2 2295 2296 00254 5243 "P-300^R+"C-300+4000 /PCF 2297 00255 0374 "F-300^R 2298 00256 0000 ZBLOCK 2 2299 2300 00260 5254 "P-300^R+"L-300+4000 /PLS 2301 00261 1436 "S-300^R 2302 00262 0000 ZBLOCK 2 2303 2304 00264 5260 "P-300^R+"P-300+4000 /PPC 2305 00265 0176 "C-300^R 2306 00266 0000 ZBLOCK 2 2307 2308 00270 5263 "P-300^R+"S-300+4000 /PSF 2309 00271 0374 "F-300^R 2310 00272 0000 ZBLOCK 2 2311 2312 00274 5365 "R-300^R+"A-300+4000 /RAL 2313 00275 0770 "L-300^R 2314 00276 0000 ZBLOCK 2 2315 2316 00300 5365 "R-300^R+"A-300+4000 /RAR
/PDP-8 PS/8 CROSS REFERENCE PAL8-V7 4/20/71 PAGE 25-2 2317 00301 1364 "R-300^R 2318 00302 0000 ZBLOCK 2 2319 2320 00304 5370 "R-300^R+"D-300+4000 /RDF 2321 00305 0374 "F-300^R 2322 00306 0000 ZBLOCK 2 2323 2324 00310 5372 "R-300^R+"F-300+4000 /RFC 2325 00311 0176 "C-300^R 2326 00312 0000 ZBLOCK 2 2327 2328 00314 5375 "R-300^R+"I-300+4000 /RIB 2329 00315 0124 "B-300^R 2330 00316 0000 ZBLOCK 2 2331 2332 00320 5375 "R-300^R+"I-300+4000 /RIF 2333 00321 6016 "F-33^R 2334 00322 0000 ZBLOCK 2 2335 2336 00324 5401 "R-300^R+"M-300+4000 /RMF 2337 00325 0374 "F-300^R 2338 00326 0000 ZBLOCK 2 2339 2340 00330 5406 "R-300^R+"R-300+4000 /RRB 2341 00331 0124 "B-300^R 2342 00332 0000 ZBLOCK 2 2343 2344 00334 5407 "R-300^R+"S-300+4000 /RSF 2345 00335 0374 "F-300^R 2346 00336 0000 ZBLOCK 2 2347 2348 00340 5410 "R-300^R+"T-300+4000 /RTL 2349 00341 0770 "L-300^R 2350 00342 0000 ZBLOCK 2 2351 2352 00344 5410 "R-300^R+"T-300+4000 /RTR 2353 00345 1364 "R-300^R 2354 00346 0000 ZBLOCK 2 2355 2356 00350 5451 "S-300^R+"K-300+4000 /SKP 2357 00351 1240 "P-300^R 2358 00352 0000 ZBLOCK 2 2359 2360 00354 5453 "S-300^R+"M-300+4000 /SMA 2361 00355 0052 "A-300^R 2362 00356 0000 ZBLOCK 2 2363 2364 00360 5454 "S-300^R+"N-300+4000 /SNA 2365 00361 0052 "A-300^R 2366 00362 0000 ZBLOCK 2 2367 2368 00364 5454 "S-300^R+"N-300+4000 /SNL 2369 00365 0770 "L-300^R 2370 00366 0000 ZBLOCK 2 2371
/PDP-8 PS/8 CROSS REFERENCE PAL8-V7 4/20/71 PAGE 25-3 2372 00370 5456 "S-300^R+"P-300+4000 /SPA 2373 00371 0052 "A-300^R 2374 00372 0000 ZBLOCK 2 2375 2376 00374 5462 "S-300^R+"T-300+4000 /STA 2377 00375 0052 "A-300^R 2378 00376 0000 ZBLOCK 2 2379 2380 00400 5462 "S-300^R+"T-300+4000 /STL 2381 00401 0770 "L-300^R 2382 00402 0000 ZBLOCK 2
/PDP-8 PS/8 CROSS REFERENCE PAL8-V7 4/20/71 PAGE 26 2383 2384 00404 5470 "S-300^R+"Z-300+4000 /SZA 2385 00405 0052 "A-300^R 2386 00406 0000 ZBLOCK 2 2387 2388 00410 5470 "S-300^R+"Z-300+4000 /SZL 2389 00411 0770 "L-300^R 2390 00412 0000 ZBLOCK 2 2391 2392 00414 5511 "T-300^R+"A-300+4000 /TAD 2393 00415 0250 "D-300^R 2394 00416 0000 ZBLOCK 2 2395 2396 00420 5513 "T-300^R+"C-300+4000 /TCF 2397 00421 0374 "F-300^R 2398 00422 0000 ZBLOCK 2 2399 2400 00424 5524 "T-300^R+"L-300+4000 /TLS 2401 00425 1436 "S-300^R 2402 00426 0000 ZBLOCK 2 2403 2404 00430 5530 "T-300^R+"P-300+4000 /TPC 2405 00431 0176 "C-300^R 2406 00432 0000 ZBLOCK 2 2407 2408 00434 5533 "T-300^R+"S-300+4000 /TSF 2409 00435 0374 "F-300^R 2410 00436 0000 ZBLOCK 2 2411 00440 7777 -1 2412 00441 7777 -1 2413 00442 7777 -1 2414 00443 7777 -1 /DUMMY LOW ENTRY 2415
/PDP-8 PS/8 CROSS REFERENCE PAL8-V7 4/20/71 PAGE 27 2416 2417 /PSEUDO OP TABLES. ENTRIES ARE SAME FORMAT AS PAL8 2418 /SYMBOLS. 2419 2420 5044 *.+4400 2421 2422 05044 1706 SPSEUD, 1706 /SABR PSEUDOS. BEGINS AT 1706*4 2423 05045 1737 1737 /ENDS AT 1737*4 2424 05046 7630 -150 /150 LOCATIONS LONG 2425 05047 7427 7427 /STARTS LOADING AT 17430 2426 2427 NOPUNCH 2428 7430 *7430 2429 ENPUNCH 2430 2431 07430 0000 ZBLOCK 4 2432 2433 2434 07434 0054 "A-300^R+"B-300 /ABSYM 2435 07435 1467 "S-300^R+"Y-300 2436 07436 1042 "M-300^R 2437 07437 0673 B /RETURN POINT 2438 2439 07440 0074 "A-300^R+"R-300 /ARG 2440 07441 0446 "G-300^R 2441 07442 0000 0 2442 07443 0673 B 2443 2444 07444 0140 "B-300^R+"L-300 /BLOCK 2445 07445 1171 "O-300^R+"C-300 2446 07446 0716 "K-300^R 2447 07447 0673 B 2448 2449 07450 0177 "C-300^R+"A-300 /CALL 2450 07451 1004 "L-300^R+"L-300 2451 07452 0000 0 2452 07453 0673 B 2453 2454 07454 0215 "C-300^R+"O-300 /COMMON 2455 07455 1057 "M-300^R+"M-300 2456 07456 1204 "O-300^R+"N-300 2457 07457 0673 B 2458 2459 07460 0216 "C-300^R+"P-300 /CPAGE 2460 07461 0061 "A-300^R+"G-300 2461 07462 0322 "E-300^R 2462 07463 0673 B 2463 2464 07464 0255 "D-300^R+"E-300 /DECIM 2465 07465 0207 "C-300^R+"I-300 2466 07466 1042 "M-300^R 2467 07467 0673 B 2468 2469 07470 0275 "D-300^R+"U-300 /DUMMY 2470 07471 1057 "M-300^R+"M-300
/PDP-8 PS/8 CROSS REFERENCE PAL8-V7 4/20/71 PAGE 27-1 2471 07472 2032 "Y-300^R 2472 07473 0673 B 2473 2474 07474 0323 "E-300^R+"A-300 /EAP 2475 07475 1240 "P-300^R 2476 07476 0000 0 2477 07477 0673 B 2478 2479 07500 0340 "E-300^R+"N-300 /END 2480 07501 0250 "D-300^R 2481 07502 0000 0 2482 07503 5621 EPASS, DOLL1 /BECOMES ENDPAS 2483 2484 07504 0340 "E-300^R+"N-300 /ENTRY 2485 07505 1532 "T-300^R+"R-300 2486 07506 2032 "Y-300^R 2487 07507 0673 B 2488 2489 07510 0413 "F-300^R+"O-300 /FORTR 2490 07511 1410 "R-300^R+"T-300 2491 07512 1364 "R-300^R 2492 07513 0673 B 2493 2494 07514 0572 "I-300^R 2495 07515 0000 0 2496 07516 0000 0 2497 07517 0673 B /I 2498 2499 07520 0600 "I-300^R+"F-300 /IF 2500 07521 0000 0 2501 07522 0000 0 2502 07523 0673 B 2503 2504 07524 0610 "I-300^R+"N-300 /INC 2505 07525 0176 "C-300^R 2506 07526 0000 0 2507 07527 0673 B 2508 2509 07530 0771 "L-300^R+"A-300 /LAP 2510 07531 1240 "P-300^R 2511 07532 0000 0 2512 07533 0673 B 2513 2514 07534 1171 "O-300^R+"C-300 /OCTAL 2515 07535 1511 "T-300^R+"A-300 2516 07536 0770 "L-300^R 2517 07537 0673 B 2518 2519 07540 1206 "O-300^R+"P-300 /OPDEF 2520 07541 0255 "D-300^R+"E-300 2521 07542 0374 "F-300^R 2522 07543 6000 FXR2, FXMR 2523 2524 07544 1241 "P-300^R+"A-300 /PAGE 2525 07545 0453 "G-300^R+"E-300
/PDP-8 PS/8 CROSS REFERENCE PAL8-V7 4/20/71 PAGE 27-2 2526 07546 0000 0 2527 07547 0673 B 2528 2529 07550 1241 "P-300^R+"A-300 /PAUSE 2530 07551 1605 "U-300^R+"S-300 2531 07552 0322 "E-300^R 2532 07553 0673 B 2533 2534 07554 1371 "R-300^R+"E-300 /REORG 2535 07555 1210 "O-300^R+"R-300 2536 07556 0446 "G-300^R 2537 07557 0673 B 2538 2539 07560 1371 "R-300^R+"E-300 /RETRN 2540 07561 1532 "T-300^R+"R-300 2541 07562 1114 "N-300^R 2542 07563 0673 B 2543 2544 07564 1451 "S-300^R+"K-300 /SKPDF 2545 07565 1244 "P-300^R+"D-300 2546 07566 0374 "F-300^R 2547 07567 6000 FXR3, FXMR 2548 2549 07570 1515 "T-300^R+"E-300 /TEXT 2550 07571 2004 "X-300^R+"T-300 2551 07572 0000 0 2552 07573 1252 TXT 2553 2554 07574 7777 -1 2555 07575 7777 -1 2556 07576 7777 -1 2557 07577 7777 -1 2558
/PDP-8 PS/8 CROSS REFERENCE PAL8-V7 4/20/71 PAGE 28 2559 2560 2561 /PAL8 PSEUDOS. SAME FORMAT AS OTHERS 2562 2563 5234 *5234 2564 ENPUNCH 2565 2566 05234 1711 PPSEUD, 1711 2567 05235 1737 1737 2568 05236 7644 -134 2569 05237 7443 7443 2570 2571 NOPUNCH 2572 7444 *7444 2573 ENPUNCH 2574 2575 07444 0000 ZBLOCK 4 2576 2577 2578 07450 0255 "D-300^R+"E-300 /DECIMAL 2579 07451 0207 "C-300^R+"I-300 2580 07452 1043 "M-300^R+"A-300 2581 07453 0673 B 2582 2583 07454 0255 "D-300^R+"E-300 /DEVICE 2584 07455 1645 "V-300^R+"I-300 2585 07456 0203 "C-300^R+"E-300 2586 07457 0673 B 2587 2588 07460 0334 "E-300^R+"J-300 /EJECT 2589 07461 0325 "E-300^R+"C-300 2590 07462 1510 "T-300^R 2591 07463 0403 NOTBIN /SKIP ANY MORE TEXT 2592 2593 07464 0340 "E-300^R+"N-300 /ENPUNCH 2594 07465 1265 "P-300^R+"U-300 2595 07466 1117 "N-300^R+"C-300 2596 07467 0673 B 2597 2598 07470 0352 "E-300^R+"X-300 /EXPUNGE 2599 07471 1265 "P-300^R+"U-300 2600 07472 1123 "N-300^R+"G-300 2601 07473 5666 XPJ, XPUNJ 2602 2603 07474 0405 "F-300^R+"I-300 /FIELD 2604 07475 0336 "E-300^R+"L-300 2605 07476 0250 "D-300^R 2606 07477 0673 B 2607 2608 07500 0405 "F-300^R+"I-300 /FILENAME 2609 07501 0775 "L-300^R+"E-300 2610 07502 1115 "N-300^R+"A-300 2611 07503 0673 B 2612 2613 07504 0405 "F-300^R+"I-300 /FIXMRI
/PDP-8 PS/8 CROSS REFERENCE PAL8-V7 4/20/71 PAGE 28-1 2614 07505 1775 "X-300^R+"M-300 2615 07506 1375 "R-300^R+"I-300 2616 07507 6000 FXR, FXMR 2617 2618 07510 0405 "F-300^R+"I-300 /FIXTAB 2619 07511 2004 "X-300^R+"T-300 2620 07512 0054 "A-300^R+"B-300 2621 07513 6026 FXT, FXTAB 2622 2623 07514 0572 "I-300^R /I 2624 07515 0000 ZBLOCK 2 2625 07517 0673 B 2626 2627 07520 0600 "I-300^R+"F-300 /IFDEF 2628 07521 0255 "D-300^R+"E-300 2629 07522 0374 "F-300^R 2630 07523 0673 B 2631 2632 07524 0600 "I-300^R+"F-300 /IFNDEF 2633 07525 1120 "N-300^R+"D-300 2634 07526 0330 "E-300^R+"F-300 2635 07527 0673 B 2636 2637 07530 0600 "I-300^R+"F-300 /IFNZRO 2638 07531 1146 "N-300^R+"Z-300 2639 07532 1403 "R-300^R+"O-300 2640 07533 0673 B 2641 2642 07534 0600 "I-300^R+"F-300 /IFZERO 2643 07535 2111 "Z-300^R+"E-300 2644 07536 1403 "R-300^R+"O-300 2645 07537 0673 B 2646 2647 07540 1133 "N-300^R+"O-300 /NOPUNCH 2648 07541 1265 "P-300^R+"U-300 2649 07542 1117 "N-300^R+"C-300 2650 07543 0673 B 2651 2652 07544 1171 "O-300^R+"C-300 /OCTAL 2653 07545 1511 "T-300^R+"A-300 2654 07546 0770 "L-300^R 2655 07547 0673 B 2656 2657 07550 1241 "P-300^R+"A-300 /PAGE 2658 07551 0453 "G-300^R+"E-300 2659 07552 0000 0 2660 07553 0673 B 2661 2662 07554 1241 "P-300^R+"A-300 /PAUSE 2663 07555 1605 "U-300^R+"S-300 2664 07556 0322 "E-300^R 2665 07557 0673 B 2666 2667 07560 1515 "T-300^R+"E-300 /TEXT 2668 07561 2004 "X-300^R+"T-300
/PDP-8 PS/8 CROSS REFERENCE PAL8-V7 4/20/71 PAGE 28-2 2669 07562 0000 0 2670 07563 1252 TXT 2671 2672 07564 1774 "X-300^R+"L-300 /XLIST 2673 07565 0615 "I-300^R+"S-300 2674 07566 1510 "T-300^R 2675 07567 0673 B 2676 2677 07570 2106 "Z-300^R+"B-300 /ZBLOCK 2678 07571 1007 "L-300^R+"O-300 2679 07572 0211 "C-300^R+"K-300 2680 07573 0673 B 2681 2682 07574 7777 -1 2683 07575 7777 -1 2684 07576 7777 -1 2685 07577 7777 -1 2686 2687 2688
/PDP-8 PS/8 CROSS REFERENCE PAL8-V7 4/20/71 PAGE 29 2689 5600 *5600 2690 /THIS CODE IS EXECUTED DURING PASS ONE ONLY. LATER PASSES 2691 /USE THIS AREA TO BUILD A REFERENCE TABLE. 2692 2693 2694 05600 0000 HEADER, 0 /HEADER SWITCHES FPUT TO JMS I [OCHAR 2695 05601 1207 TAD CPCHIT 2696 05602 3102 DCA FPUT /ADDRESS OF PUNCH ROUTINE 2697 05603 4610 JMS I CGTLIN /CALL GETLIN 2698 05604 1211 TAD CSTRIT /RESTORE FPUT 2699 05605 3102 DCA FPUT 2700 05606 5600 JMP I HEADER 2701 05607 5612 CPCHIT, PNCHIT 2702 05610 3122 CGTLIN, GETLIN 2703 05611 5615 CSTRIT, STORIT 2704 2705 05612 0000 PNCHIT, 0 2706 05613 4620 JMS I COCHAR 2707 05614 5612 JMP I PNCHIT 2708 2709 05615 0000 STORIT, 0 2710 05616 3410 DCA I XRLINE 2711 05617 5615 JMP I STORIT 2712 05620 2211 COCHAR, OCHAR 2713 2714 05621 1377 DOLL1, TAD (ENDPAS 2715 05622 3053 DCA DOLLAR 2716 05623 3776 DCA I (NOFORM 2717 05624 1375 TAD (KRS 2718 05625 3774 DCA I (OUTSW /RE ENABLE OUTPUT 2719 05626 6211 CDF 10 2720 05627 1031 TAD RSWIT 2721 05630 7650 SNA CLA 2722 05631 5241 JMP DOLL2 /PAL8 PSEUDOS 2723 05632 1373 TAD (B 2724 05633 3772 DCA I (FXR2 2725 05634 1373 TAD (B 2726 05635 3771 DCA I (FXR3 2727 05636 1377 TAD (ENDPAS 2728 05637 3770 DCA I (EPASS /END PSEUDO NOW TO ENDPAS 2729 05640 5247 JMP DOLOUT 2730 05641 1373 DOLL2, TAD (B 2731 05642 3767 DCA I (XPJ 2732 05643 1373 TAD (B 2733 05644 3766 DCA I (FXR 2734 05645 1373 TAD (B 2735 05646 3765 DCA I (FXT 2736 05647 6201 DOLOUT, CDF 0 2737 05650 1047 TAD MAXFLD /IF WE HAVE MORE THAN 2 FIELDS, 2738 05651 7100 CLL /WE SHALL LEAVE THE SYMBOL TABLE IN ONE 2739 05652 1364 TAD (2 /PIECE. THAT ALLOWS US TO USE THE UPPER 2740 05653 7630 SZL CLA /CORE PROFOTABLY 2741 05654 5763 JMP I (NOTBIN 2742 05655 1042 TAD USER+1 2743 05656 7106 CLL RTL
/PDP-8 PS/8 CROSS REFERENCE PAL8-V7 4/20/71 PAGE 29-1 2744 05657 1362 TAD (4 /CLEARS SYMBOL TABLE 2745 05660 3761 DCA I (LTTBL+1 /FIX PERMANENT LIMIT IN FIELD 1 2746 05661 3054 DCA SYMFLD /AND FAKE THAT FLD 1 HAS NO SYMBOLS 2747 05662 1265 TAD FUDGE /DISABLE RESET OF FIELD 1 LIMIT 2748 05663 3760 DCA I (FUJ1 2749 05664 5763 JMP I (NOTBIN 2750 05665 7000 FUDGE, NOP 2751 2752 2753 05666 3022 XPUNJ, DCA COUNT 2754 05667 7240 CLA CMA 2755 05670 1042 TAD USER+1 /SKIP LAST ENTRY (7777) 2756 05671 7106 CLL RTL 2757 05672 3060 XPUNJ3, DCA BUFFER /POINTER INTO SYMBOLS 2758 05673 6211 CDF 10 2759 05674 1460 TAD I BUFFER 2760 05675 1357 TAD (5336 /IS THIS A LITERAL? 2761 05676 7650 SNA CLA 2762 05677 5322 JMP XPUNJ1 /YES..NEXT ENTRY 2763 05700 1022 TAD COUNT /NO..NOW PUSH ALL LITERALS UP 2764 05701 7106 CLL RTL /BUT IF COUNT =0, THERE ARE NONE 2765 05702 7040 CMA 2766 05703 3025 DCA SAVE 2767 05704 1356 TAD (3 2768 05705 1060 TAD BUFFER /SETTING UP TO DO TRANSFER. IF COUNT=0 2769 05706 3012 DCA XRSYM1 /ONLY THE 7777 GETS TRANSFERRED 2770 05707 1356 TAD (3 2771 05710 3013 DCA XRSYM2 2772 05711 1412 TAD I XRSYM1 2773 05712 3413 DCA I XRSYM2 2774 05713 2025 ISZ SAVE /ALL COMPLETED? 2775 05714 5311 JMP .-3 2776 05715 1022 TAD COUNT 2777 05716 7001 IAC /INCLUDE 7777 ENTRY! 2778 05717 3042 DCA USER+1 2779 05720 6201 CDF 0 2780 05721 5773 JMP I (B 2781 05722 1355 XPUNJ1, TAD (-4 2782 05723 1060 TAD BUFFER 2783 05724 2022 ISZ COUNT 2784 05725 5272 JMP XPUNJ3 2785 2786
/PDP-8 PS/8 CROSS REFERENCE PAL8-V7 4/20/71 PAGE 30 2787 05755 7774 2788 05756 0003 2789 05757 5336 2790 05760 1444 2791 05761 1143 2792 05762 0004 2793 05763 0403 2794 05764 0002 2795 05765 7513 2796 05766 7507 2797 05767 7473 2798 05770 7503 2799 05771 7567 2800 05772 7543 2801 05773 0673 2802 05774 2216 2803 05775 6034 2804 05776 0426 2805 05777 1400 2806 6000 PAGE 2807 2808 06000 1410 FXMR, TAD I XRLINE /SHOULD CONTAIN FIRST CHAR IN INSTR. 2809 06001 3023 DCA CHAR 2810 06002 4777 JMS I (CHECK /CHECK IT 2811 06003 0301 301 2812 06004 7446 -332 2813 06005 5211 JMP .+4 /NOPE;A NUMBER MAYBE? 2814 06006 1023 FX2, TAD CHAR 2815 06007 4776 JMS I (PACK 2816 06010 5200 JMP FXMR 2817 06011 4777 JMS I (CHECK 2818 06012 0260 260 2819 06013 7507 -271 /CHECK FOR DIGIT 0-9 2820 06014 7410 SKP /NOPE. IF THERE IS A SYMBOL, THIS IS TERMINATOR 2821 06015 5206 JMP FX2 2822 06016 1036 TAD SYM1 2823 06017 7650 SNA CLA 2824 06020 5200 JMP FXMR 2825 06021 4775 JMS I (SYMCHK 2826 06022 0041 USER 2827 06023 4774 JMS I (ENTRY /ENTER AS USER SYMBOL 2828 06024 4773 JMS I (BUMP 2829 06025 5772 JMP I (B 2830 06026 7240 FXTAB, CLA CMA /DON'T INCLUDE 7777 ENTRY 2831 06027 1042 TAD USER+1 2832 06030 7041 CIA 2833 06031 3022 DCA COUNT /# ENTRIES TO EXAMINE 2834 06032 3025 DCA SAVE 2835 06033 1371 FXTB2, TAD (4 2836 06034 1025 TAD SAVE 2837 06035 3025 DCA SAVE 2838 06036 6211 CDF 10 2839 06037 1425 TAD I SAVE /STOP AS SOON AS LITERAL FOUND 2840 06040 1370 TAD (5336 2841 06041 7650 SNA CLA
/PDP-8 PS/8 CROSS REFERENCE PAL8-V7 4/20/71 PAGE 30-1 2842 06042 5251 JMP FXTB3 2843 06043 1425 TAD I SAVE /IF ALREADY NEG. ITS A PERM SYMBOL 2844 06044 7500 SMA 2845 06045 1367 TAD (4000 /MAKE IT PERMANENT 2846 06046 3425 DCA I SAVE 2847 06047 2022 ISZ COUNT 2848 06050 5233 JMP FXTB2 /LOOP FOR DURATION 2849 06051 6201 FXTB3, CDF 0 2850 06052 5772 JMP I (B 2851 2852 06053 0000 VTST, 0 /VTST IS COOL. IT TESTS FOR 2853 /THE VERSION OF PAL8 BEING USED, AND 2854 /MODIFIES THE CALLING LOCATION RIGHT 2855 06054 3270 DCA VTMP /SAVE CALLING AC 2856 06055 7240 CLA CMA 2857 06056 1253 TAD VTST /WE RETURN AND EXECUTE THE REPALCED 2858 06057 3253 DCA VTST /INSTRUCTION WHEN WE'RE DONE 2859 06060 1766 TAD I (VERTST /LOOK AT LINE BUFFER 2860 06061 1365 TAD (-240 /IF A SPACE, OLD PAL8 2861 06062 7640 SZA CLA /IF NOT, NEWEST PAL8 2862 06063 7001 IAC 2863 06064 1364 TAD (7000 2864 06065 3653 DCA I VTST 2865 06066 1270 TAD VTMP 2866 06067 5653 JMP I VTST 2867 06070 0000 VTMP, 0 2868 /THAT'S ALL FOLKS!! 2869 06164 7000 2870 06165 7540 2871 06166 0246 2872 06167 4000 2873 06170 5336 2874 06171 0004 2875 06172 0673 2876 06173 1300 2877 06174 1200 2878 06175 1041 2879 06176 1000 2880 06177 1747 2881 $$$$$$$$$$$$$$$$$$
/PDP-8 PS/8 CROSS REFERENCE PAL8-V7 4/20/71 PAGE 30-2 ADDER 0061 DIV45C 2563 GF2 1730 MAXFLD 0047 ADDUP 0511 DIV45D 2540 GLIN3 3151 MCOMMA 1664 ANALYZ 0600 DMP 2011 GLIN4 3153 MCTLD 0450 ASHDLR 2672 DMP0 2126 HEADER 5600 MEQ 1663 B 0673 DMP2 2065 ICHAR 2610 MLF 0032 BASE 0063 DMP3 2014 ICHAR1 2651 MOVEM 4140 BASTBL 1132 DMP5 2141 ICHAR2 2645 MSGBS 0233 BLAH 1040 DOLLAR 0053 ICHAR3 2632 MSGTBL 3000 BLUE 4055 DOLL1 5621 INBREC 2735 M1 0101 BLUE0 4053 DOLL2 5641 INBUF 4200 M12 0100 BLUE2 4130 DOLOUT 5647 INBUFP 2732 M70 2405 BMPIT 0672 DONE 1765 INCHAR 2611 NDPS1 1415 BREAK 0201 DPERM 2143 INCHCT 2665 NDPS2 1446 BUFFER 0060 DSWIT 0030 INCOMN 2652 NMOR 1250 BUMP 1300 DUMP 2000 INCTL 0600 NODUMP 2421 BUMP2 1321 DUN 4227 INCTLW 2731 NOFORM 0426 CDFN 1667 ENDPAS 1400 INCTR 2670 NOTBIN 0403 CDFNA 2045 END2 1416 INDEVH 3200 NTER 0671 CDFZ 1660 END3 1564 INEOF 2667 NTR1 1223 CDTFLD 1363 ENTER 1236 INERRX 2754 NTR2 1241 CGTLIN 5610 ENTRY 1200 INFLD 0000 NUSER 1566 CHAIN 4005 EPASS 7503 INFPTR 2666 NXTDV 2021 CHAR 0023 ERROR 0211 INGBUF 2625 NXTLIN 0404 CHDF 1732 ERRTWO 4151 INHAND 2671 OCHAR 2211 CHECK 1747 ERR2 2363 INHNDL 4103 OCHAR1 2261 CHUG 4203 ERR3 2362 INJMP 2627 OCHAR2 2256 CLEAR 0235 ERR4 2361 INJMPP 2613 OCHAR3 2230 CLRSEM 0706 ERR5 2436 INLINE 3125 OCLOSE 2400 CNTROL 0070 ERR7 1334 INNEWF 2617 OEFAIL 2325 COCHAR 5620 FILLIP 2403 INPTR 2607 OFILE 2460 COMP 1052 FINI 0065 INREC 2733 OLINE 0552 COMPR 1102 FIRST 2152 INRECS 0003 ONEISZ 1317 CONST 0050 FLDPTR 0051 IOPEN 2600 OOPEN 2272 COUNT 0022 FLUSH 0565 IOSR 0066 OTYPE 2447 COUNTR 0063 FORM 2464 ISYM 0034 OUBLK 2315 CPCHIT 5607 FORM2 2517 K 4234 OUBUF 7200 CRLF 2523 FORM3 2511 KILOUT 4150 OUCCNT 2433 CRLF1 2526 FPUT 0102 K0 0041 OUCHAR 2224 CSTRIT 5611 FTEST 4200 LAST 1131 OUCOMN 2263 CTPTR 0071 FUDGE 5665 LEFT 1021 OUCT 2271 CUTSYM 1536 FUJ1 1444 LIMIT 1567 OUCTL 4200 CVTSEQ 0451 FXMR 6000 LINBUF 0242 OUCTLW 2351 CVT2 0475 FXR 7507 LINENO 2156 OUDEVH 3600 DCB 7760 FXR2 7543 LITBUF 0250 OUDWCT 2270 DEF 1662 FXR3 7567 LITEX 3120 OUELEN 2316 DEFSEQ 2155 FXT 7513 LIT1 3065 OUENTR 2307 DELMIT 1277 FXTAB 6026 LIT2 3060 OUFLD 0000 DEVS 4021 FXTB2 6033 LIT3 3076 OUHNDL 2305 DIGIT1 0542 FXTB3 6051 LNPRPG 0075 OUJMP 2225 DIGPT 0055 FX2 6006 LTTBL 1142 OUJMPE 2267 DIVE 1152 GETC 1272 MAIN 0400 OUNREC 2440 DIVIDE 2532 GETFLD 1714 MAIN2 0435 OUPOLD 2265 DIVOUT 2550 GETLIN 3122 MAIN3 0443 OUPTR 2266 DIV45A 2536 GETMOR 2120 MARGIN 0021 OUREC 2353 DIV45B 2562 GF1 1716 MASKF 0055 OUSETP 2200
/PDP-8 PS/8 CROSS REFERENCE PAL8-V7 4/20/71 PAGE 30-3 OUTDMP 2336 SYMLIM 0064 OUTEMP 2264 SYMNUM 0057 OUTSW 2216 SYMTAB 4400 OUT1 1116 SYM1 0036 OUT2 1112 SYM2 0037 PACK 1000 SYM3 0040 PAKIT 0734 SYSM 0062 PASN2 0045 S1 1064 PASSG1 0046 TEMP 0026 PASSN2 1600 TEMP1 0027 PASTST 2157 THI 1127 PCKOUT 1035 THOUS 0076 PNCHIT 5612 TLOW 1130 POSPT 0027 TSTEND 0700 PPSEUD 5234 TSTIT 0626 PRMSYM 1514 TSTPRM 1702 PSEUDO 0043 TTY 0234 PSWCH 0035 TTYPRT 2761 PTRSET 1337 TTYSWT 2531 PTRST1 1347 TXT 1252 PTRST2 1370 TXTBEG 0020 P2 1641 TXT2 1261 R 0052 USER 0041 RAD 0052 USR 0052 RDREC 2712 USSYM 0661 REF 0645 VERTST 0246 REFBUF 0066 VTMP 6070 REFENT 1665 VTST 6053 REPACK 0737 WRTLIN 0547 RPEAT 0503 XPJ 7473 RSWIT 0031 XPUNJ 5666 SAVE 0025 XPUNJ1 5722 SCAN 0604 XPUNJ3 5672 SCANER 0750 XRLINE 0010 SCAN1 0731 XRLIT 0011 SCAN2 0621 XRSYM1 0012 SCAN3 0620 XRSYM2 0013 SCHAR 0061 ZSPRES 0546 SCRATC 0027 SEMISV 0746 SEQNO 0024 SETXR 1162 SLSWIT 0747 SPACE 1740 SPCLUP 0524 SPSEUD 5044 STORIT 5615 ST1 4000 ST2 4027 ST3 4041 SUB3 0755 SYMADD 0056 SYMCHK 1041 SYMCNT 0033 SYMFLD 0054
ADDER 144# 863 902 918 919 937 938 1166 ADDUP 309 313# ANALYZ 267 377# ASHDLR 1279 1604 1648# 1664 1954 B 437 444# 758 762 1009 1012 1052 1063 1822 2437 2442 2447 2452 2457 2462 2467 2472 2477 2487 2492 2497 2502 2507 2512 2517 2527 2532 2537 2542 2581 2586 2596 2606 2611 2625 2630 2635 2640 2645 2650 2655 2660 2665 2675 2680 2723 2725 2730 2732 2734 2780 2829 2850 BASE 146# 874 904 1164 BASTBL 651# 870 BLAH 522 526 553# BLUE 1922# 1929 BLUE0 1915 1920# BLUE2 1977# BMPIT 438 443# BREAK 171# 887 1105 BUFFER 140# 189 193 811 818 819 824 1176 1185 1187 1196 1203 1272 1273 1561 2757 2759 2768 2782 BUMP 443 775# 803 2828 BUMP2 793# 801 CDFN 1017 1029 1041 1056 1073# CDFNA 1201 1205# 1224 CDFZ 1062# 1122 CDTFLD 822 829# CGTLIN 2697 2702# CHAIN 171 1882# CHAR 95# 234 240 263 350 351 355 383 402 411 450 458 479 494 752 759 767 768 1019 1136 1640 1829 1833 1835 2809 2814 CHDF 1115 1118# 1123 1126 1129 CHECK 235 384 389 395 1133# 1134 1138 1139 1140 1141 1145 1146 2810 2817 CHUG 2029# 2046 2047 2048 CLEAR 201# 205 428 444 CLRSEM 452 456# 461 CNTROL 152# 857 858 970 COCHAR 2706 2712# COMP 587# 619 621 COMPR 607 614# CONST 116# 256 281 283 294 784 1037 1152 1182 1237 COUNT 94# 291 318 321 334 596 608 685 718 729 735 740 792 800 816 835 877 880 901 940 949 1505 1507 1510 1513 1516 1518 1525 1921 1928 1962 1980 1991 2753 2763 2776 2783 2833 2847 COUNTR 1164# 1174 1248 1274 CPCHIT 2695 2701# CRLF 1262 1267 1506 1517 1529# 1534 CRLF1 1508 1519 1532# CSTRIT 2698 2703# CTPTR 153# 502 503 860 891 896 908 911 912 916 922 936 956 978 CUTSYM 928 932 959# CVTSEQ 260 280# 337 1241
CVT2 296 300# DCB 1488# 1489 DEF 1025 1050 1064# DEFSEQ 1220 1228 1283# DELMIT 754 756 770# DEVS 1894# 1897 DIGIT1 286 287 288 289 299 301 322 339# DIGPT 278# 302 310 317 323 324 330 333 DIVE 668# 670 675 1552 1556 DIVIDE 194 1191 1538# 1562 DIVOUT 1551 1553# DIV45A 1543# 1548 DIV45B 1539 1544 1545 1554 1559 1565# DIV45C 1540 1543 1555 1566# DIV45D 1541 1545# DMP 1177# 1268 DMP0 1247 1255# DMP2 1221# 1238 1256 1265 DMP3 1180# DMP5 1249 1267# DOLLAR 119# 467 2715 DOLL1 119 659 2482 2714# DOLL2 2722 2730# DOLOUT 2729 2736# DONE 953 980 1148# DPERM 1190 1270# DSWIT 100# 1802 1902 1917 DUMP 849 1168# DUN 2037 2043 2049# ENDPAS 243 848# 1252 1828 2714 2727 END2 863# 983 END3 965 982# ENTER 733# ENTRY 441 701# 742 2827 EPASS 2482# 2728 ERROR 156 179# 745 807 1379 1419 1429 1474 1705 1996 ERRTWO 1896 1995# ERR2 1427# ERR3 1399 1426# ERR4 1414 1425# ERR5 1470 1473# ERR7 799 805# FILLIP 1445# 1452 FINI 148# 1148 1250 FIRST 1153 1279# 1984 FLDPTR 117# 862 871 875 883 886 960 961 1104 1106 1113 1119 FLUSH 353 361# FORM 228 252 1170 1179 1261 1490 1491 1496# 1498 1522 FORM2 1501 1524# FORM3 1517# 1527 FPUT 164# 1834 1850 1852 2696 2699 FTEST 1943 2026# 2053 FUDGE 2747 2750# FUJ1 891# 2748 FXMR 2522 2547 2616 2808# 2816 2824
FXR 2616# 2733 FXR2 2522# 2724 FXR3 2547# 2726 FXT 2621# 2735 FXTAB 2621 2830# FXTB2 2835# 2848 FXTB3 2842 2849# FX2 2814# 2821 GETC 748 755 765# 769 GETFLD 821 1016 1103# 1116 1200 GETLIN 230 232 1824# 1856 1861 2702 GETMOR 1248# 1276 GF1 1105# 1114 GF2 1112 1115# GLIN3 1841 1849# GLIN4 1838 1846 1851# HEADER 229 361 2694# 2700 ICHAR 1591# 1602 1637 1639 1641 1827 ICHAR1 1613 1630# ICHAR2 1614 1626# ICHAR3 1615# INBREC 1685# 1703 INBUF 131# 1589 1682 INBUFP 1682# 1697 INCHAR 1592# 1606 1633 INCHCT 1583 1593 1642# 1694 INCOMN 1625 1631# INCTL 130# 134 1677 INCTLW 1621 1628 1678 1681# 1688 1691 INCTR 1645# 1657 1667 1671 INDEVH 132# 1950 INEOF 1584 1595 1644# 1662 1673 1701 INERRX 1684 1701# INFLD 134# INFPTR 1586 1599 1643# 1651 1658 1659 1661 INGBUF 1597 1605# INHAND 1646# 1680 1953 INHNDL 1950# 1952 INJMP 1592 1594 1612# 1616 1696 INJMPP 1594# 1615 1695 INLINE 1827# 1832 1845 INNEWF 1598# INPTR 1589# 1617 1624 1626 1629 1630 1698 INREC 1660 1683# 1685 1687 INRECS 133# 1669 1686 IOPEN 1149 1581# 1587 IOSR 150# 157 861 975 1165 ISYM 104# 487 534 535 536 547 1788 1789 1796 K 2030 2041 2044 2050 2054# KILOUT 1908 1994# K0 139# 2031 2038 LAST 580 592 614 642# LEFT 533 538# LIMIT 895 926 947 948 989# LINBUF 92 93 213# LINENO 1184 1255 1258 1284#
LITBUF 214# 1805 LITEX 1804 1821# LIT1 470 1791# LIT2 474 1786# LIT3 1790 1802# LNPRPG 158# 250 1177 1259 1502 1521 LTTBL 659# 884 2745 MAIN 228# 246 249 MAIN2 254 257# MAIN3 258 263# MARGIN 93# 347 1791 1825 1853 MASKF 121# 278 882 943 MAXFLD 115# 963 2052 2737 MCOMMA 1020 1066# MCTLD 241 268# MEQ 1022 1065# MLF 102# 356 453 1830 MOVEM 1964 1983 1986# 1993 MSGBS 188 198# MSGTBL 198 1725# M1 167# 680 791 827 1208 M12 166# 1183 1257 1263 M70 1447# 1520 NDPS1 852 862# NDPS2 896# 957 NMOR 707 744# NODUMP 1456 1459# NOFORM 250# 1918 1936 2716 NOTBIN 231# 239 266 447 457 497 2591 2741 2749 NTER 435 441# NTR1 721# 730 NTR2 736# 741 NUSER 888 889 941 972 988# NXTDV 1185# 1193 1275 NXTLIN 232# 1281 OCHAR 191 332 354 1128 1243 1312# 1316 1349 1355 1443 1444 1445 1512 1531 1533 1558 1560 1994 2712 OCHAR1 1325 1353# OCHAR2 1326 1350# OCHAR3 1327# OCLOSE 1253 1442# OEFAIL 1388 1395# OFILE 1368 1386 1468 1494# 1925 1927 OLINE 349# 358 ONEISZ 783 786 791# OOPEN 1367# 1393 1930 OTYPE 1446 1484# 1493 1931 OUBLK 1369 1386# 1390 OUBUF 126# 1306 1417 OUCCNT 1389 1408 1409 1410 1469# OUCHAR 1323# OUCOMN 1345 1355# OUCT 1346 1364# OUCTL 125# 128 1303 1364 1454 OUCTLW 1406 1416# 1477 OUDEVH 127# 1370
OUDWCT 1305 1344 1362# 1450 1453 OUELEN 1387# 1412 OUENTR 1380# 1403 OUFLD 128# 1457 OUHNDL 1371 1378# 1415 OUJMP 1309 1323 1324# 1341 1361 OUJMPE 1308 1340 1361# OUNREC 1407 1420 1476# 1482 OUPOLD 1331 1332 1351 1359# OUPTR 1307 1338 1339 1342 1350 1352 1354 1360# OUREC 1391 1418# 1421 1422 OUSETP 1302# 1310 1348 1392 OUTDMP 1347 1405# 1423 1458 OUTEMP 1314 1327 1333 1353 1358# OUTSW 1317# 1909 2718 OUT1 611 628# 633 OUT2 616 624# PACK 480 521# 525 552 1798 1801 1813 1815 2815 PAKIT 388 399 479# PASN2 113# 432 PASSG1 114# 848 1169 1286 PASSN2 113 1007# PASTST 257 431 1285# 1288 1289 1315 1497 PCKOUT 537 550# PNCHIT 2701 2705# 2707 POSPT 277# 304 307 314 316 PPSEUD 1967 2566# PRMSYM 915 939# PSEUDO 111# 419 705 1971 1978 PSWCH 105# 488 532 549 PTRSET 809# 837 1150 PTRST1 817# 836 PTRST2 826 834# P2 1036 1039 1047# R 141 1725 1726 1727 1728 1729 1730 1732 1733 1734 1735 1736 1737 1739 1740 1741 1742 1743 1744 1746 1747 1748 1749 1750 1751 1753 1754 1755 1756 1757 1758 1760 1761 1762 1763 1764 1765 1767 1768 1769 1770 1771 1772 1777 1778 2153# 2155 2156 2159 2160 2163 2164 2167 2168 2172 2173 2176 2177 2180 2181 2184 2185 2188 2189 2192 2193 2196 2197 2200 2201 2204 2205 2208 2209 2212 2213 2216 2217 2220 2221 2224 2225 2228 2229 2232 2233 2236 2237 2240 2241 2244 2245 2248 2249 2252 2253 2256 2257 2260 2261 2264 2265 2268 2269 2272 2273 2276 2277 2280 2281 2284 2285 2288 2289 2292 2293 2296 2297 2300 2301 2304 2305 2308 2309 2312 2313 2316 2317 2320 2321 2324 2325 2328 2329 2332 2333 2336 2337 2340 2341 2344 2345 2348 2349 2352 2353 2356 2357 2360 2361 2364 2365 2368 2369 2372 2373 2376 2377 2380 2381 2384 2385 2388 2389 2392 2393 2396 2397 2400 2401 2404 2405 2408 2409 2434 2435 2436 2439 2440 2444 2445 2446 2449 2450 2454 2455 2456 2459 2460 2461 2464 2465 2466 2469 2470 2471 2474 2475 2479 2480 2484 2485 2486 2489 2490 2491 2494 2499 2504 2505 2509 2510 2514 2515 2516 2519 2520 2521 2524 2525
2529 2530 2531 2534 2535 2536 2539 2540 2541 2544 2545 2546 2549 2550 2578 2579 2580 2583 2584 2585 2588 2589 2590 2593 2594 2595 2598 2599 2600 2603 2604 2605 2608 2609 2610 2613 2614 2615 2618 2619 2620 2623 2627 2628 2629 2632 2633 2634 2637 2638 2639 2642 2643 2644 2647 2648 2649 2652 2653 2654 2657 2658 2662 2663 2664 2667 2668 2672 2673 2674 2677 2678 2679 RAD 142 2113# 2125 2126 2129 2130 2133 2134 2137 2138 2141 2142 2145 2146 2149 2150 RDREC 1280 1605 1666# 1699 REF 417# REFBUF 1165# 1204 1206 1211 1217 1218 1219 1222 1223 1227 1233 1239 REFENT 1040 1049 1071# 1083 REPACK 401 483# 489 1818 1821 RPEAT 306# 311 319 RSWIT 101# 1916 1965 2720 SAVE 97# 179 182 184 185 187 282 292 297 305 423 425 426 429 542 543 545 714 715 721 724 725 778 780 788 789 794 795 828 830 831 833 905 930 934 1027 1028 1032 1044 1046 1054 1055 1061 1074 1077 1081 1091 2766 2774 2834 2836 2837 2839 2843 2846 SCAN 382# 478 481 498 SCANER 448 473 494# SCAN1 393 476# SCAN2 395# SCAN3 394# 1919 SCHAR 1166# 1232 1242 SCRATC 154# 155 SEMISV 377 407 456 491# SEQNO 96# 253 259 1048 1059 1151 SETXR 595 677# 686 702 SLSWIT 415 445 492# SPACE 262 1125# 1130 1131 1195 1245 1264 SPCLUP 324# 335 SPSEUD 1967 1968 2422# STORIT 164 2703 2709# 2711 ST1 170 1877# 1885 ST2 1888 1900# ST3 1906 1910# SUB3 500# 504 971 982 SYMADD 137# 421 635 717 776 1089 1093 SYMCHK 417 433 577# 578 610 636 637 1007 2825 SYMCNT 103# 181 195 485 523 550 1181 1192 1210 1213 1215 1246 SYMFLD 120# 942 2746 SYMLIM 147# 885 890 SYMNUM 138# 594 617 624 627 628 632 678 812 820 1110 1199 SYMTAB 86 2117# SYM1 104 106# 202 408 476 486 682 1817 2822 SYM2 107# 203 1787 1810 1811 SYM3 108# 204 SYSM 145# 850 954 966
S1 598# 609 TEMP 98# 909 913 1078 1080 1107 1108 TEMP1 99# 277 711 712 722 727 728 872 873 1072 1079 THI 579 581 583 584 585 589 639# THOUS 159# 166 167 303 TLOW 539 540 546 582 587 593 620 640# TSTEND 410 450# TSTIT 394 401# TSTPRM 436 1011 1088# 1096 1097 TTY 190 199# TTYPRT 199 1707# 1712 TTYSWT 1499 1536# 1933 1934 TXT 748# 751 2552 2670 TXTBEG 92# 379 TXT2 755# 763 USER 109# 139 434 703 708 709 814 854 951 974 1008 1172 2742 2755 2778 2826 2831 USR 118# 1376 1460 1879 1948 1956 USSYM 420 431# 1820 VERTST 215# 2859 VTMP 2855 2865 2867# VTST 1792 1806 2852# 2857 2858 2864 2866 WRTLIN 231 346# 359 362 XPJ 2601# 2731 XPUNJ 2601 2753# XPUNJ1 2762 2781# XPUNJ3 2757# 2784 XRLINE 86# 233 348 349 380 382 406 464 766 1826 1842 1854 1961 1969 1970 1977 1979 1981 1987 2710 2808 XRLIT 87# 1795 1797 1799 1807 1808 1812 1814 1982 1989 XRSYM1 88# 604 683 736 2769 2772 XRSYM2 89# 600 681 738 2771 2773 ZSPRES 325 326 327 336 343# _L0115 1955 _L0116 1930 _L0117 1827 _L0120 1816 _L0121 1532 1851 _L0122 1530 1849 _L0123 1511 _L0124 1401 1481 1487 1654 _L0125 1384 1466 1634 1891 _L0126 1322 1373 1381 1396 1400 1402 1463 1486 1689 1692 1886 1899 _L0127 1149 _L0130 1127 1231 1553 1557 _L0131 968 _L0132 900 1198 _L0133 887 1105 _L0134 832 1427 _L0135 806 _L0136 787 1045 _L0137 758 762 1009 1012 1052 1063 1822 _L0140 682
_L0141 673 _L0142 602 793 856 917 923 1075 1212 _L0143 527 674 1449 _L0144 480 1798 1801 1813 1815 _L0145 465 1209 1958 _L0146 444 _L0147 443 _L0150 441 1959 _L0151 436 _L0152 422 777 797 810 910 1090 1175 1230 1271 _L0153 417 433 1007 _L0154 331 _L0155 298 2045 _L0156 290 320 468 684 713 734 1194 1504 1515 1920 _L0157 285 817 859 946 _L0160 267 _L0161 264 1836 _L0162 262 1195 1245 1264 _L0163 261 501 1180 _L0164 257 431 1315 1497 _L0165 255 1236 _L0166 243 1252 1828 _L0167 235 384 389 395 _L0170 229 361 _L0171 228 252 1170 1179 1261 _L0172 197 1471 1860 _L0173 194 _L0174 191 332 354 1128 1243 1443 1444 1445 1512 1531 1533 1558 1560 _L0175 180 484 1509 _L0176 156 745 807 1379 1419 1429 1474 1705 1996 _L0177 151 _L0376 171 _L0377 170 _L0572 329 _L0573 303 _L0574 301 322 _L0575 247 _L0576 244 _L0577 230 232 _L0767 486 _L0770 474 _L0771 471 _L0772 470 _L0773 462 _L0774 447 457 497 _L0775 428 _L0776 412 459 _L0777 403 495 _L1174 595 _L1175 531 _L1176 530 _L1177 528 671 _L1374 821 _L1375 760 _L1376 749
_L1377 702 _L1571 980 _L1572 971 982 _L1573 969 _L1574 953 _L1575 884 _L1576 870 _L1577 849 _L1776 1153 _L1777 1150 _L2170 1281 _L2171 1280 _L2172 1279 _L2173 1262 1267 _L2174 1253 _L2175 1241 _L2176 1200 _L2177 1191 _L2366 1407 1420 _L2367 1397 _L2370 1389 1408 1409 1410 _L2371 1370 _L2372 1368 _L2373 1330 1337 _L2374 1318 _L2375 1313 _L2376 1306 _L2377 1303 _L2564 1552 1556 _L2565 1549 _L2566 1546 _L2567 1489 _L2570 1477 _L2571 1473 _L2572 1458 _L2573 1457 _L2574 1454 _L2575 1450 1453 _L2576 1448 _L2577 1442 _L2767 1704 _L2770 1677 _L2771 1669 1686 _L2772 1652 _L2773 1638 _L2774 1635 _L2775 1631 _L2776 1618 1627 _L2777 1585 _L3167 1858 _L3170 1843 _L3171 1820 _L3172 1818 1821 _L3173 1809 _L3174 1805
_L3175 1800 _L3176 1792 1806 _L3177 1786 _L4155 1984 _L4156 1968 _L4157 1967 _L4160 1957 1960 _L4161 1954 _L4162 1953 _L4163 1943 _L4164 1933 1934 _L4165 1932 _L4166 1931 _L4167 1925 1927 _L4170 1923 1926 _L4171 1919 _L4172 1918 1936 _L4173 1913 _L4174 1909 _L4175 1904 _L4176 1901 1903 1911 _L4177 1883 1945 _L4377 2027 2035 _L5755 2781 _L5756 2767 2770 _L5757 2760 _L5760 2748 _L5761 2745 _L5762 2744 _L5763 2741 2749 _L5764 2739 _L5765 2735 _L5766 2733 _L5767 2731 _L5770 2728 _L5771 2726 _L5772 2724 _L5773 2723 2725 2730 2732 2734 2780 _L5774 2718 _L5775 2717 _L5776 2716 _L5777 2714 2727 _L6164 2863 _L6165 2860 _L6166 2859 _L6167 2845 _L6170 2840 _L6171 2835 _L6172 2829 2850 _L6173 2828 _L6174 2827 _L6175 2825 _L6176 2815 _L6177 2810 2817