22FL ...[   
22^= ...[   
23DW ...[   R.T.RUSHTON 
23YG ...[   
24D6 ...[   
26W=    [CONTENTS LIST:-
27*W    [   
27H4 ...[     PERMACT   
27N= ...[     TEMPACT   
27TG    [     ANOTHER   
28*6    [     BUSACT
28SQ    [     CLOSEOUT  
29#B    [     HSPACTLF  
29S2    [     IFACC 
2=3S ...[     LFALLTRANS
2=?L    [     LFAT  
2=R=    [     LFBASOVERFLO  
2?=W    [     LFBBS 
2?QG    [     LFBBUS
2#=6    [     LFBITCLR  
2#PQ    [     LFBITSET  
2*9B    [     LFBLOCK   
2*P2    [     LFCCAT
2B8L    [     LFCHAIN   
2BN=    [     LFCHANGE  
2C7W    [     LFCLOSE   
2CCN ...[     LFDBAID   
2CMG    [     LFDEBATCHERS  
2D76    [     LFDEL 
2DLQ    [     LFEJCNT   
2F6B    [     LFEND 
2FL2    [     LFENDTHROW
2G5L    [     LFG34VT   
2GK=    [     LFGETPER  
2H4W    [     LFHUNT
2HJG    [     LFKEY 
2J46    [     LFLOST
2J?Y ...[     LFMAX 
2JHQ    [     LFMULT
2K3B    [     LFNOTFIN  
2KH2    [     LFPACTLF  
2L2L    [     LFPAPERSAVE   
2LG=    [     LFPRINT   
2L^W    [     LFRECNUM  
2MFG    [     LFTHAW
2M^6    [     LFTHROW   
2NDQ    [     LFUIJPC   
2NYB    [     LPLOOP
2PD2    [     OFFLTEST  
2PXL    [     OPENSOUT  
2QWW    [     POINTACT  
2RBG    [     PROPERTY  
2RW6    [     PROPUSE   
2S*Q    [     SETENTRY  
2STB    [     STARTACT  
2T*2    [     STOPACT   
2W#=    [     TIDYOUT   
2WRW    [     UNBUSACT  
2X?G    [   
2XR6    [END OF LIST.   
2Y=Q    [   
2Y?8 ...[??? PERMACT SECT DEVT FGN 2 DOC
2Y?L ...#MAC PERMACT
2Y#6 ...#OPT  G%AACT=1                     [GENERAL SKIPPING IDENTIFIER 
2Y#S ...#SKI  G%AACT
2Y*G ...(   
2YB8 ...#STR  %A,SJ 
2YBW ...#SKI
2YCJ ...#OPT  BSJACT=JSJPTR 
2YD= ...)   
2YDY ...#NOR
2YF? ...[??? TEMPACT SECT DEVT FGN 2 DOC
2YFL ...#MAC  TEMPACT   
2YG# ...#OPT  G%AACT=0  
2YH2 ...#SKI  1-G%AACT  
2YHN ...(   
2YJB ...#STR  %A,SJ 
2YK4 ...#OPT  BSJACT=0  
2YKQ ...#STR  %A,RET                       [FLAG BITS   
2YLD ...#OPT  BRETACT=1 
2YM6 ...#STR  %A,OUT
2YMS ...#OPT  BOUTACT=2 
2YNG ...)   
2YP8 ...#NOR
2YPR ...[??? ANOTHER SECT DEVT FGN 2 DOC
2YQB    #MAC  ANOTHER   
2^=2    [ THIS MACRO CREATES AN EXACT COPY OF A GIVEN BLOCK %A/%B.  
2^PL    [   
329=    #STR  %C
32NW    #SKI
338G    (   
33N6    #STR  %B
347Q          MHUNT    3,%A,%B  
34MB    #STR  %B
3572    #SKI
35LL          MHUNT    3,%A 
366=    )   
36KW    #STR  %C
375G    (   
37K6    #STR  %C,3  
384Q          LDX   3  %C   
38JB    )   
3942          CALL  5  M2ANOTHER
39HL          BRN      M3ANOTHER
3=3=    #STR  %B
3=GW          MHUNT    3,%A,%B  
3?2G    #STR  %B
3?G6    #SKI
3?^Q          MHUNT    3,%A 
3#FB          CALL  5  M4ANOTHER
3#^2    M3ANOTHER   
3*DL    #STR  %B
3*Y=          NAME     2,%A,%B  
3BCW    #STR  %B
3BXG    #SKI
3CC6          NAME     2,%A 
3CWQ    #OPT  M1ANOTHER=1   
3DBB    #SKI  M1ANOTHER 
3DW2    (   
3F*L          BRN      M5ANOTHER
3FT=    MANOTHER
3G#W          SBX   5  FX1  
3GSG          LDX   7  ALOGLEN(3)   
3H#6          PHOTO    4
3HRQ          GETCORE  7,1  
3J?B          FINDCORE 2
3JR2          ADX   5  FX1  
3K=L          TESTMOVE 4,M4ANOTHER  
3KQ=          EXIT  5  1
3L9W    MBANOTHER   
3LPG          LDN   1  A1(2)
3M96          LDN   0  A1(3)
3MNQ          SMO      ALOGLEN(3)   
3N8B          MOVE  0  0
3NN2          LDX   1  FX1  
3P7L          EXIT  5  0
3PM=    M5ANOTHER   
3Q6W    #DEF  M2ANOTHER=MANOTHER
3QLG    #DEF  M4ANOTHER=MBANOTHER   
3R66    #FRE  M1ANOTHER 
3RKQ    #DEF  M1ANOTHER=0   
3S5B    )   
3SK2    #NOR
3SSS ...[??? BUSACT SECT DEVT FGN 2 DOC 
3T4L    #MAC  BUSACT
3TJ=    #SKI  G%AACT
3W3W    (   
3WHG          LDXC  0  B%AACT   
3X36          BCS      %B   
3XGQ    )   
3Y2B    #SKI  1<G%AACT$1
3YG2          BBUS     B%AACT,FLAGACT,%B
3Y^L    #NOR
3^9D ...[??? CLOSEOUT SECT DEVT FGN 2 DOC   
3^F=    [   
3^YW    #MAC  CLOSEOUT  
42DG          CLOSE    %A   
42Y6          STARTACT OUT  
43CQ    #NOR
43XB ...[??? HSPACTLF SECT DEVT FGN 2 DOC   
44C2    #MAC  HSPACTLF  
44FK ...[   
44J8 ...[    THIS MACRO INFORMS THE LISTFILE SCHEDULER WHEN 
44LR ...[    A NEW COMPONENT OF A FROZEN MULTIFILE IS OPENED
44PB ...[    OR THE MULTIFILE IS CLOSED 
44R^ ...[   
44WL          LDX   2  FX2  
45B=    #ACC  %A
45TW    (   
46*G          LDX   0  %A   
46T6          STO   0  ACOMMUNE1(2) 
47#Q    )   
47SB    #ACC  %A
48#2    #SKI
48RL          STO   %A ACOMMUNE1(2) 
49?=    #ACC  %B
49QW    (   
4==G          LDX   0  %B   
4=Q6          STO   0  ACOMMUNE2(2) 
4?9Q    )   
4?PB    #ACC  %B
4#92    #SKI
4#NL          STO   %B ACOMMUNE2(2) 
4*8=    #ACC  %C
4*MW    (   
4B7G          LDX   0  %C   
4BM6          STO   0  ACOMMUNE3(2) 
4C6Q    )   
4CLB    #ACC  %C
4D62    #SKI
4DKL          STO   %C ACOMMUNE3(2) 
4F5=    #STR  %D
4FJW          DOWN     LISTSEAR,2   
4G4G    #STR  %D
4GJ6    #SKI
4H3Q          DOWN     LISTSEAR,1   
4HHB    #NOR
4HR8 ...[??? IFACC SECT DEVT FGN 2 DOC  
4J32    #MAC  IFACC 
4JGL    [THIS MACRO STORES THE CONTENTS OF %A IN %B(IN CURRENT ACTIVITY)
4K2=    #ACC  %A
4KFW          LDX   0  %A   
4K^G          SMO      FX2  
4LF6    #ACC  %A
4LYQ          STO   0  %B   
4MDB    #ACC  %A
4MY2    #SKI
4NCL          STO   %A %B   
4NX=    #NOR
4NXD ...#MAC  LFALLTRANS
4NXL ...#STR  %A,ON 
4NXS ...#SKI
4NY2 ...(   
4NY8 ...#STR  %A
4NYB ...#STR  %A,O  
4NYJ ...(   
4NYQ ...[ALL TRANSFERS TO BE CHARGED
4NYY ...#MEN  LISTRING  
4N^6 ...#TRA  K50LISTRING   
4N^# ...      CALL  7  K53LISTRING  
4N^G ...#TRA  K51LISTRING   
4N^N ...     CALL  7  K53LISTRING   
4N^W ...#TRA  K52LISTRING   
4P24 ...      CALL  7  K53LISTRING  
4P2= ...#END
4P2D ...)   
4P2L ...)   
4P2S ...#STR  %A,OFF
4P32 ...#SKI
4P38 ...(   
4P3B ...#STR  OFF,%A
4P3J ...#SKI
4P3Q ...(   
4P3Y ...#MEN  LISTRING  
4P46 ...#TRA  K50LISTRING   
4P4# ...      NULL  
4P4G ...#TRA  K51LISTRING   
4P4N ...      NULL  
4P4W ...#TRA  K52LISTRING   
4P54 ...      NULL  
4P5= ...#END
4P5D ...)   
4P5L ...)   
4P5S ...#NOR
4P74 ...[??? LFAT SECT DEVT FGN 2 DOC   
4PBW    #MAC  LFAT  
4PWG    [THIS MACRO UPDATES A GOUT/GPROPNOS BLOCK ASSOCIATED
4QB6    [WITH ANY ACTLF ON THE SCHEDULER'S JOB-RING,WHEN A  
4QTQ    [PROPERTY IS ATTRIBUTED TO A REMOTE DEVICE  
4R*B          DOWN     LISTEND,5
4RT2    #NOR
4S4S ...[??? LFBASOVE SECT DEVT FGN 2 DOC   
4S#L    #MAC  LFBASOVERFLO  
4SS=    #STR  %A,ON 
4T?W    #SKI
4TRG    (   
4W?6    #STR  %A
4WQQ    #STR   %A,O 
4X=B    (   
4XQ2 ...[ACTIONS PAGE OVERFLOW FOR BASIC FILES  
4Y9L    #MEN  LISTLOOP  
4YP=    #TRA  K50LISTLOOP   
4^8W          NULL  
4^NG    #END
5286    )   
52MQ    )   
537B    #STR  %A,OFF
53M2    #SKI
546L    (   
54L=    #STR  OFF,%A
555W    #SKI
55KG    (   
5656    #MEN  LISTLOOP  
56JQ    #TRA  K50LISTLOOP   
574B          BRN      K60LISTLOOP  
57J2    #END
583L    )   
58H=    )   
58HT ...#STR  %B,ALL
58JD ...#SKI
58K3 ...(   
58KL ...#STR  %B
58L9 ...#STR  %B,U  
58LS ...(   
58MC ...[ACTIONS PAGE OVERFLOW FOR ALL BASIC FILES  
58N2 ...#MEN  LISTLOOP  
58NK ...#TRA  K51LISTLOOP   
58P8 ...      BRN      K61LISTLOOP  
58PR ...#END
58QB ...)   
58Q^ ...)   
58RJ ...#STR  %B,UN 
58S7 ...#SKI
58SQ ...(   
58T* ...#STR  UN,%B 
58TY ...#SKI
58WH ...(   
58X6 ...#MEN  LISTLOOP  
58XP ...#TRA  K51LISTLOOP   
58Y# ...      NULL  
58YX ...#END
58^G ...)   
5925 ...)   
592W    #NOR
59=N ...[??? LFBBS SECT DEVT FGN 2 DOC  
59GG    [   
5=26    #MAC  LFBBS 
5=FQ          LDBIT    ALFBIT%A,0   
5=^B    #MOD  %B
5?F2    (   
5?YL          SMO      %B   
5#D=          ANDX  0  ALFLAG   
5#XW    )   
5*CG    #MOD  %B
5*X6    #SKI
5BBQ          ANDX  0  ALFLAG(%B)   
5BWB          BNZ   0  %C   
5CB2    #NOR
5CKS ...[??? LFBBUS SECT DEVT FGN 2 DOC 
5CTL    #MAC  LFBBUS
5D*=          LDBIT    ALFBIT%A,0   
5DSW    #MOD  %B
5F#G    (   
5FS6          SMO      %B   
5G?Q          ANDX  0  ALFLAG   
5GRB    )   
5H?2    #MOD  %B
5HQL    #SKI
5J==          ANDX   0 ALFLAG(%B)   
5JPW          BZE   0  %C   
5K9G    #NOR
5KF# ...[??? LFBITCLR SECT DEVT FGN 2 DOC   
5KP6    #MAC  LFBITCLR  
5L8Q          LDBIT    ALFBIT%A,0   
5LNB    #MOD  %B
5M82    (   
5MML          SMO      %B   
5N7=          ORS   0  ALFLAG   
5NLW          SMO      %B   
5P6G          ERS   0  ALFLAG   
5PL6    )   
5Q5Q    #MOD  %B
5QKB    #SKI
5R52    (   
5RJL          ORS   0  ALFLAG(%B)   
5S4=          ERS   0  ALFLAG(%B)   
5SHW    )   
5T3G    #NOR
5T?# ...[??? LFBITSET SECT DEVT FGN 2 DOC   
5TH6    #MAC  LFBITSET  
5W2Q          LDBIT    ALFBIT%A,0   
5WGB    #MOD  %B
5X22    (   
5XFL          SMO      %B   
5X^=          ORS   0  ALFLAG   
5YDW    )   
5YYG    #MOD  %B
5^D6    #SKI
5^XQ          ORS   0  ALFLAG(%B)   
62CB    #NOR
62M8 ...[??? LFBLOCK SECT DEVT FGN 2 DOC
62P6 ...#UNS HLFIMP1
62R4 ...#SKI
62T2 ...(   
62X2    #MAC  LFBLOCK   
63BL    [ THIS MACRO CONVERTS A FILE/FWB TO A GOUT/CHANGE   
63W=    #STR  %A
64*W    #SKI
64TG          MHUNTW   2,FILE,FWB   
65*6    #STR  %A,2  
65SQ          LDX   2  %A   
66#B          NAME     2,GOUT,GUPDATE   
66S2          LDX   0  GJOBS(2) 
67?L          STO   0  GOUTYPE(2)   
67R=          ALTLEND  2,GOPTY+1-A1 
68=W          STOZ     ALFWORDS(2)  
68QG          STOZ     ALFTRANS(2)  
69=6    #NOR
69B3 ...)   
69FY ...[??? LFCCAT SECT DEVT FGN 2 DOC 
69PQ    #MAC  LFCCAT
6=9B    [THIS DOES THE SAME AS LFAT,EXCEPT THAT THE ATTRIBUTION 
6=P2    [IS NOW BEING CANCELLED 
6?8L          DOWN     LISTEND,6
6?N=    #NOR
6?Y4 ...[??? LFCHAIN SECT DEVT FGN 12 DOC   
6#7W    #MAC  LFCHAIN   
6#MG    [THIS MACRO CHAINS THE NEXT BLOCK OF TYPE %A,SUBTYPE %B 
6*76    [IN THE CORRECT POSITION IN THE LFCHAIN 
6*8T ...#UNS HWLSLCH
6*=J ...(   
6*#? ...      MHUNT    1,%A,%B  
6*B2 ...      CHAIN    1,BLF+1  
6*CP ...)   
6*FD ...#UNS HWLSLCH
6*H7 ...#SKI
6*JW ...(   
6*LQ    [X3 IS USED AS A CALLING ACCUMULATOR X7 DESTROYED   
6B6B    [   
6BL2    #OPT  M1LFCHAIN=1   
6C5L    #STR  %B
6CK=          MHUNT    1,%A,%B  
6D4W    #STR  %B
6DJG    #SKI
6F46          MHUNT    1,%A 
6FHQ          CALL  3  M2LFCHAIN
6G3B    #SKI  M1LFCHAIN 
6GH2    (   
6H2L          BRN      M3LFCHAIN
6HG=    M4LFCHAIN      #54000000
6H^W    M5LFCHAIN      +GOUT+COMP   
6JFG    M6LFCHAIN      +GOUT+INFO   
6J^6    M16LFCHAIN     +GOUT+GKEY   
6KDQ                   +GOUT+GUPDATE
6KYB                   +GOUT+GABSNB 
6LD2                   +FILE+FABSNB 
6LXL    M7LFCHAIN      +M7LFCHAIN-M5LFCHAIN 
6MC=    M8LFCHAIN      +M7LFCHAIN-M6LFCHAIN 
6MWW    M17LFCHAIN     +M7LFCHAIN-M16LFCHAIN
6NBG    M9LFCHAIN                          [S/R TO COMPARE BLOCK TYPE   
6NW6          LDX   1  FX1                 [WITH TABLE.RELATIVE POINTER 
6P*Q          LDX   2  M7LFCHAIN(1)        [IN X2   
6PTB    M10LFCHAIN  
6Q*2          LDX   0  ATYPE(3) 
6QSL          SRL   0  12   
6R#=          TXU   0  M5LFCHAIN(1) 
6RRW          BCC      M11LFCHAIN   
6S?G          ADN   1  1
6SR6          BCT   2  M10LFCHAIN   
6T=Q          GEOERR   1,NOWHERE
6TQB    M11LFCHAIN  
6W=2          EXIT  7  0
6WPL    MLFCHAIN                           [ENTRY POINT 
6X9=          LDX   2  FX2  
6XNW          STO   3  ACOMMUNE1(2) 
6Y8G          STO   1  ACOMMUNE3(2) 
6YN6          LDX   3  1
6^7Q          CALL  7  M9LFCHAIN
6^MB          SMO      FX2  
7272          STO   2  ACOMMUNE2           [TABLE POSITION OF BLOCK TYPE
72LL          LDX   3  BLF                 [TO BE INSERTED  
736=    M12LFCHAIN  
73KW          LDN   0  BLF  
745G          TXU   0  3
74K6          BCC      M13LFCHAIN   
754Q          CALL  7  M9LFCHAIN
75JB          SMO      FX2  
7642          TXL   2  ACOMMUNE2           [COMPARE BLOCK PRIORITIES
76HL          BCS      M13LFCHAIN   
773=          LDX   1  FX1  
77GW          LDX   0  GMODE(3) 
782G          LDX   3  FPTR(3)  
78G6          TXU   2  M8LFCHAIN(1) 
78^Q          BCC      M18LFCHAIN   
79FB          TXU   2  M17LFCHAIN(1)
79^2          BCS      M12LFCHAIN   
7=DL    M18LFCHAIN  
7=Y=          ANDX  0  M4LFCHAIN(1) 
7?CW          ERX   0  GSIGN
7?XG    M14LFCHAIN  
7#C6          BPZ   0  M15LFCHAIN   
7#WQ          LDX   3  FPTR(3)  
7*BB    M15LFCHAIN  
7*W2          SLL   0  1
7B*L          BNZ   0  M14LFCHAIN   
7BT=          BRN      M12LFCHAIN   
7C#W    M13LFCHAIN  
7CSG          LDX   3  BPTR(3)  
7D#6          LDX   2  FX2  
7DRQ          LDX   1  ACOMMUNE3(2) 
7F?B          CHAIN    1,3  
7FR2          LDX   3  ACOMMUNE1(2) 
7G=L          EXIT  3  0
7GQ=    M3LFCHAIN   
7H9W    #FRE  M1LFCHAIN 
7HPG    #DEF  M2LFCHAIN=MLFCHAIN
7J96    #DEF  M1LFCHAIN=0   
7JNQ    )   
7JYJ ...)   
7K8B    #NOR
7KD8 ...[??? LFCHANGE SECT DEVT FGN 2 DOC   
7KN2    #MAC  LFCHANGE  
7L7L    [THIS MACRO IS FOR USE BY CHANGELIST TO REPOSITION THE SPECIFIED ENTRY I
7LM=    [:SYSTEM.OUTPUT AT A NEW URGENCY.   
7M6W    [AFTER EXECUTION THE FILE READ POINTERS WILL BE POSITIONED AFTER THE OLD
7MLG    [SITE OF THE REQUEST.   
7N66    [%A AND %B HOLD INDEX KEYS OF REQUEST   
7NKQ    [%C CONTAINS THE NEW URGENCY
7P5B          IFACC    %A,ACOMMUNE1 
7PK2          IFACC    %B,ACOMMUNE2 
7Q4L          IFACC    %C,ACOMMUNE3 
7QJ= ...      DOWN     LISTFNDA,3   
7R3W    #NOR
7R?N ...[??? LFCLOSE SECT DEVT FGN 2 DOC
7RHG    #MAC  LFCLOSE   
7S36    #ACC  %A
7SGQ          LDX   0  %A   
7T2B          SMO      FX2  
7TG2    #ACC  %A
7T^L          STO   0  ACOMMUNE1
7WF=    #ACC  %A
7WYW    #SKI
7XDG          STO   %A ACOMMUNE1
7XFR ...#UNS  AWLSZ 
7XH4 ...(   
7XHF ...#STR %B 
7XHW ...(   
7XJ* ...#ACC  %B
7XKL ...      LDX   0  %B   
7XLX ...      SMO      FX2  
7XN8 ...#ACC  %B
7XPF ...      STO   0  ACOMMUNE2
7XQQ ...#ACC  %B
7XS3 ...#SKI
7XT# ...      STO   %B ACOMMUNE2
7XTD ...)   
7XTJ ...#STR %B 
7XTN ...#SKI
7XTS ...(   
7XTY ...      LDX  0  GSIGN 
7XW4 ...      SMO     FX2   
7XW8 ...      STO  0  ACOMMUNE2 
7XW# ...)   
7XWK ...)   
7XY6          DOWN     LISTEND,4
7YCQ    #NOR
7YCX ...[??? LFDBAID SECT DEVT FGN 2 DOC
7YD5 ...#MAC  LFDBAID   
7YDD ...[  SPECIAL DEBATCHING AID FOR A SERVICE 
7YDR ...#STR  %A,ON 
7YF6 ...#SKI
7YFF ...(   
7YFS ...#STR  %A
7YG7 ...#STR  %A,O  
7YGG ...(   
7YGT ...#MEN  LISTFIND  
7YH8 ...#TRA  K60LISTFIND   
7YHH ...      NULL  
7YHL ...#TRA  K62LISTFIND   
7YHP ...      NULL  
7YHW ...#END
7YJ9 ...#MEN  LISTPARS  
7YJJ ...#TRA  K60LISTPARS   
7YJX ...      NULL  
7YK= ...#END
7YK? ...#MEN  FORMLOOP  
7YK# ...#TRA  K50FORMLOOP   
7YK* ...      LDX   0  AWORK2(2)
7YKB ...      BNG   0  K54FORMLOOP               [J. REMOTE 
7YKC ...      LDX   2  CHPERM(3)
7YKD ...      ADX   3  ADPERM(3)
7YKF ...#TRA  K51FORMLOOP   
7YKG ...      BNG   7  SPRPERMA            [J. TEMP DEALT WITH  
7YKH ...      MHUNT     3,APERI,APROPNOS
7YKJ ...      BZE   5  XREMLP   
7YKK ...      LDX   1  4
7YKL ...      ADN   1  5
7YKM ...      ADN   4  4
7YKN ...#TRA  K54FORMLOOP   
7YKP ...XREMLP  
7YKQ ...      LDX   2  CHTEMP(3)
7YKR ...      ADX   3  ADTEMP(3)
7YKS ...      ADX   7  GSIGN
7YKT ...      BRN      K55FORMLOOP  
7YKW ...SPRPERMA
7YKX ...      ERX   7  GSIGN
7YKY ...#TRA  K52FORMLOOP   
7YK^ ...      LDX   0  AWORK2(2)
7YL2 ...      BPZ   0  K56FORMLOOP             [J. CENTRAL LP   
7YL3 ...#TRA  K53FORMLOOP   
7YL4 ...      SMO      FX2  
7YL5 ...      LDX   7  AWORK2   
7YL6 ...      BPZ   7  K57FORMLOOP            [J. CENTRAL LP
7YL7 ...#END
7YL8 ...#MEN  ATTRIBUT  
7YL9 ...#TRA  K50ATTRIBUT   
7YL= ...      NULL  
7YL? ...      NULL  
7YL# ...      NULL  
7YL* ...#END
7YLQ ...#MEN WLE
7YLR ...#TRA K90WLE 
7YLS ... LDN 0 0
7YLT ...#END
7YL^ ...)   
7YM# ...)   
7YMM ...#STR  %A,OFF
7YN2 ...#SKI
7YN* ...(   
7YNN ...#STR  OFF,%A
7YP3 ...#SKI
7YPB ...(   
7YPP ...#MEN  LISTFIND  
7YQ4 ...#TRA  K60LISTFIND   
7YQC ...      BRN   K61LISTFIND 
7YQG ...#TRA  K62LISTFIND   
7YQK ...      BRN      K63LISTFIND  
7YQQ ...#END
7YR5 ...#MEN  LISTPARS  
7YRD ...#TRA  K60LISTPARS   
7YRR ...      BRN   K61LISTPARS 
7YS6 ...#END
7YS7 ...#MEN  FORMLOOP  
7YS8 ...#TRA  K50FORMLOOP   
7YS9 ...      NULL  
7YS= ...      NULL  
7YS? ...      LDX  2  CHTEMP(3) 
7YS# ...      ADX   3  ADTEMP(3)
7YS* ...#TRA  K51FORMLOOP   
7YSB ...      NULL  
7YSC ...      NULL  
7YSD ...      NULL  
7YSF ...      NULL  
7YSG ...      NULL  
7YSH ...      NULL  
7YSJ ...      NULL  
7YSK ...#TRA  K54FORMLOOP   
7YSL ...      NULL  
7YSM ...      NULL  
7YSN ...      NULL  
7YSP ...      NULL  
7YSQ ...      NULL  
7YSR ...#TRA  K52FORMLOOP   
7YSS ...      NULL  
7YST ...      NULL  
7YSW ...#TRA  K53FORMLOOP   
7YSX ...      NULL  
7YSY ...      NULL  
7YS^ ...      NULL  
7YT2 ...#END
7YT3 ...#MEN  ATTRIBUT  
7YT4 ...#TRA  K50ATTRIBUT   
7YT5 ...      LDX   0  APROPNO(3)          [SPL PROPS TEMP ONLY 
7YT6 ...      SLL  0  1                    [IF LFDBAID OFF  
7YT7 ...      BNG   0  K55ATTRIBUT  
7YT8 ...#END
7YTL ...#MEN WLE
7YTM ...#TRA K90WLE 
7YTN ... LDN 0 1
7YTP ...#END
7YTT ...)   
7YW8 ...)   
7YWH ...#NOR
7YWY ...[??? LFDEBATC SECT DEVT FGN 2 DOC   
7YXB    #MAC  LFDEBATCHERS  
7^C2    [IMPLEMENTS SPECIAL DEBATCHING AID  
7^WL    #STR  %A,ON 
82B=    #SKI
82TW    (   
83*G    #STR  %A
83T6    #STR   %A,O 
84#Q    (   
84SB    #MEN  LISTINIT  
85#2    #TRA  K50LISTINIT   
85RL          NULL  
86?=    #TRA  K52LISTINIT   
86QW          NULL  
87=G    #TRA  K54LISTINIT   
87Q6          NULL  
889Q    #END
88PB    #MEN  LISTPREP  
8992    #TRA  K50LISTPREP   
89NL          NULL  
8=8=    #END
8=MW    #MEN  LISTPROC  
8?7G    #TRA  K50LISTPROC   
8?M6          NULL  
8#6Q    #END
8#LB    )   
8*62    )   
8*KL    #STR  %A,OFF
8B5=    #SKI
8BJW    (   
8C4G    #STR  OFF,%A
8CJ6    #SKI
8D3Q    (   
8DHB    #MEN  LISTINIT  
8F32    #TRA  K50LISTINIT   
8FGL          BRN      K60LISTINIT  
8G2=    #TRA  K52LISTINIT   
8GFW          BRN      K62LISTINIT  
8G^G    #TRA  K54LISTINIT   
8HF6          BRN      K64LISTINIT  
8HYQ    #END
8JDB    #MEN  LISTPREP  
8JY2    #TRA  K50LISTPREP   
8KCL          BRN      K60LISTPREP  
8KX=    #END
8LBW    #MEN  LISTPROC  
8LWG    #TRA  K50LISTPROC   
8MB6          BRN      K60LISTPROC  
8MTQ    #END
8N*B    )   
8NT2    )   
8P#L    #NOR
8PJD ...[??? LFDEL SECT DEVT FGN 2 DOC  
8PS=    #MAC  LFDEL 
8Q?W    [THIS MACRO DELETES AN ENTRY FROM SYSOUT
8QRG    [%A AND %B ARE INDEX KEYS   
8R?6    [%C = GETPER THEN REPLY INDICATES REASON
8RQQ    [%C = LOSTM  THEN MAINFILE LOST IN LFLOST MACRO 
8S=B    [%C = LOSTS  THEN SETUP FILE LOST IN LFLOST MACRO   
8SQ2    [%C = SLIST  THEN STOPLIST  
8T9L    #ACC  %A
8TP=          LDX   0  %A   
8W8W          SMO      FX2  
8WNG    #ACC  %A
8X86          STO   0  ACOMMUNE1
8XMQ    #ACC  %A
8Y7B    #SKI
8YM2          STO   %A ACOMMUNE1
8^6L    #ACC  %B
8^L=          LDX   0  %B   
925W          SMO      FX2  
92KG    #ACC  %B
9356          STO   0  ACOMMUNE2
93JQ    #ACC  %B
944B    #SKI
94J2          STO   %B ACOMMUNE2
953L          LDX   2  FX2  
95H=    #STR  %C,GETPER 
962W    #SKI
96GG          LDN   0  0
9726    #STR  %C,LOSTM  
97FQ    #SKI
97^B          LDN   0  1
98F2    #STR  %C,LOSTS  
98YL    #SKI
99D=          LDN   0  2
99XW    #STR  %C,SLIST  
9=CG    #SKI
9=X6          LDN   0  3
9?BQ          STO   0  ACOMMUNE3(2) 
9?WB ...      DOWN     LISTFNDA,1   
9#B2    #NOR
9#KS ...[??? LFEJCNT SECT DEVT FGN 2 DOC
9#TL    #MAC  LFEJCNT   
9**=    [THIS MACRO OBTAINS A COUNT OF LISTFILES INITIATED BY A JOB.
9*SW    [%A TO CONTAIN NUMBER FOR SAME CLUSTER  
9B#G    [%B TO CONTAIN NUMBER FOR OTHER CLUSTER 
9BS6    [%C TO CONTAIN NUMBER FOR MULTIFILES WHICH ARE STILL BEING WRITTEN  
9C?Q    [IT EXPECTS ALFCNT TO BE SET UP AS FOLLOWS  
9CRB    [B12 -23  COUNT FOR THIS CLUSTER
9D?2    [B6 - 11  COUNT FOR OTHER CLUSTER   
9DQL    [B1 - 5   COUNT OF OPEN MULTIFILES  
9F==    [ON EXIT B0 IS SET TO PREVENT FURTHER UPDATING  
9FPW    #ACC  %A
9G9G    (   
9GP6          LDN   0  #7777
9H8Q          STO   0  %A   
9HNB    )   
9J82    #ACC  %B
9JML    (   
9K7=          LDN   0  #77  
9KLW          STO   0  %B   
9L6G    )   
9LL6    #ACC  %C
9M5Q    (   
9MKB          LDN   0  #37  
9N52          STO   0  %C   
9NJL    )   
9P4=          SMO      FX2  
9PHW          LDX   0  ALFCNT   
9Q3G    #ACC  %A
9QH6          ANDS  0  %A   
9R2Q    #ACC  %A
9RGB    #SKI
9S22    (   
9SFL          LDN   %A #7777
9S^=          ANDX  %A 0
9TDW    )   
9TYG          SRL   0  12   
9WD6    #ACC  %B
9WXQ          ANDS  0  %B   
9XCB    #ACC  %B
9XX2    #SKI
9YBL    (   
9YW=          LDN   %B #77  
9^*W          ANDX  %B 0
9^TG    )   
=2*6          SRL   0  6
=2SQ    #ACC  %C
=3#B          ANDS  0  %C   
=3S2    #ACC  %C
=4?L    #SKI
=4R=    (   
=5=W          LDN   %C #37  
=5QG          ANDX  %C 0
=6=6    )   
=6PQ          LDX   0  GSIGN
=79B          SMO      FX2  
=7P2          ORS   0  ALFCNT   
=88L    #NOR
=8DD ...[??? LFEND SECT DEVT FGN 2 DOC  
=8N=    #MAC  LFEND 
=97W    [THIS MACRO TIDIES UP WHEN A LISTFILE IS FINISHED.  
=9MG    [%A IS 'TE' OR 'CD' OR 'EB' OR ABSENT   
==76    [%B IS RESTART LINE NUMBER IF %A 'CD'   
==LQ          LDX   2  FX2  
=?6B    #STR  %A
=?L2    #SKI
=#5L          STOZ     AWORK1(2)
=#K=    #STR  %A
=*4W    (   
=*JG    #STR  %A,EB 
=B46    #SKI
=BHQ    (   
=C3B          LFBITCLR F,2  
=CH2          STARTACT OUT  
=D2L          COOR1 
=DG=          GEOERR   1,NOLINK 
=D^W    )   
=FFG    #STR  %A,CD 
=F^6    #SKI
=GDQ    (   
=GYB          NGS   2  AWORK1(2)
=HD2    #STR  %B
=HXL    #SKI
=JC=          NGS   2  AWORK2(2)
=JWW    #STR  %B
=KBG    (   
=KW6    #ACC  %B
=L*Q    (   
=LTB          LDX   0  %B   
=M*2          STO   0  AWORK2(2)
=MSL    )   
=N#=    #ACC  %B
=NRW    #SKI
=P?G          STO   %B AWORK2(2)
=PR6    )   
=Q=Q    )   
=QQB    #STR  %A,TE 
=R=2    #SKI
=RPL         STO   2  AWORK1(2) 
=S9=    )   
=SNW    #STR  %A
=T8G    #STR  %A,EB 
=TN6          ACROSS   LISTNEXT,4   
=W7Q    #NOR
=WCJ ...[??? LFENDTHR SECT DEVT FGN 2 DOC   
=WMB    #MAC  LFENDTHROW
=X72    #STR  %A,ON 
=XLL    #SKI
=Y6=    (   
=YKW    #STR  %A
=^5G    #STR   %A,O 
=^K6    (   
?24Q    #MEN  LISTINIT  
?2JB    [THROW THOF BEFORE PRINTING TERMINATORS 
?342    #TRA  K52LISTINIT   
?3HL          NULL  
?43=    #TRA  K30LISTINIT   
?4GW          NULL  
?52G    #END
?5G6    )   
?5^Q    )   
?6FB    #STR  %A,OFF
?6^2    #SKI
?7DL    (   
?7Y=    #STR  OFF,%A
?8CW    #SKI
?8XG    (   
?9C6    #MEN  LISTINIT  
?9WQ    #TRA  K52LISTINIT   
?=BB          BRN      K62LISTINIT  
?=W2    #TRA  K30LISTINIT   
??*L          BRN      K35LISTINIT  
??T=    #END
?##W    )   
?#SG    )   
?*#6    #NOR
?*HY ...[??? LFG34VT SECT DEVT FGN 2 DOC
?*RQ    #MAC  LFG34VT   
?B?B    [ALLOWS USER TO WRITE PART OF LF HEADINGS   
?BR2    #MEN  LISTINIT  
?C=L    #TRA  K40LISTINIT   
?CQ=                   16HPUT BY %A 
?D9W                   8H JB':  
?DPG    #END
?F96    #MEN  LISTINTC  
?FNQ    #TRA  K40LISTINTC   
?G8B                   16HPUT BY %A 
?GN2                   8H JB':  
?H7L    #END
?HM=    #NOR
?HX4 ...[??? LFGETPER SECT DEVT FGN 2 DOC   
?J6W    #MAC  LFGETPER  
?JLG    [THIS MACRO ATTEMPTS TO GET A PERIPHERAL AND AN ACTLF TO DRIVE IT   
?K66    [FOR A REQUEST IN :SYSTEM.OUTPUT
?KKQ    [%A AND %B ARE INDEX KEYS   
?L5B    [   
?LK2    #ACC  %A
?M4L          LDX   0  %A   
?MJ=          SMO      FX2  
?N3W    #ACC  %A
?NHG          STO   0  ACOMMUNE1
?P36    #ACC  %A
?PGQ    #SKI
?Q2B          STO   %A ACOMMUNE1
?QG2    #ACC  %B
?Q^L          LDX   0  %B   
?RF=          SMO      FX2  
?RYW    #ACC  %B
?SDG          STO   0  ACOMMUNE2
?SY6    #ACC  %B
?TCQ    #SKI
?TXB          STO   %B ACOMMUNE2
?WC2          DOWN     LISTFIND,2   
?WWL    #NOR
?X6D ...[??? LFHUNT SECT DEVT FGN 2 DOC 
?XB=    #MAC  LFHUNT
?XTW    [ THIS MACRO LOCATES THE KEY BLOCK IN THE LFCHAIN.  
?Y*G    [ %A IS TO BE USED AS A CALLING ACCUMULATOR.
?YT6    [   
?^#Q    #OPT  M1LFHUNT=1       [IDENT. FOR ENSURING CODE COMPILED ONLY ONCE 
?^SB    #ACC  %B
#2#2          LDX   4  %B   
#2RL    #ACC  %C
#3?=          LDX   5  %C   
#3QW    #STR  %D
#4=G          LDN   6  %D+%E
#4Q6    #STR  %D
#59Q    #SKI
#5PB          LDN   6  GOUT+GKEY
#692          CALL  %A M2LFHUNT 
#6NL    #SKI  M1LFHUNT  
#78=    (   
#7MW          BRN      M3LFHUNT 
#87G    MLFHUNT 
#8M6          LDN   3  BLF     [BASE OF LFCHAIN 
#96Q    M4LFHUNT
#9LB          LDX   3  BPTR(3)             [BACKWARD SEARCH 
#=62          LDN   0  BLF  
#=KL          TXU   0  3
#?5=          BCC      M5LFHUNT 
#?JW          LDX   0  ATYPE(3) 
##4G          SRL   0  12   
##J6          SBX   0  6
#*3Q          BNZ   0  M4LFHUNT            [J IF NOT KEY BLOCK  
#*HB    #ACC  %B
#B32          TXU   4  GOUTKEY1(3)  
#BGL    #ACC  %B
#C2=    #SKI
#CFW          TXU   %B GOUTKEY1(3)  
#C^G    #ACC  %C
#DF6          TXU   5  GOUTKEY2(3)  
#DYQ    #ACC  %C
#FDB    #SKI
#FY2          TXU   %C GOUTKEY2(3)  
#GCL          BCS      M4LFHUNT 
#GX=          EXIT  %A 0
#HBW    M5LFHUNT
#HWG          NGN   3  1
#JB6          EXIT  %A 0
#JTQ    M3LFHUNT
#K*B    #FRE  M1LFHUNT  
#KT2    #DEF  M2LFHUNT=MLFHUNT  
#L#L    #DEF  M1LFHUNT=0
#LS=    )   
#M?W    #NOR
#MHN ...[??? LFKEY SECT DEVT FGN 2 DOC  
#MRG    #MAC  LFKEY 
#N?6    #     THIS MACRO CREATES A PAIR OF INDEX KEYS AND STORES THEM   
#NQQ    #     IN A GOUT/INFO.IT MUST ONLY BE ISSUED BY A CPA.   
#P=B    #     %A       IF ABSENT THEN X2 MUST = FX2 
#PQ2    #              IF PRESENT THEN IS POINTER TO JOBLOCK
#Q9L    #     %B       MUST CONTAIN POINTER TO GOUT/INFO
#QP=    #     ON EXIT X2=FX2
#R8W    #STR  %A,2  
#RNG          LDX   2  %A   
#S86    #STR  %A
#SMQ    #SKI
#T7B          FJOCA    2
#TM2          LDX   0  JOBNUM(2)
#W6L          STO   0  GJOBS(%B)
#WL=          STO   0  GOUTKEY1(%B) 
#X5W          LDX   0  JURGE(2) 
#XKG          ORX   0  GSIGN
#Y56          ERX   0  GSIGN
#YJQ          BNZ   0  M1LFKEY  
#^4B          LDX   0  JPRIV(2) 
#^J2          ANDN  0  JSISSUE  
*23L          BZE   0  M2LFKEY  
*2H=          LDN   0  #41  
*32W          BRN      M1LFKEY  
*3GG    M2LFKEY 
*426          LDN   0  #55  
*4FQ    M1LFKEY 
*4^B          DCH   0  GOUTKEY1(%B) 
*5F2          STOZ     GOUTKEY2(%B) 
*5YL          LDX   2  FX2  
*6D=    #NOR
*6N4 ...[??? LFLOST SECT DEVT FGN 2 DOC 
*6XW    #MAC  LFLOST
*7CG          MHUNTW   1,FILE,FABSNB
*7X6          LDX   2  BLF+1
*8BQ          CHAIN 1,2 
*8WB          STARTACT OUT  
*9B2    #NOR
*9BF ...[??? LFMAX SECT DEVT FGN 2 DOC  
*9BY ...#MAC  LFMAX 
*9CC ...#     THIS MACRO ALLOWS USERS TO SET A LIMIT ON THE NUMBER  
*9CW ...#     OF LISTFILES ISSUED TO LOCAL DEVICES-(%A) 
*9D* ...#     AND TO REMOTE DEVICES-(%B) BY ANY JOB 
*9DS ...#MEN  LISTFREE  
*9F? ...#TRA  K61LISTFREE   
*9FQ ...#STR  %A
*9G9 ...#SKI
*9GN ...               +64                  [DEFAULT IS 64 AS NO %A 
*9H7 ...#STR  %A
*9HL ...(   
*9J5 ...#SKI  %A/%A*(%A<4096$4096)  
*9JJ ...               +%A+1
*9K3 ...#SKI  %A/%A*(%A<4096$4096)  
*9KG ...#SKI
*9K^ ...!PARAMETER 1 OUT OF RANGE   
*9LD ...)   
*9LX ...#TRA  K60LISTFREE   
*9MB ...#STR  %B
*9MT ...#SKI
*9N# ...               #1000000                  [DEFAULT 64 B12-B17
*9NR ...#STR  %B
*9P= ...(   
*9PP ...#SKI  %B*(%B<64$64) 
*9Q8 ...               +%B+1*4096   
*9QM ...#SKI  %B*(%B<64$64) 
*9R6 ...#SKI
*9RK ...!PARAMETER 2 OUT OF RANGE   
*9S4 ...)   
*9SH ...#END
*9T2 ...#NOR
*9TL ...[??? LFMULT SECT DEVT FGN 2 DOC 
**?2    #MAC  LFMULT
**QL    [THIS MACRO IS FOR USE IN USEROPEN.IT REPLACES A GOUT/KEY   
*B==    [BLOCK IN THE LFCHAIN BY A SUITABLY UPDATED GOUT,INFO   
*BPW    [   
*C9G          LDX   0  %A   
*CP6          SMO      FX2  
*D8Q          STO   0  ACOMMUNE1
*DNB          LDX   0  %B   
*F82          SMO      FX2  
*FML          STO   0  ACOMMUNE2
*G7=          DOWN     LISTPARS,3   
*GLW    #NOR
*GWN ...[??? LFNOTFIN SECT DEVT FGN 2 DOC   
*H6G    [   
*HL6    #MAC  LFNOTFIN  
*J5Q    [THIS MACRO BRANCHES TO %A IF LF SYSTEM NOT IEADY FOR CLOSE DOWN
*JKB          BUSACT   OUT,%A   
*K52          POINTACT OUT,1
*KJL    M1LFNOTFIN  
*L4=          LDN   0  JOBRING(1)   
*LHW          TXU   0  JOBRING(1)   
*M3G          BCS      %A   
*MH6          LDN   0  BLF  
*N2Q          TXU   0  BLF  
*NGB          BCS      %A   
*P22    #NOR
*P9S ...[??? LFPACTLF SECT DEVT FGN 2 DOC   
*PFL    [   
*P^=    #MAC  LFPACTLF  
*QDW    #ACC  %A
*QYG          LDX   0  %A   
*RD6          SMO      FX2  
*RXQ    #ACC  %A
*SCB          STO   0  ACOMMUNE1
*SX2    #ACC  %A
*TBL    #SKI
*TW=          STO   %A ACOMMUNE1
*W*W          POINTACT OUT,%B   
*WTG          ADN   %B JOBRING  
*X*6          SMO      FX2  
*XSQ          STO   %B ACOMMUNE2
*Y#B    M2LFPACTLF  
*YS2          LDX   %B FPTR(%B) 
*^?L          SMO      FX2  
*^R=          TXU   %B ACOMMUNE2
B2=W          BCC      M1LFPACTLF   
B2QG          GEOPACK  0,JSOURCE1-JOBRING(%B)   
B3=6          SMO      FX2  
B3PQ          TXU   0  ACOMMUNE1
B49B          BCS      M2LFPACTLF   
B4P2          SBN   %B JOBRING  
B58L          BRN      M3LFPACTLF   
B5N=    M1LFPACTLF  
B67W          NGN   %B 1
B6MG    M3LFPACTLF  
B776    #NOR
B7BY ...[??? LFPAPERS SECT DEVT FGN 2 DOC   
B7LQ    #MAC  LFPAPERSAVE   
B86B    [CONTROLS PAGETHROW AFTER EBI   
B8L2    #STR  %A,ON 
B95L    #SKI
B9K=    (   
B=4W    #STR  %A
B=JG    #STR  %A,O  
B?46    (   
B?HQ    #MEN  LISTINIT  
B#3B    #TRA  K18LISTINIT   
B#H2          LDX   0  AWORK1(2)
B*2L          BZE   0  K19LISTINIT         [J IF EBI
B*G=    #END
B*^W    )   
BBFG    )   
BB^6    #STR  %A,OFF
BCDQ    #SKI
BCYB    (   
BDD2    #STR  OFF,%A
BDXL    #SKI
BFC=    (   
BFWW    #MEN  LISTINIT  
BGBG    #TRA  K18LISTINIT   
BGW6          NULL  
BH*Q          NULL  
BHTB    #END
BJ*2    )   
BJSL    )   
BK#=    #NOR
BKJ4 ...[??? LFPRINT SECT DEVT FGN 2 DOC
BKRW    #MAC LFPRINT
BL?G    #MEN  LISTEXCP  
BLR6    #TRA  K50LISTEXCP   
BM=Q                   %A   
BMQB    #END
BN=2    #MEN  LISTINIT  
BNPL    #TRA  K57LISTINIT   
BP9=          NULL  
BPNW    #END
BQ8G    #NOR
BQD# ...[??? LFRECNUM SECT DEVT FGN 2 DOC   
BQN6    #MAC  LFRECNUM  
BR7Q    [ THIS MACRO DETERMINES THE NUMBER OF BLOCKS IN AN ENTRY
BRMB    [ IN SYSOUT OR THE LFCHAIN  
BS72    [   
BSLL    [ %A IS AN ACCUMULATOR TO CONTAIN THE ANSWER,NOT X0 
BT6=    [ %B IS A WORD CONTAINING A COPY OF GMODE   
BTKW    [ X0 IS ZEROISED
BW5G    [   
BWK6    [   
BX4Q          LDCT  0  #540 
BXJB          ANDX  0  %B   
BY42          ERX   0  GSIGN               [EXTRA BLOCK UNLESS ONLINE   
BYHL          LDN   %A 1
B^3=    M1LFRECNUM  
B^GW          BPZ   0  M2LFRECNUM   
C22G          ADN   %A 1
C2G6    M2LFRECNUM  
C2^Q          SLL   0  1
C3FB          BNZ   0  M1LFRECNUM   
C3^2    #NOR
C48S ...[??? LFTHAW SECT DEVT FGN 2 DOC 
C4DL    #MAC  LFTHAW
C4Y=          DOWN     LISTEND,2
C5CW    #NOR
C5MN ...[??? LFTHROW SECT DEVT FGN 2 DOC
C5XG    #MAC  LFTHROW   
C6C6    [CONTROLS BLANK PAGE BETWEEN LP LFS 
C6WQ    #STR  OFF,%A
C7BB    #SKI
C7W2    (   
C8*L    #STR  %B
C8T=    #SKI
C9#W    (   
C9SG          LFTHROW  OFF,LOCAL
C=#6          LFTHROW  OFF,REMOTE   
C=RQ    )   
C??B    #STR  LOCAL,%B  
C?R2    #SKI
C#=L    (   
C#Q=    #MEN  LISTINIT  
C*9W    #TRA  K70LISTINIT   
C*PG          LDN   0  0
CB96    #END
CBNQ    )   
CC8B    #STR  REMOTE,%B 
CCN2    #SKI
CD7L    (   
CDM= ...#MEN  PCTLISTB  
CF6W ...#TRA  K70PCTLISTB   
CFLG          #76667635 
CFQC ...#TRA  K71PCTLISTB   
CFW# ...      #4776122  
CG29 ...      #77776133 
CG66    #END
CGFJ ...#MEN  IPBLISTD  
CGT2 ...#TRA  K70IPBLISTD   
CH8G ...#UNS FL7502 
CH?L ... #76350000  
CHBQ ...#UNS FL7502 
CHFW ...#SKI
CHK2          #76667635 
CJ4L    #END
CJJ=    )   
CK3W    )   
CKHG    #STR  %A
CL36    #SKI
CLGQ          LFTHROW  ON   
CM2B    #STR  ON,%A 
CMG2    #SKI
CM^L    (   
CNF=    #MEN  LISTINIT  
CNYW    #TRA  K70LISTINIT   
CPDG          LDN   0  #11  
CPY6    #END
CQCQ ...#MEN  PCTLISTB  
CQXB ...#TRA  K70PCTLISTB   
CRC2          #76667634 
CRGX ...#TRA  K71PCTLISTB   
CRLS ...      #4776120  
CRQP ...      #77776131 
CRWL    #END
CS=4 ...#MEN  IPBLISTD  
CSKG ...#TRA  K70IPBLISTD   
CS^2 ...#UNS FL7502 
CT46 ... #76340000  
CT7= ...#UNS FL7502 
CT=B ...#SKI
CT*G          #76667634 
CTT6    #END
CW#Q    )   
CWSB    #NOR
CX48 ...[??? LFUIJPC SECT DEVT FGN 2 DOC
CX66 ...#UNS HLFIMP1
CX84 ...#SKI
CX=2 ...(   
CX#2    #MAC LFUIJPC
CXRL          LDX   0  %A   
CY?=          ADN   0  2
CYQW          BZE   0  %B   
C^=G    #NOR
C^BC ...)   
C^G# ...[??? LPLOOP SECT DEVT FGN 2 DOC 
C^Q6    #MAC  LPLOOP
D29Q    #STR %A,ON  
D2PB    #SKI
D392    (   
D3NL    #STR %A 
D48=    #STR %A,O   
D4MW    (   
D57G    #MEN LISTINIT   
D5M6    #TRA K80LISTINIT
D66Q          LDN   0  #17  
D6LB    #TRA K81LISTINIT
D762          LDN   0  #17  
D7KL    #TRA K82LISTINIT
D85=          LDN   0  #17  
D8JW    #END
D94G    )   
D9J6    )   
D=3Q    #STR %A,OFF 
D=HB    #SKI
D?32    (   
D?GL    #STR OFF,%A 
D#2=    #SKI
D#FW    (   
D#^G    #MEN LISTINIT   
D*F6    #TRA K80LISTINIT
D*YQ          LDN   0  #11  
DBDB    #TRA K81LISTINIT
DBY2          LDN   0  #11  
DCCL    #TRA K82LISTINIT
DCX=          LDN   0  #11  
DDBW    #END
DDWG    )   
DFB6    )   
DFTQ    #NOR
DG5J ...[??? OFFLTEST SECT DEVT FGN 2 DOC   
DG*B    #MAC  OFFLTEST  
DGT2          MHUNTW   1,FILE,ENT   
DH#L          LDEX  0  ECOPS(1) 
DHS=          BNZ   0  %A   
DJ?W    #NOR
DJHN ...[??? OPENSOUT SECT DEVT FGN 2 DOC   
DJRG    [   
DK?6    #MAC  OPENSOUT  
DKQQ          SETMODE  2,%B,%C,%D,%E,%F 
DL=B          SMO      FX2  
DLQ2          STO   2  ACOMMUNE1
DM9L          DOWN     LISTPROC,2   
DMP=          BRN      %A   
DN8W    #NOR
DNNG ...[??? POINTACT SECT DEVT FGN 2 DOC   
DT56    #MAC  POINTACT  
DTJQ    #SKI  G%AACT
DW4B    #SKI
DWJ2    (   
DX3L          BBUS     B%AACT,FLAGACT,M2POINTACT
DXH=    #STR  %E
DY2W    #SKI
DYGG    (   
D^26          LDX   %B GSIGN
D^FQ          BRN      M3POINTACT   
D^^B    )   
F2F2    #STR  %E
F2YL    (   
F3D=          FLIPS    FLAGACT,B%AACT   
F3XW          BRN      M4POINTACT   
F4CG    M5POINTACT  
F4X6          PAIR     %E,%F
F5BQ    M4POINTACT  
F5WB          GETACT   %C,%D
F6B2          LDX   2  BPTR(2)  
F6TL          LDX   %B 2
F7*=          LDX   0  M5POINTACT(1)
F7SW          STO   0  ALINK1(2)
F8#G          LDX   0  M5POINTACT+1(1)  
F8S6          STO   0  ALINK2(2)
F9?Q          FPUT  
F9RB          BRN      M3POINTACT   
F=?2    )   
F=QL    M2POINTACT  
F?==          FINDACTFB 1,FX2,%C,%D,M6POINTACT,FPTR 
F?PW          LDX   %B 1
F#9G          BRN      M3POINTACT   
F#P6    M6POINTACT  
F*8Q          GEOERR   1,NOACT  
F*NB    M3POINTACT  
FB82          LDX   1  FX1  
FBML          LDX   2  FX2  
FC7=    )   
FCLW    #SKI  G%AACT
FD6G    (   
FDL6          LDXC  %B B%AACT   
FF5Q          BCS      £
FFKB    #NOR
FG52 ...[??? PROPERTY SECT DEVT FGN 2 DOC   
FGJL    #MAC  PROPERTY  
FH4=    [   
FHHW    [ THIS MACRO ANALYSES A PARAMETER OF THE FORM 'PROPERTY(PROPERTYNAME&   
FJ3G    [ PROPERTYNAME1&ETC)'OR'PR(PROPERTYNAMES)   
FJH6    [   
FK2Q    [ %A  LABEL TO JUMP TO IF THE PARAMETER IS NULL OR NONEXISTENT  
FKGB    [ %B  NO. OF THE FIRST PARAMETER NOT TO BE CHECKED FOR PR OR PROPERTY   
FL22    [ %C  NO. OF THE 2ND   PARAMETER NOT TO BE CHECKED FOR PR OR PROPERTY   
FLFL          LDN   4  %B   
FL^=    #SKI %C 
FMDW          LDN   5  %C-%B
FMYG    #SKI %C 
FND6    #SKI
FNXQ          LDN   5  0
FPCB          DOWN     LISTPARS,4   
FPX2          BRN      %A   
FQBL    #NOR
FQW= ...[??? PROPUSE SECT DEVT FGN 2 DOC
FRTG    #MAC  PROPUSE   
FS*6    [ THIS MACRO CHECKS WHETHER THERE IS AN ENTRY IN :SYSTEM.OUTPUT 
FSSQ    [ WHICH REQUIRES THE PROPERTY WHOSE NUMBER IS SUPPLIED AS %A,   
FT#B    [ %B IS A LABEL TO JUMP TO IF AN ENTRY IS FOUND.
FTS2    #ACC  %A
FW?L          LDX   0  %A   
FWR=          SMO      FX2  
FX=W    #ACC  %A
FXQG          STO   0  ACOMMUNE1
FY=6    #ACC  %A
FYPQ    #SKI
F^9B          STO   %A ACOMMUNE1
F^P2          DOWN     LISTSEAR,4   
G28L          BRN      %B   
G2N=    #NOR
G2Y4 ...[??? SETENTRY SECT DEVT FGN 2 DOC   
G37W    #MAC  SETENTRY  
G3MG    [ THIS MACRO SETS UP %C ENTRIES TO SEGMENT %A   
G476    [ EACH COMPILES AS A BRANCH TO %BN : 0<N<C+1
G4LQ    #SKI  %C
G56B          SEGENTRY K1%A,%B1 
G5L2    #SKI  %C>1-1
G65L          SEGENTRY K2%A,%B2 
G6K=    #SKI  %C>2-2
G74W          SEGENTRY K3%A,%B3 
G7JG    #SKI  %C>3-3
G846          SEGENTRY K4%A,%B4 
G8HQ    #SKI  %C>4-4
G93B          SEGENTRY K5%A,%B5 
G9H2    #SKI  %C>5-5
G=2L          SEGENTRY K6%A,%B6 
G=G=    #SKI  %C>6-6
G=^W          SEGENTRY K7%A,%B7 
G?FG    #SKI  %C>7-7
G?^6          SEGENTRY K8%A,%B8 
G#DQ    #SKI  %C>8-8
G#YB          SEGENTRY K9%A,%B9 
G*D2    #SKI  %C>9-9
G*XL          SEGENTRY K10%A,%B10   
GBC=    #SKI  %C>10-10  
GBWW          SEGENTRY K11%A,%B11   
GCBG    #SKI  %C>11-11  
GCW6          SEGENTRY K12%A,%B12   
GD*Q    #NOR
GDKJ ...[??? STARTACT SECT DEVT FGN 2 DOC   
GDTB    #MAC  STARTACT  
GF2J ...#STR %A,RET 
GF7Q ...(   
GF*2    #STR  %B
GFSL    (   
GG#=    #OPT  M1STARTACT=1  
GGRW          CALL  %B M2STARTACT   
GH?G    #SKI  M1STARTACT
GHR6    (   
GJ=Q          BRN      M3STARTACT   
GJQB    MSTARTACT   
GK=2    )   
GKPL    )   
GL9=    #STR  %B
GLNW    #SKI  M1STARTACT
GM8G    (   
GMN6    #STR  %B
GN7Q          SBX   %B FX1  
GNMB    #SKI  G%AACT
GP72    #SKI
GPLL    (   
GQ6=          BBUS     B%AACT,FLAGACT,M7STARTACT
GQKW          FLIPS    FLAGACT,B%AACT   
GR5G          BRN      M5STARTACT   
GRK6    M6STARTACT  
GS4Q          PAIR     %E,%F
GSJB    M5STARTACT  
GT42          GETACT   %C,%D
GTHL          LDX   2  BPTR(2)  
GW3=          LDX   0  M6STARTACT(1)
GWGW          STO   0  ALINK1(2)
GX2G          LDX   0  M6STARTACT+1(1)  
GXG6          STO   0  ALINK2(2)
GX^Q          FPUT  
GYFB    M7STARTACT  
GY^2          LDX   1  FX1  
G^DL    )   
G^Y=    #SKI  G%AACT
H2CW    (   
H2XG          LDX   2  B%AACT   
H3C6          BNG   2  M7STARTACT   
H3WQ          ORX   2  GSIGN
H4BB          STO   2  B%AACT   
H4W2          ERX   2   GSIGN   
H5*L          FPUT  
H5T=    M7STARTACT  
H6#W    )   
H6SG          LDX   2  FX2  
H7#6    #STR  %B
H7RQ    (   
H8?B          ADX   %B FX1  
H8R2          EXIT  %B 0
H9=L    )   
H9Q=    M3STARTACT  
H=9W    )   
H=PG    #STR  %B
H?96    (   
H?NQ    #SKI  M1STARTACT
H#8B    (   
H#N2    #FRE  M1STARTACT
H*7L    #DEF  M2STARTACT=MSTARTACT  
H*M=    #DEF  M1STARTACT=0  
HB6W    )   
HBLG    )   
HBPL ...)   
HBSQ ...#STR %A,RET 
HBXW ...#STR
HC32 ...      LONGON #170                  [WAKE UP DUMP TAPE SCHEDULER 
HC66    #NOR
HC*Y ...[??? STOPACT SECT DEVT FGN 2 DOC
HCKQ    #MAC  STOPACT   
HD5B    #SKI  G%AACT
HDK2    #SKI
HF4L    (   
HFJ=          FLIPS    FLAGACT,B%AACT   
HG3W          SUICIDE   
HGHG    )   
HH36    #SKI  G%AACT
HHGQ    (   
HJ2B          LDX   0  FX2  
HJG2          STO   0  B%AACT   
HJ^L    #STR  %B
HKF=    (   
HKRM ...      LDX  1  FX1   
HL64 ...      LINKSET  FX2,%B(1)
HLDG          COOR1X
HLY6    )   
HMCQ    #STR  %B
HMXB    #SKI
HNC2          COOR1 
HNWL    )   
HPB=    #NOR
HPTW ...[??? TIDYOUT SECT DEVT FGN 2 DOC
HYNL    #MAC  TIDYOUT   
H^8=    #OPT  M1TIDYOUT=1   
H^MW    #STR  %A
J27G          CALL  %A M2TIDYOUT
J2M6    #STR  %A
J36Q    #SKI
J3LB          CALL  2  M2TIDYOUT
J462    #SKI  M1TIDYOUT 
J4KL    (   
J55=          BRN      M3TIDYOUT
J5JW    MTIDYOUT
J64G          HUNTW    1,GOUT,INFO  
J6J6          BNG   1  M4TIDYOUT
J73Q          FREECORE 1
J7HB          BRN      MTIDYOUT 
J832    M4TIDYOUT   
J8GL          HUNTW    1,GOUT,INFO2 
J92=          BNG   1  M3TIDYOUT
J9FW          FREECORE 1
J9^G    M3TIDYOUT   
J=F6          LDX   1  FX1  
J=YQ    #STR  %A
J?DB          EXIT  %A 0
J?Y2    #STR  %A
J#CL    #SKI
J#X=          EXIT  2  0
J*BW    #FRE  M1TIDYOUT 
J*WG    #DEF  M1TIDYOUT=0   
JBB6    #DEF  M2TIDYOUT=MTIDYOUT
JBTQ    )   
JC*B    #NOR
JCK8 ...[??? UNBUSACT SECT DEVT FGN 2 DOC   
JCT2    #MAC  UNBUSACT  
JD#L    #SKI  G%AACT
JDS=    (   
JF?W          LDXC  0  B%AACT   
JFRG          BCC      %B   
JG?6    )   
JGQQ    #SKI  1<G%AACT$1
JH=B          BBS      B%AACT,FLAGACT,%B
JHQ2    #NOR
JJ9L ...#MAC XTRALFPAR  
JJP= ...               4H%A                [ %A = PARAMETER KEY 
JK8W ...               +0                  [ %B,C,D = BIT TAGS (DEFAULT %B = %A)
JKNG ...#STR %B 
JL86 ...#FID 0 BLFXTRA%B&#37 1  
JLMQ ...#STR %B 
JM7B ...#STR
JMM2 ...#FID 0 BLFXTRA%A&#37 1  
JN6L ...#STR %C 
JNL= ...#FID 0 BLFXTRA%C&#37 1  
JP5W ...#STR %D 
JPKG ...#FID 0 BLFXTRA%D&#37 1  
JQ56 ...#NOR
^^^^ ...134632150030