{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: CLOSEMT867)}}
====== CLOSEMT867 ======
(George Source)
**Macros used:** [[george:macro:ACROSS|ACROSS]], [[george:macro:CHAIN|CHAIN]], [[george:macro:CHANGEPER|CHANGEPER]], [[george:macro:CLOSETOP|CLOSETOP]], [[george:macro:DFJUMPN|DFJUMPN]], [[george:macro:DOWN|DOWN]], [[george:macro:FPUT|FPUT]], [[george:macro:FSHENTRY|FSHENTRY]], [[george:macro:GEOERR|GEOERR]], [[george:macro:GETACT|GETACT]], [[george:macro:JOBLOCK|JOBLOCK]], [[george:macro:LGEOG|LGEOG]], [[george:macro:LINKSET|LINKSET]], [[george:macro:LONGOFF|LONGOFF]], [[george:macro:LONGSET|LONGSET]], [[george:macro:LONGSTOP|LONGSTOP]], [[george:macro:MENDAREA|MENDAREA]], [[george:macro:MFREE|MFREE]], [[george:macro:MHUNT|MHUNT]], [[george:macro:NAME|NAME]], [[george:macro:OPENSYS|OPENSYS]], [[george:macro:PAIR|PAIR]], [[george:macro:PEROFF|PEROFF]], [[george:macro:READAGAIN|READAGAIN]], [[george:macro:REWRITE|REWRITE]], [[george:macro:SDSEARCH|SDSEARCH]], [[george:macro:SEGENTRY|SEGENTRY]], [[george:macro:SETNCORE|SETNCORE]], [[george:macro:SSCOR|SSCOR]], [[george:macro:SSEARCH|SSEARCH]], [[george:macro:SUICIDE|SUICIDE]], [[george:macro:SWITRACE|SWITRACE]], [[george:macro:UP|UP]]
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