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