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

⟦64e49c079⟧

    Length: 10928 (0x2ab0)
    Notes: pts_type(SC)
    Names: »DE31ST.SC«

Derivation

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

PTS(SC)

	IDENT	DE31ST	REL 10.0 80-04-11 
			79-10-19/DALI
*************************** 
* 31 CREATE JOB DEFINITION
* 32 GET JOB    DEFINITION
*************************** 
**************************
* FORTAB 1 - 21          *
* 1-9    FORMAT   NAMES  *
* 10     JOBNAME         *
* 11-19  SYMBOLIC NAMES  *
* 20     BATCHHEAD       *
* 21     BALANCE         *
* SYMREC 1 - 12          *
* 1-9 REC.NR FORMAT 1-9  *
* 10  REC.NR BATCHHEAD   *
* 11  REC.NR BALANCE     *
* 12  MAXL. SYMB.NAMES   *
**************************
************************************************* 
* BOOL1 : T=GET JOB       , F=CREATE JOB        * 
* BOOL2 : T=2 LINES       , F=ENTIRE FORMAT     * 
************************************************* 
	DDUM	DEDDIV
	PDIV 
	ENTRY	DE31ST 
	ENTRY	DEAP3A 
	EXT	DECLRA 
	EXT	DECLRN 
	EXT	DERROR 
	EXT	DERR 
	EXT	DEDISC 
	EXT	ATTWB
	EXT	EMPTYT 
	EXT	DEAOK0 
 EXT DEANOK 
 EXT TESTB
	EXT	DEPOOL 
 INCLUDE DELITT 
	EJECT
DE31ST	PROC 
	ATTFMT	F31 
	SET	BOOL1
	CBE	PRNUM,=D'32',A10 
	CLEAR	BOOL1
A10 
	SET	DEPROMPT 
	CLEAR	DECHANGE 
	SET	BOOL2	2 LINES ON DISPLAY 
	PERF	DECLRA
A20 
	IB	DEBINW2,CANC,CANC,ENTER,FORW,BACKW
A30 
	B	ERR0 
A40 
	MOVE	DEBINW2,W2	RET-KEY
CANC
	PERF	DEPOOL,W6,PJOBCUR,BIN7,STRG10A	RELEASE BUFFER 
A50 
	IB	DEBINW2,A10,RETUR,A10 
RETUR	RET 
	PEND 
	EJECT
FORW
	MOVE	BIN1,=W'29'	GET NEXT,REL.PREV.BUFF
	B	B20
BACKW 
	MOVE	BIN1,=W'30'	GET PREV. REL.PREV.BUFF 
B20 
	TBF	BOOL1,A30	IF CREATE JOB
	PERF	DEDISC,BIN1 
	BOK	B50
B30 
	SET	DENOCHAN 
	TBF	BOOL2,B35	IF COMPLETE PICTURE
	CLEAR	DENOCHAN 
B35 
	PERF	DERR
	B	B70
B50 
	CALL	ATTWB,BPOOL(PJOBCUR),W0,W12 
	SET DEPROMPT 
B60 
	SET	DENOCHAN	NO CHANGES POSSIBLE 
	CLEAR	BOOL2	ENTIRE FORMAT
	PERF	DECLRN
B70 
	IB	DEBINW2,CANC,CANC,B80,FORW,BACKW,CORR,CORR
B80 
	MOVE	DEBINW4,W0
	B	B30
	EJECT
CORR
DEL 
	PERF	DEPOOL,W8,PJOBCUR,BIN7,STRG10A	LOCK BUFFER
	BNOK	DEL200
	CMP	DEBINW2,W6 
	BE	C70	IF CORRECTION 
* 
*  DELETION 
* 
DEL100
	MOVE	DEBINW4,W17	'PRESS ENT FOR DELETION'
	PERF	DERROR,DEKTAB7
	IB	DEBINW2,		C 
		B60,	1 CLR-KEY	C
		B60,	2 CAN	C
		A40	3 RET	C 
		DEL100	4 CFW	C
		DEL150	5 ENT	C
		DEL100	6 EOI
*  ENTER-KEY
DEL150
	MOVE	DEBINW2,W3
	PERF	DEDISC,W5	DELETE JOB
	BOK	CANC 
DEL200
	SET	DENOCHAN	NO CHANGES POSSIBLE 
	PERF	DERR
	B	B70
	EJECT
**************
*  CREATE JOB 
**************
C20 
	MOVE	PJOBCUR,W1	1 BUFFER 
	MOVE	BIN7,W0	NO CONSECUTIVE BUFFERS
	MOVE	STRG10A,MODTAB(W3)	='J' 
	COPY	STRG10A,W1,W6,DEINPUT,W0	JOBNAME
	PERF	DEPOOL,W2,PJOBCUR,BIN7,STRG10A	GET BUFFER WITH LOCK 
	BNOK	ERR99 
	PERF	DEPOOL,W4,PJOBCUR,BIN7,STRG10A	SET BUFFER 
	MOVE	BPOOL(PJOBCUR),HEX00
	CALL	ATTWB,BPOOL(PJOBCUR),W0,W12 
	CLEAR	BOOL2	ENTIRE FORMAT
	ERASE	3,W2,W0	CLEAR DATA-ITEMS 
	MOVE	FORTAB(W10),JOBNAME 
	DISPLAY	4,W2,W0
C70 
**************
*  CORR. JOB
**************
	PERF	DECLRN
	B	A20
	EJECT
ENTER 
	TBF	BOOL2,ENTER2	IF ENTIRE FORMAT
	MOVE	DEINPUT,JOBNAME 
	CALL	EMPTYT,JOBNAME
	BNZ	ERR5	JOBNAME EMPTY 
	TBT	BOOL1,D10	MODUL 32 
**************************
*  MODUL 31 - CREATE JOB
**************************
	PERF	DEDISC,W4	SEARCH JOB
	BOK	ERR8	'ALREADY EXISTS'
	CBE	DEBINW4,W9,C20	NOT FOUND 
	B	ERR99
**************************
*  MODUL 32 - GET JOB 
**************************
D10 
	PERF	DEDISC,W2	GET JOBDEF. 
	BNOK	D20 
	MOVE	JOBNAME,DEINPUT 
	B	B50
D20 
	MOVE	JOBNAME,=X'00'
	B	ERR99
	EJECT
*************************** 
*  CHECK FORMAT-SYMBOLIC: 
*************************** 
ENTER2
	MOVE	BIN2,W0 
EA
 CLEAR BOOL3
 ADD BIN2,W1
	CBG	BIN2,W9,EB 
	CALL	EMPTYT,FORTAB(BIN2)	FORMAT
	BNZ	E005	EMPTY 
 SET BOOL3
 B EA 
E005
	MOVE	BIN3,BIN2 
	ADD	BIN3,W10 
	CALL	EMPTYT,FORTAB(BIN3)	SYMBOLIC NAME 
 BNZ EA EMPTY 
 CLEAR BOOL3
 BNZ EA JOB NOT EMPTY 
*  GET INPUT FIELD NO.
	MOVE	BIN3,BIN2 
	MUL	BIN3,W2
	ADD	BIN3,W1
EERR	GETFLD	0,BIN3,BIN4 
	B	ERR5 
****************
*  PACK TABLES
****************
EB	MOVE	BIN2,W0 
E1	ADD	BIN2,W1
	CBG	BIN2,W8,E3 
	CALL	EMPTYT,FORTAB(BIN2) 
	BZ	E1	NOT EMPTY
	MOVE	BIN3,BIN2 
E11	ADD	BIN3,W1 
	CBG	BIN3,W9,E3	READY 
	CALL	EMPTYT,FORTAB(BIN3) 
	BNZ	E11	EMPTY
	MOVE	FORTAB(BIN2),FORTAB(BIN3) 
	MOVE	BIN4,BIN2 
	ADD	BIN4,W10 
	MOVE	BIN5,BIN3 
	ADD	BIN5,W10 
	MOVE	FORTAB(BIN4),FORTAB(BIN5) 
	MOVE	FORTAB(BIN3),=X'00' 
	MOVE	FORTAB(BIN5),=X'00' 
	B	E1 
E3	CALL	EMPTYT,FORTAB(W1) 
********************************* 
*  FIRST FORMAT MUST BE PRESENT 
********************************* 
	BZ	E4	NOT EMPTY
	MOVE	BIN3,W3	FIRST FORMAT FIELD
	B	EERR 
	EJECT
*  MAX.LENGTH OF SYMBOLIC NAMES IN SYMREC(W12)
E4	MOVE	BIN2,W10
	MOVE	SYMREC(W12),W0	MAXL.OF SYMBOLIC NAMES 
E41	ADD	BIN2,W1 
	CBG	BIN2,W19,E5	READY
	MOVE	BIN3,W0 
	MATCH	FORTAB(BIN2),BIN3,W6,HEX00,W0,W1 
	BNZ	E42	NO MATCH = 6 CHAR. 
	CBNG	BIN3,SYMREC(W12),E41
	MOVE	SYMREC(W12),BIN3
	B	E41
E42	MOVE	SYMREC(W12),W6	MAXL.=6 CHAR. 
E5
	PERF	DEDISC,W1	ENTER JOB 
	BOK	CANC 
	B	ERR99
	EJECT
* 
*        APPL VALUE HANDLING ROUTINE
* 
DEAP3A
 IB DEBINW3,APP101,APP102,APP102
APP101
	MOVE	DEBINW2,W17	IND.ENTER 
	B	DEAOK0 
APP102
 MOVE BIN3,W0 
 MOVE STR1A,=C'*' 
 MATCH DEINPUT,BIN3,W1,STR1A,W0,W1
 BOK APP1020
 CALL TESTB,DEBINW3,W15 
 BZ DEAOK0 BATCHEAD 
 B DAER32 BALANCE 
APP1020 
 CALL TESTB,DEBINW3,W15 
 BNZ DEAOK0 BALANCE 
DAER32
 MOVE DEBINW4,W32 
 B DEANOK 
* 
* 
ERR0
	MOVE	DEBINW4,W0	'BELL' 
	B	ERR99
ERR5
	MOVE	DEBINW4,W5	'COMP.FIELD NOT FILLED'
	B	ERR99
ERR8
	MOVE	DEBINW4,W8	'ALREADY DEFINED'
ERR99 
	MOVE	DEBINW1,W0
	PERF	DERR
	B	A20
	EJECT
F31	FRMT
	FSL
	FMEL	'99',PRNUM
	FBT	BOOL1,F32
	FCOPY	=C' CREATE'
	FB	F31A
F32	FCOPY	=C' GET'
F31A	FCOPY	=C' JOB-DEFINITION'
	FNL
	FCOPY	=C'JOBNAME:' 
	FBT	BOOL2,F31B 
	FINP	11	ENTIRE FORMAT
	FCOPY	JOBNAME
	FB	F31C
F31B			2 LINES
	FKI	11,MINL=1,MAXL=6,ALPHA,ME,NEOI,APPL=101
	FCOPY	JOBNAME
	FB	F31UT 
F31C
	FLINK	F311 
F31UT	FMEND 
* 
F311	FRMT 
	FNL
	FCOPY	=C'BATCHHEAD:' 
	FKI	12,MINL=1,MAXL=6,ALPHA,NEOI,ME,APPL=102
	FCOPY	FORTAB(W20)	BATCHHEAD
	FTAB	29
	FCOPY	=C'BALANCE:' 
	FKI	38,MINL=1,MAXL=6,ALPHA,NEOI,ME,APPL=103
	FCOPY	FORTAB(W21)	BALANCE
	FNL
	FCOPY	=C'FORMAT' 
	FILLR	' ',1
	FCOPY	=C'1:' 
	FKI	11,MINL=1,MAXL=6,NEOI,ALPHA,APPL=102 
	FCOPY	FORTAB(W1) 
	FTAB	28
	FCOPY	=C'SYMBOLIC:'
	FKI	38,MINL=1,MAXL=6,NEOI,ALPHA
	FCOPY	FORTAB(W11)
	FNL
	FCOPY	=C'FORMAT' 
	FILLR	' ',1
	FCOPY	=C'2:' 
	FKI	11,MINL=1,MAXL=6,NEOI,ALPHA,APPL=102 
	FCOPY	FORTAB(W2) 
	FTAB	28
	FCOPY	=C'SYMBOLIC:'
	FKI	38,MINL=1,MAXL=6,NEOI,ALPHA
	FCOPY	FORTAB(W12)
	FNL
	FCOPY	=C'FORMAT' 
	FILLR	' ',1
	FCOPY	=C'3:' 
	FKI	11,MINL=1,MAXL=6,NEOI,ALPHA,APPL=102 
	FCOPY	FORTAB(W3) 
	FTAB	28
	FCOPY	=C'SYMBOLIC:'
	FKI	38,MINL=1,MAXL=6,NEOI,ALPHA
	FCOPY	FORTAB(W13)
	FNL
	FCOPY	=C'FORMAT' 
	FILLR	' ',1
	FCOPY	=C'4:' 
	FKI	11,MINL=1,MAXL=6,NEOI,ALPHA,APPL=102 
	FCOPY	FORTAB(W4) 
	FTAB	28
	FCOPY	=C'SYMBOLIC:'
	FKI	38,MINL=1,MAXL=6,NEOI,ALPHA
	FCOPY	FORTAB(W14)
	FNL
	FCOPY	=C'FORMAT' 
	FILLR	' ',1
	FCOPY	=C'5:' 
	FKI	11,MINL=1,MAXL=6,NEOI,ALPHA,APPL=102 
	FCOPY	FORTAB(W5) 
	FTAB	28
	FCOPY	=C'SYMBOLIC:'
	FKI	38,MINL=1,MAXL=6,NEOI,ALPHA
	FCOPY	FORTAB(W15)
	FNL
	FCOPY	=C'FORMAT' 
	FILLR	' ',1
	FCOPY	=C'6:' 
	FKI	11,MINL=1,MAXL=6,NEOI,ALPHA,APPL=102 
	FCOPY	FORTAB(W6) 
	FTAB	28
	FCOPY	=C'SYMBOLIC:'
	FKI	38,MINL=1,MAXL=6,NEOI,ALPHA
	FCOPY	FORTAB(W16)
	FNL
	FCOPY	=C'FORMAT' 
	FILLR	' ',1
	FCOPY	=C'7:' 
	FKI	11,MINL=1,MAXL=6,NEOI,ALPHA,APPL=102 
	FCOPY	FORTAB(W7) 
	FTAB	28
	FCOPY	=C'SYMBOLIC:'
	FKI	38,MINL=1,MAXL=6,NEOI,ALPHA
	FCOPY	FORTAB(W17)
	FNL
	FCOPY	=C'FORMAT' 
	FILLR	' ',1
	FCOPY	=C'8:' 
	FKI	11,MINL=1,MAXL=6,NEOI,ALPHA,APPL=102 
	FCOPY	FORTAB(W8) 
	FTAB	28
	FCOPY	=C'SYMBOLIC:'
	FKI	38,MINL=1,MAXL=6,NEOI,ALPHA
	FCOPY	FORTAB(W18)
	FNL
	FCOPY	=C'FORMAT' 
	FILLR	' ',1
	FCOPY	=C'9:' 
	FKI	11,MINL=1,MAXL=6,NEOI,ALPHA,APPL=102 
	FCOPY	FORTAB(W9) 
	FTAB	28
	FCOPY	=C'SYMBOLIC:'
	FKI	38,MINL=1,MAXL=6,NEOI,ALPHA
	FCOPY	FORTAB(W19)
	FNL
	FKI	1,MINL=0,MAXL=0
	FCOPY	HEX00
	FMEND
	END

HexDump

0x0000…0028 (0, 0, 400)  Head {h00=0x0024, h01=0x0050, text=» IDENT DE31ST REL 10.0 80-04-11 «, t00=0x0000, t01=0x0004}
0x0028…0040              Head {h00=0x0014, h01=0x0050, text=»   79-10-19/DALI«, t00=0x0000, t01=0x002c}
0x0040…0064              Head {h00=0x0020, h01=0x0050, text=»*************************** «, t00=0x0000, t01=0x0044}
0x0064…0086              Head {h00=0x001e, h01=0x0050, text=»* 31 CREATE JOB DEFINITION«, t00=0x0000, t01=0x0068}
0x0086…00a8              Head {h00=0x001e, h01=0x0050, text=»* 32 GET JOB    DEFINITION«, t00=0x0000, t01=0x008a}
0x00a8…00cc              Head {h00=0x0020, h01=0x0050, text=»*************************** «, t00=0x0000, t01=0x00ac}
0x00cc…00ee              Head {h00=0x001e, h01=0x0050, text=»**************************«, t00=0x0000, t01=0x00d0}
0x00ee…0110              Head {h00=0x001e, h01=0x0050, text=»* FORTAB 1 - 21          *«, t00=0x0000, t01=0x00f2}
0x0110…0132              Head {h00=0x001e, h01=0x0050, text=»* 1-9    FORMAT   NAMES  *«, t00=0x0000, t01=0x0114}
0x0132…0154              Head {h00=0x001e, h01=0x0050, text=»* 10     JOBNAME         *«, t00=0x0000, t01=0x0136}
0x0154…0176              Head {h00=0x001e, h01=0x0050, text=»* 11-19  SYMBOLIC NAMES  *«, t00=0x0000, t01=0x0158}
0x0176…0198              Head {h00=0x001e, h01=0x0050, text=»* 20     BATCHHEAD       *«, t00=0x0000, t01=0x017a}
0x0198…01ba              Head {h00=0x001e, h01=0x0050, text=»* 21     BALANCE         *«, t00=0x0001, t01=0x000c}
0x01ba…01dc              Head {h00=0x001e, h01=0x0050, text=»* SYMREC 1 - 12          *«, t00=0x0001, t01=0x002e}
0x01dc…01fe              Head {h00=0x001e, h01=0x0050, text=»* 1-9 REC.NR FORMAT 1-9  *«, t00=0x0001, t01=0x0050}
0x01fe…0220              Head {h00=0x001e, h01=0x0050, text=»* 10  REC.NR BATCHHEAD   *«, t00=0x0001, t01=0x0072}
0x0220…0242              Head {h00=0x001e, h01=0x0050, text=»* 11  REC.NR BALANCE     *«, t00=0x0001, t01=0x0094}
0x0242…0264              Head {h00=0x001e, h01=0x0050, text=»* 12  MAXL. SYMB.NAMES   *«, t00=0x0001, t01=0x00b6}
0x0264…0286              Head {h00=0x001e, h01=0x0050, text=»**************************«, t00=0x0001, t01=0x00d8}
0x0286…02c0              Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x0001, t01=0x00fa}
0x02c0…02fa              Head {h00=0x0036, h01=0x0050, text=»* BOOL1 : T=GET JOB       , F=CREATE JOB        * «, t00=0x0001, t01=0x0134}
0x02fa…0334              Head {h00=0x0036, h01=0x0050, text=»* BOOL2 : T=2 LINES       , F=ENTIRE FORMAT     * «, t00=0x0001, t01=0x016e}
0x0334…036e              Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x0002, t01=0x0018}
0x036e…0382              Head {h00=0x0010, h01=0x000c, text=» DDUM DEDDIV«, t00=0x0002, t01=0x0052}
0x0382…0390              Head {h00=0x000a, h01=0x0005, text=» PDIV «, t00=0x0002, t01=0x0066}
0x0390…03a6              Head {h00=0x0012, h01=0x0050, text=» ENTRY DE31ST «, t00=0x0002, t01=0x0074}
0x03a6…03bc              Head {h00=0x0012, h01=0x0050, text=» ENTRY DEAP3A «, t00=0x0002, t01=0x008a}
0x03bc…03d0              Head {h00=0x0010, h01=0x0050, text=» EXT DECLRA «, t00=0x0002, t01=0x00a0}
0x03d0…03e4              Head {h00=0x0010, h01=0x0050, text=» EXT DECLRN «, t00=0x0002, t01=0x00b4}
0x03e4…03f8              Head {h00=0x0010, h01=0x0050, text=» EXT DERROR «, t00=0x0002, t01=0x00c8}
0x03f8…040a              Head {h00=0x000e, h01=0x0050, text=» EXT DERR «, t00=0x0002, t01=0x00dc}
0x040a…041e              Head {h00=0x0010, h01=0x0050, text=» EXT DEDISC «, t00=0x0002, t01=0x00ee}
0x041e…0430              Head {h00=0x000e, h01=0x0050, text=» EXT ATTWB«, t00=0x0002, t01=0x0102}
0x0430…0444              Head {h00=0x0010, h01=0x0050, text=» EXT EMPTYT «, t00=0x0002, t01=0x0114}
0x0444…0458              Head {h00=0x0010, h01=0x0050, text=» EXT DEAOK0 «, t00=0x0002, t01=0x0128}
0x0458…046c              Head {h00=0x0010, h01=0x0050, text=» EXT DEANOK «, t00=0x0002, t01=0x013c}
0x046c…047e              Head {h00=0x000e, h01=0x0050, text=» EXT TESTB«, t00=0x0002, t01=0x0150}
0x047e…0492              Head {h00=0x0010, h01=0x0050, text=» EXT DEPOOL «, t00=0x0002, t01=0x0162}
0x0492…04aa              Head {h00=0x0014, h01=0x0050, text=» INCLUDE DELITT «, t00=0x0002, t01=0x0176}
0x04aa…04b8              Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0002, t01=0x018e}
0x04b8…04cc              Head {h00=0x0010, h01=0x0050, text=»DE31ST PROC «, t00=0x0003, t01=0x000c}
0x04cc…04e0              Head {h00=0x0010, h01=0x0050, text=» ATTFMT F31 «, t00=0x0003, t01=0x0020}
0x04e0…04f2              Head {h00=0x000e, h01=0x0050, text=» SET BOOL1«, t00=0x0003, t01=0x0034}
0x04f2…0510              Head {h00=0x001a, h01=0x0050, text=» CBE PRNUM,=D'32',A10 «, t00=0x0003, t01=0x0046}
0x0510…0524              Head {h00=0x0010, h01=0x0050, text=» CLEAR BOOL1«, t00=0x0003, t01=0x0064}
0x0524…0530              Head {h00=0x0008, h01=0x0050, text=»A10 «, t00=0x0003, t01=0x0078}
0x0530…0546              Head {h00=0x0012, h01=0x0050, text=» SET DEPROMPT «, t00=0x0003, t01=0x0084}
0x0546…055e              Head {h00=0x0014, h01=0x0050, text=» CLEAR DECHANGE «, t00=0x0003, t01=0x009a}
0x055e…0584              Head {h00=0x0022, h01=0x0050, text=» SET BOOL2 2 LINES ON DISPLAY «, t00=0x0003, t01=0x00b2}
0x0584…0598              Head {h00=0x0010, h01=0x0050, text=» PERF DECLRA«, t00=0x0003, t01=0x00d8}
0x0598…05a4              Head {h00=0x0008, h01=0x0050, text=»A20 «, t00=0x0003, t01=0x00ec}
0x05a4…05d2              Head {h00=0x002a, h01=0x0050, text=» IB DEBINW2,CANC,CANC,ENTER,FORW,BACKW«, t00=0x0003, t01=0x00f8}
0x05d2…05de              Head {h00=0x0008, h01=0x0050, text=»A30 «, t00=0x0003, t01=0x0126}
0x05de…05ee              Head {h00=0x000c, h01=0x0050, text=» B ERR0 «, t00=0x0003, t01=0x0132}
0x05ee…05fa              Head {h00=0x0008, h01=0x0050, text=»A40 «, t00=0x0003, t01=0x0142}
0x05fa…061a              Head {h00=0x001c, h01=0x0050, text=» MOVE DEBINW2,W2 RET-KEY«, t00=0x0003, t01=0x014e}
0x061a…0626              Head {h00=0x0008, h01=0x0050, text=»CANC«, t00=0x0003, t01=0x016e}
0x0626…0662              Head {h00=0x0038, h01=0x0050, text=» PERF DEPOOL,W6,PJOBCUR,BIN7,STRG10A RELEASE BUFFER «, t00=0x0003, t01=0x017a}
0x0662…066e              Head {h00=0x0008, h01=0x0050, text=»A50 «, t00=0x0004, t01=0x0026}
0x066e…0690              Head {h00=0x001e, h01=0x0050, text=» IB DEBINW2,A10,RETUR,A10 «, t00=0x0004, t01=0x0032}
0x0690…06a2              Head {h00=0x000e, h01=0x0050, text=»RETUR RET «, t00=0x0004, t01=0x0054}
0x06a2…06b0              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0004, t01=0x0066}
0x06b0…06be              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x0074}
0x06be…06ca              Head {h00=0x0008, h01=0x0050, text=»FORW«, t00=0x0004, t01=0x0082}
0x06ca…06fa              Head {h00=0x002c, h01=0x0050, text=» MOVE BIN1,=W'29' GET NEXT,REL.PREV.BUFF«, t00=0x0004, t01=0x008e}
0x06fa…0708              Head {h00=0x000a, h01=0x0050, text=» B B20«, t00=0x0004, t01=0x00be}
0x0708…0716              Head {h00=0x000a, h01=0x0050, text=»BACKW «, t00=0x0004, t01=0x00cc}
0x0716…0748              Head {h00=0x002e, h01=0x0050, text=» MOVE BIN1,=W'30' GET PREV. REL.PREV.BUFF «, t00=0x0004, t01=0x00da}
0x0748…0754              Head {h00=0x0008, h01=0x0050, text=»B20 «, t00=0x0004, t01=0x010c}
0x0754…0778              Head {h00=0x0020, h01=0x0050, text=» TBF BOOL1,A30 IF CREATE JOB«, t00=0x0004, t01=0x0118}
0x0778…0792              Head {h00=0x0016, h01=0x0050, text=» PERF DEDISC,BIN1 «, t00=0x0004, t01=0x013c}
0x0792…07a2              Head {h00=0x000c, h01=0x0050, text=» BOK B50«, t00=0x0004, t01=0x0156}
0x07a2…07ae              Head {h00=0x0008, h01=0x0050, text=»B30 «, t00=0x0004, t01=0x0166}
0x07ae…07c4              Head {h00=0x0012, h01=0x0050, text=» SET DENOCHAN «, t00=0x0004, t01=0x0172}
0x07c4…07ee              Head {h00=0x0026, h01=0x0050, text=» TBF BOOL2,B35 IF COMPLETE PICTURE«, t00=0x0004, t01=0x0188}
0x07ee…0806              Head {h00=0x0014, h01=0x0050, text=» CLEAR DENOCHAN «, t00=0x0005, t01=0x0022}
0x0806…0812              Head {h00=0x0008, h01=0x0050, text=»B35 «, t00=0x0005, t01=0x003a}
0x0812…0824              Head {h00=0x000e, h01=0x0050, text=» PERF DERR«, t00=0x0005, t01=0x0046}
0x0824…0832              Head {h00=0x000a, h01=0x0050, text=» B B70«, t00=0x0005, t01=0x0058}
0x0832…083e              Head {h00=0x0008, h01=0x0050, text=»B50 «, t00=0x0005, t01=0x0066}
0x083e…0868              Head {h00=0x0026, h01=0x0050, text=» CALL ATTWB,BPOOL(PJOBCUR),W0,W12 «, t00=0x0005, t01=0x0072}
0x0868…087e              Head {h00=0x0012, h01=0x0050, text=» SET DEPROMPT «, t00=0x0005, t01=0x009c}
0x087e…088a              Head {h00=0x0008, h01=0x0050, text=»B60 «, t00=0x0005, t01=0x00b2}
0x088a…08b4              Head {h00=0x0026, h01=0x0050, text=» SET DENOCHAN NO CHANGES POSSIBLE «, t00=0x0005, t01=0x00be}
0x08b4…08d6              Head {h00=0x001e, h01=0x0050, text=» CLEAR BOOL2 ENTIRE FORMAT«, t00=0x0005, t01=0x00e8}
0x08d6…08ea              Head {h00=0x0010, h01=0x0050, text=» PERF DECLRN«, t00=0x0005, t01=0x010a}
0x08ea…08f6              Head {h00=0x0008, h01=0x0050, text=»B70 «, t00=0x0005, t01=0x011e}
0x08f6…092c              Head {h00=0x0032, h01=0x0050, text=» IB DEBINW2,CANC,CANC,B80,FORW,BACKW,CORR,CORR«, t00=0x0005, t01=0x012a}
0x092c…0938              Head {h00=0x0008, h01=0x0050, text=»B80 «, t00=0x0005, t01=0x0160}
0x0938…0950              Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW4,W0«, t00=0x0005, t01=0x016c}
0x0950…095e              Head {h00=0x000a, h01=0x0050, text=» B B30«, t00=0x0005, t01=0x0184}
0x095e…096c (6, 0, 400)  Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0006, t01=0x0004}
0x096c…0978              Head {h00=0x0008, h01=0x0050, text=»CORR«, t00=0x0006, t01=0x0012}
0x0978…0984              Head {h00=0x0008, h01=0x0050, text=»DEL «, t00=0x0006, t01=0x001e}
0x0984…09bc              Head {h00=0x0034, h01=0x0050, text=» PERF DEPOOL,W8,PJOBCUR,BIN7,STRG10A LOCK BUFFER«, t00=0x0006, t01=0x002a}
0x09bc…09d0              Head {h00=0x0010, h01=0x0050, text=» BNOK DEL200«, t00=0x0006, t01=0x0062}
0x09d0…09e8              Head {h00=0x0014, h01=0x0050, text=» CMP DEBINW2,W6 «, t00=0x0006, t01=0x0076}
0x09e8…0a06              Head {h00=0x001a, h01=0x0050, text=» BE C70 IF CORRECTION «, t00=0x0006, t01=0x008e}
0x0a06…0a10              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00ac}
0x0a10…0a24              Head {h00=0x0010, h01=0x0050, text=»*  DELETION «, t00=0x0006, t01=0x00b6}
0x0a24…0a2e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00ca}
0x0a2e…0a3c              Head {h00=0x000a, h01=0x0050, text=»DEL100«, t00=0x0006, t01=0x00d4}
0x0a3c…0a6e              Head {h00=0x002e, h01=0x0050, text=» MOVE DEBINW4,W17 'PRESS ENT FOR DELETION'«, t00=0x0006, t01=0x00e2}
0x0a6e…0a8a              Head {h00=0x0018, h01=0x0050, text=» PERF DERROR,DEKTAB7«, t00=0x0006, t01=0x0114}
0x0a8a…0aa2              Head {h00=0x0014, h01=0x0050, text=» IB DEBINW2,  C «, t00=0x0006, t01=0x0130}
0x0aa2…0abc              Head {h00=0x0016, h01=0x0050, text=»  B60, 1 CLR-KEY C«, t00=0x0006, t01=0x0148}
0x0abc…0ad2              Head {h00=0x0012, h01=0x0050, text=»  B60, 2 CAN C«, t00=0x0006, t01=0x0162}
0x0ad2…0ae8              Head {h00=0x0012, h01=0x0050, text=»  A40 3 RET C «, t00=0x0006, t01=0x0178}
0x0ae8…0b00              Head {h00=0x0014, h01=0x0050, text=»  DEL100 4 CFW C«, t00=0x0006, t01=0x018e}
0x0b00…0b18              Head {h00=0x0014, h01=0x0050, text=»  DEL150 5 ENT C«, t00=0x0007, t01=0x0016}
0x0b18…0b2e              Head {h00=0x0012, h01=0x0050, text=»  DEL100 6 EOI«, t00=0x0007, t01=0x002e}
0x0b2e…0b42              Head {h00=0x0010, h01=0x0050, text=»*  ENTER-KEY«, t00=0x0007, t01=0x0044}
0x0b42…0b50              Head {h00=0x000a, h01=0x0050, text=»DEL150«, t00=0x0007, t01=0x0058}
0x0b50…0b68              Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW2,W3«, t00=0x0007, t01=0x0066}
0x0b68…0b8a              Head {h00=0x001e, h01=0x0050, text=» PERF DEDISC,W5 DELETE JOB«, t00=0x0007, t01=0x007e}
0x0b8a…0b9c              Head {h00=0x000e, h01=0x0050, text=» BOK CANC «, t00=0x0007, t01=0x00a0}
0x0b9c…0baa              Head {h00=0x000a, h01=0x0050, text=»DEL200«, t00=0x0007, t01=0x00b2}
0x0baa…0bd4              Head {h00=0x0026, h01=0x0050, text=» SET DENOCHAN NO CHANGES POSSIBLE «, t00=0x0007, t01=0x00c0}
0x0bd4…0be6              Head {h00=0x000e, h01=0x0050, text=» PERF DERR«, t00=0x0007, t01=0x00ea}
0x0be6…0bf4              Head {h00=0x000a, h01=0x0050, text=» B B70«, t00=0x0007, t01=0x00fc}
0x0bf4…0c02              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x010a}
0x0c02…0c18              Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0007, t01=0x0118}
0x0c18…0c2e              Head {h00=0x0012, h01=0x0050, text=»*  CREATE JOB «, t00=0x0007, t01=0x012e}
0x0c2e…0c44              Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0007, t01=0x0144}
0x0c44…0c50              Head {h00=0x0008, h01=0x0050, text=»C20 «, t00=0x0007, t01=0x015a}
0x0c50…0c72              Head {h00=0x001e, h01=0x0050, text=» MOVE PJOBCUR,W1 1 BUFFER «, t00=0x0007, t01=0x0166}
0x0c72…0c9e              Head {h00=0x0028, h01=0x0050, text=» MOVE BIN7,W0 NO CONSECUTIVE BUFFERS«, t00=0x0007, t01=0x0188}
0x0c9e…0cc4              Head {h00=0x0022, h01=0x0050, text=» MOVE STRG10A,MODTAB(W3) ='J' «, t00=0x0008, t01=0x0024}
0x0cc4…0cf2              Head {h00=0x002a, h01=0x0050, text=» COPY STRG10A,W1,W6,DEINPUT,W0 JOBNAME«, t00=0x0008, t01=0x004a}
0x0cf2…0d34              Head {h00=0x003e, h01=0x0050, text=» PERF DEPOOL,W2,PJOBCUR,BIN7,STRG10A GET BUFFER WITH LOCK «, t00=0x0008, t01=0x0078}
0x0d34…0d48              Head {h00=0x0010, h01=0x0050, text=» BNOK ERR99 «, t00=0x0008, t01=0x00ba}
0x0d48…0d80              Head {h00=0x0034, h01=0x0050, text=» PERF DEPOOL,W4,PJOBCUR,BIN7,STRG10A SET BUFFER «, t00=0x0008, t01=0x00ce}
0x0d80…0da2              Head {h00=0x001e, h01=0x0050, text=» MOVE BPOOL(PJOBCUR),HEX00«, t00=0x0008, t01=0x0106}
0x0da2…0dcc              Head {h00=0x0026, h01=0x0050, text=» CALL ATTWB,BPOOL(PJOBCUR),W0,W12 «, t00=0x0008, t01=0x0128}
0x0dcc…0dee              Head {h00=0x001e, h01=0x0050, text=» CLEAR BOOL2 ENTIRE FORMAT«, t00=0x0008, t01=0x0152}
0x0dee…0e16              Head {h00=0x0024, h01=0x0050, text=» ERASE 3,W2,W0 CLEAR DATA-ITEMS «, t00=0x0008, t01=0x0174}
0x0e16…0e38              Head {h00=0x001e, h01=0x0050, text=» MOVE FORTAB(W10),JOBNAME «, t00=0x0009, t01=0x000c}
0x0e38…0e50              Head {h00=0x0014, h01=0x0050, text=» DISPLAY 4,W2,W0«, t00=0x0009, t01=0x002e}
0x0e50…0e5c              Head {h00=0x0008, h01=0x0050, text=»C70 «, t00=0x0009, t01=0x0046}
0x0e5c…0e72              Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0009, t01=0x0052}
0x0e72…0e86              Head {h00=0x0010, h01=0x0050, text=»*  CORR. JOB«, t00=0x0009, t01=0x0068}
0x0e86…0e9c              Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0009, t01=0x007c}
0x0e9c…0eb0              Head {h00=0x0010, h01=0x0050, text=» PERF DECLRN«, t00=0x0009, t01=0x0092}
0x0eb0…0ebe              Head {h00=0x000a, h01=0x0050, text=» B A20«, t00=0x0009, t01=0x00a6}
0x0ebe…0ecc              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x00b4}
0x0ecc…0eda              Head {h00=0x000a, h01=0x0050, text=»ENTER «, t00=0x0009, t01=0x00c2}
0x0eda…0f04              Head {h00=0x0026, h01=0x0050, text=» TBF BOOL2,ENTER2 IF ENTIRE FORMAT«, t00=0x0009, t01=0x00d0}
0x0f04…0f22              Head {h00=0x001a, h01=0x0050, text=» MOVE DEINPUT,JOBNAME «, t00=0x0009, t01=0x00fa}
0x0f22…0f3e              Head {h00=0x0018, h01=0x0050, text=» CALL EMPTYT,JOBNAME«, t00=0x0009, t01=0x0118}
0x0f3e…0f5e              Head {h00=0x001c, h01=0x0050, text=» BNZ ERR5 JOBNAME EMPTY «, t00=0x0009, t01=0x0134}
0x0f5e…0f7e              Head {h00=0x001c, h01=0x0050, text=» TBT BOOL1,D10 MODUL 32 «, t00=0x0009, t01=0x0154}
0x0f7e…0fa0              Head {h00=0x001e, h01=0x0050, text=»**************************«, t00=0x0009, t01=0x0174}
0x0fa0…0fc0              Head {h00=0x001c, h01=0x0050, text=»*  MODUL 31 - CREATE JOB«, t00=0x000a, t01=0x0008}
0x0fc0…0fe2              Head {h00=0x001e, h01=0x0050, text=»**************************«, t00=0x000a, t01=0x0028}
0x0fe2…1004              Head {h00=0x001e, h01=0x0050, text=» PERF DEDISC,W4 SEARCH JOB«, t00=0x000a, t01=0x004a}
0x1004…1026              Head {h00=0x001e, h01=0x0050, text=» BOK ERR8 'ALREADY EXISTS'«, t00=0x000a, t01=0x006c}
0x1026…104c              Head {h00=0x0022, h01=0x0050, text=» CBE DEBINW4,W9,C20 NOT FOUND «, t00=0x000a, t01=0x008e}
0x104c…105c              Head {h00=0x000c, h01=0x0050, text=» B ERR99«, t00=0x000a, t01=0x00b4}
0x105c…107e              Head {h00=0x001e, h01=0x0050, text=»**************************«, t00=0x000a, t01=0x00c4}
0x107e…109c              Head {h00=0x001a, h01=0x0050, text=»*  MODUL 32 - GET JOB «, t00=0x000a, t01=0x00e6}
0x109c…10be              Head {h00=0x001e, h01=0x0050, text=»**************************«, t00=0x000a, t01=0x0104}
0x10be…10ca              Head {h00=0x0008, h01=0x0050, text=»D10 «, t00=0x000a, t01=0x0126}
0x10ca…10ee              Head {h00=0x0020, h01=0x0050, text=» PERF DEDISC,W2 GET JOBDEF. «, t00=0x000a, t01=0x0132}
0x10ee…1100              Head {h00=0x000e, h01=0x0050, text=» BNOK D20 «, t00=0x000a, t01=0x0156}
0x1100…111e              Head {h00=0x001a, h01=0x0050, text=» MOVE JOBNAME,DEINPUT «, t00=0x000a, t01=0x0168}
0x111e…112c              Head {h00=0x000a, h01=0x0050, text=» B B50«, t00=0x000a, t01=0x0186}
0x112c…1138 (11, 0, 400) Head {h00=0x0008, h01=0x0050, text=»D20 «, t00=0x000b, t01=0x0004}
0x1138…1154              Head {h00=0x0018, h01=0x0050, text=» MOVE JOBNAME,=X'00'«, t00=0x000b, t01=0x0010}
0x1154…1164              Head {h00=0x000c, h01=0x0050, text=» B ERR99«, t00=0x000b, t01=0x002c}
0x1164…1172              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x003c}
0x1172…1196              Head {h00=0x0020, h01=0x0050, text=»*************************** «, t00=0x000b, t01=0x004a}
0x1196…11b8              Head {h00=0x001e, h01=0x0050, text=»*  CHECK FORMAT-SYMBOLIC: «, t00=0x000b, t01=0x006e}
0x11b8…11dc              Head {h00=0x0020, h01=0x0050, text=»*************************** «, t00=0x000b, t01=0x0090}
0x11dc…11ea              Head {h00=0x000a, h01=0x0050, text=»ENTER2«, t00=0x000b, t01=0x00b4}
0x11ea…1200              Head {h00=0x0012, h01=0x0050, text=» MOVE BIN2,W0 «, t00=0x000b, t01=0x00c2}
0x1200…120a              Head {h00=0x0006, h01=0x0050, text=»EA«, t00=0x000b, t01=0x00d8}
0x120a…121e              Head {h00=0x0010, h01=0x0050, text=» CLEAR BOOL3«, t00=0x000b, t01=0x00e2}
0x121e…1232              Head {h00=0x0010, h01=0x0050, text=» ADD BIN2,W1«, t00=0x000b, t01=0x00f6}
0x1232…124a              Head {h00=0x0014, h01=0x0050, text=» CBG BIN2,W9,EB «, t00=0x000b, t01=0x010a}
0x124a…1272              Head {h00=0x0024, h01=0x0050, text=» CALL EMPTYT,FORTAB(BIN2) FORMAT«, t00=0x000b, t01=0x0122}
0x1272…128a              Head {h00=0x0014, h01=0x0050, text=» BNZ E005 EMPTY «, t00=0x000b, t01=0x014a}
0x128a…129c              Head {h00=0x000e, h01=0x0050, text=» SET BOOL3«, t00=0x000b, t01=0x0162}
0x129c…12aa              Head {h00=0x000a, h01=0x0050, text=» B EA «, t00=0x000b, t01=0x0174}
0x12aa…12b6              Head {h00=0x0008, h01=0x0050, text=»E005«, t00=0x000b, t01=0x0182}
0x12b6…12ce              Head {h00=0x0014, h01=0x0050, text=» MOVE BIN3,BIN2 «, t00=0x000b, t01=0x018e}
0x12ce…12e4              Head {h00=0x0012, h01=0x0050, text=» ADD BIN3,W10 «, t00=0x000c, t01=0x0016}
0x12e4…1314              Head {h00=0x002c, h01=0x0050, text=» CALL EMPTYT,FORTAB(BIN3) SYMBOLIC NAME «, t00=0x000c, t01=0x002c}
0x1314…132a              Head {h00=0x0012, h01=0x0050, text=» BNZ EA EMPTY «, t00=0x000c, t01=0x005c}
0x132a…133e              Head {h00=0x0010, h01=0x0050, text=» CLEAR BOOL3«, t00=0x000c, t01=0x0072}
0x133e…135c              Head {h00=0x001a, h01=0x0050, text=» BNZ EA JOB NOT EMPTY «, t00=0x000c, t01=0x0086}
0x135c…137a              Head {h00=0x001a, h01=0x0050, text=»*  GET INPUT FIELD NO.«, t00=0x000c, t01=0x00a4}
0x137a…1392              Head {h00=0x0014, h01=0x0050, text=» MOVE BIN3,BIN2 «, t00=0x000c, t01=0x00c2}
0x1392…13a6              Head {h00=0x0010, h01=0x0050, text=» MUL BIN3,W2«, t00=0x000c, t01=0x00da}
0x13a6…13ba              Head {h00=0x0010, h01=0x0050, text=» ADD BIN3,W1«, t00=0x000c, t01=0x00ee}
0x13ba…13da              Head {h00=0x001c, h01=0x0050, text=»EERR GETFLD 0,BIN3,BIN4 «, t00=0x000c, t01=0x0102}
0x13da…13ea              Head {h00=0x000c, h01=0x0050, text=» B ERR5 «, t00=0x000c, t01=0x0122}
0x13ea…1402              Head {h00=0x0014, h01=0x0050, text=»****************«, t00=0x000c, t01=0x0132}
0x1402…1418              Head {h00=0x0012, h01=0x0050, text=»*  PACK TABLES«, t00=0x000c, t01=0x014a}
0x1418…1430              Head {h00=0x0014, h01=0x0050, text=»****************«, t00=0x000c, t01=0x0160}
0x1430…1448              Head {h00=0x0014, h01=0x0050, text=»EB MOVE BIN2,W0 «, t00=0x000c, t01=0x0178}
0x1448…145e              Head {h00=0x0012, h01=0x0050, text=»E1 ADD BIN2,W1«, t00=0x000c, t01=0x0190}
0x145e…1476              Head {h00=0x0014, h01=0x0050, text=» CBG BIN2,W8,E3 «, t00=0x000d, t01=0x0016}
0x1476…1498              Head {h00=0x001e, h01=0x0050, text=» CALL EMPTYT,FORTAB(BIN2) «, t00=0x000d, t01=0x002e}
0x1498…14b0              Head {h00=0x0014, h01=0x0050, text=» BZ E1 NOT EMPTY«, t00=0x000d, t01=0x0050}
0x14b0…14c8              Head {h00=0x0014, h01=0x0050, text=» MOVE BIN3,BIN2 «, t00=0x000d, t01=0x0068}
0x14c8…14e0              Head {h00=0x0014, h01=0x0050, text=»E11 ADD BIN3,W1 «, t00=0x000d, t01=0x0080}
0x14e0…14fe              Head {h00=0x001a, h01=0x0050, text=» CBG BIN3,W9,E3 READY «, t00=0x000d, t01=0x0098}
0x14fe…1520              Head {h00=0x001e, h01=0x0050, text=» CALL EMPTYT,FORTAB(BIN3) «, t00=0x000d, t01=0x00b6}
0x1520…1536              Head {h00=0x0012, h01=0x0050, text=» BNZ E11 EMPTY«, t00=0x000d, t01=0x00d8}
0x1536…155e              Head {h00=0x0024, h01=0x0050, text=» MOVE FORTAB(BIN2),FORTAB(BIN3) «, t00=0x000d, t01=0x00ee}
0x155e…1576              Head {h00=0x0014, h01=0x0050, text=» MOVE BIN4,BIN2 «, t00=0x000d, t01=0x0116}
0x1576…158c              Head {h00=0x0012, h01=0x0050, text=» ADD BIN4,W10 «, t00=0x000d, t01=0x012e}
0x158c…15a4              Head {h00=0x0014, h01=0x0050, text=» MOVE BIN5,BIN3 «, t00=0x000d, t01=0x0144}
0x15a4…15ba              Head {h00=0x0012, h01=0x0050, text=» ADD BIN5,W10 «, t00=0x000d, t01=0x015c}
0x15ba…15e2              Head {h00=0x0024, h01=0x0050, text=» MOVE FORTAB(BIN4),FORTAB(BIN5) «, t00=0x000d, t01=0x0172}
0x15e2…1604              Head {h00=0x001e, h01=0x0050, text=» MOVE FORTAB(BIN3),=X'00' «, t00=0x000e, t01=0x000a}
0x1604…1626              Head {h00=0x001e, h01=0x0050, text=» MOVE FORTAB(BIN5),=X'00' «, t00=0x000e, t01=0x002c}
0x1626…1634              Head {h00=0x000a, h01=0x0050, text=» B E1 «, t00=0x000e, t01=0x004e}
0x1634…1656              Head {h00=0x001e, h01=0x0050, text=»E3 CALL EMPTYT,FORTAB(W1) «, t00=0x000e, t01=0x005c}
0x1656…1680              Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x000e, t01=0x007e}
0x1680…16a8              Head {h00=0x0024, h01=0x0050, text=»*  FIRST FORMAT MUST BE PRESENT «, t00=0x000e, t01=0x00a8}
0x16a8…16d2              Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x000e, t01=0x00d0}
0x16d2…16ea              Head {h00=0x0014, h01=0x0050, text=» BZ E4 NOT EMPTY«, t00=0x000e, t01=0x00fa}
0x16ea…1712              Head {h00=0x0024, h01=0x0050, text=» MOVE BIN3,W3 FIRST FORMAT FIELD«, t00=0x000e, t01=0x0112}
0x1712…1722              Head {h00=0x000c, h01=0x0050, text=» B EERR «, t00=0x000e, t01=0x013a}
0x1722…1730              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000e, t01=0x014a}
0x1730…1766              Head {h00=0x0032, h01=0x0050, text=»*  MAX.LENGTH OF SYMBOLIC NAMES IN SYMREC(W12)«, t00=0x000e, t01=0x0158}
0x1766…177e              Head {h00=0x0014, h01=0x0050, text=»E4 MOVE BIN2,W10«, t00=0x000e, t01=0x018e}
0x177e…17b2              Head {h00=0x0030, h01=0x0050, text=» MOVE SYMREC(W12),W0 MAXL.OF SYMBOLIC NAMES «, t00=0x000f, t01=0x0016}
0x17b2…17ca              Head {h00=0x0014, h01=0x0050, text=»E41 ADD BIN2,W1 «, t00=0x000f, t01=0x004a}
0x17ca…17e8              Head {h00=0x001a, h01=0x0050, text=» CBG BIN2,W19,E5 READY«, t00=0x000f, t01=0x0062}
0x17e8…17fe              Head {h00=0x0012, h01=0x0050, text=» MOVE BIN3,W0 «, t00=0x000f, t01=0x0080}
0x17fe…182e              Head {h00=0x002c, h01=0x0050, text=» MATCH FORTAB(BIN2),BIN3,W6,HEX00,W0,W1 «, t00=0x000f, t01=0x0096}
0x182e…1852              Head {h00=0x0020, h01=0x0050, text=» BNZ E42 NO MATCH = 6 CHAR. «, t00=0x000f, t01=0x00c6}
0x1852…1874              Head {h00=0x001e, h01=0x0050, text=» CBNG BIN3,SYMREC(W12),E41«, t00=0x000f, t01=0x00ea}
0x1874…1892              Head {h00=0x001a, h01=0x0050, text=» MOVE SYMREC(W12),BIN3«, t00=0x000f, t01=0x010c}
0x1892…18a0              Head {h00=0x000a, h01=0x0050, text=» B E41«, t00=0x000f, t01=0x012a}
0x18a0…18ce              Head {h00=0x002a, h01=0x0050, text=»E42 MOVE SYMREC(W12),W6 MAXL.=6 CHAR. «, t00=0x000f, t01=0x0138}
0x18ce…18d8              Head {h00=0x0006, h01=0x0050, text=»E5«, t00=0x000f, t01=0x0166}
0x18d8…18fa              Head {h00=0x001e, h01=0x0050, text=» PERF DEDISC,W1 ENTER JOB «, t00=0x000f, t01=0x0170}
0x18fa…190c (16, 0, 400) Head {h00=0x000e, h01=0x0050, text=» BOK CANC «, t00=0x0010, t01=0x0004}
0x190c…191c              Head {h00=0x000c, h01=0x0050, text=» B ERR99«, t00=0x0010, t01=0x0016}
0x191c…192a              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x0026}
0x192a…1934              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0034}
0x1934…1960              Head {h00=0x0028, h01=0x0050, text=»*        APPL VALUE HANDLING ROUTINE«, t00=0x0010, t01=0x003e}
0x1960…196a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x006a}
0x196a…1978              Head {h00=0x000a, h01=0x0050, text=»DEAP3A«, t00=0x0010, t01=0x0074}
0x1978…19a0              Head {h00=0x0024, h01=0x0050, text=» IB DEBINW3,APP101,APP102,APP102«, t00=0x0010, t01=0x0082}
0x19a0…19ae              Head {h00=0x000a, h01=0x0050, text=»APP101«, t00=0x0010, t01=0x00aa}
0x19ae…19d2              Head {h00=0x0020, h01=0x0050, text=» MOVE DEBINW2,W17 IND.ENTER «, t00=0x0010, t01=0x00b8}
0x19d2…19e4              Head {h00=0x000e, h01=0x0050, text=» B DEAOK0 «, t00=0x0010, t01=0x00dc}
0x19e4…19f2              Head {h00=0x000a, h01=0x0050, text=»APP102«, t00=0x0010, t01=0x00ee}
0x19f2…1a08              Head {h00=0x0012, h01=0x0050, text=» MOVE BIN3,W0 «, t00=0x0010, t01=0x00fc}
0x1a08…1a22              Head {h00=0x0016, h01=0x0050, text=» MOVE STR1A,=C'*' «, t00=0x0010, t01=0x0112}
0x1a22…1a4c              Head {h00=0x0026, h01=0x0050, text=» MATCH DEINPUT,BIN3,W1,STR1A,W0,W1«, t00=0x0010, t01=0x012c}
0x1a4c…1a60              Head {h00=0x0010, h01=0x0050, text=» BOK APP1020«, t00=0x0010, t01=0x0156}
0x1a60…1a80              Head {h00=0x001c, h01=0x0050, text=» CALL TESTB,DEBINW3,W15 «, t00=0x0010, t01=0x016a}
0x1a80…1a9c              Head {h00=0x0018, h01=0x0050, text=» BZ DEAOK0 BATCHEAD «, t00=0x0010, t01=0x018a}
0x1a9c…1ab6              Head {h00=0x0016, h01=0x0050, text=» B DAER32 BALANCE «, t00=0x0011, t01=0x0016}
0x1ab6…1ac6              Head {h00=0x000c, h01=0x0050, text=»APP1020 «, t00=0x0011, t01=0x0030}
0x1ac6…1ae6              Head {h00=0x001c, h01=0x0050, text=» CALL TESTB,DEBINW3,W15 «, t00=0x0011, t01=0x0040}
0x1ae6…1b02              Head {h00=0x0018, h01=0x0050, text=» BNZ DEAOK0 BALANCE «, t00=0x0011, t01=0x0060}
0x1b02…1b10              Head {h00=0x000a, h01=0x0050, text=»DAER32«, t00=0x0011, t01=0x007c}
0x1b10…1b2a              Head {h00=0x0016, h01=0x0050, text=» MOVE DEBINW4,W32 «, t00=0x0011, t01=0x008a}
0x1b2a…1b3c              Head {h00=0x000e, h01=0x0050, text=» B DEANOK «, t00=0x0011, t01=0x00a4}
0x1b3c…1b46              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00b6}
0x1b46…1b50              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00c0}
0x1b50…1b5c              Head {h00=0x0008, h01=0x0050, text=»ERR0«, t00=0x0011, t01=0x00ca}
0x1b5c…1b7c              Head {h00=0x001c, h01=0x0050, text=» MOVE DEBINW4,W0 'BELL' «, t00=0x0011, t01=0x00d6}
0x1b7c…1b8c              Head {h00=0x000c, h01=0x0050, text=» B ERR99«, t00=0x0011, t01=0x00f6}
0x1b8c…1b98              Head {h00=0x0008, h01=0x0050, text=»ERR5«, t00=0x0011, t01=0x0106}
0x1b98…1bc8              Head {h00=0x002c, h01=0x0050, text=» MOVE DEBINW4,W5 'COMP.FIELD NOT FILLED'«, t00=0x0011, t01=0x0112}
0x1bc8…1bd8              Head {h00=0x000c, h01=0x0050, text=» B ERR99«, t00=0x0011, t01=0x0142}
0x1bd8…1be4              Head {h00=0x0008, h01=0x0050, text=»ERR8«, t00=0x0011, t01=0x0152}
0x1be4…1c0e              Head {h00=0x0026, h01=0x0050, text=» MOVE DEBINW4,W8 'ALREADY DEFINED'«, t00=0x0011, t01=0x015e}
0x1c0e…1c1c              Head {h00=0x000a, h01=0x0050, text=»ERR99 «, t00=0x0011, t01=0x0188}
0x1c1c…1c34              Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW1,W0«, t00=0x0012, t01=0x0008}
0x1c34…1c46              Head {h00=0x000e, h01=0x0050, text=» PERF DERR«, t00=0x0012, t01=0x0020}
0x1c46…1c54              Head {h00=0x000a, h01=0x0050, text=» B A20«, t00=0x0012, t01=0x0032}
0x1c54…1c62              Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0012, t01=0x0040}
0x1c62…1c72              Head {h00=0x000c, h01=0x0050, text=»F31 FRMT«, t00=0x0012, t01=0x004e}
0x1c72…1c7e              Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x0012, t01=0x005e}
0x1c7e…1c96              Head {h00=0x0014, h01=0x0050, text=» FMEL '99',PRNUM«, t00=0x0012, t01=0x006a}
0x1c96…1cac              Head {h00=0x0012, h01=0x0050, text=» FBT BOOL1,F32«, t00=0x0012, t01=0x0082}
0x1cac…1cc6              Head {h00=0x0016, h01=0x0050, text=» FCOPY =C' CREATE'«, t00=0x0012, t01=0x0098}
0x1cc6…1cd6              Head {h00=0x000c, h01=0x0050, text=» FB F31A«, t00=0x0012, t01=0x00b2}
0x1cd6…1cf0              Head {h00=0x0016, h01=0x0050, text=»F32 FCOPY =C' GET'«, t00=0x0012, t01=0x00c2}
0x1cf0…1d16              Head {h00=0x0022, h01=0x0050, text=»F31A FCOPY =C' JOB-DEFINITION'«, t00=0x0012, t01=0x00dc}
0x1d16…1d22              Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0012, t01=0x0102}
0x1d22…1d3e              Head {h00=0x0018, h01=0x0050, text=» FCOPY =C'JOBNAME:' «, t00=0x0012, t01=0x010e}
0x1d3e…1d56              Head {h00=0x0014, h01=0x0050, text=» FBT BOOL2,F31B «, t00=0x0012, t01=0x012a}
0x1d56…1d74              Head {h00=0x001a, h01=0x0050, text=» FINP 11 ENTIRE FORMAT«, t00=0x0012, t01=0x0142}
0x1d74…1d8a              Head {h00=0x0012, h01=0x0050, text=» FCOPY JOBNAME«, t00=0x0012, t01=0x0160}
0x1d8a…1d9a              Head {h00=0x000c, h01=0x0050, text=» FB F31C«, t00=0x0012, t01=0x0176}
0x1d9a…1db0              Head {h00=0x0012, h01=0x0050, text=»F31B   2 LINES«, t00=0x0012, t01=0x0186}
0x1db0…1de4              Head {h00=0x0030, h01=0x0050, text=» FKI 11,MINL=1,MAXL=6,ALPHA,ME,NEOI,APPL=101«, t00=0x0013, t01=0x000c}
0x1de4…1dfa              Head {h00=0x0012, h01=0x0050, text=» FCOPY JOBNAME«, t00=0x0013, t01=0x0040}
0x1dfa…1e0c              Head {h00=0x000e, h01=0x0050, text=» FB F31UT «, t00=0x0013, t01=0x0056}
0x1e0c…1e18              Head {h00=0x0008, h01=0x0050, text=»F31C«, t00=0x0013, t01=0x0068}
0x1e18…1e2c              Head {h00=0x0010, h01=0x0050, text=» FLINK F311 «, t00=0x0013, t01=0x0074}
0x1e2c…1e40              Head {h00=0x0010, h01=0x0050, text=»F31UT FMEND «, t00=0x0013, t01=0x0088}
0x1e40…1e4a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x009c}
0x1e4a…1e5c              Head {h00=0x000e, h01=0x0050, text=»F311 FRMT «, t00=0x0013, t01=0x00a6}
0x1e5c…1e68              Head {h00=0x0008, h01=0x0004, text=» FNL«, t00=0x0013, t01=0x00b8}
0x1e68…1e86              Head {h00=0x001a, h01=0x0050, text=» FCOPY =C'BATCHHEAD:' «, t00=0x0013, t01=0x00c4}
0x1e86…1eba              Head {h00=0x0030, h01=0x0050, text=» FKI 12,MINL=1,MAXL=6,ALPHA,NEOI,ME,APPL=102«, t00=0x0013, t01=0x00e2}
0x1eba…1ede              Head {h00=0x0020, h01=0x0050, text=» FCOPY FORTAB(W20) BATCHHEAD«, t00=0x0013, t01=0x0116}
0x1ede…1eee              Head {h00=0x000c, h01=0x0050, text=» FTAB 29«, t00=0x0013, t01=0x013a}
0x1eee…1f0a              Head {h00=0x0018, h01=0x0050, text=» FCOPY =C'BALANCE:' «, t00=0x0013, t01=0x014a}
0x1f0a…1f3e              Head {h00=0x0030, h01=0x0050, text=» FKI 38,MINL=1,MAXL=6,ALPHA,NEOI,ME,APPL=103«, t00=0x0013, t01=0x0166}
0x1f3e…1f60              Head {h00=0x001e, h01=0x0050, text=» FCOPY FORTAB(W21) BALANCE«, t00=0x0014, t01=0x000a}
0x1f60…1f6c              Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0014, t01=0x002c}
0x1f6c…1f86              Head {h00=0x0016, h01=0x0050, text=» FCOPY =C'FORMAT' «, t00=0x0014, t01=0x0038}
0x1f86…1f9a              Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',1«, t00=0x0014, t01=0x0052}
0x1f9a…1fb0              Head {h00=0x0012, h01=0x0050, text=» FCOPY =C'1:' «, t00=0x0014, t01=0x0066}
0x1fb0…1fe2              Head {h00=0x002e, h01=0x0050, text=» FKI 11,MINL=1,MAXL=6,NEOI,ALPHA,APPL=102 «, t00=0x0014, t01=0x007c}
0x1fe2…1ffc              Head {h00=0x0016, h01=0x0050, text=» FCOPY FORTAB(W1) «, t00=0x0014, t01=0x00ae}
0x1ffc…200c              Head {h00=0x000c, h01=0x0050, text=» FTAB 28«, t00=0x0014, t01=0x00c8}
0x200c…2028              Head {h00=0x0018, h01=0x0050, text=» FCOPY =C'SYMBOLIC:'«, t00=0x0014, t01=0x00d8}
0x2028…2050              Head {h00=0x0024, h01=0x0050, text=» FKI 38,MINL=1,MAXL=6,NEOI,ALPHA«, t00=0x0014, t01=0x00f4}
0x2050…206a              Head {h00=0x0016, h01=0x0050, text=» FCOPY FORTAB(W11)«, t00=0x0014, t01=0x011c}
0x206a…2076              Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0014, t01=0x0136}
0x2076…2090              Head {h00=0x0016, h01=0x0050, text=» FCOPY =C'FORMAT' «, t00=0x0014, t01=0x0142}
0x2090…20a4              Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',1«, t00=0x0014, t01=0x015c}
0x20a4…20ba              Head {h00=0x0012, h01=0x0050, text=» FCOPY =C'2:' «, t00=0x0014, t01=0x0170}
0x20ba…20ec              Head {h00=0x002e, h01=0x0050, text=» FKI 11,MINL=1,MAXL=6,NEOI,ALPHA,APPL=102 «, t00=0x0014, t01=0x0186}
0x20ec…2106              Head {h00=0x0016, h01=0x0050, text=» FCOPY FORTAB(W2) «, t00=0x0015, t01=0x0028}
0x2106…2116              Head {h00=0x000c, h01=0x0050, text=» FTAB 28«, t00=0x0015, t01=0x0042}
0x2116…2132              Head {h00=0x0018, h01=0x0050, text=» FCOPY =C'SYMBOLIC:'«, t00=0x0015, t01=0x0052}
0x2132…215a              Head {h00=0x0024, h01=0x0050, text=» FKI 38,MINL=1,MAXL=6,NEOI,ALPHA«, t00=0x0015, t01=0x006e}
0x215a…2174              Head {h00=0x0016, h01=0x0050, text=» FCOPY FORTAB(W12)«, t00=0x0015, t01=0x0096}
0x2174…2180              Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0015, t01=0x00b0}
0x2180…219a              Head {h00=0x0016, h01=0x0050, text=» FCOPY =C'FORMAT' «, t00=0x0015, t01=0x00bc}
0x219a…21ae              Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',1«, t00=0x0015, t01=0x00d6}
0x21ae…21c4              Head {h00=0x0012, h01=0x0050, text=» FCOPY =C'3:' «, t00=0x0015, t01=0x00ea}
0x21c4…21f6              Head {h00=0x002e, h01=0x0050, text=» FKI 11,MINL=1,MAXL=6,NEOI,ALPHA,APPL=102 «, t00=0x0015, t01=0x0100}
0x21f6…2210              Head {h00=0x0016, h01=0x0050, text=» FCOPY FORTAB(W3) «, t00=0x0015, t01=0x0132}
0x2210…2220              Head {h00=0x000c, h01=0x0050, text=» FTAB 28«, t00=0x0015, t01=0x014c}
0x2220…223c              Head {h00=0x0018, h01=0x0050, text=» FCOPY =C'SYMBOLIC:'«, t00=0x0015, t01=0x015c}
0x223c…2264              Head {h00=0x0024, h01=0x0050, text=» FKI 38,MINL=1,MAXL=6,NEOI,ALPHA«, t00=0x0015, t01=0x0178}
0x2264…227e              Head {h00=0x0016, h01=0x0050, text=» FCOPY FORTAB(W13)«, t00=0x0016, t01=0x0010}
0x227e…228a              Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0016, t01=0x002a}
0x228a…22a4              Head {h00=0x0016, h01=0x0050, text=» FCOPY =C'FORMAT' «, t00=0x0016, t01=0x0036}
0x22a4…22b8              Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',1«, t00=0x0016, t01=0x0050}
0x22b8…22ce              Head {h00=0x0012, h01=0x0050, text=» FCOPY =C'4:' «, t00=0x0016, t01=0x0064}
0x22ce…2300              Head {h00=0x002e, h01=0x0050, text=» FKI 11,MINL=1,MAXL=6,NEOI,ALPHA,APPL=102 «, t00=0x0016, t01=0x007a}
0x2300…231a              Head {h00=0x0016, h01=0x0050, text=» FCOPY FORTAB(W4) «, t00=0x0016, t01=0x00ac}
0x231a…232a              Head {h00=0x000c, h01=0x0050, text=» FTAB 28«, t00=0x0016, t01=0x00c6}
0x232a…2346              Head {h00=0x0018, h01=0x0050, text=» FCOPY =C'SYMBOLIC:'«, t00=0x0016, t01=0x00d6}
0x2346…236e              Head {h00=0x0024, h01=0x0050, text=» FKI 38,MINL=1,MAXL=6,NEOI,ALPHA«, t00=0x0016, t01=0x00f2}
0x236e…2388              Head {h00=0x0016, h01=0x0050, text=» FCOPY FORTAB(W14)«, t00=0x0016, t01=0x011a}
0x2388…2394              Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0016, t01=0x0134}
0x2394…23ae              Head {h00=0x0016, h01=0x0050, text=» FCOPY =C'FORMAT' «, t00=0x0016, t01=0x0140}
0x23ae…23c2              Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',1«, t00=0x0016, t01=0x015a}
0x23c2…23d8              Head {h00=0x0012, h01=0x0050, text=» FCOPY =C'5:' «, t00=0x0016, t01=0x016e}
0x23d8…240a              Head {h00=0x002e, h01=0x0050, text=» FKI 11,MINL=1,MAXL=6,NEOI,ALPHA,APPL=102 «, t00=0x0016, t01=0x0184}
0x240a…2424              Head {h00=0x0016, h01=0x0050, text=» FCOPY FORTAB(W5) «, t00=0x0017, t01=0x0026}
0x2424…2434              Head {h00=0x000c, h01=0x0050, text=» FTAB 28«, t00=0x0017, t01=0x0040}
0x2434…2450              Head {h00=0x0018, h01=0x0050, text=» FCOPY =C'SYMBOLIC:'«, t00=0x0017, t01=0x0050}
0x2450…2478              Head {h00=0x0024, h01=0x0050, text=» FKI 38,MINL=1,MAXL=6,NEOI,ALPHA«, t00=0x0017, t01=0x006c}
0x2478…2492              Head {h00=0x0016, h01=0x0050, text=» FCOPY FORTAB(W15)«, t00=0x0017, t01=0x0094}
0x2492…249e              Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0017, t01=0x00ae}
0x249e…24b8              Head {h00=0x0016, h01=0x0050, text=» FCOPY =C'FORMAT' «, t00=0x0017, t01=0x00ba}
0x24b8…24cc              Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',1«, t00=0x0017, t01=0x00d4}
0x24cc…24e2              Head {h00=0x0012, h01=0x0050, text=» FCOPY =C'6:' «, t00=0x0017, t01=0x00e8}
0x24e2…2514              Head {h00=0x002e, h01=0x0050, text=» FKI 11,MINL=1,MAXL=6,NEOI,ALPHA,APPL=102 «, t00=0x0017, t01=0x00fe}
0x2514…252e              Head {h00=0x0016, h01=0x0050, text=» FCOPY FORTAB(W6) «, t00=0x0017, t01=0x0130}
0x252e…253e              Head {h00=0x000c, h01=0x0050, text=» FTAB 28«, t00=0x0017, t01=0x014a}
0x253e…255a              Head {h00=0x0018, h01=0x0050, text=» FCOPY =C'SYMBOLIC:'«, t00=0x0017, t01=0x015a}
0x255a…2582              Head {h00=0x0024, h01=0x0050, text=» FKI 38,MINL=1,MAXL=6,NEOI,ALPHA«, t00=0x0017, t01=0x0176}
0x2582…259c              Head {h00=0x0016, h01=0x0050, text=» FCOPY FORTAB(W16)«, t00=0x0018, t01=0x000e}
0x259c…25a8              Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0018, t01=0x0028}
0x25a8…25c2              Head {h00=0x0016, h01=0x0050, text=» FCOPY =C'FORMAT' «, t00=0x0018, t01=0x0034}
0x25c2…25d6              Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',1«, t00=0x0018, t01=0x004e}
0x25d6…25ec              Head {h00=0x0012, h01=0x0050, text=» FCOPY =C'7:' «, t00=0x0018, t01=0x0062}
0x25ec…261e              Head {h00=0x002e, h01=0x0050, text=» FKI 11,MINL=1,MAXL=6,NEOI,ALPHA,APPL=102 «, t00=0x0018, t01=0x0078}
0x261e…2638              Head {h00=0x0016, h01=0x0050, text=» FCOPY FORTAB(W7) «, t00=0x0018, t01=0x00aa}
0x2638…2648              Head {h00=0x000c, h01=0x0050, text=» FTAB 28«, t00=0x0018, t01=0x00c4}
0x2648…2664              Head {h00=0x0018, h01=0x0050, text=» FCOPY =C'SYMBOLIC:'«, t00=0x0018, t01=0x00d4}
0x2664…268c              Head {h00=0x0024, h01=0x0050, text=» FKI 38,MINL=1,MAXL=6,NEOI,ALPHA«, t00=0x0018, t01=0x00f0}
0x268c…26a6              Head {h00=0x0016, h01=0x0050, text=» FCOPY FORTAB(W17)«, t00=0x0018, t01=0x0118}
0x26a6…26b2              Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0018, t01=0x0132}
0x26b2…26cc              Head {h00=0x0016, h01=0x0050, text=» FCOPY =C'FORMAT' «, t00=0x0018, t01=0x013e}
0x26cc…26e0              Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',1«, t00=0x0018, t01=0x0158}
0x26e0…26f6              Head {h00=0x0012, h01=0x0050, text=» FCOPY =C'8:' «, t00=0x0018, t01=0x016c}
0x26f6…2728              Head {h00=0x002e, h01=0x0050, text=» FKI 11,MINL=1,MAXL=6,NEOI,ALPHA,APPL=102 «, t00=0x0018, t01=0x0182}
0x2728…2742              Head {h00=0x0016, h01=0x0050, text=» FCOPY FORTAB(W8) «, t00=0x0019, t01=0x0024}
0x2742…2752              Head {h00=0x000c, h01=0x0050, text=» FTAB 28«, t00=0x0019, t01=0x003e}
0x2752…276e              Head {h00=0x0018, h01=0x0050, text=» FCOPY =C'SYMBOLIC:'«, t00=0x0019, t01=0x004e}
0x276e…2796              Head {h00=0x0024, h01=0x0050, text=» FKI 38,MINL=1,MAXL=6,NEOI,ALPHA«, t00=0x0019, t01=0x006a}
0x2796…27b0              Head {h00=0x0016, h01=0x0050, text=» FCOPY FORTAB(W18)«, t00=0x0019, t01=0x0092}
0x27b0…27bc              Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0019, t01=0x00ac}
0x27bc…27d6              Head {h00=0x0016, h01=0x0050, text=» FCOPY =C'FORMAT' «, t00=0x0019, t01=0x00b8}
0x27d6…27ea              Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',1«, t00=0x0019, t01=0x00d2}
0x27ea…2800              Head {h00=0x0012, h01=0x0050, text=» FCOPY =C'9:' «, t00=0x0019, t01=0x00e6}
0x2800…2832              Head {h00=0x002e, h01=0x0050, text=» FKI 11,MINL=1,MAXL=6,NEOI,ALPHA,APPL=102 «, t00=0x0019, t01=0x00fc}
0x2832…284c              Head {h00=0x0016, h01=0x0050, text=» FCOPY FORTAB(W9) «, t00=0x0019, t01=0x012e}
0x284c…285c              Head {h00=0x000c, h01=0x0050, text=» FTAB 28«, t00=0x0019, t01=0x0148}
0x285c…2878              Head {h00=0x0018, h01=0x0050, text=» FCOPY =C'SYMBOLIC:'«, t00=0x0019, t01=0x0158}
0x2878…28a0              Head {h00=0x0024, h01=0x0050, text=» FKI 38,MINL=1,MAXL=6,NEOI,ALPHA«, t00=0x0019, t01=0x0174}
0x28a0…28ba              Head {h00=0x0016, h01=0x0050, text=» FCOPY FORTAB(W19)«, t00=0x001a, t01=0x000c}
0x28ba…28c6              Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x001a, t01=0x0026}
0x28c6…28e2              Head {h00=0x0018, h01=0x0050, text=» FKI 1,MINL=0,MAXL=0«, t00=0x001a, t01=0x0032}
0x28e2…28f6              Head {h00=0x0010, h01=0x0050, text=» FCOPY HEX00«, t00=0x001a, t01=0x004e}
0x28f6…2904              Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x001a, t01=0x0062}
0x2904…2910              Head {h00=0x0008, h01=0x0004, text=» END«, t00=0x001a, t01=0x0070}
0x2910…2914              Head {h00=0x4004, h01=0x0000}
0x2914…2918              00 1a 00 7c                                                                                                                                                                                                                                       ┆   |┆
0x2918…2920 (27, 1, 8)   20 04 00 00 00 1b 00 04                                                                                                                                                                                                                           ┆        ┆
0x2920…2970 (28, 0, 400) 00 7c 84 5a 00 9e f6 a1 15 e2 ec 20 00 1e 56 2c ba 5b 00 74 ba 40 11 82 ba 5b 00 7c 84 5a 00 9e f6 a1 15 e2 90 5b 00 96 5f 20 06 00 03 30 85 20 00 74 95 1a e3 35 03 00 8f 20 12 a0 1c 1e 50 ce 87 0c 86 08 82 04 85 10 99 04 38 01 1c 01 5c 06   ┆ | Z          V, [ t @   [ | Z       [  _    0   t   5        P           8     ┆
0x2970…29c0              80 84 81 88 99 04 82 18 84 14 38 01 1c 01 5c 06 91 84 82 88 99 04 82 1c 38 01 1d 01 5c 06 92 84 85 5a 00 9c 15 0f 86 14 07 0a 12 00 50 0a c0 1c 1e 01 e1 39 99 04 5f 0e 83 14 85 5a 00 9c 9b 18 50 0e e1 38 11 30 e1 35 15 01 16 01 1b 01 5f 10   ┆          8             8        Z          P      9  _    Z    P  8 0 5      _ ┆
0x29c0…2a10              81 02 82 06 83 0a 9e 18 80 a0 00 0a c8 02 84 04 87 08 82 0c 99 04 c8 02 83 08 82 04 81 10 c8 02 11 30 e1 35 15 01 16 01 9c 10 93 08 53 4a 82 1c 9f 1c 92 10 53 4a 50 04 81 1c 5f 30 82 0c 99 04 c8 02 50 0a 11 30 e1 35 16 01 15 01 5f 10 16 00   ┆                                 0 5        SJ      SJP   _0      P  0 5    _   ┆
0x2a10…2a60              50 06 16 01 11 30 e1 35 9e 5a 00 96 83 5a 00 94 81 14 82 18 b9 db 00 b8 be da 00 b8 f0 36 98 82 81 84 82 88 82 0c 5f a8 14 01 9b 20 80 00 5f 52 17 01 9a 20 80 00 5f 50 84 06 03 00 82 08 56 0a 03 01 fa 08 12 01 8b 20 0b 84 14 01 01 00 c8 20   ┆P    0 5 Z   Z               6        _       _R      _P      V                 ┆
0x2a60…2ab0              00 0a 11 30 e1 31 82 08 59 10 81 10 9c 06 f0 36 87 1c 50 08 e9 06 54 06 f5 a1 0b 78 f0 36 e6 24 f5 db 00 e4 e9 06 50 02 19 01 1f 01 59 1a f0 36 00 00 00 00 00 00 13 1c 08 10 40 04 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 08 00 04 00 10   ┆   0 1  Y      6  P   T    x 6 $      P     Y  6          @                     ┆

Reduced view