12 22FL #LIS K0CLOSEMT>K0LIBRARY>K0ALLGEO 15 22_= #SEG CLOSEMT65 [N.R.BOULT 4 2357 ...[ 15 2394 ...[ (C) COPYRIGHT INTERNATIONAL COMPUTERS LTD 1982 4 23#_ ...[ 9 23DW 8HCLOSEMT 15 23YG # ENTRY POINT 1 12 24D6 SEGENTRY K1CLOSEMT,QK1CLOSEMT 12 24XQ SEGENTRY K2CLOSEMT,QK2CLOSEMT 12 25CB SEGENTRY K3CLOSEMT,QK3CLOSEMT 12 25X2 SEGENTRY K4CLOSEMT,QK4CLOSEMT 4 2648 ...[ 15 269B ... FSHENTRY K5CLOSEMT,QK5CLOSEMT,,QK5CLOSEMT 4 26BL # 4 26W= # 6 27*W QK1CLOSEMT 20 27TG LDX 6 ACOMMUNE9(2) [X6=0 IF MODE #1007; OTHERWISE=1 18 28*6 LDN 7 0 [FLIB/FTJOB TO BE SET UP 16 28SQ SETNCORE 3,3,FLIB,FTJOB [TO SAVE JOB NAME 16 29#B JOBLOCK JOBNO(2),2 [FIND JOB BLOCK 9 29S2 LDN 0 JNAME(2) 8 2=?L LDN 1 A1(3) 7 2=R= MOVE 0 3 4 2?=W PS2 9 2?QG #SKI K6CLOSEMT>99-99 4 2#=6 ( 10 2#PQ SWITRACE 4,CLMTDLPT 10 2*9B SWITRACE 6,CLMTMODE 9 2*P2 SWITRACE 7,CLMTENT 4 2B8L ) 7 2BN= PEROFF 4 9 2C7W GETACT ACTDOC,,1 9 2CMG LDX 3 BPTR(2) 10 2D76 LINKSET 3,TLINK(1) 16 2DLQ STO 6 ACC6(3) [RETAIN MARKER 9 2F6B STO 7 ACC7(3) 16 2FL2 BNZ 7 PS3 [NO FLIB/FTJOB 10 2G5L MHUNT 2,FLIB,FTJOB 14 2GK= CHAIN 2,3 [RECHAIN 16 2H4W STO 4 CPPTR(3) [HAND OVER DECK 8 2HJG BRN PS4 16 2J46 PS3 CHANGEPER 3 [HAND OVER DECK 7 2JHQ PS4 LDX 2 3 6 2K3B FPUT 5 2KH2 UP 15 2L2L # ENTRY POINT 2 6 2LG= QK2CLOSEMT 20 2L_W PAGAN DFJUMPN ,REW,PROCEED [JUMP UNLESS REWING IN PROGRESS 8 2MFG LGEOG ,5 9 2M_6 #SKI K6CLOSEMT>199-199 10 2NDQ SWITRACE 5,CLMTWAIT 10 2NYB LONGSET AREWT,OERR,5 13 2PD2 LONGSTOP XBRKIN [WAIT 8 2PXL BRN PAGAN 5 2QC= PROCEED 7 2QM4 ... LONGOFF 12 2QWW OPENSYS XBRKIN,DOCUMENT,READ 12 2RBG PL1 SDSEARCH PL2,CPPTR,CPPTR(2) 8 2RW6 LDX 5 2(3) 8 2S*Q LDX 4 21(3) 14 2STB CLOSETOP [DOCUMENT 7 2T*2 SLC 4 1 16 2TSL BNG 4 PW [INSECURE TAPE 6 2W=N ...QK5CLOSEMT 12 2W#= OPENSYS XBRKIN,SERIAL,GENERAL 19 2WRW SSEARCH ,5 [FIND TAPE'S ENTRY IN SERIAL 7 3?2G READAGAIN 10 3?G6 MHUNT 3,FILE,FRB 19 3?_Q SSCOR A1(3),DEC [DECREASE COUNT OF REQUESTERS 10 3#_2 NAME 3,FILE,FWB 9 3*8S ... LDX 3 A1+5(3) 15 3*DL REWRITE [NEW RECORD 7 3*DX ... LDX 0 3 7 3*F8 ... SLC 0 1 16 3*FF ... BPZ 0 PX [NOT WORK TAPE 16 3*FQ ... BNZ 6 PX1 [TO BE RETAINED 7 3*G3 ... SLL 0 2 19 3*G# ... BNG 0 PX1 [BRANCH IF NAMED WORK TAPE 4 3*GK ...PX2 15 3*JJ ... ACROSS RETURN,5 [WORK TAPE 16 3*MB ...PX BNZ 7 PX1 [NO FLIB/FTJOB 10 3*MM ... MFREE FLIB,FTJOB 7 3*MY ...PX1 LDX 0 3 16 3*N9 ... ANDN 0 #7777 [COUNT OF USERL 16 3*NG ... BNZ 0 PU [TAPE REQUESTED 7 3*NR ... LDX 0 3 17 3*P4 ... BPZ 0 PT [NOT TO-BE-RETURNED 8 3*P* ... BRN PX2 7 3*PL ...PT SLL 0 2 8 3*PX ... BPZ 0 PU1 9 3*RW ... ACROSS DEADA,1 7 3*WN ...PU1 LDX 0 3 7 3*W_ ... SLL 0 1 8 3*X= ... BPZ 0 PU 10 3*XH ... MFREE FLIB,FTJOB 4 3*XS ...PU 7 3*Y= CLOSETOP 10 3BCW STOZ ACOMMUNE3(2) 10 3BJ# ... STO 3 ACOMMUNE4(2) 8 3CC6 BRN PW1 7 3CWQ PW LDN 0 1 10 3DBB STO 0 ACOMMUNE3(2) 10 3DW2 PW1 STOZ ACOMMUNE1(2) 10 3F*L STOZ ACOMMUNE2(2) 16 3FT= BZE 6 PZ [NO QUALIFIERS 14 3G#W BNG 6 PZ1 ['UNL' 9 3GSG LDX 0 TRET(1) 10 3H#6 ORS 0 ACOMMUNE2(2) 8 3HRQ BRN PZ 9 3J?B PZ1 LDX 0 TUNL(1) 10 3JR2 ORS 0 ACOMMUNE2(2) 10 3K=L PZ DOWN UNLOADMT,1 7 3KQ= SUICIDE 4 3L9W # 12 3LPG # ENTRY POINT FOR QUICKUNL MACRO 4 3M96 # 6 3MNQ QK3CLOSEMT 17 3N8B NGN 6 1 [REMEMBER QUICKUNL 4 3NN2 PS1 9 3P7L LDX 4 CPPTR(2) 17 3PM= LDN 7 1 [REMEMBER MACRO ENTRY 8 3Q6W BRN PS2 12 3QLG # ENTRY POINT FOR CLOSEMT MACRO 6 3R66 QK4CLOSEMT 16 3RKQ LDN 6 1 [REMEMBER CLOSEMT 8 3S5B BRN PS1 4 3SK2 # 7 3T4L # CONSTANTS 4 3TJ= # 9 3W3W TLINK PAIR CLOSEMT,2 9 3WHG TRET +AMTRET 9 3X36 TUNL +AMTUNL 4 3XGQ # 7 3Y2B # GEOERRS 4 3YG2 # 9 3Y_L XBRKIN GEOERR 1,XBRKIN 9 3_F= OERR GEOERR 1,XBRKIN 10 3_YW PL2 GEOERR 1,NOSYSDOC 10 42DG MENDAREA 50,K99CLOSEMT 4 42Y6 #END 8 ____ ...53056115000200000000