CLOSEMT867 [ICL George 3]

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.
{{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]]

<code - 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
</code>