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