17 22FL #LIS K0PERFLOGS>K0OBJPROG>K0ALLGEO>K0GREATGEO 15 22_= #SEG PERFLOGS [A C PUTMAN 10 23DW 8HPERFLOGS 12 23YG SEGENTRY K1PERFLOGS,XPERFLOGS1 7 24D6 #UNS ADUALDME 12 24XQ SEGENTRY K2PERFLOGS,XPERFLOGS2 12 257J ... SEGENTRY K3PERFLOGS,XPERFLOGS3 4 25CB # 4 25X2 # 19 268Q ...# THIS SEGMENT OUTPUTS ERROR LOGS AND RUNS IN THE PERMANENT 21 26GG ...# ACTIVITY BSA,ELOG. ADATA,ELOUT BLOCKS CONTAINING ERROR LOG DATA 21 26S= ...# ARE CHAINED TO THE ACTIVITY AND OUTPUT TO THE SYSTEM JOURNAL IN 9 2762 ...# MESSAGE NO. 275. 20 27CQ ...# K3PERFLOGS RUNS IN BLANKET TAKING ERROR LOGS FROM THE PIA AND 19 27PG ...# STARTING UP THE BSA,ELOG. IT THENS RETURNS TO CHARGESC. 4 283= ...# 5 28*6 XMT +5 5 28SQ XDR +9 6 29#B XHSD +25 6 29S2 XJLPE +JLPE 7 2=?L XJLSIP +JLSIP 8 2=R= XDISC +6 8 2?=W +13 8 2?QG +26 9 2#=6 XJLPEDME +JLPEDME 8 2#PQ XMSK1 #7777 9 2*9B XMSK2 #77777 9 2*P2 XMORE #324,#305 11 2B8L ...XTORD #161400,#142000 9 2BN= XMSK3 #77777400 8 2C7W THOUS 1000 9 2CMG XMSK4 #177777 7 2D76 XHEX05 5 7 2DLQ XHEX08 8 7 2F6B XHEX09 9 8 2FL2 XHEX30 #60 8 2FLM ...XHEX18 #30 8 2FM# ...XHEX32 #62 12 2FM_ ...X30VAL #5777777,#77600000 9 2FNL ...XLGSEQNO +65536 4 2FP? ...PERF 10 2FPY ... LINK PERFLOGS,1 8 2FQK ...TABLE #360 8 2FR= ... #361 8 2FRX ... #362 8 2FSJ ... #363 8 2FT9 ... #364 8 2FTW ... #365 8 2FWH ... #366 8 2FX8 ... #367 8 2FXT ... #370 8 2FYG ... #371 8 2F_7 ... #301 8 2F_S ... #302 8 2G2F ... #303 8 2G36 ... #304 8 2G3R ... #305 8 2G4D ... #306 4 2G5L [ 16 2GK= [ ZCON SUBROUTINE TO CONVERT CSN,TSN TO EBCDIC CHARS 17 2H4W [ ON ENTRY X2 -> OUTPUT ADDRESS X6 = NO. OF OUTPUT CHARS 9 2HJG ...[ X5 CONTAINS CSN/TSN 4 2J46 [ 4 2JHQ ZCON 9 2K3B LDX 4 XMSK3(1) 8 2KH2 ANDX 4 0(2) 7 2L2L SRL 4 3 7 2LG= LDN 1 1 8 2L_W BRN ZCON3 5 2MFG ZCON1 7 2M_6 LDN 1 3 7 2NDQ STOZ 4 5 2NYB ZCON2 7 2PD2 SLL 4 5 5 2PXL ZCON3 7 2QC= SLL 45 3 8 2QWW ADN 4 #360 8 2RBG BCT 6 ZCON4 8 2RW6 BRN ZCON5 5 2S*Q ZCON4 8 2STB BCT 1 ZCON2 8 2T*2 STO 4 0(2) 7 2TSL ADN 2 1 8 2W#= BRN ZCON1 5 2WRW ZCON5 8 2X?G LDX 1 FX1 10 2XR6 ... MHUNTW 2,ADATA,ELOUT 7 2Y=Q EXIT 7 0 4 2YQB # 6 2_=2 XPERFLOGS1 16 2_?P ... HUNTW 2,ADATA,ELOUT [ANY ERROR LOGS? 14 2_*D ... BPZ 2 XLOG [J IF YES 9 2_C7 ... JENV XSTOP,DME 17 2_DW ... SUICIDE [END OF BSA IF 1900 5 2_GK ...XSTOP 16 2_J# ... STOPACT ELOG [STOP BSA IF DME 10 2_L3 ... BRN XPERFLOGS1 4 2_MQ ...XLOG 9 2_PL LDX 0 ACSTSN(2) 7 329= SLL 0 1 9 32NW BPZ 0 XNOTDME 9 338G SMO ACSTSN(2) 7 33N6 LDN 3 0 18 347Q BZE 3 XENDSERT [J IF NOT DEVICE INCIDENT 4 34MB [ 13 3572 [ INSERT DATA ABOUT DEVICE IN PIA COPY 4 35LL [ 8 366= LTYPE 3,5 17 36KW BXU 5 XMT(1),NOTMT [IF *MT, SET X4 = TSN 9 375G DFLOAD 3,TSN,4 10 37*# ... BZE 4 XENDINSERT 15 37K6 STO 4 ELDME(2) [INSERT TSN 10 384Q BRN XENDINSERT 5 38JB NOTMT 19 3942 LDN 6 3 [SEE IF EDS8, EDS30/60 OR FDS 6 39HL NOTYETDISC 12 3=3= BXE 5 XDISC(1),STORAGEUNIT 7 3=GW ADN 1 1 10 3?2G BCT 6 NOTYETDISC 6 3?G6 STORAGEUNIT 8 3?_Q LDX 1 FX1 16 3#FB BZE 6 XENDINSERT [J IF NOT DISC 18 3#_2 LADDP 3,4 [IF DISC, SET X4 = CSN 7 3*DL SMO 4 9 3*Y= LDX 4 BSUNIT5 16 3BCW STO 4 ELDME(2) [INSERT TSN/CSN 16 3BXG LDX 5 ELDME+4(2) [START CYLINDER 9 3CC6 ANDX 5 XMSK1(1) 15 3CWQ LDX 6 ELDME+5(2) [START BLOCK 9 3DBB ANDX 6 XMSK1(1) 17 3DW2 LDX 7 ELDME+6(2) [LENGTH OF TRANSFER 9 3F*L ANDX 7 XMSK2(1) 12 3FKD ... JPROP 3,XEN,XEN,XEN,XEN,XEN 10 3FT= FLAWCHK 3,5,6,7,NOLOG 10 3G54 ... MHUNTW 2,ADATA,ELOUT 4 3G7M ...XEN 8 3G== ... LDX 1 FX1 6 3G#W XENDINSERT 9 3GSG LDX 0 ACSTSN(2) 9 3H#6 BPZ 0 XENDSERT 4 3HRQ [ 11 3J?B [ 2.8.18 STYLE ERROR LOGS 4 3JR2 [ 8 3JRC ... LDN 0 #377 10 3JRS ... ANDS 0 ELHEADER+2(2) 16 3JS? ... LDX 0 ERLSEQNO [LD SEQUENCE NO. 7 3JTJ ... SLL 0 8 17 3JWT ... ORS 0 ELHEADER+2(2) [INSERT SEQUENCE NO. 9 3JY6 ... LDX 0 ERLSEQNO 7 3J_C ... ADN 0 1 16 3K2N ... BXGE 0 XLGSEQNO(1),XLG [J IF AT MAX. NO. 16 3K3_ ... STO 0 ERLSEQNO [UPDATE SEQ. NO. 8 3K5= ... BRN XTR 4 3K6H ...XLG 19 3K7S ... STOZ ERLSEQNO [SET SEQ. NO. BACK TO ZERO 4 3K95 ...XTR 10 3K=L LDX 0 ELDME+10(2) 8 3KQ= ANDN 0 #377 11 3L9W BXU 0 XHEX05(1),XNOT5 8 3LPG [ TRAILER TYPE 05 5 3M96 XMED5 9 3MNQ DFLOAD 3,TSN,5 7 3N8B LDN 6 8 9 3NN2 ADN 2 ELDME+47 8 3P7L CALL 7 ZCON 7 3PM= SRC 4 8 10 3Q6W LDX 5 ELDME+50(2) 9 3QLG ANDX 5 XMSK4(1) 7 3R66 ADX 5 4 10 3RKQ STO 5 ELDME+50(2) 4 3S5B VALB 8 3SK2 LDX 4 GSIGN 10 3T4L ERS 4 ELDME+18(2) 9 3TC3 ... CALL 7 ZDEVNEM 9 3TPD ... BRN XENDSERT 5 3W3W XNOT5 11 3WHG BXU 0 XHEX08(1),XNOT8 8 3X36 [ TRAILER TYPE 08 8 3XGQ BRN XMED5 5 3Y2B XNOT8 11 3YG2 BXU 0 XHEX09(1),XNOT9 8 3Y_L [ TRAILER TYPE 09 8 3_F= LADDP 3,5 7 3_YW SMO 5 9 42DG LDX 5 BSUNIT5 7 42Y6 SLL 5 6 7 43CQ LDN 6 6 9 43XB ADN 2 ELDME+47 8 44C2 CALL 7 ZCON 7 44WL SLL 4 8 10 45B= LDX 5 ELDME+49(2) 8 45TW ANDN 5 #377 7 46*G ADX 5 4 10 46T6 STO 5 ELDME+49(2) 8 47#Q BRN VALB 5 47SB XNOT9 11 48#2 ... BXU 0 XHEX30(1),XNOT30 8 48RL [ TRAILER TYPE 30 9 493D ... CALL 7 ZHEADER 8 49?= LTYPE 3,5 11 49QW BXU 5 XMT(1),XNOTMT30 9 4=3# ... LDX 5 ELDME(2) 7 4=?R ... LDN 6 8 9 4=*4 ... ADN 2 ELDME+23 8 4=B* ... CALL 7 ZCON 7 4=CL ... SRC 4 8 10 4=DX ... ORS 4 ELDME+26(2) 8 4=G8 ... LDCT 0 #12 10 4=HF ... ORS 0 ELHEADER(2) 10 4=JQ ... LDX 0 ELHEADER(2) 8 4=L3 ... ANDN 0 #7 7 4=M# ... SLL 0 8 10 4=NK ... ORS 0 ELHEADER+6(2) 9 4=Q6 BRN XMED30 5 4?9Q XNOTMT30 8 4?PB LADDP 3,5 7 4#92 SMO 5 9 4#NL LDX 5 BSUNIT5 7 4#PM ... SLL 5 6 7 4#QN ... LDN 6 6 9 4#RP ... ADN 2 ELDME+23 8 4#SQ ... CALL 7 ZCON 7 4#TR ... SLL 4 8 8 4#WS ... ADN 4 #100 11 4#XT ... STO 4 ELHEADER+16(2) 8 4#YW ... LDCT 4 #200 11 4#_X ... STO 4 ELHEADER+17(2) 8 4*2Y ... LDCT 4 #10 10 4*3_ ... ORS 4 ELHEADER(2) 8 4*52 ... LDN 0 #377 7 4*63 ... SLL 0 8 10 4*74 ... ORS 0 ELHEADER+6(2) 5 4*8= XMED30 9 4*MW ... CALL 7 ZDEVNEM 9 4B7G ... LDX 4 X30VAL(1) 10 4BM6 ... STO 4 ELHEADER+8(2) 10 4C6Q ... LDX 4 X30VAL+1(1) 10 4CLB ... ORS 4 ELHEADER+9(2) 9 4D62 ... BRN XENDSERT 5 4DKL ...XNOT30 11 4F5= ... BXU 0 XHEX18(1),XNOT18 9 4FJW ... CALL 7 ZHEADER 9 4G4G ... BRN XENDSERT 5 4GJ6 ...XNOT18 12 4H3Q ... BXU 0 XHEX32(1),XENDSERT 9 4HHB ... CALL 7 ZHEADER 5 537B XENDSERT 4 53M2 [ 7 546L [ SET UP MESSAGE 4 54L= [ 7 555W LDN 5 5 10 55KG ADX 5 ELDMECT(2) 17 5656 OUTBLOCK 5 [SET UP PARAM BLOCK 15 56JQ OUTPAR DATENOW [INSERT DATE 20 574B OUTPACK CLEANCT,1,TIMETHEN [TIME ('THEN' SINCE 'NOW' MAY NOT 15 57J2 [WORK IN EMS) 10 57RS ... MHUNTW 2,ADATA,ELOUT 17 583L OUTPACK ELDMECT(2),V,VAROCT [AND INCIDENT DATA 10 58H= LDX 5 XJLPEDME(1) 17 592W BRN XSIPE [OUTPUT MSG AND DIE 5 59GG XNOTDME 18 5=26 LDX 4 ACSTSN(2) [RUNNING IN ELOG ACTIVITY 7 5=7# ... LDX 6 2 8 5=#G ... LDX 2 FX2 20 5=FQ LTYPE ,3 [JUMP IF STANDARD INTERFACE... 17 5=_B BNG 4 XSIE [...PARITY ERROR 9 5?F2 TXU 3 XMT(1) 16 5?YL BCS XNMT [JUMP IF NOT MT 20 5#D= DFLOAD ,TSN,5 [LOAD TAPE SERIAL NUMBER AND.... 7 5#QM ... SMO 6 20 5*54 ... STO 5 ACSTSN [...STORE IN 1ST WORD OF 'PIA' 8 5*CG BRN XNDAS 4 5*M# ...XNMT 7 5*X6 ... LDX 2 6 9 5B6Y ... TXU 3 XDR(1) 20 5BBQ BCC XDRM [JUMP IF SLOW OR HIGH SPEED DRUM 9 5BWB TXU 3 XHSD(1) 8 5CB2 BCS XUDAS 19 5CTL XDRM STOZ ACSTSN(2) [ZERO SERIAL NUMBER IF DRUM 8 5D*= BRN XNDAS 8 5DK4 ...XUDAS LDX 2 FX2 8 5DSW ... LADDP ,5 7 5F4N ... LDX 2 6 7 5F#G SMO 5 19 5FS6 LDX 5 BSUNIT5 [SERIAL NO OF UDAS DEVICE 9 5G?Q STO 5 ACSTSN(2) 16 5GRB LDX 5 ACSTSN+ACCN(2) [START CYLINDER 15 5H?2 LDX 6 ACSTSN+ASBLN(2) [START BLOCK 17 5HQL LDX 7 ACSTSN+ACR(2) [LENGTH OF TRANSFER 8 5J== ANDX 7 BSB18 18 5JPW FLAWCHK 4,5,6,7,NOLOG [CHECK IF ALREADY FLAWED 8 5K9G XNDAS LDN 5 K81+7 8 5KP6 BRN XOUTB 7 5L8Q XSIE LDN 5 6 17 5LNB XOUTB OUTBLOCK 5 [GET PARAMETER BLOCK 20 5M82 # WE HAVE TO USE OUTPACK FOR OUTPUTTING THE TIME, RATHER THAN 19 5MML # USING ^OUTPAR TIMENOW^, AS THE INCIDENT MAY OCCUR DURING 21 5N7= # EARLY MORNING START, BEFORE THE MECHANISM USED BY THE MONITORING 18 5NLW # FILE ROUTINES FOR OUTPAR TIMENOW IS WORKING PROPERLY. 12 5P6G OUTPACK CLEANCT,1,TIMETHEN 18 5PL6 OUTPACK 3,1,PERITYPE [%B IS THE DEVICE TYPE. 20 5Q5Q LGEOG ,5 [LOAD DEVICE'S GEOGRAPHICAL NO. 8 5QKB GEOPACK 5,5,5 19 5R52 OUTPACK 5,1,GEOPER [%C IS THE GEOGRAPHICAL NO. 20 5RJL LDX 5 XJLSIP(1) [STANDARD INTERFACE PARITY ERROR 19 5S4= BNG 4 XSIPE [JUMP IF S.I. PARITY ERROR 10 5S#4 ... MHUNTW 2,ADATA,ELOUT 18 5SHW OUTPACK ACSTSN(2),K81,VAROCT [%D IS TRANSFER DETAILS 16 5T3G LDX 5 XJLPE(1) [PERIPHERAL ERROR 7 5TH6 XSIPE MONOUTX 5 5 5TTH ...NOLOG 10 5W2P ... MFREEW ADATA,ELOUT 16 5W7Y ... BRN XPERFLOGS1 [ANY MORE LOGS? 4 5WGB # 7 5X22 #UNS ADUALDME 4 5XFL ( 6 5X_= XPERFLOGS2 17 5YDW LDX 7 APROCNO [REMEMBER CONTENTS 12 5YYG MBSXD 0,BPROCFAIL,BPROCREC 7 5_D6 ANDX 0 7 18 5_XQ ERS 0 APROCNO [CLEAR FAIL-RECOVERY BITS 10 62CB MBSXD 0,BPROCREC 7 62X2 ANDX 0 7 17 63BL BZE 0 NONREC [J IF NONE RECOVERED 15 63W= LF ,FPROCREC,6 [GET OCP NO. 9 64*W OUTPACK 6,1,NUMA 15 64TG MONOUT JPROCREC [SEND MESSAGE 16 65*6 LONGON APROCWAIT,6 [WAKE UP WAITERS 5 65SQ NONREC 10 66#B MBSXD 0,BPROCFAIL 7 66S2 ANDX 0 7 16 67?L BZE 0 NONFAIL [J IF NONE FAILED 10 67R= LF ,FPROCFAIL,6 9 68=W OUTPACK 6,1,NUMA 17 68QG MONOUT JPROCFAIL [SEND FAIL MESSAGE 10 69=6 BSOFF EMSBIT,XOK 17 69PQ COOR3 #54 [WAIT FOR END OF EMS 4 6=9B XOK 9 6=P2 OUTPACK 6,1,NUMA 16 6?8L LONGSET APROCWAIT,XBRKN,6 [SET WAIT STYLE 19 6?N= DEMAND 1,JRELOCP,NONFAIL,XBRKN,REDEM,1 [REQUEST RELOAD 5 6#7W NONFAIL 7 6#MG SUICIDE 4 6*76 [ 9 6*LQ XBRKN GEOERR 1,PERFBI 4 6B6B ) 6 6B6G ...XPERFLOGS3 8 6B6L ... SMO ELPIA 8 6B6Q ... LDX 3 ELCPT 8 6B6W ... LDN 4 A1+1 7 6B72 ... LDX 0 3 7 6B76 ... SLL 0 1 8 6B7= ... BNG 0 SDME 19 6B7B ... BNG 3 SIPE [J IF STD INTERFACE PAR ERROR 4 6B7G ...SDME 9 6B7L ... ADX 4 ELPIALEN 7 6B7Q ... SBN 4 1 4 6B7W ...SIPE 8 6B82 ... GETCORE 4,0 8 6B84 ... BRN SGOT 8 6B86 ... BRN XIT 4 6B88 ...SGOT 7 6B8= ... FINDCORE 2 18 6B8B ... NAME 2,ADATA,ELOUT [SET UP ADATA ELOUT BLOCK 7 6B8G ... LDX 0 3 7 6B8L ... SLL 0 1 8 6B8Q ... BNG 0 SDME2 8 6B8W ... BNG 3 SOK 5 6B92 ...SDME2 8 6B96 ... LDX 3 ELPIA 9 6B9= ... LDN 4 ACSTSN(2) 9 6B9B ... SMO ELPIALEN 18 6B9G ... MOVE 3 0 [MOVE PIA WORDS TO ADATA 18 6B9H ... SMO ELPIA [RESTORE DEVICE LIST PTER 8 6B9J ... LDX 3 ELCPT 4 6B9L ...SOK 8 6B9Q ... SMO ELPIA 17 6B9W ... STOZ ELCPT [CLEAR PIA 1ST WORD 9 6B=2 ... JENV XCHAN,DME 10 6B=6 ... GETACTOP XIT,BSA,ELOG 10 6B== ... MHUNTW 1,ADATA,ELOUT 9 6B=* ... LDX 4 BPTR(2) 8 6B=D ... CHAIN 1,4 7 6B=H ... LDX 2 4 8 6B=L ... LDN 4 0(3) 9 6B=Q ... STO 4 CPPTR(2) 9 6B=W ... LDX 3 PERF(1) 8 6B?2 ... LINKSET 2,3 6 6B?6 ... FPUT 8 6B?= ... BRN XIT 5 6B?B ...XCHAN 7 6B?G ... LDX 1 2 9 6B?L ... LDX 2 BELOGACT 10 6B?Q ... LDX 3 ACTRING(2) 9 6B?S ... SBN 3 ACTRING 9 6B?W ... LDX 3 BPTR(3) 8 6B#2 ... CHAIN 1,3 8 6B#6 ... STARTACT ELOG 4 6B#= ...XIT 10 6B#B ... ACROSS CHARGESC,1 4 6B#G ...[ 4 6B#L ...[ 5 6B#Q ...ZHEADER 8 6B#W ... PROPCODE 3,4 7 6B*2 ... STOZ 5 7 6B*6 ... SRL 45 8 10 6B*= ... ORS 4 ELHEADER(2) 10 6B*B ... ORS 5 ELHEADER+1(2) 7 6B*G ... LTIME 4 7 6B*L ... LDX 1 3 7 6B*Q ... STOZ 3 8 6B*W ... SLL 34 14 10 6BB2 ... ORS 3 ELHEADER+2(2) 8 6BB5 ... SRL 4 14 7 6BB8 ... SLL 5 1 8 6BB? ... SLL 45 14 10 6BBB ... STO 4 ELHEADER+3(2) 8 6BBF ... SRL 5 15 7 6BBJ ... SLL 6 1 8 6BBM ... SLL 56 15 10 6BBQ ... STO 5 ELHEADER+4(2) 8 6BBW ... SRL 6 16 7 6BC2 ... STO 6 3 8 6BC6 ... HDWRTE 1,4 8 6BC= ... SLL 34 16 10 6BCB ... STO 3 ELHEADER+5(2) 10 6BCG ... ORS 4 ELHEADER+6(2) 7 6BCL ... LDX 3 1 8 6BCQ ... LDX 1 FX1 7 6BCW ... EXIT 7 0 4 6BD2 ...[ 5 6BD6 ...ZDEVNEM 8 6BD= ... LTYPE 3,4 10 6BDB ... BXU 4 XMT(1),XDEV1 7 6BDG ... STOZ 6 8 6BDL ... BRN XDEV2 5 6BDQ ...XDEV1 7 6BDW ... LDN 6 1 5 6BF2 ...XDEV2 10 6BF6 ... LDX 4 ELHEADER+6(2) 9 6BF= ... ANDX 4 XMSK3(1) 7 6BFB ... SMO 6 9 6BFG ... ADX 4 XMORE(1) 10 6BFL ... STO 4 ELHEADER+6(2) 7 6BFQ ... SMO 6 9 6BFW ... LDX 5 XTORD(1) 10 6BG2 ... LDX 4 ELHEADER(2) 7 6BG6 ... SRL 4 4 8 6BG= ... ANDN 4 #17 7 6BGB ... SMO 4 9 6BGG ... ADX 5 TABLE(1) 7 6BGL ... SLL 5 8 10 6BGQ ... LDX 4 ELHEADER(2) 8 6BGW ... ANDN 4 #17 7 6BH2 ... SMO 4 9 6BH6 ... ADX 5 TABLE(1) 10 6BH= ... STO 5 ELHEADER+7(2) 7 6BHB ... EXIT 7 0 4 6BL2 #END 6 ____ ...077647460013