(George Source)
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% 1 JLMQ ...#STR %B JM7B ...#STR JMM2 ...#FID 0 BLFXTRA%A% 1 JN6L ...#STR %C JNL= ...#FID 0 BLFXTRA%C% 1 JP5W ...#STR %D JPKG ...#FID 0 BLFXTRA%D% 1 JQ56 ...#NOR ^^^^ ...134632150030