(George Source)
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