File: GLOBL.LS of Disk: V50/Multi8/Multi-1
(Source file text)
/GLOBL.PA VERSION 2 PAL8-V50Y 16-JAN-23 PAGE 1 /GLOBL.PA VERSION 2 /A PROGRAM TO SHORTEN THE MONITOR SYMBOL LIST / OCTOBER 1974 /START-ADDRESS IS 00200 /WHEN ASSEMBLING PARTS OF THE MULTI8-SYSTEM, /E.G. TASKS,MUCH TIME IS SPENT BY THE ASSEMBLER /TO COPY THE MONITOR-SYMBOLS (M.LS)TO ITS INTERNAL /SYMBOL-LIST. THIS TIME CAN BE MINIMIZED BY /SHORTENING THE MONITOR-SYMBOL-LIST. /THIS OPERATION MAY BE PERFORMED BY THIS PROGRAM. /IT WILL ONLY COPY THOSE SYMBOLS WHICH ARE IN A /SECOND LIST (OR WHICH ARE NOT, OR ALL) ON THE SPE- /CIFIED OUTPUT FILE. /HOW TO USE: /.R GLOBL /*OUT<INP1,INP2/X /INP1 IS THE REFERENCE LIST (SYMBLS) /INP2 IS THE INPUT FILE (M.LS) /IF ONLY 1 INPUTFILE IS SPECIFIED, COPY ALL SYMBOLS / /THE REFERENCE LIST MUST START AND END WITH A LINE /CONTAINING A "*" AT THE FIRST POSITION. /THE FILE INP2 IS THE OUTPUT OF THE ASSEMBLER WHEN /ASSEMBLING THE MONITOR (WITH OPTIONS /H/N/D) / /SPECIFIED OPTION X : / /V MEANS: INVERTED SENSE (=COPY ALL SYMBOLS WHICH ARE NOT / IN THE REFERENCE LIST.) /WHEN NO OPTION IS SPECIFIED: COPY ALL SYMBOLS WHICH ARE / IN THE REFERENCE LIST. (IF ANY) /GLOBL.PA VERSION 2 PAL8-V50Y 16-JAN-23 PAGE 2 0015 *15 000015 0577 P15, PS8OUT-1 /POINTER TO OS8OUT IN FLD 0 000016 7177 P16, OS8OUT-1 /POINTER TO OS8OUT IN FLD 1 000017 7400 T17, -400 /MOVE 400 LOCS 000020 7402 MOVE, HLT /MOVE SUBROUTINE 000021 1415 TAD I P15 000022 6211 CDF 10 000023 3416 DCA I P16 000024 6201 CDF 0 000025 2017 ISZ T17 000026 5021 JMP MOVE+1 000027 5420 JMP I MOVE /RETURN 000030 0000 NAMTAL, 0 000031 0000 NAMINT, 0 000032 7774 OUTTAL, -4 000033 0000 INCTAL, 0 000034 0000 INCPNT, 0 000035 0000 INCP2, 0 000036 0000 SRTAL, 0 000037 0000 SRPNT, 0 000040 0000 NAMPNT, 0 000041 0000 TEM, 0 000042 0000 CHR, 0 000043 0000 NAME2, ZBLOCK 3 /THERE IS ROOM LEFT IN PAGE 0,SO WE CAN /PUT A SUBROUTINE HERE 000046 7402 HEAD, HLT /GIVE HEADING 000047 4577 JMS I [XLSTX /XLIST;IFNDEF MONITO < 000050 4576 JMS I [PRSTR 000051 0311 "I;"F;"N;"D;"E;"F;211;"M;"O;"N;"I;"T;"O 000052 0306 000053 0316 000054 0304 000055 0305 000056 0306 000057 0211 000060 0315 000061 0317 000062 0316 000063 0311 000064 0324 000065 0317 000066 0211 211;"<;215;212;0 000067 0274 000070 0215 000071 0212 000072 0000 000073 5446 JMP I HEAD 0200 PAGE /GLOBL.PA VERSION 2 PAL8-V50Y 16-JAN-23 PAGE 3 /START OF PROGRAM 000200 4020 START, JMS MOVE /MOVE UP OS8OUT,OS8IN 000201 4575 JMS I [RDLIST /READ REFERENCE LIST 000202 4574 RDRET0, JMS I [SKCR / SKIP 3 (CR) 000203 4574 OPTAST, JMS I [SKCR 000204 4574 JMS I [SKCR 000205 4046 JMS HEAD /OUTPUT HEADING 000206 4220 LOOP, JMS INNAM /READ A NAME 000207 5215 JMP ENDFIL /E.O.T RETURN 000210 4573 JMS I [INCOD /MAKE ASCII-240 CODE 000211 4572 SRINS, JMS I [SEARCH /NAME IN THE LIST ? /NOTE: SRINS,SRINS+1,SRINS+2 WILL BE CHANGED BY /OPTIONS /A OR /V, SO KEEP THEM IN THIS ORDER 000212 5206 JMP LOOP /NO 000213 4274 JMS OUTPUT /OUTPUT NAME + NUMBER 000214 5206 JMP LOOP 000215 4571 ENDFIL, JMS I [FXTAB /COMMENT AFTER LIST 000216 1170 TAD [232 /CNTRL Z TO CLOSE THE FILE 000217 4567 JMS I [OUT 000220 7402 INNAM, HLT /READ A NAME (11 CHARS) 000221 1166 TAD [NAME 000222 3040 DCA NAMPNT /SET POINTER 000223 1165 TAD [-13 000224 3030 DCA NAMTAL /SET TALLY 000225 6212 L1, CIF 10 000226 4564 JMS I [OS8IN /READ A CHAR 000227 3042 DCA CHR 000230 5345 INSTRT, JMP TESTOP /OVERLAID BY: TAD CHR 000231 1163 TAD [-240 000232 7510 SPA 000233 5240 JMP NOCHAR 000234 1162 TAD [240-"/ /SLASH ? 000235 7650 SNA CLA 000236 5264 JMP SLASH /COMMENT 000237 5254 JMP CHAROK 000240 1161 NOCHAR, TAD [240-212 /IGNORE LINEFEED 000241 7450 SNA 000242 5221 JMP INNAM+1 000243 1160 TAD [212-215 /C.R. ? 000244 7450 SNA 000245 5266 JMP INNAMR /TOO SHORT; MAKE SPACES /GLOBL.PA VERSION 2 PAL8-V50Y 16-JAN-23 PAGE 4 000246 7001 IAC /215-214/FORM ? 000247 7450 SNA 000250 5221 JMP INNAM+1 /YES: IGNORE 000251 1157 TAD [214-232 /CTRL Z ? 000252 7650 SNA CLA 000253 5620 JMP I INNAM /ERROR RETURN 000254 1042 CHAROK, TAD CHR 000255 3440 DCA I NAMPNT /TO BUFFER 000256 2040 ISZ NAMPNT 000257 2030 ISZ NAMTAL 000260 5225 JMP L1 /NEXT CHAR 000261 4574 JMS I [SKCR /SKIP TILL (CR) 000262 2220 INRET, ISZ INNAM /NORMAL RETURN 000263 5620 JMP I INNAM 000264 4574 SLASH, JMS I [SKCR 000265 5221 JMP INNAM+1 000266 1156 INNAMR, TAD [240 /GENERATE SPACES 000267 3440 DCA I NAMPNT 000270 2040 ISZ NAMPNT 000271 2030 ISZ NAMTAL 000272 5266 JMP INNAMR /LOOP 000273 5262 JMP INRET /RETURN 000274 7402 OUTPUT, HLT 000275 1155 TAD ["= 000276 3306 DCA NAME+6 /SPACE TO "= 000277 4576 JMS I [PRSTR /OUTPUT THE STRING 000300 0000 NAME, ZBLOCK 14 000314 2032 ISZ OUTTAL /DONE 4 ? 000315 5325 JMP OUTX /NO 000316 1154 TAD [-4 /RESET TALLY 000317 3032 DCA OUTTAL 000320 1153 TAD [215 /OUTPUT CRLF 000321 4567 JMS I [OUT 000322 1152 TAD [212 000323 4567 JMS I [OUT 000324 5674 JMP I OUTPUT /RETURN 000325 1151 OUTX, TAD ["; 000326 4567 JMS I [OUT 000327 1150 TAD [211 000330 4567 JMS I [OUT 000331 5674 JMP I OUTPUT /GLOBL.PA VERSION 2 PAL8-V50Y 16-JAN-23 PAGE 5 000332 7402 XLSTX, HLT /OUTPUT "XLIST" 000333 4576 JMS I [PRSTR 000334 0330 "X;"L;"I;"S;"T;215;212;0 000335 0314 000336 0311 000337 0323 000340 0324 000341 0215 000342 0212 000343 0000 000344 5732 JMP I XLSTX 000345 6211 TESTOP, CDF 10 /TEST OPTIONS (/V AND /A) 000346 1147 TAD [TAD CHR 000347 3230 DCA INSTRT 000350 1546 TAD I [7621 /GET SECOND INPUT 000351 7650 SNA CLA 000352 5365 JMP OPTA /NO SECOND INPUT 000353 1545 TAD I [7644 /GET 2ND OPTION WORD 000354 6201 CDF 0 000355 0144 AND [4 /TEST OPTION V 000356 7650 SNA CLA /YES 000357 5230 JMP INSTRT /NO OPTION SPECIFIED 000360 1213 OPTV, TAD SRINS+2 /CHANGE THE PROGRAM A BIT 000361 3212 DCA SRINS+1 /JMP LOOP WILL BE JMS OUTPUT 000362 1214 TAD SRINS+3 /JMS OUTPUT WILL BE JMP LOOP 000363 3213 DCA SRINS+2 000364 5230 JMP INSTRT /RETURN 000365 6201 OPTA, CDF 0 000366 1143 TAD [SKP CLA /CHANGE PROGRAM 000367 3211 DCA SRINS 000370 5203 JMP OPTAST 0400 PAGE /GLOBL.PA VERSION 2 PAL8-V50Y 16-JAN-23 PAGE 6 000400 7402 OUT, HLT 000401 6212 CIF 10 000402 4542 JMS I [OS8OUT 000403 5600 JMP I OUT 000404 7402 PRSTR, HLT 000405 1604 TAD I PRSTR /GET CHAR 000406 2204 ISZ PRSTR 000407 7450 SNA 000410 5604 JMP I PRSTR 000411 1163 TAD [-240 /DON'T OUTPUT SPACES 000412 7450 SNA 000413 5205 JMP PRSTR+1 000414 1156 TAD [240 000415 4200 JMS OUT 000416 5205 JMP PRSTR+1 000417 7402 SEARCH, HLT /NAME IN NAMLIST 000420 1141 TAD [NAMLST 000421 3037 DCA SRPNT 000422 4236 SRLP, JMS SRCH1 000423 5617 JMP I SEARCH /NOT FOUND 000424 1044 TAD NAME2+1 000425 4262 JMS SRCH2 000426 5234 JMP SRLPX /TRY NEXT NAME 000427 1045 TAD NAME2+2 000430 4262 JMS SRCH2 000431 5222 JMP SRLP /TRY NEXT NAME 000432 2217 ISZ SEARCH /FOUND 000433 5617 JMP I SEARCH /RETURN 000434 2037 SRLPX, ISZ SRPNT 000435 5222 JMP SRLP 000436 7402 SRCH1, HLT 000437 1437 SRLP2, TAD I SRPNT 000440 2037 ISZ SRPNT 000441 7450 SNA /END OF LIST 000442 5636 JMP I SRCH1 /YES 000443 1043 TAD NAME2 000444 7650 SNA CLA 000445 5251 JMP SRCH1X /FOUND 000446 2037 ISZ SRPNT 000447 2037 ISZ SRPNT /POINT TO NEXT NAME 000450 5237 JMP SRLP2 /NEXT TRY 000451 2236 SRCH1X, ISZ SRCH1 /NORMAL RETURN 000452 5636 JMP I SRCH1 /GLOBL.PA VERSION 2 PAL8-V50Y 16-JAN-23 PAGE 7 000453 7402 SKCR, HLT 000454 6212 CIF 10 000455 4564 JMS I [OS8IN 000456 1140 TAD [-215 000457 7640 SZA CLA 000460 5254 JMP SKCR+1 000461 5653 JMP I SKCR 000462 7402 SRCH2, HLT /NEXT CHARS EQUAL ? 000463 1437 TAD I SRPNT 000464 2037 ISZ SRPNT 000465 7650 SNA CLA /NO 000466 2262 ISZ SRCH2 /YES 000467 5662 JMP I SRCH2 /RETURN 000470 7402 INCOD, HLT /MAKE NAME2=NAME(ASCII-240 CODE) 000471 1160 TAD [-3 000472 3033 DCA INCTAL /SET TALLY 000473 1166 TAD [NAME 000474 3034 DCA INCPNT 000475 1137 TAD [NAME2 /2ND TALLY 000476 3035 DCA INCP2 000477 1434 INCLP1, TAD I INCPNT /GET CHAR 000500 2034 ISZ INCPNT 000501 1163 TAD [-240 /MAKE ASCII-240 000502 0136 AND [77 000503 7106 CLL RTL;RTL;RTL /BSW 000504 7006 000505 7006 000506 3435 DCA I INCP2 /TO NAME2 000507 1434 TAD I INCPNT /2ND CHAR 000510 2034 ISZ INCPNT 000511 1163 TAD [-240 000512 0136 AND [77 000513 1435 TAD I INCP2 /+FIRST 000514 3435 DCA I INCP2 /RESTORE 000515 2035 ISZ INCP2 000516 2033 ISZ INCTAL /READY ? 000517 5277 JMP INCLP1 /NO 000520 5670 JMP I INCOD /RETURN /GLOBL.PA VERSION 2 PAL8-V50Y 16-JAN-23 PAGE 8 000521 7402 RDLIST, HLT /INPUT NAMLST FROM FIRST FILE 000522 1135 TAD [NAMLST-1 /SET POINTER 000523 3011 DCA 11 000524 4534 RDLP, JMS I [INNAM /READ NAME FROM FIRST FILE 000525 5324 JMP RDLP /BAD NAME ? 000526 1566 TAD I [NAME /CHECK NAME 000527 1133 TAD [-"* /A "*" ? 000530 7640 SZA CLA /Y 000531 5324 JMP RDLP /NO:TRY AGAIN 000532 4534 RDLP2, JMS I [INNAM /READ NAME 000533 7402 HLT /*****ERROR***** 000534 1566 TAD I [NAME /TEST FOR END 000535 1133 TAD [-"* 000536 7650 SNA CLA 000537 5353 JMP RDEND /END OF FIRST FILE 000540 4270 JMS INCOD /MAKE ASCII-240 000541 1043 TAD NAME2 /MOVE NAME2 000542 7041 CIA /MINUS FOR COMPARE 000543 3411 DCA I 11 000544 1044 TAD NAME2+1 000545 7041 CIA /MINUS 000546 3411 DCA I 11 000547 1045 TAD NAME2+2 000550 7041 CIA /MINUS 000551 3411 DCA I 11 000552 5332 JMP RDLP2 /NEXT NAME 000553 3411 RDEND, DCA I 11 /0=END OF LIST 000554 5721 JMP I RDLIST /RETURN 000555 7402 FXTAB, HLT /COMMENT AFTER LIST 000556 4576 JMS I [PRSTR 000557 0276 ">;215;212;"F;"I;"X;"T;"A;"B;";;0 000560 0215 000561 0212 000562 0306 000563 0311 000564 0330 000565 0324 000566 0301 000567 0302 000570 0273 000571 0000 000572 4577 JMS I [XLSTX 000573 5755 JMP I FXTAB /RETURN 0600 PAGE 0600 NAMLST=. /GLOBL.PA VERSION 2 PAL8-V50Y 16-JAN-23 PAGE 9 /OS8IN-OS8OUT /THESE ROUTINES WILL BE LOAD IN FIELD 0 /BUT RUN IN FIELD 1 /IF THE PROGRAM STARTS THESE TWO PAGES /WILL BE MOVED UP TO 17200-17577 0001 TWOPAG=1 0000 BUFOUT=0000 0007 BLKOUT=7 7200 HANDL=7200 0010 PFIELD=10 7601 FILNAM=7601 0010 BUFFLD=10 4000 WRITE=4000 000600 0000 PS8OUT, 0 7200 OS8OUT=7200 000601 3364 DCA CHAR / RDF / TAD PSOCIF / DCA PSORET 000602 6211 CDF PFIELD 000603 5310 PSINIT, JMP PSOBEG 000604 4334 JMS PSWRIT 000605 1364 TAD CHAR 000606 1371 TAD PSM232 000607 7640 SZA CLA 000610 5222 JMP PSORET 000611 3364 DCA CHAR 000612 4225 PSPACK, JMS PACKB 000613 7410 SKP 000614 5212 JMP .-2 000615 4334 JMS PSWRIT 000616 7307 CLA CLL IAC RTL 000617 4272 JMS PSOUSR 000620 6203 PSOCIF, CIF CDF 0 000621 5663 JMP I PS7600 000622 6203 PSORET, CDF CIF 0 000623 5600 JMP I PS8OUT /GLOBL.PA VERSION 2 PAL8-V50Y 16-JAN-23 PAGE 10 000624 7400 7400 000625 0000 PACKB, 0 000626 1365 TAD OUPKSW 000627 7440 SZA 000630 5244 JMP PACKON 000631 1364 TAD CHAR 000632 3766 DCA I OUPTR 000633 1366 TAD OUPTR 000634 7110 CLL RAR 000635 7620 SNL CLA 000636 5242 JMP .+4 000637 7344 CLA CLL CMA RAL 000640 3365 DCA OUPKSW 000641 7410 SKP 000642 2366 ISZ OUPTR 000643 5267 JMP PACKEX 000644 7240 PACKON, CLA CMA 000645 1366 TAD OUPTR 000646 3366 DCA OUPTR 000647 1364 TAD CHAR 000650 7006 RTL 000651 7006 RTL 000652 3315 DCA PSOBL-1 000653 1315 TAD PSOBL-1 000654 0224 AND PACKB-1 000655 1766 TAD I OUPTR 000656 3766 DCA I OUPTR 000657 2366 ISZ OUPTR 000660 1315 TAD PSOBL-1 000661 2365 ISZ OUPKSW 000662 5250 JMP PACKON+4 000663 7600 PS7600, 7600 000664 1367 TAD LIMIT 000665 1366 TAD OUPTR 000666 7710 SPA CLA 000667 2225 PACKEX, ISZ PACKB 000670 5625 JMP I PACKB /GLOBL.PA VERSION 2 PAL8-V50Y 16-JAN-23 PAGE 11 000671 7601 FILNAM 000672 0000 PSOUSR, 0 000673 3303 DCA PSCALL+1 000674 1271 TAD PSOUSR-1 000675 3304 DCA PSCALL+2 000676 1316 TAD PSOBL 000677 3305 DCA PSCALL+3 000700 1663 TAD I PS7600 000701 0377 AND (17 000702 4770 PSCALL, JMS I USR 000703 0000 0 000704 0000 0 000705 0000 0 000706 5331 JMP ERR2 000707 5672 JMP I PSOUSR 000710 1663 PSOBEG, TAD I PS7600 000711 7450 SNA 000712 7325 CLA CLL CML IAC RAL 000713 3663 DCA I PS7600 000714 1663 TAD I PS7600 000715 4770 JMS I USR 000716 0001 PSOBL, 1 000717 7201 PSOHND, HANDL+TWOPAG 000720 7305 CLA CLL IAC RAL 000721 7125 CLL CML IAC RAL 000722 4272 JMS PSOUSR 000723 1212 TAD PSPACK 000724 3203 DCA PSINIT 000725 3316 DCA PSOBL 000726 5203 JMP PSINIT 000727 2271 ERR4, ISZ PSOUSR-1 000730 2271 ERR3, ISZ PSOUSR-1 000731 2271 ERR2, ISZ PSOUSR-1 000732 5320 JMP PSOHND+1 /GLOBL.PA VERSION 2 PAL8-V50Y 16-JAN-23 PAGE 12 000733 0007 BLKOUT 000734 0000 PSWRIT, 0 000735 1304 TAD PSCALL+2 000736 3351 DCA PSOWRI 000737 1305 TAD PSCALL+3 000740 7100 CLL 000741 1333 TAD PSWRIT-1 000742 7430 SZL 000743 5330 JMP ERR3 000744 3305 DCA PSCALL+3 000745 6202 CIF 0 000746 4717 JMS I PSOHND 000747 5610 BLKOUT^200+BUFFLD+WRITE 000750 0000 PSOBUF, BUFOUT 000751 7773 PSOWRI, -5 000752 5327 JMP ERR4 000753 1333 TAD PSWRIT-1 000754 1304 TAD PSCALL+2 000755 3304 DCA PSCALL+2 000756 1333 TAD PSWRIT-1 000757 1316 TAD PSOBL 000760 3316 DCA PSOBL 000761 1350 TAD PSOBUF 000762 3366 DCA OUPTR 000763 5734 JMP I PSWRIT 000764 0000 CHAR, 0 000765 0000 OUPKSW, 0 000766 0000 OUPTR, BUFOUT 000767 4400 LIMIT, -BLKOUT^400-BUFOUT 000770 7700 USR, 7700 000771 7546 PSM232, -232 000777 0017 1000 PAGE /GLOBL.PA VERSION 2 PAL8-V50Y 16-JAN-23 PAGE 13 /OS8 INPUT ROUTINE 0001 INTPAG=1 3400 BUFIN=3400 0007 BLOKIN=7 6600 HANDIN=6600 1423 PSEXT=1423 /.LS 0010 PSFLD=10 0010 BUFIFD=10 001000 0000 PS8IN, 0 7400 OS8IN=7400 001001 7600 PSIMON, 7600 / RDF / TAD PSICIF / DCA PSIEXT+1 001002 5266 PSINST, JMP PSIJOB 001003 1274 TAD INPKSW 001004 7640 SZA CLA 001005 5222 JMP INPKON 001006 1673 TAD I INPTR 001007 0224 AND PSI377 001010 3301 DCA INCHAR 001011 1273 TAD INPTR 001012 7110 CLL RAR 001013 7620 SNL CLA 001014 5220 JMP .+4 001015 7344 CLL CLA CMA RAL 001016 3274 DCA INPKSW 001017 7410 SKP 001020 2273 ISZ INPTR 001021 5254 JMP GETEX 001022 3301 INPKON, DCA INCHAR 001023 1673 TAD I INPTR 001024 0377 PSI377, AND PS7400 001025 1301 TAD INCHAR 001026 7112 CLL RTR 001027 7012 RTR 001030 3301 DCA INCHAR 001031 7240 CLA CMA 001032 1273 TAD INPTR 001033 3273 DCA INPTR 001034 2274 ISZ INPKSW 001035 5223 JMP INPKON+1 /GLOBL.PA VERSION 2 PAL8-V50Y 16-JAN-23 PAGE 14 001036 7325 CLA CLL CML IAC RAL 001037 1273 TAD INPTR 001040 3273 DCA INPTR 001041 2272 ISZ PTR2 001042 5254 JMP GETEX 001043 1201 TAD PSIMON 001044 3272 DCA PTR2 001045 2275 ISZ PSINUM 001046 7410 SKP 001047 5302 JMP PSCTRZ 001050 1370 TAD INLIM 001051 1273 TAD INPTR 001052 7700 SMA CLA 001053 4342 JMS PSREAD 001054 1301 GETEX, TAD INCHAR 001055 1365 TAD PSI232 001056 7650 SNA CLA 001057 5302 JMP PSCTRZ 001060 1301 PSIEXT, TAD INCHAR 001061 6203 CDF CIF 0 001062 5600 JMP I PS8IN 001063 1364 PSIEND, TAD PS232 001064 5261 JMP PSIEXT+1 001065 6203 PSICIF, CIF CDF 0 001066 6201 PSIJOB, CDF 0 001067 1766 TAD I PS7746 001070 0342 AND PSREAD 001071 1347 TAD PSIRD 001072 3766 PTR2, DCA I PS7746 001073 6211 INPTR, CDF PSFLD 001074 1273 INPKSW, TAD .-1 001075 3202 PSINUM, DCA PSINST 001076 4750 PSCD, JMS I PSIUSR 001077 0005 5 001100 1423 PSEXT 001101 0000 INCHAR, 0 001102 2367 PSCTRZ, ISZ PSINDV 001103 1332 TAD HANDAD 001104 3312 DCA PSIHND 001105 1767 TAD I PSINDV 001106 7450 SNA 001107 5263 JMP PSIEND /GLOBL.PA VERSION 2 PAL8-V50Y 16-JAN-23 PAGE 15 001110 4750 JMS I PSIUSR 001111 0001 1 001112 0000 PSIHND, 0 001113 5334 JMP INER1 001114 1767 TAD I PSINDV 001115 0351 AND PSIRD+2 001116 7450 SNA 001117 7207 CLA IAC RTL 001120 7112 RTR CLL 001121 7012 RTR 001122 7500 SMA 001123 1377 TAD PS7400 001124 3275 DCA PSINUM 001125 2367 ISZ PSINDV 001126 1767 TAD I PSINDV 001127 3347 DCA PSIRD 001130 4342 JMS PSREAD 001131 5203 JMP PSINST+1 001132 6601 HANDAD, HANDIN+INTPAG 001133 7201 INER2, CLA IAC 001134 1277 INER1, TAD PSCD+1 001135 3300 DCA PSCD+2 001136 2277 ISZ PSCD+1 001137 2277 ISZ PSCD+1 001140 5276 JMP PSCD 001141 0007 BLOKIN 001142 6777 PSREAD, 6777 001143 6202 CIF 0 001144 4712 JMS I PSIHND 001145 1610 BLOKIN^200+BUFIFD 001146 3400 PSIBUF, BUFIN 001147 1000 PSIRD, 1000 001150 7700 PSIUSR, SMA CLA 001151 7760 7760 001152 5333 JMP INER2 001153 1341 TAD PSREAD-1 001154 1347 TAD PSIRD 001155 3347 DCA PSIRD 001156 1346 TAD PSIBUF 001157 3273 DCA INPTR 001160 3274 DCA INPKSW 001161 1201 TAD PSIMON 001162 3272 DCA PTR2 001163 5742 JMP I PSREAD /GLOBL.PA VERSION 2 PAL8-V50Y 16-JAN-23 PAGE 16 001164 0232 PS232, 232 001165 7546 PSI232, -232 001166 7746 PS7746, 7746 001167 7616 PSINDV, 7616 001170 1000 INLIM, -BLOKIN^400-BUFIN 1177 *PS8IN+177 001177 7400 PS7400, 7400 1200 PAGE $ 000133 7526 000134 0220 000135 0577 000136 0077 000137 0043 000140 7563 000141 0600 000142 7200 000143 7610 000144 0004 000145 7644 000146 7621 000147 1042 000150 0211 000151 0273 000152 0212 000153 0215 000154 7774 000155 0275 000156 0240 000157 7762 000160 7775 000161 0026 000162 7761 000163 7540 000164 7400 000165 7765 000166 0300 000167 0400 000170 0232 000171 0555 000172 0417 000173 0470 000174 0453 000175 0521 000176 0404 000177 0332 /GLOBL.PA VERSION 2 PAL8-V50Y 16-JAN-23 PAGE 17 BLKOUT 0007 OUT 0400 SEARCH 0417 BLOKIN 0007 OUTPUT 0274 SKCR 0453 BUFFLD 0010 OUTTAL 0032 SLASH 0264 BUFIFD 0010 OUTX 0325 SRCH1 0436 BUFIN 3400 PACKB 0625 SRCH1X 0451 BUFOUT 0000 PACKEX 0667 SRCH2 0462 CHAR 0764 PACKON 0644 SRINS 0211 CHAROK 0254 PFIELD 0010 SRLP 0422 CHR 0042 PRSTR 0404 SRLPX 0434 ENDFIL 0215 PSCALL 0702 SRLP2 0437 ERR2 0731 PSCD 1076 SRPNT 0037 ERR3 0730 PSCTRZ 1102 SRTAL 0036 ERR4 0727 PSEXT 1423 START 0200 FILNAM 7601 PSFLD 0010 TEM 0041 FXTAB 0555 PSIBUF 1146 TESTOP 0345 GETEX 1054 PSICIF 1065 TWOPAG 0001 HANDAD 1132 PSIEND 1063 T17 0017 HANDIN 6600 PSIEXT 1060 USR 0770 HANDL 7200 PSIHND 1112 WRITE 4000 HEAD 0046 PSIJOB 1066 XLSTX 0332 INCHAR 1101 PSIMON 1001 INCLP1 0477 PSINDV 1167 INCOD 0470 PSINIT 0603 INCPNT 0034 PSINST 1002 INCP2 0035 PSINUM 1075 INCTAL 0033 PSIRD 1147 INER1 1134 PSIUSR 1150 INER2 1133 PSI232 1165 INLIM 1170 PSI377 1024 INNAM 0220 PSM232 0771 INNAMR 0266 PSOBEG 0710 INPKON 1022 PSOBL 0716 INPKSW 1074 PSOBUF 0750 INPTR 1073 PSOCIF 0620 INRET 0262 PSOHND 0717 INSTRT 0230 PSORET 0622 INTPAG 0001 PSOUSR 0672 LIMIT 0767 PSOWRI 0751 LOOP 0206 PSPACK 0612 L1 0225 PSREAD 1142 MOVE 0020 PSWRIT 0734 NAME 0300 PS232 1164 NAME2 0043 PS7400 1177 NAMINT 0031 PS7600 0663 NAMLST 0600 PS7746 1166 NAMPNT 0040 PS8IN 1000 NAMTAL 0030 PS8OUT 0600 NOCHAR 0240 PTR2 1072 OPTA 0365 P15 0015 OPTAST 0203 P16 0016 OPTV 0360 RDEND 0553 OS8IN 7400 RDLIST 0521 OS8OUT 7200 RDLP 0524 OUPKSW 0765 RDLP2 0532 OUPTR 0766 RDRET0 0202 ERRORS DETECTED: 0 LINKS GENERATED: 0