DataMuseum.dk

Presents historical artifacts from the history of:

Philips Data Systems

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Philips Data Systems

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - metrics - download

⟦86248a595⟧

    Length: 7666 (0x1df2)
    Notes: pts_type(SC)
    Names: »TOSSIF.SC«

Derivation

└─⟦110b7ed5e⟧ Bits:30009664 Philips computer tape "600106"
    └─⟦this⟧ »TOSSIF/TOSSIF.SC« 

PTS(SC)

	IDENT	TOSSIF	830516 NJ 
* 
* THIS MODULE CAN BE USED AS THE INTERFACE BETWEEN
* A CREDITPROGRAM AND THE STANDARD TOSSUTILITIY 
* MODULES.
* THE CREDITPROGRAM DOES AN EDIT INTO A STRING
* AND SUBSEQUENTLY CALLS ANY OF THE ENTRYPOINTS 
* IN THIS MODULE WITH THE FOLLOWING PARAMETERS: 
* 1. PARAMETER BLOCK (STRING LENGTH NN) 
* 2. 2 BINARY WORK ITEMS WHICH ON RETURN WILL 
*    CONTAIN THE RETURNCODE(S)
* NO CHECKING IS DONE, SO THE CALLING MODULE MUST 
* ENSURE THAT NO ERRORS ARE MADE
* 


	ENTRY	CDD
	ENTRY	CFF
	ENTRY	DLF
	ENTRY	CRF
	ENTRY	CRV
	ENTRY	PVC
	ENTRY	CTF
	ENTRY	WIL


	EXTRN	I:EVA0	LOAD PARAMETER FROM CREDITPROGRAM 
	EXTRN	I:RT1	RETURN TO CREDIT 
	EXTRN	T:FDSP 
	EXTRN	CRVOL	CRV
	EXTRN	CRFILE	CRF 
	EXTRN	DLFILE	DLF 
	EXTRN	PRVTOC	PVC 
	EXTRN	COPVOL	CDD 
	EXTRN	COPFIL	CFF 
	EXTRN	COPYTF	CTF 
	EXTRN	IBMLBL	WIL 
*	EXTRN	??????	ULD
	EJECT
BYTE	FORM	8,8 

CALL	FORM	16=/F6A1,16 

BUF1	RES	3280 

BUF2	RES	205

REG12	DATA	0

RC	DATA	0 
RC2	DATA	0

ECB	DATA	0
	DATA	BUF2
	DATA	410 
	DATA	0 

RCODE	DATA	0
	DATA	0 
	DATA	0 

PBLK	DATA	0,0,0,0,0,0,0,0 
	DATA	0,0,0,0,0,0,0,0 
	DATA	0,0,0,0,0,0,0,0 
	DATA	0,0,0,0,0,0,0,0 
	DATA	0,0,0,0,0,0,0,0 
	DATA	0,0,0,0,0,0,0,0 
	DATA	0,0,0,0,0,0,0,0 
	DATA	0,0,0,0,0,0,0,0 
	EJECT
CRV	EQU	* 
	LDKL	A8,PBLK	WHERE TO STORE
	CALL	STPARA	STORE PARAMETER
	LDKL	A8,BUF1 
	ST	A8,PBLK 
	LDKL	A8,BUF2 
	ST	A8,PBLK+2 
	ST	A12,REG12	SAVE REG 12 
	LDKL	A12,PBLK
	CALL	CRVOL 
	LD	A12,REG12 
	CALL	RC00	HANDOVER RETURNCODE TO USER
	ABL	RT1
	EJECT
CDD	EQU	* 
	LDKL	A8,PBLK	WHERE TO STORE
	CALL	STPARA	STORE PARAMETER
	LDKL	A8,BUF1 
	ST	A8,PBLK 
	LDKL	A8,BUF2 
	ST	A8,PBLK+2 
	ST	A12,REG12	SAVE REG 12 
	LDKL	A12,PBLK
	CALL	COPVOL
	LD	A12,REG12 
	CALL	RC00	HANDOVER RETURNCODE TO USER
	ABL	RT1
	EJECT
CFF	EQU	* 
	LDKL	A8,PBLK	WHERE TO STORE
	CALL	STPARA	STORE PARAMETER
	LDKL	A8,BUF1 
	ST	A8,PBLK 
	LDKL	A8,BUF2 
	ST	A8,PBLK+2 
	ST	A12,REG12	SAVE REG 12 
	LDKL	A12,PBLK
	CALL	COPFIL
	LD	A12,REG12 
	CALL	RC00	HANDOVER RETURNCODE TO USER
	ABL	RT1
	EJECT
DLF	EQU	* 
	LDKL	A8,PBLK	WHERE TO STORE
	CALL	STPARA	STORE PARAMETER
	LDKL	A8,BUF1 
	ST	A8,PBLK 
	LDKL	A8,BUF2 
	ST	A8,PBLK+2 
	ST	A12,REG12	SAVE REG 12 
	LDKL	A12,PBLK
	CALL	DLFILE
	LD	A12,REG12 
	CALL	RC00	HANDOVER RETURNCODE TO USER
	ABL	RT1
	EJECT
CRF	EQU	* 
	LDKL	A8,PBLK	WHERE TO STORE
	CALL	STPARA	STORE PARAMETER
	LDKL	A8,BUF1 
	ST	A8,PBLK 
	LDKL	A8,BUF2 
	ST	A8,PBLK+2 
	ST	A12,REG12	SAVE REG 12 
	LDKL	A12,PBLK
	CALL	CRFILE
	LD	A12,REG12 
	CALL	RC00	HANDOVER RETURNCODE TO USER
	ABL	RT1
	EJECT
PVC	EQU	* 
	LDKL	A8,PBLK	WHERE TO STORE
	CALL	STPARA	STORE PARAMETER
	LDKL	A8,BUF1 
	ST	A8,PBLK 
	LDKL	A8,BUF2 
	ST	A8,PBLK+2 
	ST	A12,REG12	SAVE REG 12 
	LDKL	A12,PBLK
	CALL	PRVTOC
	LD	A12,REG12 
	CALL	RC00	HANDOVER RETURNCODE TO USER
	ABL	RT1
	EJECT
CTF	EQU	* 
	LDKL	A8,PBLK	WHERE TO STORE
	CALL	STPARA	STORE PARAMETER
	LDKL	A8,BUF1 
	ST	A8,PBLK 
	LDKL	A8,BUF2 
	ST	A8,PBLK+2 
	ST	A12,REG12	SAVE REG 12 
	LDKL	A12,PBLK
	CALL	COPYTF
	LD	A12,REG12 
	CALL	RC00	HANDOVER RETURNCODE TO USER
	ABL	RT1
	EJECT
WIL	EQU	* 
	LDKL	A8,PBLK	WHERE TO STORE
	CALL	STPARA	STORE PARAMETER
	LDKL	A8,BUF1 
	ST	A8,PBLK 
	LDKL	A8,BUF2 
	ST	A8,PBLK+2 
	ST	A12,REG12	SAVE REG 12 
	LDKL	A12,PBLK
	CALL	IBMLBL
	LD	A12,REG12 
	CALL	RC00	HANDOVER RETURNCODE TO USER
	ABL	RT1
	EJECT
			STORE VOLUMENAME INTO PARABLOCK
			A9=ITEM START
			A8=PARABLK START 
			A3=LENGTH
STPARA	EQU	*
	CALL	I:EVA0	GET PARAMETERADDRESS 
	LDK	A3,63	BLOCKLENGTH
STPA10	EQU	*
	LDK	A2,1 
STPA20	EQU	*
	LCR	A1,A9
	SCR	A1,A8
	ADR	A9,A2
	ADR	A8,A2
	SUK	A3,1 
	RB(NN)	STPA20
	RTN	A14
			GET PARA FROM CREDIT 
			A1=ADDRESS IN PARABLOCK
PARA00	EQU	*
	LDK	A2,0 
	LCR	A2,A12	GET PARA
	ADKL	A12,1 
	SCR	A2,A1
	ADK	A1,1 
	RTN	A14



			GET FILECODE FROM ECB
			A1=ADDRESS IN PARABLOCK
FC00	EQU	*
	CALL	T:FDSP
	LC	A2,1,A8 
	SCR	A2,A1
	ADK	A1,1 
	RTN	A14



			RETURNCODE 
RC00	EQU	*
	ST	A1,RC 
	ST	A2,RC2
	CALL	I:EVA0
	LD	A1,RC 
	STR	A1,A9
	CALL	I:EVA0
	LD	A1,RC2
	STR	A1,A9
	RTN	A14



RT1	EQU	* 
	ABL	I:RT1	RETURN TO CREDIT 


	END	 

HexDump

0x0000…0020 (0, 0, 400)  Head {h00=0x001c, h01=0x0050, text=» IDENT TOSSIF 830516 NJ «, t00=0x0000, t01=0x0004}
0x0020…002a              Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0000, t01=0x0024}
0x002a…0064              Head {h00=0x0036, h01=0x0032, text=»* THIS MODULE CAN BE USED AS THE INTERFACE BETWEEN«, t00=0x0000, t01=0x002e}
0x0064…009c              Head {h00=0x0034, h01=0x002f, text=»* A CREDITPROGRAM AND THE STANDARD TOSSUTILITIY «, t00=0x0000, t01=0x0068}
0x009c…00ae              Head {h00=0x000e, h01=0x000a, text=»* MODULES.«, t00=0x0000, t01=0x00a0}
0x00ae…00e4              Head {h00=0x0032, h01=0x002f, text=»* THE CREDITPROGRAM DOES AN EDIT INTO A STRING«, t00=0x0000, t01=0x00b2}
0x00e4…011c              Head {h00=0x0034, h01=0x002f, text=»* AND SUBSEQUENTLY CALLS ANY OF THE ENTRYPOINTS «, t00=0x0000, t01=0x00e8}
0x011c…0154              Head {h00=0x0034, h01=0x002f, text=»* IN THIS MODULE WITH THE FOLLOWING PARAMETERS: «, t00=0x0000, t01=0x0120}
0x0154…0184              Head {h00=0x002c, h01=0x0027, text=»* 1. PARAMETER BLOCK (STRING LENGTH NN) «, t00=0x0000, t01=0x0158}
0x0184…01ba              Head {h00=0x0032, h01=0x0050, text=»* 2. 2 BINARY WORK ITEMS WHICH ON RETURN WILL «, t00=0x0000, t01=0x0188}
0x01ba…01e0              Head {h00=0x0022, h01=0x0050, text=»*    CONTAIN THE RETURNCODE(S)«, t00=0x0001, t01=0x002e}
0x01e0…021a              Head {h00=0x0036, h01=0x0031, text=»* NO CHECKING IS DONE, SO THE CALLING MODULE MUST «, t00=0x0001, t01=0x0054}
0x021a…0242              Head {h00=0x0024, h01=0x0020, text=»* ENSURE THAT NO ERRORS ARE MADE«, t00=0x0001, t01=0x008e}
0x0242…024c              Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0001, t01=0x00b6}
0x024c…0254              Head {h00=0x0004, h01=0x0000, t00=0x0001, t01=0x00c0}
0x0254…025c              Head {h00=0x0004, h01=0x0000, t00=0x0001, t01=0x00c8}
0x025c…026e              Head {h00=0x000e, h01=0x000a, text=» ENTRY CDD«, t00=0x0001, t01=0x00d0}
0x026e…0280              Head {h00=0x000e, h01=0x000a, text=» ENTRY CFF«, t00=0x0001, t01=0x00e2}
0x0280…0292              Head {h00=0x000e, h01=0x0050, text=» ENTRY DLF«, t00=0x0001, t01=0x00f4}
0x0292…02a4              Head {h00=0x000e, h01=0x000a, text=» ENTRY CRF«, t00=0x0001, t01=0x0106}
0x02a4…02b6              Head {h00=0x000e, h01=0x000a, text=» ENTRY CRV«, t00=0x0001, t01=0x0118}
0x02b6…02c8              Head {h00=0x000e, h01=0x000a, text=» ENTRY PVC«, t00=0x0001, t01=0x012a}
0x02c8…02da              Head {h00=0x000e, h01=0x000a, text=» ENTRY CTF«, t00=0x0001, t01=0x013c}
0x02da…02ec              Head {h00=0x000e, h01=0x000a, text=» ENTRY WIL«, t00=0x0001, t01=0x014e}
0x02ec…02f4              Head {h00=0x0004, h01=0x0000, t00=0x0001, t01=0x0160}
0x02f4…02fc              Head {h00=0x0004, h01=0x0000, t00=0x0001, t01=0x0168}
0x02fc…0334              Head {h00=0x0034, h01=0x002f, text=» EXTRN I:EVA0 LOAD PARAMETER FROM CREDITPROGRAM «, t00=0x0001, t01=0x0170}
0x0334…035a              Head {h00=0x0022, h01=0x001d, text=» EXTRN I:RT1 RETURN TO CREDIT «, t00=0x0002, t01=0x0018}
0x035a…0370              Head {h00=0x0012, h01=0x0050, text=» EXTRN T:FDSP «, t00=0x0002, t01=0x003e}
0x0370…0388              Head {h00=0x0014, h01=0x0010, text=» EXTRN CRVOL CRV«, t00=0x0002, t01=0x0054}
0x0388…03a2              Head {h00=0x0016, h01=0x0011, text=» EXTRN CRFILE CRF «, t00=0x0002, t01=0x006c}
0x03a2…03bc              Head {h00=0x0016, h01=0x0011, text=» EXTRN DLFILE DLF «, t00=0x0002, t01=0x0086}
0x03bc…03d6              Head {h00=0x0016, h01=0x0011, text=» EXTRN PRVTOC PVC «, t00=0x0002, t01=0x00a0}
0x03d6…03f0              Head {h00=0x0016, h01=0x0011, text=» EXTRN COPVOL CDD «, t00=0x0002, t01=0x00ba}
0x03f0…040a              Head {h00=0x0016, h01=0x0011, text=» EXTRN COPFIL CFF «, t00=0x0002, t01=0x00d4}
0x040a…0424              Head {h00=0x0016, h01=0x0011, text=» EXTRN COPYTF CTF «, t00=0x0002, t01=0x00ee}
0x0424…043e              Head {h00=0x0016, h01=0x0011, text=» EXTRN IBMLBL WIL «, t00=0x0002, t01=0x0108}
0x043e…0458              Head {h00=0x0016, h01=0x0050, text=»* EXTRN ?????? ULD«, t00=0x0002, t01=0x0122}
0x0458…0466              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x013c}
0x0466…047c              Head {h00=0x0012, h01=0x000d, text=»BYTE FORM 8,8 «, t00=0x0002, t01=0x014a}
0x047c…0484              Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x0160}
0x0484…04a2              Head {h00=0x001a, h01=0x0015, text=»CALL FORM 16=/F6A1,16 «, t00=0x0002, t01=0x0168}
0x04a2…04aa              Head {h00=0x0004, h01=0x0000, t00=0x0002, t01=0x0186}
0x04aa…04c0              Head {h00=0x0012, h01=0x0050, text=»BUF1 RES 3280 «, t00=0x0002, t01=0x018e}
0x04c0…04c8              Head {h00=0x0004, h01=0x0050, t00=0x0003, t01=0x0014}
0x04c8…04dc              Head {h00=0x0010, h01=0x0050, text=»BUF2 RES 205«, t00=0x0003, t01=0x001c}
0x04dc…04e4              Head {h00=0x0004, h01=0x0050, t00=0x0003, t01=0x0030}
0x04e4…04f8              Head {h00=0x0010, h01=0x0050, text=»REG12 DATA 0«, t00=0x0003, t01=0x0038}
0x04f8…0500              Head {h00=0x0004, h01=0x0050, t00=0x0003, t01=0x004c}
0x0500…0512              Head {h00=0x000e, h01=0x0009, text=»RC DATA 0 «, t00=0x0003, t01=0x0054}
0x0512…0524              Head {h00=0x000e, h01=0x0050, text=»RC2 DATA 0«, t00=0x0003, t01=0x0066}
0x0524…052c              Head {h00=0x0004, h01=0x0050, t00=0x0003, t01=0x0078}
0x052c…053e              Head {h00=0x000e, h01=0x000a, text=»ECB DATA 0«, t00=0x0003, t01=0x0080}
0x053e…0550              Head {h00=0x000e, h01=0x000a, text=» DATA BUF2«, t00=0x0003, t01=0x0092}
0x0550…0562              Head {h00=0x000e, h01=0x0009, text=» DATA 410 «, t00=0x0003, t01=0x00a4}
0x0562…0572              Head {h00=0x000c, h01=0x0007, text=» DATA 0 «, t00=0x0003, t01=0x00b6}
0x0572…057a              Head {h00=0x0004, h01=0x0050, t00=0x0003, t01=0x00c6}
0x057a…058e              Head {h00=0x0010, h01=0x000c, text=»RCODE DATA 0«, t00=0x0003, t01=0x00ce}
0x058e…059e              Head {h00=0x000c, h01=0x0007, text=» DATA 0 «, t00=0x0003, t01=0x00e2}
0x059e…05ae              Head {h00=0x000c, h01=0x0007, text=» DATA 0 «, t00=0x0003, t01=0x00f2}
0x05ae…05b6              Head {h00=0x0004, h01=0x0000, t00=0x0003, t01=0x0102}
0x05b6…05d8              Head {h00=0x001e, h01=0x0019, text=»PBLK DATA 0,0,0,0,0,0,0,0 «, t00=0x0003, t01=0x010a}
0x05d8…05f6              Head {h00=0x001a, h01=0x0015, text=» DATA 0,0,0,0,0,0,0,0 «, t00=0x0003, t01=0x012c}
0x05f6…0614              Head {h00=0x001a, h01=0x0015, text=» DATA 0,0,0,0,0,0,0,0 «, t00=0x0003, t01=0x014a}
0x0614…0632              Head {h00=0x001a, h01=0x0015, text=» DATA 0,0,0,0,0,0,0,0 «, t00=0x0003, t01=0x0168}
0x0632…0650              Head {h00=0x001a, h01=0x0015, text=» DATA 0,0,0,0,0,0,0,0 «, t00=0x0003, t01=0x0186}
0x0650…066e              Head {h00=0x001a, h01=0x0015, text=» DATA 0,0,0,0,0,0,0,0 «, t00=0x0004, t01=0x0014}
0x066e…068c              Head {h00=0x001a, h01=0x0015, text=» DATA 0,0,0,0,0,0,0,0 «, t00=0x0004, t01=0x0032}
0x068c…06aa              Head {h00=0x001a, h01=0x0015, text=» DATA 0,0,0,0,0,0,0,0 «, t00=0x0004, t01=0x0050}
0x06aa…06b8              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x006e}
0x06b8…06ca              Head {h00=0x000e, h01=0x0009, text=»CRV EQU * «, t00=0x0004, t01=0x007c}
0x06ca…06ee              Head {h00=0x0020, h01=0x0050, text=» LDKL A8,PBLK WHERE TO STORE«, t00=0x0004, t01=0x008e}
0x06ee…0712              Head {h00=0x0020, h01=0x001c, text=» CALL STPARA STORE PARAMETER«, t00=0x0004, t01=0x00b2}
0x0712…0728              Head {h00=0x0012, h01=0x000d, text=» LDKL A8,BUF1 «, t00=0x0004, t01=0x00d6}
0x0728…073c              Head {h00=0x0010, h01=0x000b, text=» ST A8,PBLK «, t00=0x0004, t01=0x00ec}
0x073c…0752              Head {h00=0x0012, h01=0x000d, text=» LDKL A8,BUF2 «, t00=0x0004, t01=0x0100}
0x0752…0768              Head {h00=0x0012, h01=0x000d, text=» ST A8,PBLK+2 «, t00=0x0004, t01=0x0116}
0x0768…078a              Head {h00=0x001e, h01=0x0019, text=» ST A12,REG12 SAVE REG 12 «, t00=0x0004, t01=0x012c}
0x078a…07a0              Head {h00=0x0012, h01=0x000e, text=» LDKL A12,PBLK«, t00=0x0004, t01=0x014e}
0x07a0…07b4              Head {h00=0x0010, h01=0x0050, text=» CALL CRVOL «, t00=0x0004, t01=0x0164}
0x07b4…07ca              Head {h00=0x0012, h01=0x000d, text=» LD A12,REG12 «, t00=0x0004, t01=0x0178}
0x07ca…07f8              Head {h00=0x002a, h01=0x0026, text=» CALL RC00 HANDOVER RETURNCODE TO USER«, t00=0x0004, t01=0x018e}
0x07f8…0808              Head {h00=0x000c, h01=0x0050, text=» ABL RT1«, t00=0x0005, t01=0x002c}
0x0808…0816              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0005, t01=0x003c}
0x0816…0828              Head {h00=0x000e, h01=0x0050, text=»CDD EQU * «, t00=0x0005, t01=0x004a}
0x0828…084c              Head {h00=0x0020, h01=0x0050, text=» LDKL A8,PBLK WHERE TO STORE«, t00=0x0005, t01=0x005c}
0x084c…0870              Head {h00=0x0020, h01=0x001c, text=» CALL STPARA STORE PARAMETER«, t00=0x0005, t01=0x0080}
0x0870…0886              Head {h00=0x0012, h01=0x000d, text=» LDKL A8,BUF1 «, t00=0x0005, t01=0x00a4}
0x0886…089a              Head {h00=0x0010, h01=0x000b, text=» ST A8,PBLK «, t00=0x0005, t01=0x00ba}
0x089a…08b0              Head {h00=0x0012, h01=0x000d, text=» LDKL A8,BUF2 «, t00=0x0005, t01=0x00ce}
0x08b0…08c6              Head {h00=0x0012, h01=0x000d, text=» ST A8,PBLK+2 «, t00=0x0005, t01=0x00e4}
0x08c6…08e8              Head {h00=0x001e, h01=0x0019, text=» ST A12,REG12 SAVE REG 12 «, t00=0x0005, t01=0x00fa}
0x08e8…08fe              Head {h00=0x0012, h01=0x000e, text=» LDKL A12,PBLK«, t00=0x0005, t01=0x011c}
0x08fe…0912              Head {h00=0x0010, h01=0x0050, text=» CALL COPVOL«, t00=0x0005, t01=0x0132}
0x0912…0928              Head {h00=0x0012, h01=0x000d, text=» LD A12,REG12 «, t00=0x0005, t01=0x0146}
0x0928…0956              Head {h00=0x002a, h01=0x0026, text=» CALL RC00 HANDOVER RETURNCODE TO USER«, t00=0x0005, t01=0x015c}
0x0956…0966              Head {h00=0x000c, h01=0x0050, text=» ABL RT1«, t00=0x0005, t01=0x018a}
0x0966…0974              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0006, t01=0x000a}
0x0974…0986              Head {h00=0x000e, h01=0x0050, text=»CFF EQU * «, t00=0x0006, t01=0x0018}
0x0986…09aa              Head {h00=0x0020, h01=0x0050, text=» LDKL A8,PBLK WHERE TO STORE«, t00=0x0006, t01=0x002a}
0x09aa…09ce              Head {h00=0x0020, h01=0x001c, text=» CALL STPARA STORE PARAMETER«, t00=0x0006, t01=0x004e}
0x09ce…09e4              Head {h00=0x0012, h01=0x000d, text=» LDKL A8,BUF1 «, t00=0x0006, t01=0x0072}
0x09e4…09f8              Head {h00=0x0010, h01=0x000b, text=» ST A8,PBLK «, t00=0x0006, t01=0x0088}
0x09f8…0a0e              Head {h00=0x0012, h01=0x000d, text=» LDKL A8,BUF2 «, t00=0x0006, t01=0x009c}
0x0a0e…0a24              Head {h00=0x0012, h01=0x000d, text=» ST A8,PBLK+2 «, t00=0x0006, t01=0x00b2}
0x0a24…0a46              Head {h00=0x001e, h01=0x0019, text=» ST A12,REG12 SAVE REG 12 «, t00=0x0006, t01=0x00c8}
0x0a46…0a5c              Head {h00=0x0012, h01=0x000e, text=» LDKL A12,PBLK«, t00=0x0006, t01=0x00ea}
0x0a5c…0a70              Head {h00=0x0010, h01=0x0050, text=» CALL COPFIL«, t00=0x0006, t01=0x0100}
0x0a70…0a86              Head {h00=0x0012, h01=0x000d, text=» LD A12,REG12 «, t00=0x0006, t01=0x0114}
0x0a86…0ab4              Head {h00=0x002a, h01=0x0026, text=» CALL RC00 HANDOVER RETURNCODE TO USER«, t00=0x0006, t01=0x012a}
0x0ab4…0ac4              Head {h00=0x000c, h01=0x0050, text=» ABL RT1«, t00=0x0006, t01=0x0158}
0x0ac4…0ad2              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0006, t01=0x0168}
0x0ad2…0ae4              Head {h00=0x000e, h01=0x0050, text=»DLF EQU * «, t00=0x0006, t01=0x0176}
0x0ae4…0b08              Head {h00=0x0020, h01=0x0050, text=» LDKL A8,PBLK WHERE TO STORE«, t00=0x0006, t01=0x0188}
0x0b08…0b2c              Head {h00=0x0020, h01=0x001c, text=» CALL STPARA STORE PARAMETER«, t00=0x0007, t01=0x001c}
0x0b2c…0b42              Head {h00=0x0012, h01=0x000d, text=» LDKL A8,BUF1 «, t00=0x0007, t01=0x0040}
0x0b42…0b56              Head {h00=0x0010, h01=0x000b, text=» ST A8,PBLK «, t00=0x0007, t01=0x0056}
0x0b56…0b6c              Head {h00=0x0012, h01=0x000d, text=» LDKL A8,BUF2 «, t00=0x0007, t01=0x006a}
0x0b6c…0b82              Head {h00=0x0012, h01=0x000d, text=» ST A8,PBLK+2 «, t00=0x0007, t01=0x0080}
0x0b82…0ba4              Head {h00=0x001e, h01=0x0019, text=» ST A12,REG12 SAVE REG 12 «, t00=0x0007, t01=0x0096}
0x0ba4…0bba              Head {h00=0x0012, h01=0x000e, text=» LDKL A12,PBLK«, t00=0x0007, t01=0x00b8}
0x0bba…0bce              Head {h00=0x0010, h01=0x0050, text=» CALL DLFILE«, t00=0x0007, t01=0x00ce}
0x0bce…0be4              Head {h00=0x0012, h01=0x000d, text=» LD A12,REG12 «, t00=0x0007, t01=0x00e2}
0x0be4…0c12              Head {h00=0x002a, h01=0x0026, text=» CALL RC00 HANDOVER RETURNCODE TO USER«, t00=0x0007, t01=0x00f8}
0x0c12…0c22              Head {h00=0x000c, h01=0x0050, text=» ABL RT1«, t00=0x0007, t01=0x0126}
0x0c22…0c30              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x0136}
0x0c30…0c42              Head {h00=0x000e, h01=0x0050, text=»CRF EQU * «, t00=0x0007, t01=0x0144}
0x0c42…0c66              Head {h00=0x0020, h01=0x0050, text=» LDKL A8,PBLK WHERE TO STORE«, t00=0x0007, t01=0x0156}
0x0c66…0c8a              Head {h00=0x0020, h01=0x001c, text=» CALL STPARA STORE PARAMETER«, t00=0x0007, t01=0x017a}
0x0c8a…0ca0              Head {h00=0x0012, h01=0x000d, text=» LDKL A8,BUF1 «, t00=0x0008, t01=0x000e}
0x0ca0…0cb4              Head {h00=0x0010, h01=0x000b, text=» ST A8,PBLK «, t00=0x0008, t01=0x0024}
0x0cb4…0cca              Head {h00=0x0012, h01=0x000d, text=» LDKL A8,BUF2 «, t00=0x0008, t01=0x0038}
0x0cca…0ce0              Head {h00=0x0012, h01=0x000d, text=» ST A8,PBLK+2 «, t00=0x0008, t01=0x004e}
0x0ce0…0d02              Head {h00=0x001e, h01=0x0019, text=» ST A12,REG12 SAVE REG 12 «, t00=0x0008, t01=0x0064}
0x0d02…0d18              Head {h00=0x0012, h01=0x000e, text=» LDKL A12,PBLK«, t00=0x0008, t01=0x0086}
0x0d18…0d2c              Head {h00=0x0010, h01=0x0050, text=» CALL CRFILE«, t00=0x0008, t01=0x009c}
0x0d2c…0d42              Head {h00=0x0012, h01=0x000d, text=» LD A12,REG12 «, t00=0x0008, t01=0x00b0}
0x0d42…0d70              Head {h00=0x002a, h01=0x0026, text=» CALL RC00 HANDOVER RETURNCODE TO USER«, t00=0x0008, t01=0x00c6}
0x0d70…0d80              Head {h00=0x000c, h01=0x0050, text=» ABL RT1«, t00=0x0008, t01=0x00f4}
0x0d80…0d8e              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x0104}
0x0d8e…0da0              Head {h00=0x000e, h01=0x0050, text=»PVC EQU * «, t00=0x0008, t01=0x0112}
0x0da0…0dc4              Head {h00=0x0020, h01=0x0050, text=» LDKL A8,PBLK WHERE TO STORE«, t00=0x0008, t01=0x0124}
0x0dc4…0de8              Head {h00=0x0020, h01=0x001c, text=» CALL STPARA STORE PARAMETER«, t00=0x0008, t01=0x0148}
0x0de8…0dfe              Head {h00=0x0012, h01=0x000d, text=» LDKL A8,BUF1 «, t00=0x0008, t01=0x016c}
0x0dfe…0e12              Head {h00=0x0010, h01=0x000b, text=» ST A8,PBLK «, t00=0x0008, t01=0x0182}
0x0e12…0e28              Head {h00=0x0012, h01=0x000d, text=» LDKL A8,BUF2 «, t00=0x0009, t01=0x0008}
0x0e28…0e3e              Head {h00=0x0012, h01=0x000d, text=» ST A8,PBLK+2 «, t00=0x0009, t01=0x001e}
0x0e3e…0e60              Head {h00=0x001e, h01=0x0019, text=» ST A12,REG12 SAVE REG 12 «, t00=0x0009, t01=0x0034}
0x0e60…0e76              Head {h00=0x0012, h01=0x000e, text=» LDKL A12,PBLK«, t00=0x0009, t01=0x0056}
0x0e76…0e8a              Head {h00=0x0010, h01=0x0050, text=» CALL PRVTOC«, t00=0x0009, t01=0x006c}
0x0e8a…0ea0              Head {h00=0x0012, h01=0x000d, text=» LD A12,REG12 «, t00=0x0009, t01=0x0080}
0x0ea0…0ece              Head {h00=0x002a, h01=0x0026, text=» CALL RC00 HANDOVER RETURNCODE TO USER«, t00=0x0009, t01=0x0096}
0x0ece…0ede              Head {h00=0x000c, h01=0x0050, text=» ABL RT1«, t00=0x0009, t01=0x00c4}
0x0ede…0eec              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x00d4}
0x0eec…0efe              Head {h00=0x000e, h01=0x0050, text=»CTF EQU * «, t00=0x0009, t01=0x00e2}
0x0efe…0f22              Head {h00=0x0020, h01=0x0050, text=» LDKL A8,PBLK WHERE TO STORE«, t00=0x0009, t01=0x00f4}
0x0f22…0f46              Head {h00=0x0020, h01=0x001c, text=» CALL STPARA STORE PARAMETER«, t00=0x0009, t01=0x0118}
0x0f46…0f5c              Head {h00=0x0012, h01=0x000d, text=» LDKL A8,BUF1 «, t00=0x0009, t01=0x013c}
0x0f5c…0f70              Head {h00=0x0010, h01=0x000b, text=» ST A8,PBLK «, t00=0x0009, t01=0x0152}
0x0f70…0f86              Head {h00=0x0012, h01=0x000d, text=» LDKL A8,BUF2 «, t00=0x0009, t01=0x0166}
0x0f86…0f9c              Head {h00=0x0012, h01=0x000d, text=» ST A8,PBLK+2 «, t00=0x0009, t01=0x017c}
0x0f9c…0fbe (10, 0, 400) Head {h00=0x001e, h01=0x0019, text=» ST A12,REG12 SAVE REG 12 «, t00=0x000a, t01=0x0004}
0x0fbe…0fd4              Head {h00=0x0012, h01=0x000e, text=» LDKL A12,PBLK«, t00=0x000a, t01=0x0026}
0x0fd4…0fe8              Head {h00=0x0010, h01=0x0050, text=» CALL COPYTF«, t00=0x000a, t01=0x003c}
0x0fe8…0ffe              Head {h00=0x0012, h01=0x000d, text=» LD A12,REG12 «, t00=0x000a, t01=0x0050}
0x0ffe…102c              Head {h00=0x002a, h01=0x0026, text=» CALL RC00 HANDOVER RETURNCODE TO USER«, t00=0x000a, t01=0x0066}
0x102c…103c              Head {h00=0x000c, h01=0x0050, text=» ABL RT1«, t00=0x000a, t01=0x0094}
0x103c…104a              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x00a4}
0x104a…105c              Head {h00=0x000e, h01=0x0050, text=»WIL EQU * «, t00=0x000a, t01=0x00b2}
0x105c…1080              Head {h00=0x0020, h01=0x0050, text=» LDKL A8,PBLK WHERE TO STORE«, t00=0x000a, t01=0x00c4}
0x1080…10a4              Head {h00=0x0020, h01=0x001c, text=» CALL STPARA STORE PARAMETER«, t00=0x000a, t01=0x00e8}
0x10a4…10ba              Head {h00=0x0012, h01=0x000d, text=» LDKL A8,BUF1 «, t00=0x000a, t01=0x010c}
0x10ba…10ce              Head {h00=0x0010, h01=0x000b, text=» ST A8,PBLK «, t00=0x000a, t01=0x0122}
0x10ce…10e4              Head {h00=0x0012, h01=0x000d, text=» LDKL A8,BUF2 «, t00=0x000a, t01=0x0136}
0x10e4…10fa              Head {h00=0x0012, h01=0x000d, text=» ST A8,PBLK+2 «, t00=0x000a, t01=0x014c}
0x10fa…111c              Head {h00=0x001e, h01=0x0019, text=» ST A12,REG12 SAVE REG 12 «, t00=0x000a, t01=0x0162}
0x111c…1132              Head {h00=0x0012, h01=0x000e, text=» LDKL A12,PBLK«, t00=0x000a, t01=0x0184}
0x1132…1146              Head {h00=0x0010, h01=0x0050, text=» CALL IBMLBL«, t00=0x000b, t01=0x000a}
0x1146…115c              Head {h00=0x0012, h01=0x000d, text=» LD A12,REG12 «, t00=0x000b, t01=0x001e}
0x115c…118a              Head {h00=0x002a, h01=0x0026, text=» CALL RC00 HANDOVER RETURNCODE TO USER«, t00=0x000b, t01=0x0034}
0x118a…119a              Head {h00=0x000c, h01=0x0050, text=» ABL RT1«, t00=0x000b, t01=0x0062}
0x119a…11a8              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x0072}
0x11a8…11d2              Head {h00=0x0026, h01=0x0050, text=»   STORE VOLUMENAME INTO PARABLOCK«, t00=0x000b, t01=0x0080}
0x11d2…11ea              Head {h00=0x0014, h01=0x0050, text=»   A9=ITEM START«, t00=0x000b, t01=0x00aa}
0x11ea…1206              Head {h00=0x0018, h01=0x0050, text=»   A8=PARABLK START «, t00=0x000b, t01=0x00c2}
0x1206…121a              Head {h00=0x0010, h01=0x0050, text=»   A3=LENGTH«, t00=0x000b, t01=0x00de}
0x121a…122e              Head {h00=0x0010, h01=0x0050, text=»STPARA EQU *«, t00=0x000b, t01=0x00f2}
0x122e…1258              Head {h00=0x0026, h01=0x0050, text=» CALL I:EVA0 GET PARAMETERADDRESS «, t00=0x000b, t01=0x0106}
0x1258…1276              Head {h00=0x001a, h01=0x0050, text=» LDK A3,63 BLOCKLENGTH«, t00=0x000b, t01=0x0130}
0x1276…128a              Head {h00=0x0010, h01=0x0050, text=»STPA10 EQU *«, t00=0x000b, t01=0x014e}
0x128a…129c              Head {h00=0x000e, h01=0x0050, text=» LDK A2,1 «, t00=0x000b, t01=0x0162}
0x129c…12b0              Head {h00=0x0010, h01=0x0050, text=»STPA20 EQU *«, t00=0x000b, t01=0x0174}
0x12b0…12c2              Head {h00=0x000e, h01=0x0050, text=» LCR A1,A9«, t00=0x000b, t01=0x0188}
0x12c2…12d4              Head {h00=0x000e, h01=0x0050, text=» SCR A1,A8«, t00=0x000c, t01=0x000a}
0x12d4…12e6              Head {h00=0x000e, h01=0x0050, text=» ADR A9,A2«, t00=0x000c, t01=0x001c}
0x12e6…12f8              Head {h00=0x000e, h01=0x0050, text=» ADR A8,A2«, t00=0x000c, t01=0x002e}
0x12f8…130a              Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x000c, t01=0x0040}
0x130a…1320              Head {h00=0x0012, h01=0x0050, text=» RB(NN) STPA20«, t00=0x000c, t01=0x0052}
0x1320…1330              Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x000c, t01=0x0068}
0x1330…1350              Head {h00=0x001c, h01=0x0050, text=»   GET PARA FROM CREDIT «, t00=0x000c, t01=0x0078}
0x1350…1372              Head {h00=0x001e, h01=0x0050, text=»   A1=ADDRESS IN PARABLOCK«, t00=0x000c, t01=0x0098}
0x1372…1386              Head {h00=0x0010, h01=0x0050, text=»PARA00 EQU *«, t00=0x000c, t01=0x00ba}
0x1386…1398              Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x000c, t01=0x00ce}
0x1398…13b4              Head {h00=0x0018, h01=0x0050, text=» LCR A2,A12 GET PARA«, t00=0x000c, t01=0x00e0}
0x13b4…13c8              Head {h00=0x0010, h01=0x0050, text=» ADKL A12,1 «, t00=0x000c, t01=0x00fc}
0x13c8…13da              Head {h00=0x000e, h01=0x0050, text=» SCR A2,A1«, t00=0x000c, t01=0x0110}
0x13da…13ec              Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x000c, t01=0x0122}
0x13ec…13fc              Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x000c, t01=0x0134}
0x13fc…1404              Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x0144}
0x1404…140c              Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x014c}
0x140c…1414              Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x0154}
0x1414…1434              Head {h00=0x001c, h01=0x0050, text=»   GET FILECODE FROM ECB«, t00=0x000c, t01=0x015c}
0x1434…1456              Head {h00=0x001e, h01=0x0050, text=»   A1=ADDRESS IN PARABLOCK«, t00=0x000c, t01=0x017c}
0x1456…1468              Head {h00=0x000e, h01=0x0050, text=»FC00 EQU *«, t00=0x000d, t01=0x000e}
0x1468…147c              Head {h00=0x0010, h01=0x0050, text=» CALL T:FDSP«, t00=0x000d, t01=0x0020}
0x147c…1490              Head {h00=0x0010, h01=0x0050, text=» LC A2,1,A8 «, t00=0x000d, t01=0x0034}
0x1490…14a2              Head {h00=0x000e, h01=0x0050, text=» SCR A2,A1«, t00=0x000d, t01=0x0048}
0x14a2…14b4              Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x000d, t01=0x005a}
0x14b4…14c4              Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x000d, t01=0x006c}
0x14c4…14cc              Head {h00=0x0004, h01=0x0050, t00=0x000d, t01=0x007c}
0x14cc…14d4              Head {h00=0x0004, h01=0x0050, t00=0x000d, t01=0x0084}
0x14d4…14dc              Head {h00=0x0004, h01=0x0050, t00=0x000d, t01=0x008c}
0x14dc…14f2              Head {h00=0x0012, h01=0x0050, text=»   RETURNCODE «, t00=0x000d, t01=0x0094}
0x14f2…1504              Head {h00=0x000e, h01=0x0050, text=»RC00 EQU *«, t00=0x000d, t01=0x00aa}
0x1504…1516              Head {h00=0x000e, h01=0x0050, text=» ST A1,RC «, t00=0x000d, t01=0x00bc}
0x1516…1528              Head {h00=0x000e, h01=0x0050, text=» ST A2,RC2«, t00=0x000d, t01=0x00ce}
0x1528…153c              Head {h00=0x0010, h01=0x0050, text=» CALL I:EVA0«, t00=0x000d, t01=0x00e0}
0x153c…154e              Head {h00=0x000e, h01=0x0050, text=» LD A1,RC «, t00=0x000d, t01=0x00f4}
0x154e…1560              Head {h00=0x000e, h01=0x0050, text=» STR A1,A9«, t00=0x000d, t01=0x0106}
0x1560…1574              Head {h00=0x0010, h01=0x0050, text=» CALL I:EVA0«, t00=0x000d, t01=0x0118}
0x1574…1586              Head {h00=0x000e, h01=0x0050, text=» LD A1,RC2«, t00=0x000d, t01=0x012c}
0x1586…1598              Head {h00=0x000e, h01=0x0050, text=» STR A1,A9«, t00=0x000d, t01=0x013e}
0x1598…15a8              Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x000d, t01=0x0150}
0x15a8…15b0              Head {h00=0x0004, h01=0x0050, t00=0x000d, t01=0x0160}
0x15b0…15b8              Head {h00=0x0004, h01=0x0050, t00=0x000d, t01=0x0168}
0x15b8…15c0              Head {h00=0x0004, h01=0x0050, t00=0x000d, t01=0x0170}
0x15c0…15d2              Head {h00=0x000e, h01=0x0009, text=»RT1 EQU * «, t00=0x000d, t01=0x0178}
0x15d2…15f6              Head {h00=0x0020, h01=0x001b, text=» ABL I:RT1 RETURN TO CREDIT «, t00=0x000d, t01=0x018a}
0x15f6…15fe              Head {h00=0x0004, h01=0x0050, t00=0x000e, t01=0x001e}
0x15fe…1606              Head {h00=0x0004, h01=0x0050, t00=0x000e, t01=0x0026}
0x1606…1614              Head {h00=0x000a, h01=0x0005, text=» END  «, t00=0x000e, t01=0x002e}
0x1614…1618              Head {h00=0x4004, h01=0x0000}
0x1618…161c              00 0e 00 3c                                                                                                                                                                                                                                       ┆   <┆
0x161c…1624 (15, 1, 8)   20 04 00 00 00 0f 00 04                                                                                                                                                                                                                           ┆        ┆
0x1624…1674 (16, 0, 398) 00 0e 00 0a 02 04 c2 43 41 53 53 46 43 00 00 07 00 04 00 0e 00 0a 02 04 c2 43 59 45 53 4e 4f 00 00 07 00 16 00 0e 00 0a 02 04 c2 43 49 4e 44 45 56 00 00 07 00 28 00 0e 00 0a 02 04 c2 43 4f 54 44 45 56 00 00 07 00 3a 00 0c 00 08 02 03 82 43   ┆       CASSFC            CYESNO            CINDEV    (       COTDEV    :       C┆
0x1674…16c4              4c 41 42 00 00 07 00 4c 00 2c 00 28 03 13 00 00 04 d1 a2 aa 00 00 00 04 00 00 00 06 00 00 00 00 00 00 00 0c 00 00 00 0e 00 00 00 10 00 00 00 12 00 00 00 14 00 07 00 5c 00 0e 00 0a 02 04 c2 43 50 43 4f 4e 56 00 00 07 00 8c 00 0e 00 0a 02 04   ┆LAB    L , (                                                   CPCONV           ┆
0x16c4…1714              c2 43 43 43 4f 44 45 00 00 07 00 9e 00 2a 00 26 03 12 00 00 04 e3 a8 14 00 00 00 14 00 00 00 0e 00 00 00 0e 00 00 00 00 00 00 00 00 00 00 00 00 00 16 00 00 00 0e 00 07 00 b0 00 0e 00 0a 02 04 c2 43 44 49 53 43 32 00 00 07 00 de 00 2c 00 28   ┆ CCCODE      * &                                                 CDISC2      , (┆
0x1714…1764              03 13 00 00 04 f7 a0 0a 00 00 00 18 00 00 00 02 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0e 00 00 00 1a 00 07 00 f0 00 0e 00 0a 02 04 c2 43 54 52 53 45 43 00 00 07 01 20 00 0e 00 0a 02 04 c2 43 49 42 4d 52 4c 00 00 07 01 32   ┆                                                   CTRSEC            CIBMRL    2┆
0x1764…17b2              00 2a 00 26 03 12 00 00 05 0f a8 94 00 00 00 06 00 00 00 1c 00 00 00 1c 00 00 00 00 00 00 00 0e 00 00 00 00 00 1e 00 00 00 06 00 07 01 44 00 0e 00 0a 02 04 c2 43 41 53 4f 55 54 00 00 07 01 72 00 0e 00 0a 02 04 c2 43 4d 54 44 4b 31 00         ┆ * &                                         D       CASOUT    r       CMTDK1 ┆
0x17b2…1802 (17, 0, 400) 00 07 01 84 00 0e 00 0a 02 04 c2 55 50 44 3a 41 34 00 00 08 00 08 00 0e 00 0a 02 04 c2 43 4d 54 44 4b 32 00 00 08 00 1a 00 0e 00 0a 02 04 c2 55 50 44 3a 41 39 00 00 08 00 2c 00 2c 00 28 03 13 00 00 05 21 a2 2a 00 00 00 0e 00 00 00 20 00 00   ┆           UPD:A4            CMTDK2            UPD:A9    , , (     ! *          ┆
0x1802…1852              00 00 00 00 00 22 00 00 00 00 00 00 00 24 00 00 00 26 00 00 00 28 00 08 00 3e 00 0e 00 0a 02 04 c2 43 4d 54 44 4b 33 00 00 08 00 6e 00 0e 00 0a 02 04 c2 43 41 53 49 58 46 00 00 08 00 80 00 0e 00 0a 02 04 c2 43 41 53 4d 49 58 00 00 08 00 92   ┆     "       $   &   (   >       CMTDK3    n       CASIXF            CASMIX     ┆
0x1852…18a2              00 0e 00 0a 02 04 c2 46 43 43 41 52 44 00 00 08 00 a4 00 2c 00 28 03 13 00 00 05 35 a9 2a 00 00 00 06 00 00 00 06 00 00 00 2a 00 00 00 00 00 0e 00 00 00 00 00 2c 00 00 00 2e 00 00 00 06 00 08 00 b6 00 0e 00 0a 02 04 c2 43 41 53 57 4b 46 00   ┆       FCCARD      , (     5 *           *           ,   .               CASWKF ┆
0x18a2…18f2              00 08 00 e6 00 0e 00 0a 02 04 c2 43 4d 54 44 4b 34 00 00 08 00 f8 00 0c 00 08 02 03 82 43 57 41 41 00 00 08 01 0a 00 0c 00 08 02 03 82 43 57 41 4c 00 00 08 01 1a 00 2c 00 28 03 13 00 00 05 47 82 aa 00 00 00 30 00 00 00 00 00 00 00 00 00 00   ┆           CMTDK4            CWAA            CWAL      , (     G     0          ┆
0x18f2…1942              00 32 00 00 00 06 00 00 00 34 00 00 00 36 00 00 00 38 00 08 01 2a 00 0e 00 0a 02 04 c2 55 50 44 41 39 42 00 00 08 01 5a 00 10 00 0c 05 05 dc 43 43 50 42 4f 54 00 05 62 00 08 01 6c 00 2c 00 28 03 13 00 00 05 5b a4 00 00 00 00 0e 00 00 00 3a   ┆ 2       4   6   8   *       UPDA9B    Z       CCPBOT  b   l , (     [         :┆
0x1942…1992 (18, 0, 400) 00 00 00 00 00 0e 06 01 07 01 08 06 10 06 08 08 0e 02 28 06 2e 03 31 01 00 08 01 80 00 2c 00 28 03 13 00 00 05 75 00 00 32 02 37 03 08 02 0c 02 10 02 06 01 06 01 08 06 00 00 00 00 00 00 09 01 06 01 07 01 08 01 09 01 00 09 00 20 00 2c 00 28   ┆                  ( . 1      , (     u  2 7                                  , (┆
0x1992…19e2              03 13 00 00 05 95 00 00 0e 01 0f 01 0a 01 0b 01 16 08 1e 08 0b 04 08 01 09 01 0a 02 07 01 00 00 00 00 00 00 00 00 00 00 00 09 00 50 00 2c 00 28 03 13 00 00 05 b5 00 00 37 02 34 01 35 01 11 01 07 01 10 08 1c 05 22 05 28 06 2e 06 35 01 0e 02   ┆                                           P , (        7 4 5         " ( . 5   ┆
0x19e2…1a32              18 03 0e 08 17 01 00 00 00 09 00 80 00 2c 00 28 03 13 00 00 05 d5 00 00 36 01 34 02 06 01 16 02 18 02 1a 02 07 01 18 02 08 08 08 08 06 01 00 00 10 01 1b 03 00 00 00 00 00 09 00 b0 00 0e 00 0a 05 04 bc 43 43 46 41 54 06 12 00 09 00 e0 00 0c   ┆             , (        6 4                                        CCFAT        ┆
0x1a32…1a82              00 08 02 03 a2 43 52 56 4f 4c 00 09 00 f2 00 2a 00 26 03 12 00 00 05 f5 00 00 10 06 00 00 2a 02 48 02 1b 03 00 00 00 00 08 08 06 01 16 02 18 02 0c 02 0f 01 1e 02 15 01 00 09 01 02 00 0e 00 0a 02 04 c2 43 52 46 49 4c 45 00 00 09 01 30 00 0e   ┆     CRVOL     * &            * H                                  CRFILE    0  ┆
0x1a82…1ad2              00 0a 02 04 c2 44 4c 46 49 4c 45 00 00 09 01 42 00 0e 00 0a 02 04 c2 50 52 56 54 4f 43 00 00 09 01 54 00 0e 00 0a 02 04 c2 50 52 44 49 53 43 00 00 09 01 66 00 0e 00 0a 02 04 c2 55 50 44 49 53 43 00 00 09 01 78 00 0e 00 0a 02 04 c2 43 4f 50   ┆     DLFILE    B       PRVTOC    T       PRDISC    f       UPDISC    x       COP┆
0x1ad2…1b22 (19, 0, 400) 56 4f 4c 00 00 09 01 8a 00 0e 00 0a 02 04 c2 43 4f 50 46 49 4c 00 00 0a 00 0c 00 0e 00 0a 02 04 c2 43 4f 50 59 46 54 00 00 0a 00 1e 00 2c 00 28 03 13 00 00 06 13 aa aa 00 00 00 3c 00 00 00 3e 00 00 00 40 00 00 00 42 00 00 00 44 00 00 00 46   ┆VOL            COPFIL            COPYFT      , (           <   >   @   B   D   F┆
0x1b22…1b72              00 00 00 48 00 00 00 4a 00 0a 00 30 00 0e 00 0a 02 04 c2 43 4f 50 59 54 46 00 00 0a 00 60 00 0e 00 0a 02 04 c2 50 52 46 49 4c 45 00 00 0a 00 72 00 0c 00 08 02 03 a2 53 43 41 4e 54 00 0a 00 84 00 0e 00 0a 02 04 c2 4c 4f 43 4b 46 44 00 00 0a   ┆   H   J   0       COPYTF    `       PRFILE    r       SCANT           LOCKFD   ┆
0x1b72…1bc2              00 94 00 0e 00 0a 02 04 c2 55 4e 4c 4f 41 44 00 00 0a 00 a6 00 0e 00 0a 02 04 c2 43 4f 50 59 49 54 00 00 0a 00 b8 00 0e 00 0a 02 04 c2 43 4f 50 59 54 49 00 00 0a 00 ca 00 0e 00 0a 02 04 c2 49 42 4d 4c 42 4c 00 00 0a 00 dc 00 2c 00 28 03 13   ┆         UNLOAD            COPYIT            COPYTI            IBMLBL      , (  ┆
0x1bc2…1c12              00 00 06 23 aa aa 00 00 00 4c 00 00 00 4e 00 00 00 50 00 00 00 52 00 00 00 54 00 00 00 56 00 00 00 58 00 00 00 5a 00 0a 00 ee 00 0e 00 0a 02 04 c2 50 52 49 4e 44 58 00 00 0a 01 1e 00 0e 00 0a 02 04 c2 42 49 4e 44 45 58 00 00 0a 01 30 00 0e   ┆   #     L   N   P   R   T   V   X   Z           PRINDX            BINDEX    0  ┆
0x1c12…1c62              00 0a 02 04 c2 52 49 4e 44 45 58 00 00 0a 01 42 00 0e 00 0a 02 04 c2 43 4f 50 59 43 46 00 00 0a 01 54 00 0c 00 08 02 03 a2 53 4f 52 54 46 00 0a 01 66 00 0e 00 0a 05 04 bc 43 43 4c 54 54 06 3e 00 0a 01 76 00 2c 00 28 03 13 00 00 06 33 aa a0   ┆     RINDEX    B       COPYCF    T       SORTF   f       CCLTT >   v , (     3  ┆
0x1c62…1cb2 (20, 0, 400) 00 00 00 5c 00 00 00 5e 00 00 00 60 00 00 00 62 00 00 00 64 00 00 00 66 00 00 00 00 00 00 00 00 00 0a 01 88 00 2c 00 28 03 13 00 00 06 47 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00   ┆       ^   `   b   d   f             , (     G                                  ┆
0x1cb2…1d02              00 0b 00 28 00 2c 00 28 03 13 00 00 06 67 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0b 00 58 00 2c 00 28 03 13 00 00 06 87 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00   ┆   ( , (     g                                     X , (                        ┆
0x1d02…1d52              00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0b 00 88 00 2c 00 28 03 13 00 00 06 a7 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0b 00 b8 00 2c 00 28 03 13 00 00 06 c7 00 00   ┆                     , (                                             , (        ┆
0x1d52…1da2              00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0b 00 e8 00 0e 00 0a 05 04 bc 43 43 45 4d 54 06 ee 00 0b 01 18 00 2c 00 28 03 13 00 00 06 e7 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00   ┆                                           CCEMT       , (                      ┆
0x1da2…1df2              00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0b 01 2a 00 2c 00 28 03 13 00 00 07 07 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0b 01 5a 00 2c 00 28 03 13 00 00 07 27   ┆                     * , (                                           Z , (     '┆

Reduced view