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

⟦62c49c09a⟧

    Length: 4442 (0x115a)
    Notes: pts_type(SC)
    Names: »RKIO.SC«

Derivation

└─⟦26dca8ec8⟧ Bits:30009711 Philips computer tape "RÅKON-DIVFMT"
    └─⟦this⟧ »REMIT2/RKIO.SC« 

PTS(SC)

	IDENT	RKIO	R]KONVERTERING 9.2 790129 EV
			770526 

	ENTRY	RKIO	PERFORM TOSS FUNCTION 

	EXTRN	T:FDSP	FETCH DATASET PARAMETERS
	EXTRN	T:IO3	PERFORM I/O REQUEST
	EXTRN	I:EVA0	EVALUATE ADDRESS
	EXTRN	I:ERR2	ILLEGAL TYPE
	EXTRN	I:ERR	ERROR PRINT ROUTINE
* 
* CONDITIONAL ASSEMBLY FLAGS
* 
TEST	EQU	1
NOTEST	EQU	0
PARM EQU NOTEST 
* 
*TEMPORARY REGISTERS
* 
WK1	EQU	A1	WORK REGISTER
OP1E	EQU	A6	OPERAND1 END
OP2A	EQU	A9	OPERAND2 ADDRESS
OP2E	EQU	A5	OPERAND 2 LENGTH
OP2T	EQU	A3	OPERAND 2 TYPE
* 
*NON TEMPORARY REGISTERS
* 
PP	EQU	A12	PROGRAM POINTER
PS	EQU	A14	STACK POINTER
* 
*BIT VALUES 
* 
ARITHB	EQU	X'10'	ARITHMETIC BIT 
NUMBIT	EQU	X'20'	NUMERIC BIT
* 
*DATA SET DISPLACEMENTS 
* 
ECBBA	EQU	2	BUFFER ADDRESS
ECBRL	EQU	4	REQUESTED LENGTH
ECBCW	EQU	10	CONTROL WORK 
DSCBRL	EQU	14	REQUESTED LENGTH ADDR 
DSCBCW	EQU	16	CONTROL WORK ADDR 
	EJECT
* 
*  PERFORM TOSS FUNCTION
* 
*  CALL RKIO,<DSET>,<ORDER>,<ITEM>,<LENGTH>,<CW>
* 

RKIO	RES	0
* 
*  HANDLE PARAMETER <DSET>
* 
	CF	PS,T:FDSP	GET<DSET> 

* 
*  HANDLE PARAMETER <ORDER> 
* 
	CF	PS,I:EVA0	GET <ORDER> 
	IFT	PARM=TEST
	ANK	OP2T,ARITHB+NUMBIT 
	SUK	OP2T,NUMBIT	BINARY ? 
	ABL(NZ)	I:ERR2	NO! ILLEGAL TYPE
	XIF
	LDR*	A7,OP2A	PUT ORDER IN REG. 7 

* 
*  HANDLE PARAMETER <ITEM>
* 
	CF	PS,I:EVA0	GET <ITEM>
	ST	OP2A,ECBBA,A8	STORE BUF.ADDR IN ECB 

	SUR	OP2E,OP2A	COMPUTE BUFFER LENGTH
	LDR	OP1E,OP2E	SAVE 

* 
*  HANDLE PARAMETER <LENGTH>
* 
	CF	PS,I:EVA0	GET <LENGTH>
	IFT	PARM=TEST
	ANK	OP2T,ARITHB+NUMBIT 
	SUK	OP2T,NUMBIT	BINARY ? 
	ABL(NZ)	I:ERR2	NO! ILLEGAL TYPE
	CWR*	OP1E,OP2A	ILLEGAL REQUESTED LENGTH
	RF(NL)	LEN	NO
	LDK	WK1,5
	ABL	I:ERR	YES
LEN RES 0 
	XIF

	LDR*	WK1,OP2A	GET VALUE
	ST	WK1,ECBRL,A8	STORE REQ.LENGTH IN ECB
	ST	OP2A,DSCBRL,A8	STORE IN DSET

* 
*  HANDLE PARAMETER <CW>
* 
	CF	PS,I:EVA0	GET <CW>
	IFT	PARM=TEST
	ANK	OP2T,ARITHB+NUMBIT 
	SUK	OP2T,NUMBIT	BINARY ? 
	ABL(NZ)	I:ERR2	NO! ILLEGAL TYPE
	XIF

	LDR*	WK1,OP2A
	ST	WK1,ECBCW,A8	STORE CONTROL WORD IN ECB
	ST	OP2A,DSCBCW,A8	STORE IN DSET

* 
*ECB PREPARED 
* 

	ABL	T:IO3	PERFORM I/O REQUEST
	END

HexDump

0x0000…0030 (0, 0, 400)  Head {h00=0x002c, h01=0x0050, text=» IDENT RKIO R]KONVERTERING 9.2 790129 EV«, t00=0x0000, t01=0x0004}
0x0030…0042              Head {h00=0x000e, h01=0x0050, text=»   770526 «, t00=0x0000, t01=0x0034}
0x0042…004a              Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0046}
0x004a…0074              Head {h00=0x0026, h01=0x0050, text=» ENTRY RKIO PERFORM TOSS FUNCTION «, t00=0x0000, t01=0x004e}
0x0074…007c              Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0078}
0x007c…00aa              Head {h00=0x002a, h01=0x0050, text=» EXTRN T:FDSP FETCH DATASET PARAMETERS«, t00=0x0000, t01=0x0080}
0x00aa…00d2              Head {h00=0x0024, h01=0x0050, text=» EXTRN T:IO3 PERFORM I/O REQUEST«, t00=0x0000, t01=0x00ae}
0x00d2…00f8              Head {h00=0x0022, h01=0x0050, text=» EXTRN I:EVA0 EVALUATE ADDRESS«, t00=0x0000, t01=0x00d6}
0x00f8…011a              Head {h00=0x001e, h01=0x0050, text=» EXTRN I:ERR2 ILLEGAL TYPE«, t00=0x0000, t01=0x00fc}
0x011a…0142              Head {h00=0x0024, h01=0x0050, text=» EXTRN I:ERR ERROR PRINT ROUTINE«, t00=0x0000, t01=0x011e}
0x0142…014c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0146}
0x014c…0170              Head {h00=0x0020, h01=0x0050, text=»* CONDITIONAL ASSEMBLY FLAGS«, t00=0x0000, t01=0x0150}
0x0170…017a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0174}
0x017a…018c              Head {h00=0x000e, h01=0x0050, text=»TEST EQU 1«, t00=0x0000, t01=0x017e}
0x018c…01a0              Head {h00=0x0010, h01=0x0050, text=»NOTEST EQU 0«, t00=0x0000, t01=0x0190}
0x01a0…01b8              Head {h00=0x0014, h01=0x0050, text=»PARM EQU NOTEST «, t00=0x0001, t01=0x0014}
0x01b8…01c2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x002c}
0x01c2…01de              Head {h00=0x0018, h01=0x0050, text=»*TEMPORARY REGISTERS«, t00=0x0001, t01=0x0036}
0x01de…01e8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0052}
0x01e8…0208              Head {h00=0x001c, h01=0x0050, text=»WK1 EQU A1 WORK REGISTER«, t00=0x0001, t01=0x005c}
0x0208…0228              Head {h00=0x001c, h01=0x0050, text=»OP1E EQU A6 OPERAND1 END«, t00=0x0001, t01=0x007c}
0x0228…024c              Head {h00=0x0020, h01=0x0050, text=»OP2A EQU A9 OPERAND2 ADDRESS«, t00=0x0001, t01=0x009c}
0x024c…0270              Head {h00=0x0020, h01=0x0050, text=»OP2E EQU A5 OPERAND 2 LENGTH«, t00=0x0001, t01=0x00c0}
0x0270…0292              Head {h00=0x001e, h01=0x0050, text=»OP2T EQU A3 OPERAND 2 TYPE«, t00=0x0001, t01=0x00e4}
0x0292…029c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0106}
0x029c…02bc              Head {h00=0x001c, h01=0x0050, text=»*NON TEMPORARY REGISTERS«, t00=0x0001, t01=0x0110}
0x02bc…02c6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0130}
0x02c6…02e8              Head {h00=0x001e, h01=0x0050, text=»PP EQU A12 PROGRAM POINTER«, t00=0x0001, t01=0x013a}
0x02e8…0308              Head {h00=0x001c, h01=0x0050, text=»PS EQU A14 STACK POINTER«, t00=0x0001, t01=0x015c}
0x0308…0312              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x017c}
0x0312…0326              Head {h00=0x0010, h01=0x0050, text=»*BIT VALUES «, t00=0x0001, t01=0x0186}
0x0326…0330              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x000a}
0x0330…0358              Head {h00=0x0024, h01=0x0050, text=»ARITHB EQU X'10' ARITHMETIC BIT «, t00=0x0002, t01=0x0014}
0x0358…037c              Head {h00=0x0020, h01=0x0050, text=»NUMBIT EQU X'20' NUMERIC BIT«, t00=0x0002, t01=0x003c}
0x037c…0386              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0060}
0x0386…03a6              Head {h00=0x001c, h01=0x0050, text=»*DATA SET DISPLACEMENTS «, t00=0x0002, t01=0x006a}
0x03a6…03b0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x008a}
0x03b0…03d2              Head {h00=0x001e, h01=0x0050, text=»ECBBA EQU 2 BUFFER ADDRESS«, t00=0x0002, t01=0x0094}
0x03d2…03f6              Head {h00=0x0020, h01=0x0050, text=»ECBRL EQU 4 REQUESTED LENGTH«, t00=0x0002, t01=0x00b6}
0x03f6…0418              Head {h00=0x001e, h01=0x0050, text=»ECBCW EQU 10 CONTROL WORK «, t00=0x0002, t01=0x00da}
0x0418…0444              Head {h00=0x0028, h01=0x0050, text=»DSCBRL EQU 14 REQUESTED LENGTH ADDR «, t00=0x0002, t01=0x00fc}
0x0444…046c              Head {h00=0x0024, h01=0x0050, text=»DSCBCW EQU 16 CONTROL WORK ADDR «, t00=0x0002, t01=0x0128}
0x046c…047a              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x0150}
0x047a…0484              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x015e}
0x0484…04a4              Head {h00=0x001c, h01=0x0050, text=»*  PERFORM TOSS FUNCTION«, t00=0x0002, t01=0x0168}
0x04a4…04ae              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0188}
0x04ae…04e6 (3, 0, 400)  Head {h00=0x0034, h01=0x0050, text=»*  CALL RKIO,<DSET>,<ORDER>,<ITEM>,<LENGTH>,<CW>«, t00=0x0003, t01=0x0004}
0x04e6…04f0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x003c}
0x04f0…04f8              Head {h00=0x0004, h01=0x0050, t00=0x0003, t01=0x0046}
0x04f8…050a              Head {h00=0x000e, h01=0x0050, text=»RKIO RES 0«, t00=0x0003, t01=0x004e}
0x050a…0514              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0060}
0x0514…0536              Head {h00=0x001e, h01=0x0050, text=»*  HANDLE PARAMETER <DSET>«, t00=0x0003, t01=0x006a}
0x0536…0540              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x008c}
0x0540…0560              Head {h00=0x001c, h01=0x0050, text=» CF PS,T:FDSP GET<DSET> «, t00=0x0003, t01=0x0096}
0x0560…0568              Head {h00=0x0004, h01=0x0050, t00=0x0003, t01=0x00b6}
0x0568…0572              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00be}
0x0572…0596              Head {h00=0x0020, h01=0x0050, text=»*  HANDLE PARAMETER <ORDER> «, t00=0x0003, t01=0x00c8}
0x0596…05a0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00ec}
0x05a0…05c2              Head {h00=0x001e, h01=0x0050, text=» CF PS,I:EVA0 GET <ORDER> «, t00=0x0003, t01=0x00f6}
0x05c2…05d8              Head {h00=0x0012, h01=0x0050, text=» IFT PARM=TEST«, t00=0x0003, t01=0x0118}
0x05d8…05f8              Head {h00=0x001c, h01=0x0050, text=» ANK OP2T,ARITHB+NUMBIT «, t00=0x0003, t01=0x012e}
0x05f8…061a              Head {h00=0x001e, h01=0x0050, text=» SUK OP2T,NUMBIT BINARY ? «, t00=0x0003, t01=0x014e}
0x061a…0642              Head {h00=0x0024, h01=0x0050, text=» ABL(NZ) I:ERR2 NO! ILLEGAL TYPE«, t00=0x0003, t01=0x0170}
0x0642…064e              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0004, t01=0x0008}
0x064e…0678              Head {h00=0x0026, h01=0x0050, text=» LDR* A7,OP2A PUT ORDER IN REG. 7 «, t00=0x0004, t01=0x0014}
0x0678…0680              Head {h00=0x0004, h01=0x0050, t00=0x0004, t01=0x003e}
0x0680…068a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0046}
0x068a…06ac              Head {h00=0x001e, h01=0x0050, text=»*  HANDLE PARAMETER <ITEM>«, t00=0x0004, t01=0x0050}
0x06ac…06b6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0072}
0x06b6…06d6              Head {h00=0x001c, h01=0x0050, text=» CF PS,I:EVA0 GET <ITEM>«, t00=0x0004, t01=0x007c}
0x06d6…0706              Head {h00=0x002c, h01=0x0050, text=» ST OP2A,ECBBA,A8 STORE BUF.ADDR IN ECB «, t00=0x0004, t01=0x009c}
0x0706…070e              Head {h00=0x0004, h01=0x0050, t00=0x0004, t01=0x00cc}
0x070e…073a              Head {h00=0x0028, h01=0x0050, text=» SUR OP2E,OP2A COMPUTE BUFFER LENGTH«, t00=0x0004, t01=0x00d4}
0x073a…0756              Head {h00=0x0018, h01=0x0050, text=» LDR OP1E,OP2E SAVE «, t00=0x0004, t01=0x0100}
0x0756…075e              Head {h00=0x0004, h01=0x0050, t00=0x0004, t01=0x011c}
0x075e…0768              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0124}
0x0768…078c              Head {h00=0x0020, h01=0x0050, text=»*  HANDLE PARAMETER <LENGTH>«, t00=0x0004, t01=0x012e}
0x078c…0796              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0152}
0x0796…07b8              Head {h00=0x001e, h01=0x0050, text=» CF PS,I:EVA0 GET <LENGTH>«, t00=0x0004, t01=0x015c}
0x07b8…07ce              Head {h00=0x0012, h01=0x0050, text=» IFT PARM=TEST«, t00=0x0004, t01=0x017e}
0x07ce…07ee (5, 0, 400)  Head {h00=0x001c, h01=0x0050, text=» ANK OP2T,ARITHB+NUMBIT «, t00=0x0005, t01=0x0004}
0x07ee…0810              Head {h00=0x001e, h01=0x0050, text=» SUK OP2T,NUMBIT BINARY ? «, t00=0x0005, t01=0x0024}
0x0810…0838              Head {h00=0x0024, h01=0x0050, text=» ABL(NZ) I:ERR2 NO! ILLEGAL TYPE«, t00=0x0005, t01=0x0046}
0x0838…0868              Head {h00=0x002c, h01=0x0050, text=» CWR* OP1E,OP2A ILLEGAL REQUESTED LENGTH«, t00=0x0005, t01=0x006e}
0x0868…087e              Head {h00=0x0012, h01=0x0050, text=» RF(NL) LEN NO«, t00=0x0005, t01=0x009e}
0x087e…0890              Head {h00=0x000e, h01=0x0050, text=» LDK WK1,5«, t00=0x0005, t01=0x00b4}
0x0890…08a6              Head {h00=0x0012, h01=0x0050, text=» ABL I:ERR YES«, t00=0x0005, t01=0x00c6}
0x08a6…08b8              Head {h00=0x000e, h01=0x0050, text=»LEN RES 0 «, t00=0x0005, t01=0x00dc}
0x08b8…08c4              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0005, t01=0x00ee}
0x08c4…08cc              Head {h00=0x0004, h01=0x0050, t00=0x0005, t01=0x00fa}
0x08cc…08ec              Head {h00=0x001c, h01=0x0050, text=» LDR* WK1,OP2A GET VALUE«, t00=0x0005, t01=0x0102}
0x08ec…091c              Head {h00=0x002c, h01=0x0050, text=» ST WK1,ECBRL,A8 STORE REQ.LENGTH IN ECB«, t00=0x0005, t01=0x0122}
0x091c…0944              Head {h00=0x0024, h01=0x0050, text=» ST OP2A,DSCBRL,A8 STORE IN DSET«, t00=0x0005, t01=0x0152}
0x0944…094c              Head {h00=0x0004, h01=0x0050, t00=0x0005, t01=0x017a}
0x094c…0956              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0182}
0x0956…0976              Head {h00=0x001c, h01=0x0050, text=»*  HANDLE PARAMETER <CW>«, t00=0x0005, t01=0x018c}
0x0976…0980              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x001c}
0x0980…099e              Head {h00=0x001a, h01=0x0050, text=» CF PS,I:EVA0 GET <CW>«, t00=0x0006, t01=0x0026}
0x099e…09b4              Head {h00=0x0012, h01=0x0050, text=» IFT PARM=TEST«, t00=0x0006, t01=0x0044}
0x09b4…09d4              Head {h00=0x001c, h01=0x0050, text=» ANK OP2T,ARITHB+NUMBIT «, t00=0x0006, t01=0x005a}
0x09d4…09f6              Head {h00=0x001e, h01=0x0050, text=» SUK OP2T,NUMBIT BINARY ? «, t00=0x0006, t01=0x007a}
0x09f6…0a1e              Head {h00=0x0024, h01=0x0050, text=» ABL(NZ) I:ERR2 NO! ILLEGAL TYPE«, t00=0x0006, t01=0x009c}
0x0a1e…0a2a              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0006, t01=0x00c4}
0x0a2a…0a32              Head {h00=0x0004, h01=0x0050, t00=0x0006, t01=0x00d0}
0x0a32…0a48              Head {h00=0x0012, h01=0x0050, text=» LDR* WK1,OP2A«, t00=0x0006, t01=0x00d8}
0x0a48…0a7a              Head {h00=0x002e, h01=0x0050, text=» ST WK1,ECBCW,A8 STORE CONTROL WORD IN ECB«, t00=0x0006, t01=0x00ee}
0x0a7a…0aa2              Head {h00=0x0024, h01=0x0050, text=» ST OP2A,DSCBCW,A8 STORE IN DSET«, t00=0x0006, t01=0x0120}
0x0aa2…0aaa              Head {h00=0x0004, h01=0x0050, t00=0x0006, t01=0x0148}
0x0aaa…0ab4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0150}
0x0ab4…0aca              Head {h00=0x0012, h01=0x0050, text=»*ECB PREPARED «, t00=0x0006, t01=0x015a}
0x0aca…0ad4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0170}
0x0ad4…0adc              Head {h00=0x0004, h01=0x0050, t00=0x0006, t01=0x017a}
0x0adc…0b02              Head {h00=0x0022, h01=0x0050, text=» ABL T:IO3 PERFORM I/O REQUEST«, t00=0x0006, t01=0x0182}
0x0b02…0b0e              Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0007, t01=0x0018}
0x0b0e…0b12              Head {h00=0x4004, h01=0x0000}
0x0b12…0b16              00 07 00 24                                                                                                                                                                                                                                       ┆   $┆
0x0b16…0b1e (8, 1, 8)    20 04 00 00 00 08 00 04                                                                                                                                                                                                                           ┆        ┆
0x0b1e…0b6e (9, 0, 398)  00 28 00 50 43 53 50 4c 49 54 46 4c 5c 42 4f 4f 4c 5c 46 41 4c 53 45 5c 54 3a 20 53 50 4c 49 54 20 52 45 43 4f 52 44 20 00 11 00 04 00 22 00 50 43 57 46 4c 41 47 20 42 4f 4f 4c 20 46 41 4c 53 45 20 46 3d 43 4f 4c 44 20 53 54 41 52 54 00 11   ┆ ( PCSPLITFL BOOL FALSE T: SPLIT RECORD      " PCWFLAG BOOL FALSE F=COLD START  ┆
0x0b6e…0bbe              00 30 00 22 00 50 43 52 45 4d 49 54 46 4c 20 42 4f 4f 4c 20 46 41 4c 53 45 20 46 3d 4e 4f 20 52 45 4d 49 54 00 11 00 56 00 26 00 50 43 53 4b 49 46 54 46 4c 20 42 4f 4f 4c 20 46 41 4c 53 45 20 54 3d 46 44 20 43 48 41 4e 47 49 4e 47 20 00 11   ┆ 0 " PCREMITFL BOOL FALSE F=NO REMIT   V & PCSKIFTFL BOOL FALSE T=FD CHANGING   ┆
0x0bbe…0c0e              00 7c 00 28 00 50 43 45 4f 52 46 4c 47 20 42 4f 4f 4c 20 46 41 4c 53 45 20 54 3d 45 4e 44 20 4f 46 20 41 20 52 45 43 4f 52 44 00 11 00 a6 00 30 00 50 43 43 4f 4c 44 46 4c 47 20 42 4f 4f 4c 20 46 41 4c 53 45 20 54 3d 56 45 52 59 20 46 49 52   ┆ | ( PCEORFLG BOOL FALSE T=END OF A RECORD     0 PCCOLDFLG BOOL FALSE T=VERY FIR┆
0x0c0e…0c5e              53 54 20 43 4f 4c 44 20 53 54 41 52 54 20 00 11 00 d2 00 2e 00 50 43 45 52 52 4f 52 46 4c 20 42 4f 4f 4c 20 46 41 4c 53 45 20 54 3d 45 52 52 4f 52 20 49 4e 20 43 4f 4c 44 20 53 54 41 52 54 20 00 11 01 06 00 2e 00 50 43 43 4f 4e 56 46 4c 47   ┆ST COLD START      . PCERRORFL BOOL FALSE T=ERROR IN COLD START      . PCCONVFLG┆
0x0c5e…0cac              20 42 4f 4f 4c 20 46 41 4c 53 45 20 54 3d 43 4f 4e 56 45 52 53 49 4f 4e 20 47 4f 49 4e 47 20 4f 4e 20 00 11 01 38 00 24 00 50 43 53 57 46 4c 41 47 20 42 4f 4f 4c 20 46 41 4c 53 45 20 53 43 52 41 54 43 48 20 46 4c 41 47 20 00 11 01 6a         ┆ BOOL FALSE T=CONVERSION GOING ON    8 $ PCSWFLAG BOOL FALSE SCRATCH FLAG    j┆
0x0cac…0cfc (10, 0, 398) 00 32 00 50 43 53 4b 49 46 54 57 4e 20 42 4f 4f 4c 20 46 41 4c 53 45 20 54 3d 57 41 52 4e 49 4e 47 20 41 42 4f 55 54 20 46 44 20 43 48 41 4e 47 45 20 00 12 00 04 00 2e 00 50 43 4b 46 4c 41 47 20 42 4f 4f 4c 20 46 41 4c 53 45 20 54 3d 45 58   ┆ 2 PCSKIFTWN BOOL FALSE T=WARNING ABOUT FD CHANGE      . PCKFLAG BOOL FALSE T=EX┆
0x0cfc…0d4c              43 4c 20 41 43 43 45 53 53 2c 20 4b 4e 54 2e 20 50 4c 41 4e 00 12 00 3a 00 2c 00 50 43 54 45 58 54 46 4c 47 20 42 4f 4f 4c 20 46 41 4c 53 45 20 54 3d 54 45 58 54 20 52 45 47 2e 20 50 52 45 53 45 4e 54 20 00 12 00 6c 00 30 00 50 43 53 54 52   ┆CL ACCESS, KNT. PLAN   : , PCTEXTFLG BOOL FALSE T=TEXT REG. PRESENT    l 0 PCSTR┆
0x0d4c…0d9c              4b 46 4c 47 20 42 4f 4f 4c 20 46 41 4c 53 45 20 54 3d 53 54 52 41 4b 53 20 43 48 45 43 4b 20 28 4c 45 56 20 52 45 47 29 00 12 00 9c 00 32 00 50 43 42 55 44 54 46 4c 47 20 42 4f 4f 4c 20 46 41 4c 53 45 20 54 3d 42 55 4e 44 54 20 43 48 45 43   ┆KFLG BOOL FALSE T=STRAKS CHECK (LEV REG)     2 PCBUDTFLG BOOL FALSE T=BUNDT CHEC┆
0x0d9c…0dec              4b 53 20 28 50 4f 53 54 20 52 45 47 29 20 00 12 00 d0 00 30 00 50 43 42 44 54 47 49 52 20 42 4f 4f 4c 20 46 41 4c 53 45 5c 54 3d 4c 49 53 54 20 47 49 52 4f 2c 20 46 3d 4c 49 53 54 43 48 45 43 4b 20 00 12 01 06 00 06 00 50 2a 20 00 12 01 3a   ┆KS (POST REG)      0 PCBDTGIR BOOL FALSE T=LIST GIRO, F=LISTCHECK        P*    :┆
0x0dec…0e3a              00 06 00 50 2a 20 00 12 01 44 00 14 00 50 43 42 49 4e 31 35 20 42 49 4e 20 27 31 35 27 20 00 12 01 4e 00 14 00 50 43 42 49 4e 31 36 20 42 49 4e 20 27 31 36 27 20 00 12 01 66 00 14 00 50 43 42 49 4e 31 37 20 42 49 4e 20 27 31 37 27 20         ┆   P*    D   PCBIN15 BIN '15'    N   PCBIN16 BIN '16'    f   PCBIN17 BIN '17' ┆
0x0e3a…0e8a (11, 0, 400) 00 12 01 7e 00 14 00 50 43 42 49 4e 31 38 20 42 49 4e 20 27 31 38 27 20 00 13 00 08 00 14 00 50 43 42 49 4e 31 39 20 42 49 4e 20 27 31 39 27 20 00 13 00 20 00 14 00 50 43 42 49 4e 32 30 20 42 49 4e 20 27 32 30 27 20 00 13 00 38 00 14 00 50   ┆   ~   PCBIN18 BIN '18'        PCBIN19 BIN '19'        PCBIN20 BIN '20'    8   P┆
0x0e8a…0eda              43 42 49 4e 32 31 20 42 49 4e 20 27 32 31 27 20 00 13 00 50 00 14 00 50 43 42 49 4e 32 32 20 42 49 4e 20 27 32 32 27 20 00 13 00 68 00 14 00 50 43 42 49 4e 4d 41 58 5c 42 49 4e 5c 27 32 36 27 00 13 00 80 00 16 00 50 43 56 4f 55 54 4f 50 20   ┆CBIN21 BIN '21'    P   PCBIN22 BIN '22'    h   PCBINMAX BIN '26'       PCVOUTOP ┆
0x0eda…0f2a              42 49 4e 20 57 27 35 36 27 20 00 13 00 98 00 14 00 50 43 4d 49 4e 4c 49 4e 20 42 49 4e 20 57 27 32 27 00 13 00 b2 00 0a 00 50 5c 45 4a 45 43 54 00 13 00 ca 00 40 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a   ┆BIN W'56'        PCMINLIN BIN W'2'       P EJECT     @ P************************┆
0x0f2a…0f7a              2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 13 00 d8 00 06 00 50 2a 20 00 13 01 1c 00 3a 00 50 2a 20 20 20 20 20 20 20 20 20 20 54 41 42 4c 45 20 47 49 56 49 4e 47 20 49 4e   ┆***********************************        P*      : P*          TABLE GIVING IN┆
0x0f7a…0fca              44 45 58 45 53 20 46 4f 52 20 54 52 41 4e 53 41 43 54 49 4f 4e 46 49 45 4c 44 53 20 00 13 01 26 00 34 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 46 49 45 4c 44 20 4e 52 20 47 49 56 45 53 20 44 49 53 50 4c 41 43 45 4d 45 4e 54 20 49 4e 20 54   ┆DEXES FOR TRANSACTIONFIELDS    & 4 P*           FIELD NR GIVES DISPLACEMENT IN T┆
0x0fca…101a (12, 0, 400) 41 42 4c 45 00 13 01 64 00 06 00 50 2a 20 00 14 00 0c 00 40 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a   ┆ABLE   d   P*      @ P**********************************************************┆
0x101a…106a              2a 2a 00 14 00 16 00 1a 00 50 43 46 4c 54 44 45 58 20 42 49 4e 49 20 28 31 32 30 29 2c 5c 5c 43 00 14 00 5a 00 3a 00 50 5c 5c 27 32 36 27 2c 27 32 36 27 2c 27 32 36 27 2c 27 32 36 27 2c 27 31 27 2c 27 32 27 2c 27 33 27 2c 27 34 27 2c 27 35   ┆**       PCFLTDEX BINI (120),  C   Z : P  '26','26','26','26','1','2','3','4','5┆
0x106a…10ba              27 2c 27 36 27 2c 5c 31 2d 31 30 5c 43 20 00 14 00 78 00 3c 00 50 5c 5c 27 37 27 2c 27 38 27 2c 27 39 27 2c 27 34 27 2c 27 31 31 27 2c 27 31 32 27 2c 27 31 30 27 2c 27 31 31 27 2c 27 31 32 27 2c 27 31 33 27 2c 5c 31 31 2d 32 30 5c 43 00 14   ┆','6', 1-10 C    x < P  '7','8','9','4','11','12','10','11','12','13', 11-20 C  ┆
0x10ba…110a              00 b6 00 3e 00 50 5c 5c 27 31 30 27 2c 27 31 31 27 2c 27 31 32 27 2c 27 31 33 27 2c 27 31 34 27 2c 27 31 35 27 2c 27 31 36 27 2c 27 31 27 2c 27 38 27 2c 27 39 27 2c 5c 32 31 2d 33 30 5c 43 20 00 14 00 f6 00 3c 00 50 5c 5c 27 31 30 27 2c 27   ┆   > P  '10','11','12','13','14','15','16','1','8','9', 21-30 C      < P  '10','┆
0x110a…115a              35 27 2c 27 31 32 27 2c 27 31 33 27 2c 27 31 34 27 2c 27 35 27 2c 27 31 38 27 2c 27 31 39 27 2c 27 37 27 2c 27 37 27 2c 5c 33 31 2d 34 30 5c 43 00 14 01 38 00 40 00 50 5c 5c 27 31 38 27 2c 27 31 34 27 2c 27 32 30 27 2c 27 32 31 27 2c 27 32   ┆5','12','13','14','5','18','19','7','7', 31-40 C   8 @ P  '18','14','20','21','2┆

Reduced view