22#C ...[??? IDLEPERF SECT DEVT FGN 2 DOC   
22LS ...#MAC IDLEPERF      [- A.P.HOLDEN
22^=    [ THIS MACRO CAUSES PERFCHAP TO OUTPUT THE  
23DW    [ EXEC IDLE TIME AS 'DEVICE TYPE 999'   
23KW ...#STR %A,ON  
23QW ...(   
23XW ...#STR OFF,%A 
244W ...#EXI
249W ...#UNS APC51  
24BW ...(   
24HW ...#MEN PERFCHAP   
25#W ...#TRA APC3   
25FW ... BRN APC8   
25LW ...#END
25RW ...#ALT APC51=0
25YW ...#EXI
265W ...)   
26=W ...#EXI
26CW ...)   
26JW ...#UNS APC51  
26PW ...#EXI
26WW ...#MEN PERFCHAP   
27MW ...#TRA APC3   
27SW ... LDN 4 999  
27^W ...#END
286W ...#ALT APC51=1
28?W ...#NOR
28#R ...[??? PERFSTORE SECT DEVT FGN 2 DOC  
28*N ...#MAC  PERFSTORE                    [- A.P.HOLDEN
28BK ...      FSDESC
28CG ...      FSFILE    3,6,PERF STORE,721053   
28DC ...      FSFILE    4,6,PERF SWAP,721053,SWAP   
28F# ...      ENDESC
28G9 ...      FSLOAD    SAME
28H6 ...#NOR
28J3 ...[??? DPON SECT DEVT FGN 2 DOC   
28JY ...#MAC DPON                           [- A.P.HOLDEN   
28KW ...[ THIS MACRO TURNS ON BUILT IN DATAPASS 
28QW ...#UNS APPSW  
28XW ...#EXI
294W ...#MEN VCLASTWO   
299W ...#TRA K86VCLASTWO
29BW ... BICE ZP,ZPERFORM,0,PERFPASS,1  
29HW ...#END
29NW ...#ALT APPSW=1
29TW ...#NOR
29^8 ...[??? DPOFF SECT DEVT FGN 2 DOC  
2=4G ...#MAC DPOFF                          [- A.P.HOLDEN   
2=7W ...[ THIS MACRO TURNS OFF BUILT IN DATAPASS
2=#W ...#MEN VCLASTWO   
2=FW ...#TRA K86VCLASTWO
2=LW ... BICE ??,??,0,VCLASTWO,1
2=RW ...#END
2=YW ...#ALT APPSW=0
2?5W ...#NOR
2?=W ...[   
2?K? ...[??? DPASS SECT DEVT FGN 3 DOC  
2?XN ...#MAC DPASS                         [- A.P.HOLDEN
2#=6 ...[ THIS MACRO WILL COMPILE DATAPASS  
2#PQ ...[ IT WILL TAKE IT'S SOURCE FROM FILESTORE IF POSSIBLE - 
2*9B ...[ OTHERWISE IT WILL USE SUB-FILE DATAPASS ON MT DPTAPE. 
2*P2 ...[ FILESTORE SOURCE SHOULD BE IN FILE :GEO.DATAPASS  
2*W8 ...#STR NOLIS,%I   
2B3B ...(   
2B8L ...#ALT ADPLIST=1? 
2BN= ...#LIS 0  
2C7W ...#OPT AWENDY=0   
2CMG ...#LIS AWENDY 
2CX# ...)   
2D76 ...#STR %A 
2DLQ ...#SKI
2F6B ...(   
2F8# ...#UNS ADPNOFN
2F== ...#SKI
2F#8 ...(   
2FB6 ... DPON   
2FD4 ...#LIS ADPLIST
2FG2 ...#EXI
2FHY ...)   
2FL2 ... DPASS 2,,,,,,,,NOLIS   
2G5L ...#EXI
2GK= ...)   
2H4W ...#SKI %A>63-63   
2HJG ...(   
2J46 ...! %A SHOULD BE LESS THAN 64 
2JHQ ...#EXI
2K3B ...)   
2KH2 ...#OPT ADP%A=1
2L2L ...#STR %B 
2LG= ...(   
2L^W ... DPASS %B,%C,%D,%E,%F,%G,%H,,NOLIS  
2MFG ...#EXI
2M^6 ...)   
2NDQ ...#UNS ADPSIB 
2NYB ...#SKI
2PD2 ...(   
2PXL ...#LIS 0  
2QC= ...#FRL
2QWW ...#INT
2RBG ...#ORD
2RW6 ...ZCOM 40HIF EXI(:DATAPASS.DATAPASS        ),(AL 0
2S*Q ... 40H,1)ELSE(IF EXI(:GEO.DATAPASS),(AL 0,2)EL
2STB ... 12HSE(AL 0,0)) 
2T*2 ...ZCA +60:1,+0,+91,+ZCOM  
2TSL ...X0 +0   
2W#= ...NTRY STO 0 X0   
2WRW ... LDN 0 79?  
2X?G ... BZE 0 NOG  
2XR6 ... PERI 0 ZCA 
2Y=Q ...NOG STO 0 19?+0 
2YQB ... LDX 0 X0   
2^=2 ... EXIT 0 0   
2^PL ...#EXT
329= ...#JUM NTRY   
32NW ...#OPT ADPSIB=19?+0]  
338G ...#FRL
33N6 ...#LIS AWENDY 
347Q ...)   
34#Y ...#ALT ADPKEY=4*82?+81?+81?+80?*80?   
34G6 ...#SKI ADPKEY 
34MB ...#KEY OFF
3572 ...#SKI ADPSIB 
35LL ...(   
366= ...#SKI ADPSIB-1<1$1   
36KW ...(   
36R4 ...#UNS ADP13  
36Y? ...#GEO RV :DATAPASS.PMCORE
375G ...#REL CR3
37K6 ...#OFR CR3,RESFILE
384Q ...#GEO AS *CR3,:DATAPASS.DATAPASS 
38JB ...#USE CR3
3942 ...#UNS ADP13  
39HL ...(   
3=3= ...#GEO AS *CR3,:DATAPASS.PMCORE   
3=GW ...#USE CR3
3?2G ...)   
3?G6 ...#REL CR3
3?^Q ...)   
3#FB ...#SKI ADPSIB-2<1$1   
3#^2 ...(   
3*DL ...#REL CR3
3*Y= ...#OFR CR3,DATAPASS   
3BCW ...#GEO AS *CR3,:GEO.DATAPASS  
3BXG ...#USE CR3
3CC6 ...#REL CR3
3CWQ ...)   
3DBB ...)   
3DW2 ...#SKI ADPSIB<1$1 
3F*L ...(   
3FT= ...#REL MT0
3G#W ...#OFR MT0,DPTAPE 
3GSG ...#POS MT0,DATAPASS   
3H#6 ...#USE MT0
3HRQ ...#REL MT0
3J?B ...)   
3J*# ...#OPT ADP13=0
3JC= ...#OPT ADPNOFN=0  
3JF8 ...#SKI ADPKEY-3<1$1   
3JH6 ...#KEY ON,C   
3JK4 ...#SKI ADPKEY-5<1$1   
3JM2 ...#KEY ON,D   
3JNY ...#SKI ADPKEY-1<1$1   
3JR2 ...#KEY ON 
3K=L ...#UNS ADPNOFN
3KQ= ...#SKI
3L9W ... DPFIN  
3LPG ...#LIS ADPLIST
3M96 ...#NOR
3MNQ ...[   
3N8B ...[   
3^RM ...[??? PERFLIM SECT DEVT FGN 2 DOC
4264 ...#MAC PERFLIM       [- A.P.HOLDEN
42DG ...[ THIS MACRO LIMITS THE MAX. SIZE OF :SYSTEM.PERFORMANCE
42Y6 ...#ALT APCSZ=%A   
43CQ ...#MEN PERFCHAP   
43XB ...#TRA APC14  
44C2 ... LDN 0 %A   
44WL ...#END
45B= ...#NOR
45TW ...[??? CMEPERF  SECT DIAG FGN 22  
46*G ...#MAC  CMEPERF   
46T6 ...[ THIS MACRO IS THE SAME AS IDLEPERF BUT GIVES EXTRA
47#Q ...[DATA FOR CME. IT ISSUES IDLEPERF.  
47SB ...#STR %A,ON  
48#2 ...(   
48RL ...#STR  OFF,%A
49?= ...#EXI
49QW ...#UNS CME01  
4==G ...(   
4=Q6 ...#MEN PERFCHAP   
4?9Q ...#TRA  APC9  
4?PB ...  BRN  APC10
4#92 ...#END
4#NL ...#ALT CME01=0
4#YD ...#STR   NOIDE,%B 
4*8= ...#EXI
4*D4 ...   IDLEPERF OFF 
4*MW ...)   
4B7G ...#EXI
4BM6 ...)   
4C6Q ...#UNS CME01  
4CLB ...#EXI
4D62 ...#MEN PERFCHAP   
4DKL ...#TRA APC9   
4F5= ...   NULL 
4FJW ...#END
4G4G ...#ALT CME01=1
4GJ6 ...  IDLEPERF  
4H3Q ...#NOR
^^^^ ...074101640022