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

⟦a3ba606c0⟧

    Length: 14326 (0x37f6)
    Notes: pts_type(SC)
    Names: »DE20ST.SC«

Derivation

└─⟦48601905a⟧ Bits:30009668 Philips computer tape "600121"
    └─⟦this⟧ »S:DE/DE20ST.SC« 
└─⟦5c22ed822⟧ Bits:30009675 Philips computer tape "600209"
    └─⟦this⟧ »DEN10/DE20ST.SC« 
└─⟦79fbed147⟧ Bits:30009697 Philips computer tape "600414"
    └─⟦this⟧ »S:DE/DE20ST.SC« 
└─⟦bf903a231⟧ Bits:30009665 Philips computer tape "600109"
    └─⟦this⟧ »DEN10/DE20ST.SC« 
└─⟦d2a299635⟧ Bits:30009698 Philips computer tape "600415"
    └─⟦this⟧ »S:DE/DE20ST.SC« 

PTS(SC)

	IDENT	DE20ST	REL 10.0 80-04-11 
			80-03-23/JAER
	DDUM	DEDDIV
	PDIV 
	ENTRY	DE20ST 
 ENTRY DEAP2A 
* 
*        EXTERNAL REFERENCES TO SCREEN
* 
	EXT	DECLRA 
	EXT	DERROR 
* 
*        EXTERNAL REFERENCES TO FORMAT-DEFINITION 
* 
	EXT	DE21ST	USER-FORMAT HANDLING
	EXT	DE23ST	GET FORMAT
	EXT	DE24ST	COPY FORMAT 
* 
*        EXTERNAL REFERENCES TO APPLICATION ROUTINE 
* 
 EXT DEAOK0 RETURN TO DEAPPL =0 
 EXT DEANOK RETURN TO DEAPPL =3 
	EXT	DEAOK2	RETURN TO DEAPPL =2 
	EXT	DEAOK4	RETURN TO DEAPPL =4 
* 
*        EXTERNAL REFERENCES TO DATA-ENTRY-PACKAGE ROUTINES 
* 
	EXT	DEDISC	DISC-ROUTINE
	EXT	DEPOOL	BUFFERPOOL ROUTINE
	EXT	CNTNUM	CONTROL VARIABLE INDEX
* 
	EXT	RESTOR 
	EXT	DEPRUT 
	EXT	DEPMSK 
	EXT	CMPIND	COMPERE INDEX 
	EJECT
* 
*        KEYTABLES
* 
*        USAGE: DATA ENTRY SCREEN 
* 
CLR	EQU	X'8F'	CLEAR 
CAN	EQU	X'91'	CANCEL
RET	EQU	X'92'	RETURN
CFW	EQU	X'86'	CURSOR FORWARD
* 
DEKTAB4	KTAB	CLR,CAN,RET,CFW
* 
*        START OF PROGRAM 
* 
	EJECT
DE20ST	PROC 
 CBNE BIN2,W0,ENT1
DEST
	SET	BOOL1	PART OF FORMAT DISPLAY 
DEST20
	ATTFMT	F20ST 
	SET	DEPROMPT	PROMPT-TEXTS DISPLAY
STA050
	CLEAR	DECHANGE 
	PERF	DECLRA
STA100
	IB	DEBINW2,CANCEL,RETUR,ENTER
 B ERROR
CANCEL
	CLEAR	DEPROMPT 
	B	STA050 
* 
ENTER 
 CBNE BIN1,W2,RET2
 CBNE BIN2,W0,ENT1
 B DEST 
ENT1
	CLEAR	BOOL7
	PERFI	BIN2,DE21ST,DE21ST,DE23ST,DE24ST 
	CLEAR	DOOL3
 CLEAR BOOL1
 CALL RESTOR,W0,W16,PWBDB4 RESTORE ORIGINATE ADRESSES TO
			WORKBLOCKS AND DESCRIPTORS 
 MOVE BIN1,W20
	PERF	DEPRUT,PRNUM,BIN1,BIN2
	PERF	DEPMSK
	B	DEST20 
* 
ERROR 
	MOVE	DEBINW4,DEBINW2 
ERR2
	PERF	DERROR,DEKTAB4
	B	STA100 
* 
RETUR 
 MOVE BIN2,W1 
 MOVE BIN1,W0 
RET2
	RET
 EJECT
* 
*        APPL VALUE HANDLING ROUTINE
* 
DEAP2A
	IB	DEBINW3,DEA21,DEA22,DEA23,		C 
		DEA24,DEA25,DEA26,DEA27,DEA28,		C 
		DEA29 
	B	DEAP2B	LONG BRANCH CONSTRUCTION
	EJECT
* 
*       APPLE=1,DE21
*       FORMAT DEFINED? 
* 
DEA21 
	XCOPY	STR1A,W0,W1,DEINPUT,W0	FETCH 1ST CH
	TBT	BOOL6,DE1A	JUMP IF BALANCE FORMAT
	CBE	STR1A,='*',DEE232	JUMP IF = * NOK
	B	DE1B 
DE1A
	CBNE	STR1A,='*',DEE232	JUMP IF # * NOK 
DE1B
	CBE	FORMAT,DEINPUT,DEB21 
	MOVE	FRMTPNTR,W0	FORMATPOINTER:=0
	PERF	DEDISC,W12	SEARCH FORMAT
	BOK	DEE28	FOUND NOT OK 
	CBE	DEBINW4,W9,DE1C	NOT FOUND OK 
	B	DEANOK	NOT OK
DE1C
	MOVE	STRG10A,='F'
	XCOPY	STRG10A,W1,W6,DEINPUT,W0	KEY = DEINPUTNAME 
	PERF	DEPOOL,W7,DEBIN3,DEBIN4,STRG10A	SEARCH AMONG BUFFERS
	CBE	DEBIN4,W0,DE1D	NOT FOUND AMONG BUFFER
	CBE	DEBIN3,PINDDB,DE1D	FOUND BUT SAME CURR BUFFER
	B	DEE28	NOT OK 
DE1D
	GETCTL	0,DEBINW3	GET APPL VALUE
	CBE	DEBINW3,=W'118',DEB21	JUMP IF APPL 18
	PERF	DEPOOL,W4,PINDDB,BIN16,STRG10A	SET BUFFER 
	MOVE	RNRFMCH,W2	LOAD FORMATLINKINDEX 
	B	DEAOK0 
	EJECT
* 
*       APPLE=2,DE21
*       CHECK IF INPUT IS LESS THAN OR EQUAL 23 
* 
DEA22 
	MOVE	BCD3A,DEINPUT	LOAD INPUT DECIMAL
	MOVE	DEBINW3,BCD3A	LOAD INPUT BINARY 
	MOVE	DEBINW4,W23	LOAD 23 BINARY
	CBG	DEBINW3,DEBINW4,DEE26	>24 NOT OK 
	CBL	DEBINW3,W1,DEE26	<1 NOT OK 
	B	DEAOK0	OK
	EJECT
* 
*       APPLE=3,DE21
*       CHECK IF INPUT IS Y(ES) OR N(O) 
* 
DEA23 
	PERF	DEYN	CHECK YES OR NO
	BOK	DEAOK0	OK
	BNOK	DEE26	ILLEGAL VALUE 
	EJECT
* 
*       APPLE=4,DE21
*       CHECK AND GET FORMAT-NAME 
* 
DEA24 
	MOVE	FRMTPNTR,W0	FORMATPOINTER:=0
	PERF	DEDISC,W10	GET FORMAT 
	BOK	DE24A	OK 
	B	DEANOK	NOT OK
DE24A 
	MOVE	DEBINW2,W17	FAKE ENTER
	B	DEAOK0	OK
	EJECT
* 
*       APPLE=5,DE21
*       CHECK IF INPUT IS LESS THAN 64 AND NOT > FIELDLENGTH
* 
DEA25 
	MOVE	BCD3A,DEINPUT	LOAD INPUT DECIMAL
	MOVE	DEBINW3,BCD3A	LOAD INPUT BINARY 
	CBG	DEBINW3,BIN7,DEE26	> FIELDLENGTH NOT OK
	CBL	DEBINW3,W64,DEB21	<64 OK 
	B	DEE26	ILLEGAL VALUE
	EJECT
* 
*       APPLE=6,DE21
*       DUPLICATION-REFERENCE-CONTROL 
* 
DEA26 
	MOVE	FMTWK(W4),DEBINW1	STORE NUMB OF DUPL.CHARS
	PERF	CNTNUM,DEINPUT,FMTWK,W4	CONTROL VAR.INDEX 
	BNOK	DEAOK4	NOT OK INDICATE EDIT-MODE
	B	DEAOK0	OK NO UPDATE OF FIELD 
	EJECT
* 
*       APPLE=7,DE21
*       CHECK IF INPUT VALUE < =32.767
* 
DEA27 
	MOVE	BCD13A,DEINPUT	LOAD INPUT DECIMAL 
	CBNG	BCD13A,=D'+32767',DEB21	<=32767 OK
	B	DEE26	ILLEGAL VALUE
	EJECT
* 
*       APPLE=8,DE21
*       KEYED INPUT YES/NO SET CTAB IF NO 
* 
DEA28 
	PERF	DEYN	CHECK YES OR NO
	BOK	DE8A	JUMP IF YES OR NO 
	CBE	STR1A,='C',DE8B	C(ONDITIONAL) OK 
	B	DEE26	ILLEGAL VALUE
DE8A
	CBE	STR1A,='Y',DE8C
DE8B
	SET	CTAB 
	B	DEAOK0 
DE8C
	CLEAR	CTAB	INICATE KEYED INP-FIELD 
	B	DEAOK0 
	EJECT
* 
*       APPL=9,DE21,DE22
*       CHECK IF INPUT IS >0 AND <11
* 
DEA29 
	MOVE	BCD13A,DEINPUT	LOAD INPUT DECIMAL 
	MOVE	DEBINW3,BCD13A	LOAD '99'BINARY
	CALL	CMPIND,DEBINW3,ACK(W1)
	BNOK	DEE26	OUT OF RANGE
	B	DEAOK0	 OK 
	EJECT
* 
*       LONG BRANCHE LIST 
* 
*        APPL VALUE HANDLING ROUTINE
* 
DEAP2B
	SUB	DEBINW3,W9	ADJUST APPLE-VALUE LONG BR
	IB	DEBINW3,DEA210
	B	DEAP2C	LONG BRANCHE CONSTRUCTION 
* 
DEB21 
	B	DEAOK0 
DEE22 
	MOVE	DEBINW4,W2	UNDEFINED ERROR
	B	DEANOK 
DEE26 
 MOVE DEBINW4,W6	ILLEGAL VALUE
 B DEANOK 
DEE28 
	MOVE	DEBINW4,W8	ALREADY DEFINED
	B	DEANOK 
DEE232
	MOVE	DEBINW4,W32	'ILLEGAL FORMATNAME'
	B	DEANOK 
	EJECT
* 
*       APPL=10,DE21
*       LINE-DESIGN CONTROL 
* 
DEA210
	MOVE	FMTWK(W5),DEBINW1	STORE NUMB OF LDES CHS
	MOVE	BIN5,W0	LOAD STPOINTER
	MOVE	DEBIN4,DEBINW1	STORE NUMBER OF LDES CHRS
D10A
	CLEAR	BOOL8
	MATCH	DEINPUT,BIN5,DEBIN4,PICSTR,W13,W1
	BNOK	D10OK	NO FIELD FOUND OK 
	ADD	BIN5,W1	NEXT PICSTRG-POINTER 
	CBE	BIN5,FMTWK(W5),D10NOK	NO END OF FIELD = >
	MOVE	DEBINW1,BIN5	SAVE STARTPOINTER
	MOVE	BIN16,W0	STPOINTER PICCHRS-TABLE
	MATCH	PICSTR,BIN16,W15,DEINPUT,BIN5,W1 
	BNOK	D10X	NUMERIC FIELD OK (E<X>)
	CBE	BIN16,W0,D10B	ALPHANUM INDICATED 
	IB	BIN16,D10B,D10D,D10D,D10D,	1 - 4	C
		D10D,D10D,D10D,D10NOK,D10NOK,	5 - 9	C 
		D10D,D10D,D10NOK,D10NOK,D10D	10-14
	B	D10NOK	UNDEFINED ERROR 
D10B
	TBT	BOOL6,D10NOK	JUMP IF BALANCE FORMAT
	MOVE	BIN15,BIN16	SAV PIC-TYPE
D10C
	ADD	BIN5,W1	NEXT POS 
	CBE	BIN5,FMTWK(W5),D10NOK	NO END OF FIELD = >
	MOVE	BIN16,W0	STARTPOINTER PICCHRS-TABLE 
	MATCH	PICSTR,BIN16,W15,DEINPUT,BIN5,W1 
	BNOK	D10Z	ILLEGEAL PIC STRG
	CBE	BIN16,BIN15,D10C	PICTYPE EQUALS 1:ST CHARS 
D10Z
	CBE	BIN16,W12,D10J	END OF FIELD FOUND
	B	D10NOK	ILLEGAL PIC-STRG
D10X
	ADD	BIN5,W1	NEXT POS 
	CBE	BIN5,FMTWK(W5),D10NOK	NO END OF FIELD = >
	MOVE	BIN16,W0
	MATCH	PICSTR,BIN16,W15,DEINPUT,BIN5,W1 
	BNOK	D10X	OK 
	IB	BIN16,D10D,D10D,D10D,D10D,	1 - 4	C
		D10D,D10D,D10D,D10F,D10F,	5 - 9	C 
		D10D,D10D,D10G,D10NOK,D10D	10-14
	B	D10NOK	UNDEFINED ERROR 
D10D
	SET	BOOL8
	B	D10X	LONG BRANCH INSTRUCTION 
D10F
	ADD	BIN5,W1	NEXT POS 
	CBG	BIN5,FMTWK(W5),D10NOK	NO END OF FIELD = >
	MOVE	BIN16,W0
	MATCH	PICSTR,BIN16,W15,DEINPUT,BIN5,W1 
	BNOK	D10NOK	+/S MUST BE LAST CHARS 
	CBE	BIN16,W12,D10J	+/S IS LAST CHARS 
	B	D10NOK 
D10G
	TBF	BOOL8,D10NOK	JUST 'E':S NOT OK 
D10J
	ADD	BIN5,W1	NEXT MATCH POS 
	MOVE	DEBIN4,FMTWK(W5)	RESORE NUMB OF CHARS 
	SUB	DEBIN4,BIN5
	CBE	DEBIN4,W0,D10OK	READY
	B	D10A	SEARCH NEXT FIELD 
D10NOK
	MOVE	DEBINW4,W6	ILLEGAL VALUE
	PERF	DERROR,DEKTAB4	ERROR MESSAGE
	MOVE	BIN5,W0 
	ADD	DEBINW1,W1	ADJUST STPOINTER
	B	DEAOK4	INDICATE EDIT-MODE
D10OK 
	MOVE	BIN5,W0 
	ERASE	2,W5,W5	CLEAR LINE DESIGN
	MOVE	LDISP,=' '	MOVE SPACES
	B	DEAOK0	OK
 EJECT
* 
*        APPL VALUE HANDLING ROUTINE
* 
* 
*       LONG BRANCHE LIST 
* 
DEAP2C
	SUB	DEBINW3,W1	ADJUST APPLE-VALUE LONG BRANCH
	IB	DEBINW3,DEA211,DEA212,		C 
		DEA213,DEA214,DEA215,		C
		DEA216,DEA217,DEA218
	B	DEE22	JUMP IF APPLE-VALUE OVERFLOW 
	EJECT
* 
*       APPL = 11,DE21
*       SAVE NUMBER OF CHARS IN STRG 1
* 
DEA211
	MOVE	FMTWK(W10),DEBINW1	STORE NUMB OF VAL.-CHARS 
	B	DEAOK0	OK NO UPDATE OF FIELD 
	EJECT
* 
*       APPL = 12,DE21
*       SAVE NUMBER OF CHARS IN STRG2 
* 
DEA212
	MOVE	FMTWK(W11),DEBINW1	STORE NUMB OF ACC.-CHARS 
	B	DEAOK0	OK NO UPDATE OF FIELD 
	EJECT
* 
*       APPL = 13,DE21
* 
DEA213
	MOVE	FRMTPNTR,W0	FORMATPOINTER:=0
	PERF	DEDISC,W12	SEARCH FORMAT
	BNOK	DEANOK	NOT OK 
	XCOPY	STR1A,W0,W1,DEINPUT,W0	FETCH 1ST CH
	CBE	STR1A,='*',DE13A 
	CLEAR	BOOL6	F=USER FORMAT
	B	DE13B
DE13A 
	SET	BOOL6	T=BALANCE FORMAT 
DE13B 
	B	DEAOK0 
	EJECT
* 
*       APPL=14,DE21

HexDump

0x0000…0028 (0, 0, 400)  Head {h00=0x0024, h01=0x0050, text=» IDENT DE20ST REL 10.0 80-04-11 «, t00=0x0000, t01=0x0004}
0x0028…0040              Head {h00=0x0014, h01=0x0050, text=»   80-03-23/JAER«, t00=0x0000, t01=0x002c}
0x0040…0054              Head {h00=0x0010, h01=0x000c, text=» DDUM DEDDIV«, t00=0x0000, t01=0x0044}
0x0054…0062              Head {h00=0x000a, h01=0x0005, text=» PDIV «, t00=0x0000, t01=0x0058}
0x0062…0078              Head {h00=0x0012, h01=0x0050, text=» ENTRY DE20ST «, t00=0x0000, t01=0x0066}
0x0078…008e              Head {h00=0x0012, h01=0x0050, text=» ENTRY DEAP2A «, t00=0x0000, t01=0x007c}
0x008e…0098              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0000, t01=0x0092}
0x0098…00c6              Head {h00=0x002a, h01=0x002a, text=»*        EXTERNAL REFERENCES TO SCREEN«, t00=0x0000, t01=0x009c}
0x00c6…00d0              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0000, t01=0x00ca}
0x00d0…00e4              Head {h00=0x0010, h01=0x0050, text=» EXT DECLRA «, t00=0x0000, t01=0x00d4}
0x00e4…00f8              Head {h00=0x0010, h01=0x0050, text=» EXT DERROR «, t00=0x0000, t01=0x00e8}
0x00f8…0102              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0000, t01=0x00fc}
0x0102…013c              Head {h00=0x0036, h01=0x0050, text=»*        EXTERNAL REFERENCES TO FORMAT-DEFINITION «, t00=0x0000, t01=0x0106}
0x013c…0146              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0000, t01=0x0140}
0x0146…016e              Head {h00=0x0024, h01=0x0050, text=» EXT DE21ST USER-FORMAT HANDLING«, t00=0x0000, t01=0x014a}
0x016e…018c              Head {h00=0x001a, h01=0x0050, text=» EXT DE23ST GET FORMAT«, t00=0x0000, t01=0x0172}
0x018c…01ac              Head {h00=0x001c, h01=0x0050, text=» EXT DE24ST COPY FORMAT «, t00=0x0000, t01=0x0190}
0x01ac…01b6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0020}
0x01b6…01f2              Head {h00=0x0038, h01=0x0050, text=»*        EXTERNAL REFERENCES TO APPLICATION ROUTINE «, t00=0x0001, t01=0x002a}
0x01f2…01fc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0066}
0x01fc…0224              Head {h00=0x0024, h01=0x0050, text=» EXT DEAOK0 RETURN TO DEAPPL =0 «, t00=0x0001, t01=0x0070}
0x0224…024c              Head {h00=0x0024, h01=0x0050, text=» EXT DEANOK RETURN TO DEAPPL =3 «, t00=0x0001, t01=0x0098}
0x024c…0274              Head {h00=0x0024, h01=0x0050, text=» EXT DEAOK2 RETURN TO DEAPPL =2 «, t00=0x0001, t01=0x00c0}
0x0274…029c              Head {h00=0x0024, h01=0x0050, text=» EXT DEAOK4 RETURN TO DEAPPL =4 «, t00=0x0001, t01=0x00e8}
0x029c…02a6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0110}
0x02a6…02ea              Head {h00=0x0040, h01=0x0050, text=»*        EXTERNAL REFERENCES TO DATA-ENTRY-PACKAGE ROUTINES «, t00=0x0001, t01=0x011a}
0x02ea…02f4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x015e}
0x02f4…0314              Head {h00=0x001c, h01=0x0050, text=» EXT DEDISC DISC-ROUTINE«, t00=0x0001, t01=0x0168}
0x0314…033a              Head {h00=0x0022, h01=0x0050, text=» EXT DEPOOL BUFFERPOOL ROUTINE«, t00=0x0001, t01=0x0188}
0x033a…0364              Head {h00=0x0026, h01=0x0050, text=» EXT CNTNUM CONTROL VARIABLE INDEX«, t00=0x0002, t01=0x001e}
0x0364…036e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0048}
0x036e…0382              Head {h00=0x0010, h01=0x0050, text=» EXT RESTOR «, t00=0x0002, t01=0x0052}
0x0382…0396              Head {h00=0x0010, h01=0x0050, text=» EXT DEPRUT «, t00=0x0002, t01=0x0066}
0x0396…03aa              Head {h00=0x0010, h01=0x0050, text=» EXT DEPMSK «, t00=0x0002, t01=0x007a}
0x03aa…03cc              Head {h00=0x001e, h01=0x0050, text=» EXT CMPIND COMPERE INDEX «, t00=0x0002, t01=0x008e}
0x03cc…03da              Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0002, t01=0x00b0}
0x03da…03e4              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0002, t01=0x00be}
0x03e4…03fe              Head {h00=0x0016, h01=0x0012, text=»*        KEYTABLES«, t00=0x0002, t01=0x00c8}
0x03fe…0408              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0002, t01=0x00e2}
0x0408…0432              Head {h00=0x0026, h01=0x0050, text=»*        USAGE: DATA ENTRY SCREEN «, t00=0x0002, t01=0x00ec}
0x0432…043c              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0002, t01=0x0116}
0x043c…0458              Head {h00=0x0018, h01=0x0013, text=»CLR EQU X'8F' CLEAR «, t00=0x0002, t01=0x0120}
0x0458…0474              Head {h00=0x0018, h01=0x0014, text=»CAN EQU X'91' CANCEL«, t00=0x0002, t01=0x013c}
0x0474…0490              Head {h00=0x0018, h01=0x0050, text=»RET EQU X'92' RETURN«, t00=0x0002, t01=0x0158}
0x0490…04b4              Head {h00=0x0020, h01=0x001c, text=»CFW EQU X'86' CURSOR FORWARD«, t00=0x0002, t01=0x0174}
0x04b4…04be              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0008}
0x04be…04e2              Head {h00=0x0020, h01=0x0050, text=»DEKTAB4 KTAB CLR,CAN,RET,CFW«, t00=0x0003, t01=0x0012}
0x04e2…04ec              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0003, t01=0x0036}
0x04ec…050e              Head {h00=0x001e, h01=0x0020, text=»*        START OF PROGRAM «, t00=0x0003, t01=0x0040}
0x050e…0518              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0003, t01=0x0062}
0x0518…0526              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0003, t01=0x006c}
0x0526…053a              Head {h00=0x0010, h01=0x0050, text=»DE20ST PROC «, t00=0x0003, t01=0x007a}
0x053a…0554              Head {h00=0x0016, h01=0x0050, text=» CBNE BIN2,W0,ENT1«, t00=0x0003, t01=0x008e}
0x0554…0560              Head {h00=0x0008, h01=0x0050, text=»DEST«, t00=0x0003, t01=0x00a8}
0x0560…058a              Head {h00=0x0026, h01=0x0050, text=» SET BOOL1 PART OF FORMAT DISPLAY «, t00=0x0003, t01=0x00b4}
0x058a…0598              Head {h00=0x000a, h01=0x0050, text=»DEST20«, t00=0x0003, t01=0x00de}
0x0598…05ae              Head {h00=0x0012, h01=0x0050, text=» ATTFMT F20ST «, t00=0x0003, t01=0x00ec}
0x05ae…05d8              Head {h00=0x0026, h01=0x0050, text=» SET DEPROMPT PROMPT-TEXTS DISPLAY«, t00=0x0003, t01=0x0102}
0x05d8…05e6              Head {h00=0x000a, h01=0x0006, text=»STA050«, t00=0x0003, t01=0x012c}
0x05e6…05fe              Head {h00=0x0014, h01=0x0050, text=» CLEAR DECHANGE «, t00=0x0003, t01=0x013a}
0x05fe…0612              Head {h00=0x0010, h01=0x0050, text=» PERF DECLRA«, t00=0x0003, t01=0x0152}
0x0612…0620              Head {h00=0x000a, h01=0x0006, text=»STA100«, t00=0x0003, t01=0x0166}
0x0620…0646              Head {h00=0x0022, h01=0x0050, text=» IB DEBINW2,CANCEL,RETUR,ENTER«, t00=0x0003, t01=0x0174}
0x0646…0656              Head {h00=0x000c, h01=0x0050, text=» B ERROR«, t00=0x0004, t01=0x000a}
0x0656…0664              Head {h00=0x000a, h01=0x0006, text=»CANCEL«, t00=0x0004, t01=0x001a}
0x0664…067c              Head {h00=0x0014, h01=0x0050, text=» CLEAR DEPROMPT «, t00=0x0004, t01=0x0028}
0x067c…068e              Head {h00=0x000e, h01=0x0009, text=» B STA050 «, t00=0x0004, t01=0x0040}
0x068e…0698              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0004, t01=0x0052}
0x0698…06a6              Head {h00=0x000a, h01=0x0005, text=»ENTER «, t00=0x0004, t01=0x005c}
0x06a6…06c0              Head {h00=0x0016, h01=0x0050, text=» CBNE BIN1,W2,RET2«, t00=0x0004, t01=0x006a}
0x06c0…06da              Head {h00=0x0016, h01=0x0050, text=» CBNE BIN2,W0,ENT1«, t00=0x0004, t01=0x0084}
0x06da…06ea              Head {h00=0x000c, h01=0x0050, text=» B DEST «, t00=0x0004, t01=0x009e}
0x06ea…06f6              Head {h00=0x0008, h01=0x0050, text=»ENT1«, t00=0x0004, t01=0x00ae}
0x06f6…070a              Head {h00=0x0010, h01=0x0050, text=» CLEAR BOOL7«, t00=0x0004, t01=0x00ba}
0x070a…073a              Head {h00=0x002c, h01=0x0050, text=» PERFI BIN2,DE21ST,DE21ST,DE23ST,DE24ST «, t00=0x0004, t01=0x00ce}
0x073a…074e              Head {h00=0x0010, h01=0x0050, text=» CLEAR DOOL3«, t00=0x0004, t01=0x00fe}
0x074e…0762              Head {h00=0x0010, h01=0x0050, text=» CLEAR BOOL1«, t00=0x0004, t01=0x0112}
0x0762…07a2              Head {h00=0x003c, h01=0x0050, text=» CALL RESTOR,W0,W16,PWBDB4 RESTORE ORIGINATE ADRESSES TO«, t00=0x0004, t01=0x0126}
0x07a2…07c8              Head {h00=0x0022, h01=0x0050, text=»   WORKBLOCKS AND DESCRIPTORS «, t00=0x0004, t01=0x0166}
0x07c8…07de              Head {h00=0x0012, h01=0x0050, text=» MOVE BIN1,W20«, t00=0x0004, t01=0x018c}
0x07de…0802              Head {h00=0x0020, h01=0x0050, text=» PERF DEPRUT,PRNUM,BIN1,BIN2«, t00=0x0005, t01=0x0012}
0x0802…0816              Head {h00=0x0010, h01=0x0050, text=» PERF DEPMSK«, t00=0x0005, t01=0x0036}
0x0816…0828              Head {h00=0x000e, h01=0x0050, text=» B DEST20 «, t00=0x0005, t01=0x004a}
0x0828…0832              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0005, t01=0x005c}
0x0832…0840              Head {h00=0x000a, h01=0x0005, text=»ERROR «, t00=0x0005, t01=0x0066}
0x0840…085e              Head {h00=0x001a, h01=0x0050, text=» MOVE DEBINW4,DEBINW2 «, t00=0x0005, t01=0x0074}
0x085e…086a              Head {h00=0x0008, h01=0x0004, text=»ERR2«, t00=0x0005, t01=0x0092}
0x086a…0886              Head {h00=0x0018, h01=0x0050, text=» PERF DERROR,DEKTAB4«, t00=0x0005, t01=0x009e}
0x0886…0898              Head {h00=0x000e, h01=0x0009, text=» B STA100 «, t00=0x0005, t01=0x00ba}
0x0898…08a2              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0005, t01=0x00cc}
0x08a2…08b0              Head {h00=0x000a, h01=0x0050, text=»RETUR «, t00=0x0005, t01=0x00d6}
0x08b0…08c6              Head {h00=0x0012, h01=0x0050, text=» MOVE BIN2,W1 «, t00=0x0005, t01=0x00e4}
0x08c6…08dc              Head {h00=0x0012, h01=0x0050, text=» MOVE BIN1,W0 «, t00=0x0005, t01=0x00fa}
0x08dc…08e8              Head {h00=0x0008, h01=0x0050, text=»RET2«, t00=0x0005, t01=0x0110}
0x08e8…08f4              Head {h00=0x0008, h01=0x0004, text=» RET«, t00=0x0005, t01=0x011c}
0x08f4…0902              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0005, t01=0x0128}
0x0902…090c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0136}
0x090c…0938              Head {h00=0x0028, h01=0x0050, text=»*        APPL VALUE HANDLING ROUTINE«, t00=0x0005, t01=0x0140}
0x0938…0942              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x016c}
0x0942…0950              Head {h00=0x000a, h01=0x0050, text=»DEAP2A«, t00=0x0005, t01=0x0176}
0x0950…097a              Head {h00=0x0026, h01=0x0050, text=» IB DEBINW3,DEA21,DEA22,DEA23,  C «, t00=0x0005, t01=0x0184}
0x097a…09a6              Head {h00=0x0028, h01=0x0050, text=»  DEA24,DEA25,DEA26,DEA27,DEA28,  C «, t00=0x0006, t01=0x001e}
0x09a6…09b6              Head {h00=0x000c, h01=0x0050, text=»  DEA29 «, t00=0x0006, t01=0x004a}
0x09b6…09e0              Head {h00=0x0026, h01=0x0050, text=» B DEAP2B LONG BRANCH CONSTRUCTION«, t00=0x0006, t01=0x005a}
0x09e0…09ee              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0006, t01=0x0084}
0x09ee…09f8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0092}
0x09f8…0a14              Head {h00=0x0018, h01=0x0050, text=»*       APPLE=1,DE21«, t00=0x0006, t01=0x009c}
0x0a14…0a34              Head {h00=0x001c, h01=0x0050, text=»*       FORMAT DEFINED? «, t00=0x0006, t01=0x00b8}
0x0a34…0a3e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00d8}
0x0a3e…0a4c              Head {h00=0x000a, h01=0x0050, text=»DEA21 «, t00=0x0006, t01=0x00e2}
0x0a4c…0a7e              Head {h00=0x002e, h01=0x0050, text=» XCOPY STR1A,W0,W1,DEINPUT,W0 FETCH 1ST CH«, t00=0x0006, t01=0x00f0}
0x0a7e…0aac              Head {h00=0x002a, h01=0x0050, text=» TBT BOOL6,DE1A JUMP IF BALANCE FORMAT«, t00=0x0006, t01=0x0122}
0x0aac…0ada              Head {h00=0x002a, h01=0x0050, text=» CBE STR1A,='*',DEE232 JUMP IF = * NOK«, t00=0x0006, t01=0x0150}
0x0ada…0aea              Head {h00=0x000c, h01=0x0050, text=» B DE1B «, t00=0x0006, t01=0x017e}
0x0aea…0af6              Head {h00=0x0008, h01=0x0050, text=»DE1A«, t00=0x0006, t01=0x018e}
0x0af6…0b26              Head {h00=0x002c, h01=0x0050, text=» CBNE STR1A,='*',DEE232 JUMP IF # * NOK «, t00=0x0007, t01=0x000a}
0x0b26…0b32              Head {h00=0x0008, h01=0x0050, text=»DE1B«, t00=0x0007, t01=0x003a}
0x0b32…0b54              Head {h00=0x001e, h01=0x0050, text=» CBE FORMAT,DEINPUT,DEB21 «, t00=0x0007, t01=0x0046}
0x0b54…0b7e              Head {h00=0x0026, h01=0x0050, text=» MOVE FRMTPNTR,W0 FORMATPOINTER:=0«, t00=0x0007, t01=0x0068}
0x0b7e…0ba4              Head {h00=0x0022, h01=0x0050, text=» PERF DEDISC,W12 SEARCH FORMAT«, t00=0x0007, t01=0x0092}
0x0ba4…0bc4              Head {h00=0x001c, h01=0x0050, text=» BOK DEE28 FOUND NOT OK «, t00=0x0007, t01=0x00b8}
0x0bc4…0bee              Head {h00=0x0026, h01=0x0050, text=» CBE DEBINW4,W9,DE1C NOT FOUND OK «, t00=0x0007, t01=0x00d8}
0x0bee…0c06              Head {h00=0x0014, h01=0x0050, text=» B DEANOK NOT OK«, t00=0x0007, t01=0x0102}
0x0c06…0c12              Head {h00=0x0008, h01=0x0050, text=»DE1C«, t00=0x0007, t01=0x011a}
0x0c12…0c2c              Head {h00=0x0016, h01=0x0050, text=» MOVE STRG10A,='F'«, t00=0x0007, t01=0x0126}
0x0c2c…0c66              Head {h00=0x0036, h01=0x0050, text=» XCOPY STRG10A,W1,W6,DEINPUT,W0 KEY = DEINPUTNAME «, t00=0x0007, t01=0x0140}
0x0c66…0ca8              Head {h00=0x003e, h01=0x0050, text=» PERF DEPOOL,W7,DEBIN3,DEBIN4,STRG10A SEARCH AMONG BUFFERS«, t00=0x0007, t01=0x017a}
0x0ca8…0cda              Head {h00=0x002e, h01=0x0050, text=» CBE DEBIN4,W0,DE1D NOT FOUND AMONG BUFFER«, t00=0x0008, t01=0x002c}
0x0cda…0d14              Head {h00=0x0036, h01=0x0050, text=» CBE DEBIN3,PINDDB,DE1D FOUND BUT SAME CURR BUFFER«, t00=0x0008, t01=0x005e}
0x0d14…0d2c              Head {h00=0x0014, h01=0x0050, text=» B DEE28 NOT OK «, t00=0x0008, t01=0x0098}
0x0d2c…0d38              Head {h00=0x0008, h01=0x0050, text=»DE1D«, t00=0x0008, t01=0x00b0}
0x0d38…0d60              Head {h00=0x0024, h01=0x0050, text=» GETCTL 0,DEBINW3 GET APPL VALUE«, t00=0x0008, t01=0x00bc}
0x0d60…0d92              Head {h00=0x002e, h01=0x0050, text=» CBE DEBINW3,=W'118',DEB21 JUMP IF APPL 18«, t00=0x0008, t01=0x00e4}
0x0d92…0dca              Head {h00=0x0034, h01=0x0050, text=» PERF DEPOOL,W4,PINDDB,BIN16,STRG10A SET BUFFER «, t00=0x0008, t01=0x0116}
0x0dca…0df8              Head {h00=0x002a, h01=0x0050, text=» MOVE RNRFMCH,W2 LOAD FORMATLINKINDEX «, t00=0x0008, t01=0x014e}
0x0df8…0e0a              Head {h00=0x000e, h01=0x0050, text=» B DEAOK0 «, t00=0x0008, t01=0x017c}
0x0e0a…0e18              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x018e}
0x0e18…0e22              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x000c}
0x0e22…0e3e              Head {h00=0x0018, h01=0x0050, text=»*       APPLE=2,DE21«, t00=0x0009, t01=0x0016}
0x0e3e…0e76              Head {h00=0x0034, h01=0x0050, text=»*       CHECK IF INPUT IS LESS THAN OR EQUAL 23 «, t00=0x0009, t01=0x0032}
0x0e76…0e80              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x006a}
0x0e80…0e8e              Head {h00=0x000a, h01=0x0050, text=»DEA22 «, t00=0x0009, t01=0x0074}
0x0e8e…0ebc              Head {h00=0x002a, h01=0x0050, text=» MOVE BCD3A,DEINPUT LOAD INPUT DECIMAL«, t00=0x0009, t01=0x0082}
0x0ebc…0eea              Head {h00=0x002a, h01=0x0050, text=» MOVE DEBINW3,BCD3A LOAD INPUT BINARY «, t00=0x0009, t01=0x00b0}
0x0eea…0f12              Head {h00=0x0024, h01=0x0050, text=» MOVE DEBINW4,W23 LOAD 23 BINARY«, t00=0x0009, t01=0x00de}
0x0f12…0f40              Head {h00=0x002a, h01=0x0050, text=» CBG DEBINW3,DEBINW4,DEE26 >24 NOT OK «, t00=0x0009, t01=0x0106}
0x0f40…0f68              Head {h00=0x0024, h01=0x0050, text=» CBL DEBINW3,W1,DEE26 <1 NOT OK «, t00=0x0009, t01=0x0134}
0x0f68…0f7c              Head {h00=0x0010, h01=0x0050, text=» B DEAOK0 OK«, t00=0x0009, t01=0x015c}
0x0f7c…0f8a              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x0170}
0x0f8a…0f94              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x017e}
0x0f94…0fb0              Head {h00=0x0018, h01=0x0050, text=»*       APPLE=3,DE21«, t00=0x0009, t01=0x0188}
0x0fb0…0fe0              Head {h00=0x002c, h01=0x0050, text=»*       CHECK IF INPUT IS Y(ES) OR N(O) «, t00=0x000a, t01=0x0014}
0x0fe0…0fea              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0044}
0x0fea…0ff8              Head {h00=0x000a, h01=0x0050, text=»DEA23 «, t00=0x000a, t01=0x004e}
0x0ff8…101a              Head {h00=0x001e, h01=0x0050, text=» PERF DEYN CHECK YES OR NO«, t00=0x000a, t01=0x005c}
0x101a…1030              Head {h00=0x0012, h01=0x0050, text=» BOK DEAOK0 OK«, t00=0x000a, t01=0x007e}
0x1030…1052              Head {h00=0x001e, h01=0x0050, text=» BNOK DEE26 ILLEGAL VALUE «, t00=0x000a, t01=0x0094}
0x1052…1060              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x00b6}
0x1060…106a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00c4}
0x106a…1086              Head {h00=0x0018, h01=0x0050, text=»*       APPLE=4,DE21«, t00=0x000a, t01=0x00ce}
0x1086…10b0              Head {h00=0x0026, h01=0x0050, text=»*       CHECK AND GET FORMAT-NAME «, t00=0x000a, t01=0x00ea}
0x10b0…10ba              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0114}
0x10ba…10c8              Head {h00=0x000a, h01=0x0050, text=»DEA24 «, t00=0x000a, t01=0x011e}
0x10c8…10f2              Head {h00=0x0026, h01=0x0050, text=» MOVE FRMTPNTR,W0 FORMATPOINTER:=0«, t00=0x000a, t01=0x012c}
0x10f2…1116              Head {h00=0x0020, h01=0x0050, text=» PERF DEDISC,W10 GET FORMAT «, t00=0x000a, t01=0x0156}
0x1116…112c              Head {h00=0x0012, h01=0x0050, text=» BOK DE24A OK «, t00=0x000a, t01=0x017a}
0x112c…1144              Head {h00=0x0014, h01=0x0050, text=» B DEANOK NOT OK«, t00=0x000a, t01=0x0190}
0x1144…1152              Head {h00=0x000a, h01=0x0050, text=»DE24A «, t00=0x000b, t01=0x0018}
0x1152…1176              Head {h00=0x0020, h01=0x0050, text=» MOVE DEBINW2,W17 FAKE ENTER«, t00=0x000b, t01=0x0026}
0x1176…118a              Head {h00=0x0010, h01=0x0050, text=» B DEAOK0 OK«, t00=0x000b, t01=0x004a}
0x118a…1198              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x005e}
0x1198…11a2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x006c}
0x11a2…11be              Head {h00=0x0018, h01=0x0050, text=»*       APPLE=5,DE21«, t00=0x000b, t01=0x0076}
0x11be…1202              Head {h00=0x0040, h01=0x0050, text=»*       CHECK IF INPUT IS LESS THAN 64 AND NOT > FIELDLENGTH«, t00=0x000b, t01=0x0092}
0x1202…120c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00d6}
0x120c…121a              Head {h00=0x000a, h01=0x0050, text=»DEA25 «, t00=0x000b, t01=0x00e0}
0x121a…1248              Head {h00=0x002a, h01=0x0050, text=» MOVE BCD3A,DEINPUT LOAD INPUT DECIMAL«, t00=0x000b, t01=0x00ee}
0x1248…1276              Head {h00=0x002a, h01=0x0050, text=» MOVE DEBINW3,BCD3A LOAD INPUT BINARY «, t00=0x000b, t01=0x011c}
0x1276…12aa              Head {h00=0x0030, h01=0x0050, text=» CBG DEBINW3,BIN7,DEE26 > FIELDLENGTH NOT OK«, t00=0x000b, t01=0x014a}
0x12aa…12d0              Head {h00=0x0022, h01=0x0050, text=» CBL DEBINW3,W64,DEB21 <64 OK «, t00=0x000b, t01=0x017e}
0x12d0…12ee              Head {h00=0x001a, h01=0x0050, text=» B DEE26 ILLEGAL VALUE«, t00=0x000c, t01=0x0014}
0x12ee…12fc              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x0032}
0x12fc…1306              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0040}
0x1306…1322              Head {h00=0x0018, h01=0x0050, text=»*       APPLE=6,DE21«, t00=0x000c, t01=0x004a}
0x1322…1350              Head {h00=0x002a, h01=0x0050, text=»*       DUPLICATION-REFERENCE-CONTROL «, t00=0x000c, t01=0x0066}
0x1350…135a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0094}
0x135a…1368              Head {h00=0x000a, h01=0x0050, text=»DEA26 «, t00=0x000c, t01=0x009e}
0x1368…13a0              Head {h00=0x0034, h01=0x0050, text=» MOVE FMTWK(W4),DEBINW1 STORE NUMB OF DUPL.CHARS«, t00=0x000c, t01=0x00ac}
0x13a0…13d8              Head {h00=0x0034, h01=0x0050, text=» PERF CNTNUM,DEINPUT,FMTWK,W4 CONTROL VAR.INDEX «, t00=0x000c, t01=0x00e4}
0x13d8…1406              Head {h00=0x002a, h01=0x0050, text=» BNOK DEAOK4 NOT OK INDICATE EDIT-MODE«, t00=0x000c, t01=0x011c}
0x1406…142e              Head {h00=0x0024, h01=0x0050, text=» B DEAOK0 OK NO UPDATE OF FIELD «, t00=0x000c, t01=0x014a}
0x142e…143c              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x0172}
0x143c…1446              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0180}
0x1446…1462              Head {h00=0x0018, h01=0x0050, text=»*       APPLE=7,DE21«, t00=0x000c, t01=0x018a}
0x1462…1490              Head {h00=0x002a, h01=0x0050, text=»*       CHECK IF INPUT VALUE < =32.767«, t00=0x000d, t01=0x0016}
0x1490…149a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0044}
0x149a…14a8              Head {h00=0x000a, h01=0x0050, text=»DEA27 «, t00=0x000d, t01=0x004e}
0x14a8…14d8              Head {h00=0x002c, h01=0x0050, text=» MOVE BCD13A,DEINPUT LOAD INPUT DECIMAL «, t00=0x000d, t01=0x005c}
0x14d8…1508              Head {h00=0x002c, h01=0x0050, text=» CBNG BCD13A,=D'+32767',DEB21 <=32767 OK«, t00=0x000d, t01=0x008c}
0x1508…1526              Head {h00=0x001a, h01=0x0050, text=» B DEE26 ILLEGAL VALUE«, t00=0x000d, t01=0x00bc}
0x1526…1534              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x00da}
0x1534…153e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00e8}
0x153e…155a              Head {h00=0x0018, h01=0x0050, text=»*       APPLE=8,DE21«, t00=0x000d, t01=0x00f2}
0x155a…158c              Head {h00=0x002e, h01=0x0050, text=»*       KEYED INPUT YES/NO SET CTAB IF NO «, t00=0x000d, t01=0x010e}
0x158c…1596              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0140}
0x1596…15a4              Head {h00=0x000a, h01=0x0050, text=»DEA28 «, t00=0x000d, t01=0x014a}
0x15a4…15c6              Head {h00=0x001e, h01=0x0050, text=» PERF DEYN CHECK YES OR NO«, t00=0x000d, t01=0x0158}
0x15c6…15ea              Head {h00=0x0020, h01=0x0050, text=» BOK DE8A JUMP IF YES OR NO «, t00=0x000d, t01=0x017a}
0x15ea…1618              Head {h00=0x002a, h01=0x0050, text=» CBE STR1A,='C',DE8B C(ONDITIONAL) OK «, t00=0x000e, t01=0x000e}
0x1618…1636              Head {h00=0x001a, h01=0x0050, text=» B DEE26 ILLEGAL VALUE«, t00=0x000e, t01=0x003c}
0x1636…1642              Head {h00=0x0008, h01=0x0050, text=»DE8A«, t00=0x000e, t01=0x005a}
0x1642…165e              Head {h00=0x0018, h01=0x0050, text=» CBE STR1A,='Y',DE8C«, t00=0x000e, t01=0x0066}
0x165e…166a              Head {h00=0x0008, h01=0x0050, text=»DE8B«, t00=0x000e, t01=0x0082}
0x166a…167c              Head {h00=0x000e, h01=0x0050, text=» SET CTAB «, t00=0x000e, t01=0x008e}
0x167c…168e              Head {h00=0x000e, h01=0x0050, text=» B DEAOK0 «, t00=0x000e, t01=0x00a0}
0x168e…169a              Head {h00=0x0008, h01=0x0050, text=»DE8C«, t00=0x000e, t01=0x00b2}
0x169a…16c6              Head {h00=0x0028, h01=0x0050, text=» CLEAR CTAB INICATE KEYED INP-FIELD «, t00=0x000e, t01=0x00be}
0x16c6…16d8              Head {h00=0x000e, h01=0x0050, text=» B DEAOK0 «, t00=0x000e, t01=0x00ea}
0x16d8…16e6              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000e, t01=0x00fc}
0x16e6…16f0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x010a}
0x16f0…1710              Head {h00=0x001c, h01=0x0050, text=»*       APPL=9,DE21,DE22«, t00=0x000e, t01=0x0114}
0x1710…173c              Head {h00=0x0028, h01=0x0050, text=»*       CHECK IF INPUT IS >0 AND <11«, t00=0x000e, t01=0x0134}
0x173c…1746              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0160}
0x1746…1754              Head {h00=0x000a, h01=0x0050, text=»DEA29 «, t00=0x000e, t01=0x016a}
0x1754…1784              Head {h00=0x002c, h01=0x0050, text=» MOVE BCD13A,DEINPUT LOAD INPUT DECIMAL «, t00=0x000e, t01=0x0178}
0x1784…17b0              Head {h00=0x0028, h01=0x0050, text=» MOVE DEBINW3,BCD13A LOAD '99'BINARY«, t00=0x000f, t01=0x0018}
0x17b0…17d4              Head {h00=0x0020, h01=0x0050, text=» CALL CMPIND,DEBINW3,ACK(W1)«, t00=0x000f, t01=0x0044}
0x17d4…17f4              Head {h00=0x001c, h01=0x0050, text=» BNOK DEE26 OUT OF RANGE«, t00=0x000f, t01=0x0068}
0x17f4…180a              Head {h00=0x0012, h01=0x0050, text=» B DEAOK0  OK «, t00=0x000f, t01=0x0088}
0x180a…1818              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000f, t01=0x009e}
0x1818…1822              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00ac}
0x1822…1844              Head {h00=0x001e, h01=0x0050, text=»*       LONG BRANCHE LIST «, t00=0x000f, t01=0x00b6}
0x1844…184e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00d8}
0x184e…187a              Head {h00=0x0028, h01=0x0050, text=»*        APPL VALUE HANDLING ROUTINE«, t00=0x000f, t01=0x00e2}
0x187a…1884              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x010e}
0x1884…1892              Head {h00=0x000a, h01=0x0050, text=»DEAP2B«, t00=0x000f, t01=0x0118}
0x1892…18c4              Head {h00=0x002e, h01=0x0050, text=» SUB DEBINW3,W9 ADJUST APPLE-VALUE LONG BR«, t00=0x000f, t01=0x0126}
0x18c4…18de              Head {h00=0x0016, h01=0x0050, text=» IB DEBINW3,DEA210«, t00=0x000f, t01=0x0158}
0x18de…190a              Head {h00=0x0028, h01=0x0050, text=» B DEAP2C LONG BRANCHE CONSTRUCTION «, t00=0x000f, t01=0x0172}
0x190a…1914              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x000e}
0x1914…1922              Head {h00=0x000a, h01=0x0050, text=»DEB21 «, t00=0x0010, t01=0x0018}
0x1922…1934              Head {h00=0x000e, h01=0x0050, text=» B DEAOK0 «, t00=0x0010, t01=0x0026}
0x1934…1942              Head {h00=0x000a, h01=0x0050, text=»DEE22 «, t00=0x0010, t01=0x0038}
0x1942…196a              Head {h00=0x0024, h01=0x0050, text=» MOVE DEBINW4,W2 UNDEFINED ERROR«, t00=0x0010, t01=0x0046}
0x196a…197c              Head {h00=0x000e, h01=0x0050, text=» B DEANOK «, t00=0x0010, t01=0x006e}
0x197c…198a              Head {h00=0x000a, h01=0x0050, text=»DEE26 «, t00=0x0010, t01=0x0080}
0x198a…19b0              Head {h00=0x0022, h01=0x0050, text=» MOVE DEBINW4,W6 ILLEGAL VALUE«, t00=0x0010, t01=0x008e}
0x19b0…19c2              Head {h00=0x000e, h01=0x0050, text=» B DEANOK «, t00=0x0010, t01=0x00b4}
0x19c2…19d0              Head {h00=0x000a, h01=0x0050, text=»DEE28 «, t00=0x0010, t01=0x00c6}
0x19d0…19f8              Head {h00=0x0024, h01=0x0050, text=» MOVE DEBINW4,W8 ALREADY DEFINED«, t00=0x0010, t01=0x00d4}
0x19f8…1a0a              Head {h00=0x000e, h01=0x0050, text=» B DEANOK «, t00=0x0010, t01=0x00fc}
0x1a0a…1a18              Head {h00=0x000a, h01=0x0050, text=»DEE232«, t00=0x0010, t01=0x010e}
0x1a18…1a46              Head {h00=0x002a, h01=0x0050, text=» MOVE DEBINW4,W32 'ILLEGAL FORMATNAME'«, t00=0x0010, t01=0x011c}
0x1a46…1a58              Head {h00=0x000e, h01=0x0050, text=» B DEANOK «, t00=0x0010, t01=0x014a}
0x1a58…1a66              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x015c}
0x1a66…1a70              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x016a}
0x1a70…1a8c              Head {h00=0x0018, h01=0x0050, text=»*       APPL=10,DE21«, t00=0x0010, t01=0x0174}
0x1a8c…1ab0              Head {h00=0x0020, h01=0x0050, text=»*       LINE-DESIGN CONTROL «, t00=0x0010, t01=0x0190}
0x1ab0…1aba              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0024}
0x1aba…1ac8              Head {h00=0x000a, h01=0x0050, text=»DEA210«, t00=0x0011, t01=0x002e}
0x1ac8…1afe              Head {h00=0x0032, h01=0x0050, text=» MOVE FMTWK(W5),DEBINW1 STORE NUMB OF LDES CHS«, t00=0x0011, t01=0x003c}
0x1afe…1b22              Head {h00=0x0020, h01=0x0050, text=» MOVE BIN5,W0 LOAD STPOINTER«, t00=0x0011, t01=0x0072}
0x1b22…1b58              Head {h00=0x0032, h01=0x0050, text=» MOVE DEBIN4,DEBINW1 STORE NUMBER OF LDES CHRS«, t00=0x0011, t01=0x0096}
0x1b58…1b64              Head {h00=0x0008, h01=0x0050, text=»D10A«, t00=0x0011, t01=0x00cc}
0x1b64…1b78              Head {h00=0x0010, h01=0x0050, text=» CLEAR BOOL8«, t00=0x0011, t01=0x00d8}
0x1b78…1ba8              Head {h00=0x002c, h01=0x0050, text=» MATCH DEINPUT,BIN5,DEBIN4,PICSTR,W13,W1«, t00=0x0011, t01=0x00ec}
0x1ba8…1bce              Head {h00=0x0022, h01=0x0050, text=» BNOK D10OK NO FIELD FOUND OK «, t00=0x0011, t01=0x011c}
0x1bce…1bf8              Head {h00=0x0026, h01=0x0050, text=» ADD BIN5,W1 NEXT PICSTRG-POINTER «, t00=0x0011, t01=0x0142}
0x1bf8…1c2e              Head {h00=0x0032, h01=0x0050, text=» CBE BIN5,FMTWK(W5),D10NOK NO END OF FIELD = >«, t00=0x0011, t01=0x016c}
0x1c2e…1c5a              Head {h00=0x0028, h01=0x0050, text=» MOVE DEBINW1,BIN5 SAVE STARTPOINTER«, t00=0x0012, t01=0x0012}
0x1c5a…1c88              Head {h00=0x002a, h01=0x0050, text=» MOVE BIN16,W0 STPOINTER PICCHRS-TABLE«, t00=0x0012, t01=0x003e}
0x1c88…1cb8              Head {h00=0x002c, h01=0x0050, text=» MATCH PICSTR,BIN16,W15,DEINPUT,BIN5,W1 «, t00=0x0012, t01=0x006c}
0x1cb8…1ce2              Head {h00=0x0026, h01=0x0050, text=» BNOK D10X NUMERIC FIELD OK (E<X>)«, t00=0x0012, t01=0x009c}
0x1ce2…1d10              Head {h00=0x002a, h01=0x0050, text=» CBE BIN16,W0,D10B ALPHANUM INDICATED «, t00=0x0012, t01=0x00c6}
0x1d10…1d3e              Head {h00=0x002a, h01=0x0050, text=» IB BIN16,D10B,D10D,D10D,D10D, 1 - 4 C«, t00=0x0012, t01=0x00f4}
0x1d3e…1d6e              Head {h00=0x002c, h01=0x0050, text=»  D10D,D10D,D10D,D10NOK,D10NOK, 5 - 9 C «, t00=0x0012, t01=0x0122}
0x1d6e…1d9a              Head {h00=0x0028, h01=0x0050, text=»  D10D,D10D,D10NOK,D10NOK,D10D 10-14«, t00=0x0012, t01=0x0152}
0x1d9a…1dbc              Head {h00=0x001e, h01=0x0050, text=» B D10NOK UNDEFINED ERROR «, t00=0x0012, t01=0x017e}
0x1dbc…1dc8              Head {h00=0x0008, h01=0x0050, text=»D10B«, t00=0x0013, t01=0x0010}
0x1dc8…1df8              Head {h00=0x002c, h01=0x0050, text=» TBT BOOL6,D10NOK JUMP IF BALANCE FORMAT«, t00=0x0013, t01=0x001c}
0x1df8…1e1e              Head {h00=0x0022, h01=0x0050, text=» MOVE BIN15,BIN16 SAV PIC-TYPE«, t00=0x0013, t01=0x004c}
0x1e1e…1e2a              Head {h00=0x0008, h01=0x0050, text=»D10C«, t00=0x0013, t01=0x0072}
0x1e2a…1e48              Head {h00=0x001a, h01=0x0050, text=» ADD BIN5,W1 NEXT POS «, t00=0x0013, t01=0x007e}
0x1e48…1e7e              Head {h00=0x0032, h01=0x0050, text=» CBE BIN5,FMTWK(W5),D10NOK NO END OF FIELD = >«, t00=0x0013, t01=0x009c}
0x1e7e…1eb0              Head {h00=0x002e, h01=0x0050, text=» MOVE BIN16,W0 STARTPOINTER PICCHRS-TABLE «, t00=0x0013, t01=0x00d2}
0x1eb0…1ee0              Head {h00=0x002c, h01=0x0050, text=» MATCH PICSTR,BIN16,W15,DEINPUT,BIN5,W1 «, t00=0x0013, t01=0x0104}
0x1ee0…1f04              Head {h00=0x0020, h01=0x0050, text=» BNOK D10Z ILLEGEAL PIC STRG«, t00=0x0013, t01=0x0134}
0x1f04…1f3c              Head {h00=0x0034, h01=0x0050, text=» CBE BIN16,BIN15,D10C PICTYPE EQUALS 1:ST CHARS «, t00=0x0013, t01=0x0158}
0x1f3c…1f48              Head {h00=0x0008, h01=0x0050, text=»D10Z«, t00=0x0013, t01=0x0190}
0x1f48…1f76              Head {h00=0x002a, h01=0x0050, text=» CBE BIN16,W12,D10J END OF FIELD FOUND«, t00=0x0014, t01=0x000c}
0x1f76…1f98              Head {h00=0x001e, h01=0x0050, text=» B D10NOK ILLEGAL PIC-STRG«, t00=0x0014, t01=0x003a}
0x1f98…1fa4              Head {h00=0x0008, h01=0x0050, text=»D10X«, t00=0x0014, t01=0x005c}
0x1fa4…1fc2              Head {h00=0x001a, h01=0x0050, text=» ADD BIN5,W1 NEXT POS «, t00=0x0014, t01=0x0068}
0x1fc2…1ff8              Head {h00=0x0032, h01=0x0050, text=» CBE BIN5,FMTWK(W5),D10NOK NO END OF FIELD = >«, t00=0x0014, t01=0x0086}
0x1ff8…200e              Head {h00=0x0012, h01=0x0050, text=» MOVE BIN16,W0«, t00=0x0014, t01=0x00bc}
0x200e…203e              Head {h00=0x002c, h01=0x0050, text=» MATCH PICSTR,BIN16,W15,DEINPUT,BIN5,W1 «, t00=0x0014, t01=0x00d2}
0x203e…2054              Head {h00=0x0012, h01=0x0050, text=» BNOK D10X OK «, t00=0x0014, t01=0x0102}
0x2054…2082              Head {h00=0x002a, h01=0x0050, text=» IB BIN16,D10D,D10D,D10D,D10D, 1 - 4 C«, t00=0x0014, t01=0x0118}
0x2082…20ae              Head {h00=0x0028, h01=0x0050, text=»  D10D,D10D,D10D,D10F,D10F, 5 - 9 C «, t00=0x0014, t01=0x0146}
0x20ae…20d8              Head {h00=0x0026, h01=0x0050, text=»  D10D,D10D,D10G,D10NOK,D10D 10-14«, t00=0x0014, t01=0x0172}
0x20d8…20fa              Head {h00=0x001e, h01=0x0050, text=» B D10NOK UNDEFINED ERROR «, t00=0x0015, t01=0x000c}
0x20fa…2106              Head {h00=0x0008, h01=0x0050, text=»D10D«, t00=0x0015, t01=0x002e}
0x2106…2118              Head {h00=0x000e, h01=0x0050, text=» SET BOOL8«, t00=0x0015, t01=0x003a}
0x2118…2140              Head {h00=0x0024, h01=0x0050, text=» B D10X LONG BRANCH INSTRUCTION «, t00=0x0015, t01=0x004c}
0x2140…214c              Head {h00=0x0008, h01=0x0050, text=»D10F«, t00=0x0015, t01=0x0074}
0x214c…216a              Head {h00=0x001a, h01=0x0050, text=» ADD BIN5,W1 NEXT POS «, t00=0x0015, t01=0x0080}
0x216a…21a0              Head {h00=0x0032, h01=0x0050, text=» CBG BIN5,FMTWK(W5),D10NOK NO END OF FIELD = >«, t00=0x0015, t01=0x009e}
0x21a0…21b6              Head {h00=0x0012, h01=0x0050, text=» MOVE BIN16,W0«, t00=0x0015, t01=0x00d4}
0x21b6…21e6              Head {h00=0x002c, h01=0x0050, text=» MATCH PICSTR,BIN16,W15,DEINPUT,BIN5,W1 «, t00=0x0015, t01=0x00ea}
0x21e6…2212              Head {h00=0x0028, h01=0x0050, text=» BNOK D10NOK +/S MUST BE LAST CHARS «, t00=0x0015, t01=0x011a}
0x2212…2240              Head {h00=0x002a, h01=0x0050, text=» CBE BIN16,W12,D10J +/S IS LAST CHARS «, t00=0x0015, t01=0x0146}
0x2240…2252              Head {h00=0x000e, h01=0x0050, text=» B D10NOK «, t00=0x0015, t01=0x0174}
0x2252…225e              Head {h00=0x0008, h01=0x0050, text=»D10G«, t00=0x0015, t01=0x0186}
0x225e…228a (22, 0, 400) Head {h00=0x0028, h01=0x0050, text=» TBF BOOL8,D10NOK JUST 'E':S NOT OK «, t00=0x0016, t01=0x0004}
0x228a…2296              Head {h00=0x0008, h01=0x0050, text=»D10J«, t00=0x0016, t01=0x0030}
0x2296…22ba              Head {h00=0x0020, h01=0x0050, text=» ADD BIN5,W1 NEXT MATCH POS «, t00=0x0016, t01=0x003c}
0x22ba…22ee              Head {h00=0x0030, h01=0x0050, text=» MOVE DEBIN4,FMTWK(W5) RESORE NUMB OF CHARS «, t00=0x0016, t01=0x0060}
0x22ee…2306              Head {h00=0x0014, h01=0x0050, text=» SUB DEBIN4,BIN5«, t00=0x0016, t01=0x0094}
0x2306…2328              Head {h00=0x001e, h01=0x0050, text=» CBE DEBIN4,W0,D10OK READY«, t00=0x0016, t01=0x00ac}
0x2328…234a              Head {h00=0x001e, h01=0x0050, text=» B D10A SEARCH NEXT FIELD «, t00=0x0016, t01=0x00ce}
0x234a…2358              Head {h00=0x000a, h01=0x0050, text=»D10NOK«, t00=0x0016, t01=0x00f0}
0x2358…237e              Head {h00=0x0022, h01=0x0050, text=» MOVE DEBINW4,W6 ILLEGAL VALUE«, t00=0x0016, t01=0x00fe}
0x237e…23a8              Head {h00=0x0026, h01=0x0050, text=» PERF DERROR,DEKTAB4 ERROR MESSAGE«, t00=0x0016, t01=0x0124}
0x23a8…23be              Head {h00=0x0012, h01=0x0050, text=» MOVE BIN5,W0 «, t00=0x0016, t01=0x014e}
0x23be…23e6              Head {h00=0x0024, h01=0x0050, text=» ADD DEBINW1,W1 ADJUST STPOINTER«, t00=0x0016, t01=0x0164}
0x23e6…240a              Head {h00=0x0020, h01=0x0050, text=» B DEAOK4 INDICATE EDIT-MODE«, t00=0x0016, t01=0x018c}
0x240a…2418              Head {h00=0x000a, h01=0x0050, text=»D10OK «, t00=0x0017, t01=0x0020}
0x2418…242e              Head {h00=0x0012, h01=0x0050, text=» MOVE BIN5,W0 «, t00=0x0017, t01=0x002e}
0x242e…2456              Head {h00=0x0024, h01=0x0050, text=» ERASE 2,W5,W5 CLEAR LINE DESIGN«, t00=0x0017, t01=0x0044}
0x2456…247a              Head {h00=0x0020, h01=0x0050, text=» MOVE LDISP,=' ' MOVE SPACES«, t00=0x0017, t01=0x006c}
0x247a…248e              Head {h00=0x0010, h01=0x0050, text=» B DEAOK0 OK«, t00=0x0017, t01=0x0090}
0x248e…249c              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0017, t01=0x00a4}
0x249c…24a6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00b2}
0x24a6…24d2              Head {h00=0x0028, h01=0x0050, text=»*        APPL VALUE HANDLING ROUTINE«, t00=0x0017, t01=0x00bc}
0x24d2…24dc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00e8}
0x24dc…24e6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00f2}
0x24e6…2508              Head {h00=0x001e, h01=0x0050, text=»*       LONG BRANCHE LIST «, t00=0x0017, t01=0x00fc}
0x2508…2512              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x011e}
0x2512…2520              Head {h00=0x000a, h01=0x0050, text=»DEAP2C«, t00=0x0017, t01=0x0128}
0x2520…2556              Head {h00=0x0032, h01=0x0050, text=» SUB DEBINW3,W1 ADJUST APPLE-VALUE LONG BRANCH«, t00=0x0017, t01=0x0136}
0x2556…257c              Head {h00=0x0022, h01=0x0050, text=» IB DEBINW3,DEA211,DEA212,  C «, t00=0x0017, t01=0x016c}
0x257c…259e (24, 0, 400) Head {h00=0x001e, h01=0x0050, text=»  DEA213,DEA214,DEA215,  C«, t00=0x0018, t01=0x0004}
0x259e…25bc              Head {h00=0x001a, h01=0x0050, text=»  DEA216,DEA217,DEA218«, t00=0x0018, t01=0x0026}
0x25bc…25ea              Head {h00=0x002a, h01=0x0050, text=» B DEE22 JUMP IF APPLE-VALUE OVERFLOW «, t00=0x0018, t01=0x0044}
0x25ea…25f8              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0018, t01=0x0072}
0x25f8…2602              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0080}
0x2602…2620              Head {h00=0x001a, h01=0x0050, text=»*       APPL = 11,DE21«, t00=0x0018, t01=0x008a}
0x2620…264e              Head {h00=0x002a, h01=0x0050, text=»*       SAVE NUMBER OF CHARS IN STRG 1«, t00=0x0018, t01=0x00a8}
0x264e…2658              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00d6}
0x2658…2666              Head {h00=0x000a, h01=0x0050, text=»DEA211«, t00=0x0018, t01=0x00e0}
0x2666…26a0              Head {h00=0x0036, h01=0x0050, text=» MOVE FMTWK(W10),DEBINW1 STORE NUMB OF VAL.-CHARS «, t00=0x0018, t01=0x00ee}
0x26a0…26c8              Head {h00=0x0024, h01=0x0050, text=» B DEAOK0 OK NO UPDATE OF FIELD «, t00=0x0018, t01=0x0128}
0x26c8…26d6              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0018, t01=0x0150}
0x26d6…26e0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x015e}
0x26e0…26fe              Head {h00=0x001a, h01=0x0050, text=»*       APPL = 12,DE21«, t00=0x0018, t01=0x0168}
0x26fe…272c              Head {h00=0x002a, h01=0x0050, text=»*       SAVE NUMBER OF CHARS IN STRG2 «, t00=0x0018, t01=0x0186}
0x272c…2736              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0024}
0x2736…2744              Head {h00=0x000a, h01=0x0050, text=»DEA212«, t00=0x0019, t01=0x002e}
0x2744…277e              Head {h00=0x0036, h01=0x0050, text=» MOVE FMTWK(W11),DEBINW1 STORE NUMB OF ACC.-CHARS «, t00=0x0019, t01=0x003c}
0x277e…27a6              Head {h00=0x0024, h01=0x0050, text=» B DEAOK0 OK NO UPDATE OF FIELD «, t00=0x0019, t01=0x0076}
0x27a6…27b4              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0019, t01=0x009e}
0x27b4…27be              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00ac}
0x27be…27dc              Head {h00=0x001a, h01=0x0050, text=»*       APPL = 13,DE21«, t00=0x0019, t01=0x00b6}
0x27dc…27e6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00d4}
0x27e6…27f4              Head {h00=0x000a, h01=0x0050, text=»DEA213«, t00=0x0019, t01=0x00de}
0x27f4…281e              Head {h00=0x0026, h01=0x0050, text=» MOVE FRMTPNTR,W0 FORMATPOINTER:=0«, t00=0x0019, t01=0x00ec}
0x281e…2844              Head {h00=0x0022, h01=0x0050, text=» PERF DEDISC,W12 SEARCH FORMAT«, t00=0x0019, t01=0x0116}
0x2844…2860              Head {h00=0x0018, h01=0x0050, text=» BNOK DEANOK NOT OK «, t00=0x0019, t01=0x013c}
0x2860…2892              Head {h00=0x002e, h01=0x0050, text=» XCOPY STR1A,W0,W1,DEINPUT,W0 FETCH 1ST CH«, t00=0x0019, t01=0x0158}
0x2892…28b0              Head {h00=0x001a, h01=0x0050, text=» CBE STR1A,='*',DE13A «, t00=0x0019, t01=0x018a}
0x28b0…28d2              Head {h00=0x001e, h01=0x0050, text=» CLEAR BOOL6 F=USER FORMAT«, t00=0x001a, t01=0x0018}
0x28d2…28e2              Head {h00=0x000c, h01=0x0050, text=» B DE13B«, t00=0x001a, t01=0x003a}
0x28e2…28f0              Head {h00=0x000a, h01=0x0050, text=»DE13A «, t00=0x001a, t01=0x004a}
0x28f0…2914              Head {h00=0x0020, h01=0x0050, text=» SET BOOL6 T=BALANCE FORMAT «, t00=0x001a, t01=0x0058}
0x2914…2922              Head {h00=0x000a, h01=0x0050, text=»DE13B «, t00=0x001a, t01=0x007c}
0x2922…2934              Head {h00=0x000e, h01=0x0050, text=» B DEAOK0 «, t00=0x001a, t01=0x008a}
0x2934…2942              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001a, t01=0x009c}
0x2942…294c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00aa}
0x294c…2968              Head {h00=0x0018, h01=0x0050, text=»*       APPL=14,DE21«, t00=0x001a, t01=0x00b4}
0x2968…296c              Head {h00=0x0054, h01=0x0050}
0x296c…2970              Head {h00=0x2a20, h01=0x2020}
0x2970…2990              20 20 20 20 4d 55 53 54 20 45 4e 54 45 52 20 59 45 53 2c 20 53 45 54 20 53 43 48 4b 34 2d 42 49                                                                                                                                                   ┆    MUST ENTER YES, SET SCHK4-BI┆
0x2990…29e0              54 20 49 46 20 43 28 4f 4e 44 49 54 49 4f 4e 41 4c 20 4d 45 29 2f 4e 4f 20 20 53 45 54 20 4d 45 2d 42 49 54 20 49 46 20 59 45 53 2c 00 1a 00 d0 00 06 00 50 2a 20 00 1a 01 28 00 0a 00 50 44 45 41 32 31 34 00 1a 01 32 00 1e 00 50 5c 50 45 52   ┆T IF C(ONDITIONAL ME)/NO  SET ME-BIT IF YES,       P*    (   PDEA214   2   P PER┆
0x29e0…2a2c              46 5c 44 45 59 4e 5c 43 48 45 43 4b 20 59 45 53 20 4f 52 20 4e 4f 00 1a 01 40 00 1e 00 50 5c 42 4f 4b 5c 44 45 31 34 42 5c 4a 55 4d 50 20 49 46 20 59 45 53 2f 4e 4f 20 00 1a 01 62 00 1a 00 50 5c 43 42 45 5c 53 54 52 31 41 2c 3d               ┆F DEYN CHECK YES OR NO   @   P BOK DE14B JUMP IF YES/NO    b   P CBE STR1A,=┆
0x2a2c…2a7c (27, 0, 400) 27 43 27 2c 44 45 31 34 43 20 00 1a 01 84 00 1a 00 50 5c 42 5c 44 45 45 32 36 5c 49 4c 4c 45 47 41 4c 20 56 41 4c 55 45 00 1b 00 12 00 0a 00 50 44 45 31 34 43 20 00 1b 00 30 00 26 00 50 5c 53 45 54 5c 53 43 48 4b 34 5c 49 4e 44 49 43 41 54   ┆'C',DE14C        P B DEE26 ILLEGAL VALUE       PDE14C    0 & P SET SCHK4 INDICAT┆
0x2a7c…2acc              45 20 43 4f 4e 44 49 54 49 4f 4e 41 4c 20 4d 45 00 1b 00 3e 00 16 00 50 5c 42 5c 44 45 31 34 41 5c 43 4c 45 41 52 20 4d 45 20 00 1b 00 68 00 0a 00 50 44 45 31 34 42 20 00 1b 00 82 00 1c 00 50 5c 43 4c 45 41 52 5c 53 43 48 4b 34 5c 4e 4f 20   ┆E CONDITIONAL ME   >   P B DE14A CLEAR ME    h   PDE14B        P CLEAR SCHK4 NO ┆
0x2acc…2b1c              43 4f 4e 44 20 4d 45 20 00 1b 00 90 00 24 00 50 5c 43 42 45 5c 53 54 52 31 41 2c 3d 27 4e 27 2c 44 45 31 34 41 5c 4a 55 4d 50 20 49 46 20 4e 4f 00 1b 00 b0 00 20 00 50 5c 53 45 54 5c 4d 45 5c 49 4e 44 49 43 41 54 45 20 4d 55 53 54 20 45 4e   ┆COND ME      $ P CBE STR1A,='N',DE14A JUMP IF NO       P SET ME INDICATE MUST EN┆
0x2b1c…2b6c              54 45 52 20 00 1b 00 d8 00 10 00 50 5c 42 5c 44 45 41 4f 4b 30 5c 4f 4b 00 1b 00 fc 00 0a 00 50 44 45 31 34 41 20 00 1b 01 10 00 24 00 50 5c 43 4c 45 41 52 5c 4d 45 5c 49 4e 44 49 43 41 54 45 20 4e 4f 20 4d 55 53 54 20 45 4e 54 45 52 00 1b   ┆TER        P B DEAOK0 OK       PDE14A      $ P CLEAR ME INDICATE NO MUST ENTER  ┆
0x2b6c…2bbc              01 1e 00 0e 00 50 5c 42 5c 44 45 41 4f 4b 30 20 00 1b 01 46 00 0a 00 50 5c 45 4a 45 43 54 00 1b 01 58 00 06 00 50 2a 20 00 1b 01 66 00 18 00 50 2a 20 20 20 20 20 20 20 41 50 50 4c 3d 31 35 2c 44 45 32 31 00 1b 01 70 00 30 00 50 2a 20 20 20   ┆     P B DEAOK0    F   P EJECT   X   P*    f   P*       APPL=15,DE21   p 0 P*   ┆
0x2bbc…2c0c (28, 0, 400) 20 20 20 20 41 55 54 4f 54 41 42 20 59 45 53 2f 4e 4f 20 20 53 45 54 20 4e 45 4f 49 2d 42 49 54 20 49 46 20 59 45 53 20 00 1b 01 8c 00 06 00 50 2a 20 00 1c 00 30 00 0a 00 50 44 45 41 32 31 35 00 1c 00 3a 00 1e 00 50 5c 50 45 52 46 5c 44 45   ┆    AUTOTAB YES/NO  SET NEOI-BIT IF YES        P*    0   PDEA215   :   P PERF DE┆
0x2c0c…2c5c              59 4e 5c 43 48 45 43 4b 20 59 45 53 20 4f 52 20 4e 4f 00 1c 00 48 00 1e 00 50 5c 42 4e 4f 4b 5c 44 45 45 32 36 5c 49 4c 4c 45 47 41 4c 20 56 41 4c 55 45 20 00 1c 00 6a 00 24 00 50 5c 43 42 45 5c 53 54 52 31 41 2c 3d 27 4e 27 2c 44 45 31 35   ┆YN CHECK YES OR NO   H   P BNOK DEE26 ILLEGAL VALUE    j $ P CBE STR1A,='N',DE15┆
0x2c5c…2cac              41 5c 4a 55 4d 50 20 49 46 20 4e 4f 00 1c 00 8c 00 20 00 50 5c 53 45 54 5c 4e 45 4f 49 5c 49 4e 44 49 43 41 54 45 20 41 55 54 4f 2d 54 41 42 20 00 1c 00 b4 00 10 00 50 5c 42 5c 44 45 41 4f 4b 30 5c 4f 4b 00 1c 00 d8 00 0a 00 50 44 45 31 35   ┆A JUMP IF NO       P SET NEOI INDICATE AUTO-TAB        P B DEAOK0 OK       PDE15┆
0x2cac…2cfc              41 20 00 1c 00 ec 00 24 00 50 5c 43 4c 45 41 52 5c 4e 45 4f 49 5c 49 4e 44 49 43 41 54 45 20 4e 4f 20 41 55 54 4f 2d 54 41 42 00 1c 00 fa 00 0e 00 50 5c 42 5c 44 45 41 4f 4b 30 20 00 1c 01 22 00 0a 00 50 5c 45 4a 45 43 54 00 1c 01 34 00 06   ┆A      $ P CLEAR NEOI INDICATE NO AUTO-TAB       P B DEAOK0    "   P EJECT   4  ┆
0x2cfc…2d4c              00 50 2a 20 00 1c 01 42 00 18 00 50 2a 20 20 20 20 20 20 20 41 50 50 4c 3d 31 36 2c 44 45 32 31 00 1c 01 4c 00 34 00 50 2a 20 20 20 20 20 20 20 56 45 52 49 46 59 20 20 59 45 53 2f 4e 4f 20 20 20 20 53 45 54 20 56 45 52 49 46 59 2d 42 49 54   ┆ P*    B   P*       APPL=16,DE21   L 4 P*       VERIFY  YES/NO    SET VERIFY-BIT┆
0x2d4c…2d9c (29, 0, 400) 20 49 46 20 59 45 53 20 00 1c 01 68 00 06 00 50 2a 20 00 1d 00 10 00 0a 00 50 44 45 41 32 31 36 00 1d 00 1a 00 22 00 50 5c 50 45 52 46 5c 44 45 59 4e 5c 43 48 45 43 4b 20 49 46 20 59 45 53 20 4f 52 20 4e 4f 20 00 1d 00 28 00 1e 00 50 5c 42   ┆ IF YES    h   P*        PDEA216     " P PERF DEYN CHECK IF YES OR NO    (   P B┆
0x2d9c…2dec              4e 4f 4b 5c 44 45 45 32 36 5c 49 4c 4c 45 47 41 4c 20 56 41 4c 55 45 20 00 1d 00 4e 00 24 00 50 5c 43 42 45 5c 53 54 52 31 41 2c 3d 27 4e 27 2c 44 31 36 41 5c 4a 55 4d 50 20 49 46 20 4e 4f 20 00 1d 00 70 00 26 00 50 5c 53 45 54 5c 56 45 52   ┆NOK DEE26 ILLEGAL VALUE    N $ P CBE STR1A,='N',D16A JUMP IF NO    p & P SET VER┆
0x2dec…2e3c              49 46 59 5c 49 4e 44 49 43 41 54 45 20 56 45 52 49 46 49 43 41 54 49 4f 4e 20 00 1d 00 98 00 0e 00 50 5c 42 5c 44 45 41 4f 4b 30 20 00 1d 00 c2 00 08 00 50 44 31 36 41 00 1d 00 d4 00 2a 00 50 5c 43 4c 45 41 52 5c 56 45 52 49 46 59 5c 49 4e   ┆IFY INDICATE VERIFICATION        P B DEAOK0        PD16A     * P CLEAR VERIFY IN┆
0x2e3c…2e8c              44 49 43 41 54 45 20 4e 4f 20 56 45 52 49 46 49 43 41 54 49 4f 4e 00 1d 00 e0 00 10 00 50 5c 42 5c 44 45 41 4f 4b 30 5c 4f 4b 00 1d 01 0e 00 0a 00 50 5c 45 4a 45 43 54 00 1d 01 22 00 06 00 50 2a 20 00 1d 01 30 00 18 00 50 2a 20 20 20 20 20   ┆DICATE NO VERIFICATION       P B DEAOK0 OK       P EJECT   "   P*    0   P*     ┆
0x2e8c…2edc              20 20 41 50 50 4c 3d 31 37 2c 44 45 32 31 00 1d 01 3a 00 36 00 50 2a 20 20 20 20 20 20 20 49 4e 49 54 49 41 4c 20 43 4c 45 41 52 20 59 45 53 2f 4e 4f 20 43 4c 45 41 52 20 4e 43 4c 52 2d 42 49 54 20 49 46 20 59 45 53 00 1d 01 56 00 06 00 50   ┆  APPL=17,DE21   : 6 P*       INITIAL CLEAR YES/NO CLEAR NCLR-BIT IF YES   V   P┆
0x2edc…2f2c (30, 0, 400) 2a 20 00 1d 01 90 00 0a 00 50 44 45 41 32 31 37 00 1e 00 0a 00 1e 00 50 5c 50 45 52 46 5c 44 45 59 4e 5c 43 48 45 43 4b 20 59 45 53 20 4f 52 20 4e 4f 00 1e 00 18 00 1e 00 50 5c 42 4e 4f 4b 5c 44 45 45 32 36 5c 49 4c 4c 45 47 41 4c 20 56 41   ┆*        PDEA217       P PERF DEYN CHECK YES OR NO       P BNOK DEE26 ILLEGAL VA┆
0x2f2c…2f7c              4c 55 45 20 00 1e 00 3a 00 24 00 50 5c 43 42 45 5c 53 54 52 31 41 2c 3d 27 4e 27 2c 44 31 37 41 5c 4a 55 4d 50 20 49 46 20 4e 4f 20 00 1e 00 5c 00 26 00 50 5c 43 4c 45 41 52 5c 4e 43 4c 52 5c 49 4e 44 49 43 41 54 45 20 49 4e 49 54 49 41 4c   ┆LUE    : $ P CBE STR1A,='N',D17A JUMP IF NO      & P CLEAR NCLR INDICATE INITIAL┆
0x2f7c…2fcc              20 43 4c 45 41 52 00 1e 00 84 00 0e 00 50 5c 42 5c 44 45 41 4f 4b 30 20 00 1e 00 ae 00 08 00 50 44 31 37 41 00 1e 00 c0 00 28 00 50 5c 53 45 54 5c 4e 43 4c 52 5c 49 4e 44 49 43 41 54 45 20 4e 4f 20 49 4e 49 54 49 41 4c 20 43 4c 45 41 52 20   ┆ CLEAR       P B DEAOK0        PD17A     ( P SET NCLR INDICATE NO INITIAL CLEAR ┆
0x2fcc…301c              00 1e 00 cc 00 0e 00 50 5c 42 5c 44 45 41 4f 4b 30 20 00 1e 00 f8 00 0a 00 05 5c 50 45 4e 44 20 00 1e 01 0a 00 0a 00 50 5c 45 4a 45 43 54 00 1e 01 18 00 06 00 50 2a 20 00 1e 01 26 00 18 00 50 2a 20 20 20 20 20 20 20 41 50 50 4c 3d 31 38 2c   ┆       P B DEAOK0          PEND        P EJECT       P*    &   P*       APPL=18,┆
0x301c…306c              44 45 32 34 00 1e 01 30 00 06 00 50 2a 20 00 1e 01 4c 00 0a 00 50 44 45 41 32 31 38 00 1e 01 56 00 0c 00 50 5c 42 5c 44 45 41 32 31 00 1e 01 64 00 0a 00 50 5c 45 4a 45 43 54 00 1e 01 74 00 06 00 50 2a 20 00 1e 01 82 00 2c 00 50 2a 20 20 20   ┆DE24   0   P*    L   PDEA218   V   P B DEA21   d   P EJECT   t   P*      , P*   ┆
0x306c…30bc (31, 0, 398) 20 20 20 20 43 48 45 43 4b 20 49 46 20 49 4e 50 55 54 20 49 53 20 59 28 45 53 29 20 4f 52 20 4e 28 4f 29 20 00 1e 01 8c 00 06 00 50 2a 20 00 1f 00 2c 00 0e 00 50 44 45 59 4e 5c 50 52 4f 43 20 00 1f 00 36 00 28 00 50 5c 4d 4f 56 45 5c 53 54   ┆    CHECK IF INPUT IS Y(ES) OR N(O)        P*    ,   PDEYN PROC    6 ( P MOVE ST┆
0x30bc…310c              52 31 41 2c 44 45 49 4e 50 55 54 5c 4c 4f 41 44 20 49 4e 50 55 54 20 56 41 4c 55 45 00 1f 00 48 00 22 00 50 5c 43 42 45 5c 53 54 52 31 41 2c 3d 27 4e 27 2c 44 45 59 4e 4f 4b 5c 4e 28 4f 29 20 4f 4b 00 1f 00 74 00 24 00 50 5c 43 42 45 5c 53   ┆R1A,DEINPUT LOAD INPUT VALUE   H " P CBE STR1A,='N',DEYNOK N(O) OK   t $ P CBE S┆
0x310c…315c              54 52 31 41 2c 3d 27 59 27 2c 44 45 59 4e 4f 4b 5c 59 28 45 53 29 20 4f 4b 20 00 1f 00 9a 00 14 00 50 5c 43 4d 50 5c 57 30 2c 57 31 5c 43 52 3a 23 30 00 1f 00 c2 00 0e 00 50 5c 42 5c 44 45 59 4e 52 54 20 00 1f 00 da 00 0a 00 50 44 45 59 4e   ┆TR1A,='Y',DEYNOK Y(ES) OK        P CMP W0,W1 CR:#0       P B DEYNRT        PDEYN┆
0x315c…31ac              4f 4b 00 1f 00 ec 00 14 00 50 5c 43 4d 50 5c 57 30 2c 57 30 5c 43 52 3a 3d 30 00 1f 00 fa 00 0a 00 50 44 45 59 4e 52 54 00 1f 01 12 00 08 00 50 5c 52 45 54 00 1f 01 20 00 0a 00 50 5c 50 45 4e 44 20 00 1f 01 2c 00 0a 00 06 5c 45 4a 45 43 54   ┆OK       P CMP W0,W0 CR:=0       PDEYNRT       P RET       P PEND    ,     EJECT┆
0x31ac…31fa              00 1f 01 3a 00 06 00 03 2a 20 00 1f 01 48 00 14 00 10 2a 20 20 20 20 20 20 20 20 46 4f 52 4d 41 54 53 00 1f 01 52 00 06 00 03 2a 20 00 1f 01 6a 00 0e 00 50 46 32 30 53 54 5c 46 52 4d 54 00 1f 01 74 00 08 00 04 5c 46 53 4c 00 1f 01 86         ┆   :    *    H    *        FORMATS   R    *    j   PF20ST FRMT   t     FSL    ┆
0x31fa…324a (32, 0, 400) 00 10 00 50 20 46 54 45 58 54 20 27 32 30 20 27 00 20 00 04 00 16 00 50 20 46 43 4f 50 59 20 3d 43 27 46 4f 52 4d 41 54 27 20 00 20 00 18 00 10 00 50 20 46 49 4c 4c 52 20 27 2d 27 2c 31 00 20 00 32 00 1a 00 50 5c 46 43 4f 50 59 5c 3d 43 27   ┆   P FTEXT '20 '       P FCOPY =C'FORMAT'        P FILLR '-',1   2   P FCOPY =C'┆
0x324a…329a              44 45 46 49 4e 49 54 49 4f 4e 27 20 00 20 00 46 00 08 00 04 5c 46 4e 4c 00 20 00 64 00 18 00 50 5c 46 43 4f 50 59 5c 3d 43 27 50 52 4f 47 52 41 4d 3a 27 20 00 20 00 70 00 28 00 50 20 46 4b 49 20 39 2c 4d 49 4e 4c 3d 32 2c 4d 41 58 4c 3d 32   ┆DEFINITION'    F     FNL   d   P FCOPY =C'PROGRAM:'    p ( P FKI 9,MINL=2,MAXL=2┆
0x329a…32ea              2c 4d 45 2c 4e 45 4f 49 2c 41 50 50 4c 3d 31 20 00 20 00 8c 00 14 00 50 20 46 4d 45 4c 20 27 58 58 27 2c 50 52 4e 55 4d 00 20 00 b8 00 16 00 50 5c 46 42 46 5c 42 4f 4f 4c 31 2c 46 32 30 4f 55 54 20 00 20 00 d0 00 08 00 50 20 46 4e 4c 00 20   ┆,ME,NEOI,APPL=1        P FMEL 'XX',PRNUM       P FBF BOOL1,F20OUT        P FNL  ┆
0x32ea…333a              00 ea 00 10 00 50 20 46 54 45 58 54 20 27 32 31 20 27 00 20 00 f6 00 14 00 50 20 46 43 4f 50 59 20 3d 43 27 55 53 45 52 27 20 00 20 01 0a 00 10 00 50 20 46 49 4c 4c 52 20 27 2d 27 2c 31 00 20 01 22 00 16 00 50 20 46 43 4f 50 59 20 3d 43 27   ┆     P FTEXT '21 '       P FCOPY =C'USER'        P FILLR '-',1   "   P FCOPY =C'┆
0x333a…338a              46 4f 52 4d 41 54 27 20 00 20 01 36 00 1a 00 50 5c 46 43 4f 50 59 5c 3d 43 27 44 45 46 49 4e 49 54 49 4f 4e 27 20 00 20 01 50 00 08 00 04 5c 46 4e 4c 00 20 01 6e 00 10 00 50 20 46 54 45 58 54 20 27 32 32 20 27 00 20 01 7a 00 16 00 50 20 46   ┆FORMAT'    6   P FCOPY =C'DEFINITION'    P     FNL   n   P FTEXT '22 '   z   P F┆
0x338a…33da (33, 2, 324) 43 4f 50 59 20 3d 43 27 42 41 4c 41 4e 43 45 27 00 20 01 8e 00 10 00 50 20 46 49 4c 4c 52 20 27 2d 27 2c 31 00 21 00 18 00 16 00 50 20 46 43 4f 50 59 20 3d 43 27 46 4f 52 4d 41 54 27 20 00 21 00 2c 00 1a 00 50 5c 46 43 4f 50 59 5c 3d 43 27   ┆COPY =C'BALANCE'       P FILLR '-',1 !     P FCOPY =C'FORMAT'  ! ,   P FCOPY =C'┆
0x33da…342a              44 45 46 49 4e 49 54 49 4f 4e 27 20 00 21 00 46 00 08 00 50 20 46 4e 4c 00 21 00 64 00 10 00 50 20 46 54 45 58 54 20 27 32 33 20 27 00 21 00 70 00 12 00 50 20 46 43 4f 50 59 20 3d 43 27 47 45 54 27 00 21 00 84 00 10 00 50 20 46 49 4c 4c 52   ┆DEFINITION'  ! F   P FNL ! d   P FTEXT '23 ' ! p   P FCOPY =C'GET' !     P FILLR┆
0x342a…347a              20 27 20 27 2c 31 00 21 00 9a 00 16 00 50 20 46 43 4f 50 59 20 3d 43 27 46 4f 52 4d 41 54 27 20 00 21 00 ae 00 0a 00 50 5c 46 4e 4c 5c 20 00 21 00 c8 00 10 00 50 5c 46 54 45 58 54 5c 27 32 34 20 27 00 21 00 d6 00 12 00 50 5c 46 54 45 58 54   ┆ ' ',1 !     P FCOPY =C'FORMAT'  !     P FNL   !     P FTEXT '24 ' !     P FTEXT┆
0x347a…34ca              5c 27 43 4f 50 59 20 27 00 21 00 ea 00 14 00 50 5c 46 43 4f 50 59 5c 3d 27 46 4f 52 4d 41 54 27 00 21 01 00 00 0a 00 50 46 32 30 4f 55 54 00 21 01 18 00 0a 00 06 5c 46 4d 45 4e 44 00 21 01 26 00 08 00 04 5c 45 4e 44 00 21 01 34 40 04 00 00   ┆ 'COPY ' !     P FCOPY ='FORMAT' !     PF20OUT !       FMEND ! &     END ! 4@   ┆
0x34ca…34ce              00 21 01 40                                                                                                                                                                                                                                       ┆ ! @┆
0x34ce…34d6 (34, 1, 8)   20 04 00 00 00 22 00 04                                                                                                                                                                                                                           ┆     "  ┆
0x34d6…3526 (35, 0, 400) 1b ea 1e 62 1c ae 1c 66 1c 96 1c 30 20 5c 1d 6e 1d 90 20 e6 20 e6 1e 32 21 58 21 36 20 82 20 88 20 8e 20 94 1c e4 1e a0 20 04 1f 96 1e a6 1e ac 1e b2 20 ae 1e 6c 1f b0 21 18 1d 54 20 d4 1c 76 1c fc 1e f6 1f 5e 1f 58 1c 0c 81 40 00 1e 54 06   ┆   b   f   0   n       2!X!6                         l  !  T   v     ^ X   @  T ┆
0x3526…3576              f6 a1 13 ba 57 0c 81 20 81 04 02 00 03 00 f6 a1 18 44 14 04 01 02 f6 a1 08 fa 14 04 01 00 f6 a1 08 fa 14 04 01 01 f6 a1 08 fa 8f 20 19 82 84 56 00 50 87 20 8f 40 f6 a1 11 88 8f 20 19 82 f6 a1 08 b2 80 a0 07 26 81 40 00 1e 54 0c 87 20 81 20   ┆    W            D                             V P   @               & @  T     ┆
0x3576…35c6              f6 a1 11 88 80 a0 07 32 f6 a1 14 e8 57 b0 1c 04 87 20 81 20 f6 a1 11 88 14 04 87 20 81 41 f6 a1 11 88 8f 20 19 82 f6 a1 13 ba 1c 04 80 a0 07 3c 87 50 00 02 87 43 00 0e 81 56 00 30 11 10 81 43 00 1a f6 a1 14 e8 81 90 84 56 00 50 07 00 f6 a1   ┆       2    W                A                 < P   C   V 0   C         V P    ┆
0x35c6…3616              11 88 14 04 ec 06 5c 0c 8f 20 19 82 f6 a1 08 b2 81 40 00 1e 54 04 f6 a1 13 be 80 a0 07 58 f6 a1 14 e8 57 4e f6 a1 08 b0 81 40 00 1e 50 0e e9 10 50 1c 80 a0 07 7e f6 a1 14 e8 57 0c f6 a1 1d 34 80 a0 07 74 f6 a1 14 e8 f6 a1 13 be 57 24 f6 a1   ┆                 @  T        X    WN     @  P   P    ~    W    4   t        W$  ┆
0x3616…3666              1d 34 80 a0 07 64 f6 a1 14 e8 57 16 14 04 87 20 87 20 f6 a1 11 88 1c 04 f0 3a 02 01 57 06 02 03 57 02 02 06 f6 a1 18 24 8f 20 19 94 f6 a1 08 b2 81 40 00 1e 54 04 f6 a1 ff ff ff ff f2 40 88 8a 0a a8 54 10 a9 00 20 85 4a 94 29 54 a8 20 15 43   ┆ 4   d    W              :  W   W      $         @  T        @    T     J )T   C┆
0x3666…36b6 (36, 0, 400) 13 be 80 a0 07 8a f6 a1 14 e8 02 04 5f 22 ba b3 81 20 00 0c 86 56 00 7e f6 d7 00 06 81 56 00 30 11 08 81 39 01 01 81 41 00 7e ba b2 8f 20 20 82 b9 a0 01 01 00 00 00 00 87 50 00 00 1f 06 50 18 f6 a1 13 ba b9 a0 8a 20 00 00 00 00 f6 a1 18 44   ┆            _"       V ~     V 0   9   A ~               P    P                D┆
0x36b6…3706              b9 a0 00 00 00 0c 00 00 f6 a1 18 44 1c 04 87 20 91 40 f6 a1 11 88 b9 a0 8b 20 00 00 00 00 f6 a1 18 44 01 00 02 0c f6 a1 18 44 87 20 81 41 f6 a1 11 88 1c 04 87 20 e9 40 f6 a1 11 88 81 20 00 0c 02 02 bc b3 f6 d7 00 10 bc b2 87 56 00 54 97 56   ┆           D     @               D       D   A         @                   V T V┆
0x3706…3756              00 7e 80 bc 87 56 00 30 17 02 9f 02 b9 a0 5d 00 00 00 00 00 a9 1c ef 20 01 00 52 0e 81 20 8d 20 f6 a1 18 44 81 02 02 00 03 01 f6 a1 18 44 8f 20 19 82 80 90 87 10 98 a0 00 04 ba 22 b9 3d 81 0c 82 10 b9 23 84 1c ec 40 00 1e 54 0a 80 c1 00 1e   ┆ ~   V 0      ]           R        D         D             " =     #   @  T     ┆
0x3756…37a6              14 04 8f 20 19 94 e8 c0 00 1e 5c 0c 84 41 00 1e 5f 12 01 07 f6 a1 08 fa 8f 20 19 82 f6 a1 08 b2 81 40 00 1e 54 06 f6 a1 13 ba 57 0c b9 a0 81 04 00 00 00 00 f6 a1 18 44 b9 a0 56 08 00 00 00 00 f6 a1 18 44 80 a0 08 0e f6 a1 14 e8 8f 20 1d 42   ┆             A  _                @  T     W            D  V        D           B┆
0x37a6…37f6              80 a0 91 40 57 10 80 a0 a1 40 57 0a 80 a0 a9 40 57 04 80 a0 b1 40 f6 a1 08 b0 83 90 81 c0 00 1e 54 2e f6 a1 13 ba 14 04 87 02 f6 a1 11 88 84 0e ef 20 91 40 8c 20 1d 42 a8 00 09 00 41 04 20 88 84 00 00 00 42 80 09 29 15 48 10 55 00 09 22 18   ┆   @W    @W    @W    @          T.                 @   B    A       B  ) H U  " ┆

Reduced view