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

⟦8d438c597⟧

    Length: 14196 (0x3774)
    Notes: pts_type(SC)
    Names: »PTSDE.SC«

Derivation

└─⟦5c22ed822⟧ Bits:30009675 Philips computer tape "600209"
    └─⟦this⟧ »DEN10/PTSDE.SC« 
└─⟦bf903a231⟧ Bits:30009665 Philips computer tape "600109"
    └─⟦this⟧ »DEN10/PTSDE.SC« 

PTS(SC)

	IDENT	PTSDE	REL 10.0 80-04-11
			UPD 81-02-27 
			UPD 80-11-17/DALI
			UPD 80-10-22/DALI
			UPD 80-04-24/DALI
			80-03-24/DALI
	DDUM	DEDDIV
	PDIV 
	ENTRY	PTSDE
* 
*        ENTRIES FOR APPLICATIONAL HANDLING 
* 
	ENTRY	DEAPPL 
 ENTRY DEAOK0 
 ENTRY DEAOK1 
 ENTRY DEAOK2 
	ENTRY	DEAOK4 
 ENTRY DEANOK 
	ENTRY	DETCHK 
 ENTRY DEPMSK 
 ENTRY DEPRUT 
 ENTRY ATTPRT 
 ENTRY DETPRT 
 ENTRY ATTDEV 
* 
	ENTRY	DEFIND	ROUTINE FINDING FIELDINDEX
 EJECT
* 
*        EXTERNAL REFERENCES TO SCREEN
* 
	EXT	DECLRA 
	EXT	DECLRS 
	EXT	DECLRN 
* 
*        EXTERNAL REFERENCES TO DATA-ENTRY MODES
* 
	EXT	DE10ST	SUPERVISORY FUNCTIONS 
	EXT	DE20ST	FORMAT DEFINITION 
	EXT	DE30ST	JOB DEFINITION
	EXT	DE40ST	ENTRY MODE
	EXT	DE50ST	SEARCH/CORRECTION 
	EXT	DE60ST	VERIFICATION
	EXT	DE70ST	CONVERSION
* 
*        EXTERNAL REFRERENCES FOR DATA-ENTRY FILES
* 
	EXT	OPCL	OPEN SYSTEM-FILE
 EXT CHANFC CHANGE FILECODE 
 EXT GETVOL GET VOLUMENAME
* 
*        EXTERNAL REFERENCES FOR SPECIAL ROUTINES 
* 
 EXT DEPOOL TESTVARIANT 
 EXT DERR 
 EXT SAVE 
 EXT RESTOR 
 EXT ATTBUF 
 EXT TESTB
 EXT MSKOUT 
	EXT	COND	SET/CLEAR CONDITION REG.
 EXT UPDBOL 
 EXT POOLA
	EXT	GETIND	GETINDEX VARIABLE/LENGTH
 EJECT
* 
*        EXTERNAL REFERENCES TO APPL HANDLING ROUTINES
* 
 EXT DEAP1A 
 EXT DEAP2A 
 EXT DEAP3A 
 EXT DEAP5A 
 EXT DEAP7A 
* 
* 
 INCLUDE DELITT 

	EJECT
* 
*        START OF PROGRAM 
* 
PTSDE 
 CALL SAVE,W0,W16,PWBDB4 SAVE ORIGINATE ADRESSES TO 
			WORKBLOCKS AND DESCRIPTORS 
 CALL ATTBUF,DEDSSCRN,STATSH ATTACH BUFFERS FOR THE 
 CALL ATTBUF,DEDSPRT,STATSH SCREEN AND PRINT DSETS
 SET UORG 
 BNZ FINISH 
	CALL	GETIND,RBUF,RBUFLN,DEBINW1
	CALL	POOLA	ADJUST POOLS
FINISH
DEST
	SET	BOOL1	PART OF FORMAT DISPLAY 
DEST00
	ATTFMT	F00ST 
	SET	DEPROMPT	PROMPT-TEXTS DISPLAY
STA050
	CLEAR	DECHANGE 
	PERF	DECLRA
STA100
	IB	DEBINW2,CANCEL,RETUR,ENTER
 MOVE DEBINW4,W0
 PERF DERR
 B STA100 
CANCEL
	CLEAR	DEPROMPT 
	B	STA050 
* 
RETUR 
 ATTFMT F00RET
 SET DEPROMPT 
 PERF DECLRA
 B DEST 
* 
ENTER 
 CBE BIN1,W0,DEST 
 PERF OPCL,W1 
 BOK ENT4 
 BNERR ENT32
 MOVE DEBINW1,W0
 PERF DERR
 B STA100 
ENT32 
 MOVE DEBINW1,W0
 PERF DERR
 IB DEBINW2,ENT52,ENT52,ENT5
 MOVE DEBINW4,W0
 B ENT32
ENT4
 MOVE MODE,MODTAB(BIN1) 
	PERFI	BIN1,DE10ST,DE20ST,DE30ST,DE40ST,		C 
		DE50ST,DE60ST,DE70ST,DE00ER,DE00ER,DE00ER 
 PERF DEPMSK
ENT5
 CALL RESTOR,W0,W16,PWBDB4 RESTORE ORIGINATE ADRESSES TO
			WORKBLOCKS AND DESCRIPTORS 
 CLEAR BOOL1
 CBNE BIN1,W0,ENT4
ENT52 
 PERF OPCL,W2 
 BOK ENT6 
 PERF DERR
ENT6
 CBNE BIN2,W0,DEST00
	B	DEST 
* 
DE00ER PROC 
 MOVE BIN1,W0 
 RET
 PEND 
	EJECT
* 
*        APPLICATION ROUTINE
* 
DEAPPL	PROC 
 CBG DEBINW3,=W'100',DEAPP0 
 IB DEBINW3		C
		DEAPRTES		C 
		DEAUNIT		C
		DEAJOB		C 
		DEABATCH		C 
		DEAENKEY		C 
		DEUNENT 
 B DEAER6 
DEAPRTES			CHECK OF NEW PRNUM 
 MOVE BCD13A,DEINPUT
 MOVE BIN1,BCD13A 
 MOVE BIN2,BIN1 SAVE KEYED INPUT
 DIV BIN1,W8
 XCOPY DEBINW4,W0,W2,PROGNR,BIN1 PROGRAMNR
 MUL BIN1,W8
 SUB BIN2,BIN1
 CALL TESTB,DEBINW4,BIN2 LOOK IF EXISTING 
 BZ DEAPRERR JUMP IF NOT
 MOVE BIN1,W0 
 CALL UPDBOL,BIN1 CLEAR ALL BOOLS 
 MOVE BCD2A,BCD13A
 MOVE BIN2,BCD2A
 MOVE BCD3A,W10 
 DIV BCD13A,BCD3A 
 MOVE BIN1,BCD13A 
 PERF DEPMSK
DEAENKEY
 MOVE DEBINW3,W0
 MOVE DEBINW2,W17 
 B DEAOK0 
DEAPRERR
 MOVE DEBINW4,W7
 B DEANOK 
* 
* 
	ATTFMT	FORMN	DUMMY INSTRUCTION 
	ATTFMT	FORMA	    - " - 
 ATTFMT VSET
 EJECT
DEUNENT 
	MOVE	DEBINW2,W17 
DEAUNIT 
 MOVE BCD2A,DEINPUT CHECK IF SPECIFIED
 MOVE DEBINW4,BCD2A UNIT NUMBER IS
 MOVE FILINDUS,DEBINW4
	XCOPY	DEBINW4,W1,W1,DUNIT,FILINDUS	GET FILECODE
	ADD	FILINDUS,W2
 CBE FCOUNTER(FILINDUS),W0,DEAUN0 
 ERASE 1,W2,W2
 MOVE TABLE,FVOLNAME(FILINDUS)
 B DEAUN5 
DEAUN0
 CALL CHANFC,DISK,DEBINW4 CHANGE FILECODE 
 CALL GETVOL,DISK,RBUF,STRG10A,DEBINW4 GET VOLUMENAME 
 CBE DEBINW4,W0,DEAUN4 JUMP IF OKEY 
 MOVE DEBINW4,W9 NOT FOUND
 B DEANOK 
DEAUN4
 ERASE 1,W2,W2
 MOVE TABLE,STRG10A 
 MOVE FVOLNAME(FILINDUS),TABLE
DEAUN5
 DISPLAY 2,W1,W1
 B DEAOK0 
DEAUN2
 MOVE DEBINW4,W7
 B DEANOK 
DEAJOB			CHECK IF SPECIFIED 
 MOVE STSAVE(W1),DEINPUT
			JOBNAME EXISTS ON USERFILE 
 B DEAOK0 
DEABATCH			CHECK IF SPECIFIED 
			BATCH EXISTS ON USERFILE 
 MOVE STSAVE(W2),DEINPUT
 B DEAOK0 
 EJECT
* 
*        JUMP TO APPL HANDLING IN CORRESPONDING PROGRAM 
* 
DEAPP0
 SUB DEBINW3,=W'100'
	MOVE	DEBINW4,PRNUM	SAVE PRNNUM 
	MOVE	BCD3A,W10	LOAD +10
	DIV	PRNUM,BCD3A	GET MODE TENTH FIGURE
	MOVE	DEBIN1,PRNUM	LOAD MODE BINARY 
	MOVE	PRNUM,DEBINW4	RESTORE PRNUM 
	MOVE	BCD2A,PRNUM	GET MODE LEVEL ONETH FIG
	MOVE	DEBINW4,BCD2A	LOAD MODE LEVEL BINARY
	IB	DEBIN1	JUMP MODE APPL	C 
		DEAP1A		C 
		DEAP2A		C 
		DEAP3A		C 
		DEAER6		C 
		DEAP5A		C 
		DEAER6		C 
		DEAP7A		C 
		DEAER6
	B	DEAER6 
 EJECT
*      RETURNS FROM APPL HANDLING IN CORRESPONDING PROGRAM
* 
DEAOK0
	MOVE	DEBINW3,W0
	RET
DEAOK1
 MOVE DEBINW3,W1
 RET
DEAOK2
 MOVE DEBINW3,W2
 RET
DEAOK4
	MOVE	DEBINW3,W4
	RET
DEAER6
 MOVE DEBINW4,W6 ILLEGAL VALUE
DEANOK
	MOVE	DEBINW3,W3
	RET
	PEND 
	EJECT
* 
*        TABULATION-CHECK ROUTINE 
* 
DETCHK	PROC 
 TBF DOOL3,DCHKUT 
 MOVE DEBINW3,W2
 RET
DCHKUT
	MOVE	DEBINW3,W0
	RET
	PEND 
 EJECT
******************************************************************
* THIS PROCEDURE RETURNS THE PROGRAMNUMBER SPLIT INTO TO BINARYS *
******************************************************************
DEPRUT PROC NUM,FIRST,SECOND
 PBCD NUM 
 PBIN FIRST 
 PBIN SECOND
 MOVE FIRST,NUM 
 DIV FIRST,W10
 MOVE BCD2A,NUM 
 MOVE SECOND,BCD2A
 RET
 PEND 
 EJECT
****************************************
* THIS PROCEDURE FIX THE PROGRAMMASKS. *
****************************************
DEPMSK PROC 
 MOVE PINACC,W0 
 MOVE PJOBCUR,W0
 MOVE PINDFR,W0 
 MOVE PINDTB,W0 
 MOVE BIN4,BIN1 
 SUB BIN4,W1 FIRST DIGIT IN PRNUM 
 BNL DEAPR10 JUMP IF > 00 
 MOVE KEYMSK,W0 
 RET
DEAPR10 
 MUL BIN4,W10 
 ADD BIN4,BIN2 NEXT DIGIT IN PRNUM
 DIV BIN4,W2 BYTE POS IN PRKEYS 
 MOVE DEBINW3,W0
 XCOPY DEBINW3,W1,W1,PRKEYS,BIN4
 CALL TESTB,BIN2,W15 LOOK WHICH HALFBYTE
 BZ DEAPR20 JUMP IF FIRST 
 MOVE DEBINW2,W15 
 CALL MSKOUT,DEBINW2,DEBINW3
 MOVE KEYMSK,DEBINW2
 RET
DEAPR20 
 DIV DEBINW3,W16
 MOVE KEYMSK,DEBINW3
 RET
 PEND 
 EJECT
* 
*   ATTACH DE-PRINTER. SHOULD BE PERFORMED BEFORE ANY PRINTING IS DONE
*   CONDITION-REGISTER IS SET TO  0 : OKAY
*                                 1 : PRINTER BUSY; 
*   IF THE PRINTER IS BUSY, THE ERROR-INDICATION 11 (IN USE) IS GIVEN IN
*   IN DEBIN1, THE TERMINALNUMBER OF THE CURRENT TASK IS RGIVEN FOR EV P
* 
ATTPRT	PROC 
 MOVE DEBINW4,=X'0036'
 PERF ATTDEV,DEBINW4
 RET
 PEND 
ATTDEV PROC FC
 CALL CHANFC,DEDSPRT,FC 
 MOVE DEBINW4,W0
	DSC0	.NW,DEDSPRT,TSTAT	CHECK IF PRINTER AVAILABLE
	DELAY	W4	WAIT FOR 4/100 SEC
	TESTIO	DEDSPRT 
	BNZ	NOTOK
	WAIT	DEDSPRT 
	XSTAT	DEDSPRT,DEBINW4
	CBE	DEBINW4,W0,OK
	B	ATT10	NOT OK 
NOTOK 
	ABORT	DEDSPRT
	B	ATT10	NO PRINTER 
OK
 DSC1 DEDSPRT,ATTACH,W20
	BOK	OUT
 MOVE DEBINW4,W11 
 B OUT
ATT10 
	MOVE	DEBINW4,=W'35'	'OUT-DEV NOT OPERABLE' 
OUT 
	PERF	COND	SET/CLEAR CONDITION REG. 
 RET
 PEND 
* 
*   RELEASE DE-PRINTER. MUST BE PERFORMED AFTER PRINTOUT. 
* 
DETPRT PROC 
 DSC1 DEDSPRT,DETACH,W0 
 RET
 PEND 
* 
*   THIS ROUTINE CALCULATE FIELDNUMBER FOR A
*   RELATIVE FIELD ADRESSING TYP + OR - 
* 
DEFIND PROC VAR1,VAR2 
	PBIN	VAR1
	PBIN	VAR2
 XCOPY VAR1,W1,W1,BPOOL(BIN11),BIN12
 CBL VAR1,=W'254',UTFIN 
 ADD BIN12,W1 
 XCOPY VAR2,W1,W1,BPOOL(BIN11),BIN12
	GETABX	BIN16 
 CBNE VAR1,=W'254',DEFI00 
 MOVE VAR1,BIN16
 SUB VAR1,VAR2
 RET
DEFI00
 ADD VAR2,BIN16 
 MOVE VAR1,VAR2 
UTFIN 
 RET
 PEND 

	EJECT
* 
*        FORMATS
* 
F00ST	FRMT
	FSL
	FUL
 FCOPY =C'PTS'
 FILLR ' ',1
 FCOPY =C'DATA' 
 FILLR ' ',1
 FCOPY =C'ENTRY'
 FILLR ' ',5
 FCOPY =C'REL 10.0' 
	FNUL 
	FNL
	FNL
	FCOPY	=C'PROGRAM:' 
 FKI 9,MINL=2,MAXL=2,ME,NEOI,APPL=1 
 FMEL 'XX',PRNUM
	FBF	BOOL1,F00OUT 
	FNL
	FCOPY	=C'10 SUPERVISORY FUNCTIONS' 
	FNL
	FTEXT	'20 '
	FCOPY	=C'FORMAT' 
	FILLR	'-',1
	FCOPY	=C'DEFINITION' 
	FNL
	FTEXT	'30 '
	FCOPY	=C'JOB'
	FILLR	'-',1
	FCOPY	=C'DEFINITION' 
	FNL
	FTEXT	'40 '
 FCOPY =C'ENTRY'
 FILLR ' ',1
 FCOPY =C'MODE' 
	FNL
	FTEXT	'50 '
 FCOPY =C'SEARCH' 
 FILLR ' ',1
 FCOPY =C'MODE' 
	FNL
	FTEXT	'60 '
 FCOPY =C'VERIFY' 
 FILLR ' ',1
 FCOPY =C'MODE' 
	FNL
	FCOPY	=C'70 CONVERSION'
 FILLR ' ',1
 FCOPY =C'MODE' 
 FNL
F00OUT
	FMEND
F00RET FRMT 
 FSL
 FTEXT 'RETURN FROM DATA-ENTRY' 
 FNL
 FKI 1
 FCOPY HEX00
 FMEND
	EJECT
******************************* 
*  TABLE  = VALUE-SET NO.     * 
*  TIME  = SIZE OF ELEMENTS  *
*  ACK(W1) = ELEMENT NO.       *
******************************* 
VSET	FRMT 
	FSL
	FMEL	'99',PRNUM
	FBT	BOOL1,F13
	FCOPY	=C' CREATE'
	FB	F12A
F13	FCOPY	=C' GET'
F12A	FCOPY	=C' VALUE-SETS'
	FNL
	FCOPY	=C'NAME: T'
	FBT	BOOL2,F12B 
	FINP	7 
	FCOPY	TABLE
	FB	F12C
F12B			2 LINES
	FKI	8,NUM,MINL=2,MAXL=2,ME,NCLR,NEOI,APPL=101
	FCOPY	STR6A
	FB	F12UT 
F12C
	FLINK	F121 
F12UT	FMEND 
* 
F121	FRMT 
	FNL
	FCOPY	=C'TYPE:'
	FBT	BOOL3,F121A
	FBF	BOOL1,F124	IF CREATE 
F121A 
	FINP	7 
	FCOPY	STR2A
	FB	F125
F124
	FKI	7,MINL=1,MAXL=1,ALPHA,NEOI,ME,NCLR,APPL=102	A/N
	FCOPY	STR2A
F125
	FTAB	10
	FCOPY	=C'SIZE OF ' 
	FCOPY	=C'ELEMENT'
	FCOPY	=C'S:' 
	FBT	BOOL3,F125A
	FBF	BOOL1,F127	IF CREATE 
F125A 
	FINP	28
	FMEL	'XX',TIME 
	FB	F128
F127
	FKI	28,MINL=1,MAXL=2,NEOI,ME,NCLR,REWRT,APPL=103	<61 
	FMEL	'XX',TIME 
F128
	FNL
	FCOPY	=C'ELEMENT'
	FCOPY	=C' NO.:'
	FBF	BOOL3,FEND	IF LINE 1-3 
	FINP	13	ENTER
	FMEL	'XX',ACK(W1)
	FNL
*	FLINK	STR64A
	FCTL	X'DE',STR64A
FEND
	FMEND
* 
FORMN	FRMT
	FKI	1,NUM,MINL=1,MAXL=1,REWRT,SCHK=1 
	FMEL	'XXXXXXXXXXXXXXXXXXXXX-',FDVBCD(BIN6) 
	FNL
	FKI	1,MINL=0,MAXL=0
	FCOPY	HEX00
	FMEND
* 
FORMA	FRMT
*	FKI	1,ALPHA,MINL=1,MAXL=1,NEOI,ME 
*	FCOPY	FDVBCD(BIN6)
	FCTL	X'F0',1,X'C1',X'01',X'00',X'C0',FDVBCD(BIN6)
	FNL
	FKI	1,MINL=0,MAXL=0
	FCOPY	HEX00
	FMEND
	END

HexDump

0x0000…0026 (0, 0, 400)  Head {h00=0x0022, h01=0x0050, text=» IDENT PTSDE REL 10.0 80-04-11«, t00=0x0000, t01=0x0004}
0x0026…003e              Head {h00=0x0014, h01=0x0050, text=»   UPD 81-02-27 «, t00=0x0000, t01=0x002a}
0x003e…005a              Head {h00=0x0018, h01=0x0050, text=»   UPD 80-11-17/DALI«, t00=0x0000, t01=0x0042}
0x005a…0076              Head {h00=0x0018, h01=0x0050, text=»   UPD 80-10-22/DALI«, t00=0x0000, t01=0x005e}
0x0076…0092              Head {h00=0x0018, h01=0x0050, text=»   UPD 80-04-24/DALI«, t00=0x0000, t01=0x007a}
0x0092…00aa              Head {h00=0x0014, h01=0x0050, text=»   80-03-24/DALI«, t00=0x0000, t01=0x0096}
0x00aa…00be              Head {h00=0x0010, h01=0x000c, text=» DDUM DEDDIV«, t00=0x0000, t01=0x00ae}
0x00be…00cc              Head {h00=0x000a, h01=0x0005, text=» PDIV «, t00=0x0000, t01=0x00c2}
0x00cc…00e0              Head {h00=0x0010, h01=0x000c, text=» ENTRY PTSDE«, t00=0x0000, t01=0x00d0}
0x00e0…00ea              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00e4}
0x00ea…011e              Head {h00=0x0030, h01=0x0050, text=»*        ENTRIES FOR APPLICATIONAL HANDLING «, t00=0x0000, t01=0x00ee}
0x011e…0128              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0122}
0x0128…013e              Head {h00=0x0012, h01=0x0050, text=» ENTRY DEAPPL «, t00=0x0000, t01=0x012c}
0x013e…0154              Head {h00=0x0012, h01=0x0050, text=» ENTRY DEAOK0 «, t00=0x0000, t01=0x0142}
0x0154…016a              Head {h00=0x0012, h01=0x0050, text=» ENTRY DEAOK1 «, t00=0x0000, t01=0x0158}
0x016a…0180              Head {h00=0x0012, h01=0x0050, text=» ENTRY DEAOK2 «, t00=0x0000, t01=0x016e}
0x0180…0196              Head {h00=0x0012, h01=0x0050, text=» ENTRY DEAOK4 «, t00=0x0000, t01=0x0184}
0x0196…01ac              Head {h00=0x0012, h01=0x0050, text=» ENTRY DEANOK «, t00=0x0001, t01=0x000a}
0x01ac…01c2              Head {h00=0x0012, h01=0x0050, text=» ENTRY DETCHK «, t00=0x0001, t01=0x0020}
0x01c2…01d8              Head {h00=0x0012, h01=0x0050, text=» ENTRY DEPMSK «, t00=0x0001, t01=0x0036}
0x01d8…01ee              Head {h00=0x0012, h01=0x0050, text=» ENTRY DEPRUT «, t00=0x0001, t01=0x004c}
0x01ee…0204              Head {h00=0x0012, h01=0x0050, text=» ENTRY ATTPRT «, t00=0x0001, t01=0x0062}
0x0204…021a              Head {h00=0x0012, h01=0x0050, text=» ENTRY DETPRT «, t00=0x0001, t01=0x0078}
0x021a…0230              Head {h00=0x0012, h01=0x0050, text=» ENTRY ATTDEV «, t00=0x0001, t01=0x008e}
0x0230…023a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00a4}
0x023a…026a              Head {h00=0x002c, h01=0x0050, text=» ENTRY DEFIND ROUTINE FINDING FIELDINDEX«, t00=0x0001, t01=0x00ae}
0x026a…0278              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0001, t01=0x00de}
0x0278…0282              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0001, t01=0x00ec}
0x0282…02b0              Head {h00=0x002a, h01=0x002a, text=»*        EXTERNAL REFERENCES TO SCREEN«, t00=0x0001, t01=0x00f6}
0x02b0…02ba              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0001, t01=0x0124}
0x02ba…02ce              Head {h00=0x0010, h01=0x0050, text=» EXT DECLRA «, t00=0x0001, t01=0x012e}
0x02ce…02e2              Head {h00=0x0010, h01=0x0050, text=» EXT DECLRS «, t00=0x0001, t01=0x0142}
0x02e2…02f6              Head {h00=0x0010, h01=0x0050, text=» EXT DECLRN «, t00=0x0001, t01=0x0156}
0x02f6…0300              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0001, t01=0x016a}
0x0300…0338              Head {h00=0x0034, h01=0x0030, text=»*        EXTERNAL REFERENCES TO DATA-ENTRY MODES«, t00=0x0001, t01=0x0174}
0x0338…0342              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0002, t01=0x001c}
0x0342…036c              Head {h00=0x0026, h01=0x0021, text=» EXT DE10ST SUPERVISORY FUNCTIONS «, t00=0x0002, t01=0x0026}
0x036c…0392              Head {h00=0x0022, h01=0x001d, text=» EXT DE20ST FORMAT DEFINITION «, t00=0x0002, t01=0x0050}
0x0392…03b4              Head {h00=0x001e, h01=0x001a, text=» EXT DE30ST JOB DEFINITION«, t00=0x0002, t01=0x0076}
0x03b4…03d2              Head {h00=0x001a, h01=0x0016, text=» EXT DE40ST ENTRY MODE«, t00=0x0002, t01=0x0098}
0x03d2…03f8              Head {h00=0x0022, h01=0x001d, text=» EXT DE50ST SEARCH/CORRECTION «, t00=0x0002, t01=0x00b6}
0x03f8…0418              Head {h00=0x001c, h01=0x0018, text=» EXT DE60ST VERIFICATION«, t00=0x0002, t01=0x00dc}
0x0418…0436              Head {h00=0x001a, h01=0x0016, text=» EXT DE70ST CONVERSION«, t00=0x0002, t01=0x00fc}
0x0436…0440              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0002, t01=0x011a}
0x0440…047a              Head {h00=0x0036, h01=0x0032, text=»*        EXTERNAL REFRERENCES FOR DATA-ENTRY FILES«, t00=0x0002, t01=0x0124}
0x047a…0484              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0002, t01=0x015e}
0x0484…04a6              Head {h00=0x001e, h01=0x0050, text=» EXT OPCL OPEN SYSTEM-FILE«, t00=0x0002, t01=0x0168}
0x04a6…04ca              Head {h00=0x0020, h01=0x0050, text=» EXT CHANFC CHANGE FILECODE «, t00=0x0002, t01=0x018a}
0x04ca…04ec              Head {h00=0x001e, h01=0x0050, text=» EXT GETVOL GET VOLUMENAME«, t00=0x0003, t01=0x001e}
0x04ec…04f6              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0003, t01=0x0040}
0x04f6…0530              Head {h00=0x0036, h01=0x0050, text=»*        EXTERNAL REFERENCES FOR SPECIAL ROUTINES «, t00=0x0003, t01=0x004a}
0x0530…053a              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0003, t01=0x0084}
0x053a…055a              Head {h00=0x001c, h01=0x0050, text=» EXT DEPOOL TESTVARIANT «, t00=0x0003, t01=0x008e}
0x055a…056c              Head {h00=0x000e, h01=0x0050, text=» EXT DERR «, t00=0x0003, t01=0x00ae}
0x056c…057e              Head {h00=0x000e, h01=0x0050, text=» EXT SAVE «, t00=0x0003, t01=0x00c0}
0x057e…0592              Head {h00=0x0010, h01=0x0050, text=» EXT RESTOR «, t00=0x0003, t01=0x00d2}
0x0592…05a6              Head {h00=0x0010, h01=0x0050, text=» EXT ATTBUF «, t00=0x0003, t01=0x00e6}
0x05a6…05b8              Head {h00=0x000e, h01=0x0050, text=» EXT TESTB«, t00=0x0003, t01=0x00fa}
0x05b8…05cc              Head {h00=0x0010, h01=0x0050, text=» EXT MSKOUT «, t00=0x0003, t01=0x010c}
0x05cc…05f6              Head {h00=0x0026, h01=0x0050, text=» EXT COND SET/CLEAR CONDITION REG.«, t00=0x0003, t01=0x0120}
0x05f6…060a              Head {h00=0x0010, h01=0x0050, text=» EXT UPDBOL «, t00=0x0003, t01=0x014a}
0x060a…061c              Head {h00=0x000e, h01=0x0050, text=» EXT POOLA«, t00=0x0003, t01=0x015e}
0x061c…0648              Head {h00=0x0028, h01=0x0050, text=» EXT GETIND GETINDEX VARIABLE/LENGTH«, t00=0x0003, t01=0x0170}
0x0648…0656              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x000c}
0x0656…0660              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x001a}
0x0660…069e              Head {h00=0x003a, h01=0x0050, text=»*        EXTERNAL REFERENCES TO APPL HANDLING ROUTINES«, t00=0x0004, t01=0x0024}
0x069e…06a8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0062}
0x06a8…06bc              Head {h00=0x0010, h01=0x0050, text=» EXT DEAP1A «, t00=0x0004, t01=0x006c}
0x06bc…06d0              Head {h00=0x0010, h01=0x0050, text=» EXT DEAP2A «, t00=0x0004, t01=0x0080}
0x06d0…06e4              Head {h00=0x0010, h01=0x0050, text=» EXT DEAP3A «, t00=0x0004, t01=0x0094}
0x06e4…06f8              Head {h00=0x0010, h01=0x0050, text=» EXT DEAP5A «, t00=0x0004, t01=0x00a8}
0x06f8…070c              Head {h00=0x0010, h01=0x0050, text=» EXT DEAP7A «, t00=0x0004, t01=0x00bc}
0x070c…0716              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00d0}
0x0716…0720              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00da}
0x0720…0738              Head {h00=0x0014, h01=0x0050, text=» INCLUDE DELITT «, t00=0x0004, t01=0x00e4}
0x0738…0740              Head {h00=0x0004, h01=0x0050, t00=0x0004, t01=0x00fc}
0x0740…074e              Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0004, t01=0x0104}
0x074e…0758              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0004, t01=0x0112}
0x0758…077a              Head {h00=0x001e, h01=0x0020, text=»*        START OF PROGRAM «, t00=0x0004, t01=0x011c}
0x077a…0784              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0004, t01=0x013e}
0x0784…0792              Head {h00=0x000a, h01=0x0005, text=»PTSDE «, t00=0x0004, t01=0x0148}
0x0792…07ce              Head {h00=0x0038, h01=0x0050, text=» CALL SAVE,W0,W16,PWBDB4 SAVE ORIGINATE ADRESSES TO «, t00=0x0004, t01=0x0156}
0x07ce…07f4 (5, 0, 400)  Head {h00=0x0022, h01=0x0050, text=»   WORKBLOCKS AND DESCRIPTORS «, t00=0x0005, t01=0x0004}
0x07f4…0830              Head {h00=0x0038, h01=0x0050, text=» CALL ATTBUF,DEDSSCRN,STATSH ATTACH BUFFERS FOR THE «, t00=0x0005, t01=0x002a}
0x0830…086a              Head {h00=0x0036, h01=0x0050, text=» CALL ATTBUF,DEDSPRT,STATSH SCREEN AND PRINT DSETS«, t00=0x0005, t01=0x0066}
0x086a…087c              Head {h00=0x000e, h01=0x0050, text=» SET UORG «, t00=0x0005, t01=0x00a0}
0x087c…0890              Head {h00=0x0010, h01=0x0050, text=» BNZ FINISH «, t00=0x0005, t01=0x00b2}
0x0890…08b8              Head {h00=0x0024, h01=0x0050, text=» CALL GETIND,RBUF,RBUFLN,DEBINW1«, t00=0x0005, t01=0x00c6}
0x08b8…08d8              Head {h00=0x001c, h01=0x0050, text=» CALL POOLA ADJUST POOLS«, t00=0x0005, t01=0x00ee}
0x08d8…08e6              Head {h00=0x000a, h01=0x0050, text=»FINISH«, t00=0x0005, t01=0x010e}
0x08e6…08f2              Head {h00=0x0008, h01=0x0050, text=»DEST«, t00=0x0005, t01=0x011c}
0x08f2…091c              Head {h00=0x0026, h01=0x0050, text=» SET BOOL1 PART OF FORMAT DISPLAY «, t00=0x0005, t01=0x0128}
0x091c…092a              Head {h00=0x000a, h01=0x0050, text=»DEST00«, t00=0x0005, t01=0x0152}
0x092a…0940              Head {h00=0x0012, h01=0x000d, text=» ATTFMT F00ST «, t00=0x0005, t01=0x0160}
0x0940…096a              Head {h00=0x0026, h01=0x0050, text=» SET DEPROMPT PROMPT-TEXTS DISPLAY«, t00=0x0005, t01=0x0176}
0x096a…0978              Head {h00=0x000a, h01=0x0006, text=»STA050«, t00=0x0006, t01=0x0010}
0x0978…0990              Head {h00=0x0014, h01=0x0050, text=» CLEAR DECHANGE «, t00=0x0006, t01=0x001e}
0x0990…09a4              Head {h00=0x0010, h01=0x0050, text=» PERF DECLRA«, t00=0x0006, t01=0x0036}
0x09a4…09b2              Head {h00=0x000a, h01=0x0006, text=»STA100«, t00=0x0006, t01=0x004a}
0x09b2…09d8              Head {h00=0x0022, h01=0x0050, text=» IB DEBINW2,CANCEL,RETUR,ENTER«, t00=0x0006, t01=0x0058}
0x09d8…09f0              Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW4,W0«, t00=0x0006, t01=0x007e}
0x09f0…0a02              Head {h00=0x000e, h01=0x0050, text=» PERF DERR«, t00=0x0006, t01=0x0096}
0x0a02…0a14              Head {h00=0x000e, h01=0x0050, text=» B STA100 «, t00=0x0006, t01=0x00a8}
0x0a14…0a22              Head {h00=0x000a, h01=0x0006, text=»CANCEL«, t00=0x0006, t01=0x00ba}
0x0a22…0a3a              Head {h00=0x0014, h01=0x0050, text=» CLEAR DEPROMPT «, t00=0x0006, t01=0x00c8}
0x0a3a…0a4c              Head {h00=0x000e, h01=0x0009, text=» B STA050 «, t00=0x0006, t01=0x00e0}
0x0a4c…0a56              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0006, t01=0x00f2}
0x0a56…0a64              Head {h00=0x000a, h01=0x0005, text=»RETUR «, t00=0x0006, t01=0x00fc}
0x0a64…0a7a              Head {h00=0x0012, h01=0x0050, text=» ATTFMT F00RET«, t00=0x0006, t01=0x010a}
0x0a7a…0a90              Head {h00=0x0012, h01=0x0050, text=» SET DEPROMPT «, t00=0x0006, t01=0x0120}
0x0a90…0aa4              Head {h00=0x0010, h01=0x0050, text=» PERF DECLRA«, t00=0x0006, t01=0x0136}
0x0aa4…0ab4              Head {h00=0x000c, h01=0x0050, text=» B DEST «, t00=0x0006, t01=0x014a}
0x0ab4…0abe              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0006, t01=0x015a}
0x0abe…0acc              Head {h00=0x000a, h01=0x0005, text=»ENTER «, t00=0x0006, t01=0x0164}
0x0acc…0ae6              Head {h00=0x0016, h01=0x0050, text=» CBE BIN1,W0,DEST «, t00=0x0006, t01=0x0172}
0x0ae6…0afc              Head {h00=0x0012, h01=0x0050, text=» PERF OPCL,W1 «, t00=0x0006, t01=0x018c}
0x0afc…0b0e              Head {h00=0x000e, h01=0x0050, text=» BOK ENT4 «, t00=0x0007, t01=0x0012}
0x0b0e…0b22              Head {h00=0x0010, h01=0x0050, text=» BNERR ENT32«, t00=0x0007, t01=0x0024}
0x0b22…0b3a              Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW1,W0«, t00=0x0007, t01=0x0038}
0x0b3a…0b4c              Head {h00=0x000e, h01=0x0050, text=» PERF DERR«, t00=0x0007, t01=0x0050}
0x0b4c…0b5e              Head {h00=0x000e, h01=0x0050, text=» B STA100 «, t00=0x0007, t01=0x0062}
0x0b5e…0b6c              Head {h00=0x000a, h01=0x0050, text=»ENT32 «, t00=0x0007, t01=0x0074}
0x0b6c…0b84              Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW1,W0«, t00=0x0007, t01=0x0082}
0x0b84…0b96              Head {h00=0x000e, h01=0x0050, text=» PERF DERR«, t00=0x0007, t01=0x009a}
0x0b96…0bba              Head {h00=0x0020, h01=0x0050, text=» IB DEBINW2,ENT52,ENT52,ENT5«, t00=0x0007, t01=0x00ac}
0x0bba…0bd2              Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW4,W0«, t00=0x0007, t01=0x00d0}
0x0bd2…0be2              Head {h00=0x000c, h01=0x0050, text=» B ENT32«, t00=0x0007, t01=0x00e8}
0x0be2…0bee              Head {h00=0x0008, h01=0x0050, text=»ENT4«, t00=0x0007, t01=0x00f8}
0x0bee…0c0e              Head {h00=0x001c, h01=0x0050, text=» MOVE MODE,MODTAB(BIN1) «, t00=0x0007, t01=0x0104}
0x0c0e…0c42              Head {h00=0x0030, h01=0x002b, text=» PERFI BIN1,DE10ST,DE20ST,DE30ST,DE40ST,  C «, t00=0x0007, t01=0x0124}
0x0c42…0c76              Head {h00=0x0030, h01=0x0050, text=»  DE50ST,DE60ST,DE70ST,DE00ER,DE00ER,DE00ER «, t00=0x0007, t01=0x0158}
0x0c76…0c8a              Head {h00=0x0010, h01=0x0050, text=» PERF DEPMSK«, t00=0x0007, t01=0x018c}
0x0c8a…0c96              Head {h00=0x0008, h01=0x0050, text=»ENT5«, t00=0x0008, t01=0x0010}
0x0c96…0cd6              Head {h00=0x003c, h01=0x0050, text=» CALL RESTOR,W0,W16,PWBDB4 RESTORE ORIGINATE ADRESSES TO«, t00=0x0008, t01=0x001c}
0x0cd6…0cfc              Head {h00=0x0022, h01=0x0050, text=»   WORKBLOCKS AND DESCRIPTORS «, t00=0x0008, t01=0x005c}
0x0cfc…0d10              Head {h00=0x0010, h01=0x0050, text=» CLEAR BOOL1«, t00=0x0008, t01=0x0082}
0x0d10…0d2a              Head {h00=0x0016, h01=0x0050, text=» CBNE BIN1,W0,ENT4«, t00=0x0008, t01=0x0096}
0x0d2a…0d38              Head {h00=0x000a, h01=0x0050, text=»ENT52 «, t00=0x0008, t01=0x00b0}
0x0d38…0d4e              Head {h00=0x0012, h01=0x0050, text=» PERF OPCL,W2 «, t00=0x0008, t01=0x00be}
0x0d4e…0d60              Head {h00=0x000e, h01=0x0050, text=» BOK ENT6 «, t00=0x0008, t01=0x00d4}
0x0d60…0d72              Head {h00=0x000e, h01=0x0050, text=» PERF DERR«, t00=0x0008, t01=0x00e6}
0x0d72…0d7e              Head {h00=0x0008, h01=0x0050, text=»ENT6«, t00=0x0008, t01=0x00f8}
0x0d7e…0d9a              Head {h00=0x0018, h01=0x0050, text=» CBNE BIN2,W0,DEST00«, t00=0x0008, t01=0x0104}
0x0d9a…0daa              Head {h00=0x000c, h01=0x0050, text=» B DEST «, t00=0x0008, t01=0x0120}
0x0daa…0db4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0130}
0x0db4…0dc8              Head {h00=0x0010, h01=0x0050, text=»DE00ER PROC «, t00=0x0008, t01=0x013a}
0x0dc8…0dde              Head {h00=0x0012, h01=0x0050, text=» MOVE BIN1,W0 «, t00=0x0008, t01=0x014e}
0x0dde…0dea              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0008, t01=0x0164}
0x0dea…0df8              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0008, t01=0x0170}
0x0df8…0e06              Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0008, t01=0x017e}
0x0e06…0e10              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0008, t01=0x018c}
0x0e10…0e34              Head {h00=0x0020, h01=0x001c, text=»*        APPLICATION ROUTINE«, t00=0x0009, t01=0x0008}
0x0e34…0e3e              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0009, t01=0x002c}
0x0e3e…0e52              Head {h00=0x0010, h01=0x0050, text=»DEAPPL PROC «, t00=0x0009, t01=0x0036}
0x0e52…0e76              Head {h00=0x0020, h01=0x0050, text=» CBG DEBINW3,=W'100',DEAPP0 «, t00=0x0009, t01=0x004a}
0x0e76…0e8c              Head {h00=0x0012, h01=0x0050, text=» IB DEBINW3  C«, t00=0x0009, t01=0x006e}
0x0e8c…0ea2              Head {h00=0x0012, h01=0x0050, text=»  DEAPRTES  C «, t00=0x0009, t01=0x0084}
0x0ea2…0eb6              Head {h00=0x0010, h01=0x0050, text=»  DEAUNIT  C«, t00=0x0009, t01=0x009a}
0x0eb6…0eca              Head {h00=0x0010, h01=0x0050, text=»  DEAJOB  C «, t00=0x0009, t01=0x00ae}
0x0eca…0ee0              Head {h00=0x0012, h01=0x0050, text=»  DEABATCH  C «, t00=0x0009, t01=0x00c2}
0x0ee0…0ef6              Head {h00=0x0012, h01=0x0050, text=»  DEAENKEY  C «, t00=0x0009, t01=0x00d8}
0x0ef6…0f08              Head {h00=0x000e, h01=0x0050, text=»  DEUNENT «, t00=0x0009, t01=0x00ee}
0x0f08…0f1a              Head {h00=0x000e, h01=0x0050, text=» B DEAER6 «, t00=0x0009, t01=0x0100}
0x0f1a…0f40              Head {h00=0x0022, h01=0x0050, text=»DEAPRTES   CHECK OF NEW PRNUM «, t00=0x0009, t01=0x0112}
0x0f40…0f5c              Head {h00=0x0018, h01=0x0050, text=» MOVE BCD13A,DEINPUT«, t00=0x0009, t01=0x0138}
0x0f5c…0f76              Head {h00=0x0016, h01=0x0050, text=» MOVE BIN1,BCD13A «, t00=0x0009, t01=0x0154}
0x0f76…0f9e              Head {h00=0x0024, h01=0x0050, text=» MOVE BIN2,BIN1 SAVE KEYED INPUT«, t00=0x0009, t01=0x016e}
0x0f9e…0fb2              Head {h00=0x0010, h01=0x0050, text=» DIV BIN1,W8«, t00=0x000a, t01=0x0008}
0x0fb2…0fe4              Head {h00=0x002e, h01=0x0050, text=» XCOPY DEBINW4,W0,W2,PROGNR,BIN1 PROGRAMNR«, t00=0x000a, t01=0x001c}
0x0fe4…0ff8              Head {h00=0x0010, h01=0x0050, text=» MUL BIN1,W8«, t00=0x000a, t01=0x004e}
0x0ff8…100e              Head {h00=0x0012, h01=0x0050, text=» SUB BIN2,BIN1«, t00=0x000a, t01=0x0062}
0x100e…1040              Head {h00=0x002e, h01=0x0050, text=» CALL TESTB,DEBINW4,BIN2 LOOK IF EXISTING «, t00=0x000a, t01=0x0078}
0x1040…1060              Head {h00=0x001c, h01=0x0050, text=» BZ DEAPRERR JUMP IF NOT«, t00=0x000a, t01=0x00aa}
0x1060…1076              Head {h00=0x0012, h01=0x0050, text=» MOVE BIN1,W0 «, t00=0x000a, t01=0x00ca}
0x1076…10a0              Head {h00=0x0026, h01=0x0050, text=» CALL UPDBOL,BIN1 CLEAR ALL BOOLS «, t00=0x000a, t01=0x00e0}
0x10a0…10ba              Head {h00=0x0016, h01=0x0050, text=» MOVE BCD2A,BCD13A«, t00=0x000a, t01=0x010a}
0x10ba…10d2              Head {h00=0x0014, h01=0x0050, text=» MOVE BIN2,BCD2A«, t00=0x000a, t01=0x0124}
0x10d2…10ea              Head {h00=0x0014, h01=0x0050, text=» MOVE BCD3A,W10 «, t00=0x000a, t01=0x013c}
0x10ea…1104              Head {h00=0x0016, h01=0x0050, text=» DIV BCD13A,BCD3A «, t00=0x000a, t01=0x0154}
0x1104…111e              Head {h00=0x0016, h01=0x0050, text=» MOVE BIN1,BCD13A «, t00=0x000a, t01=0x016e}
0x111e…1132              Head {h00=0x0010, h01=0x0050, text=» PERF DEPMSK«, t00=0x000a, t01=0x0188}
0x1132…1142              Head {h00=0x000c, h01=0x0050, text=»DEAENKEY«, t00=0x000b, t01=0x000c}
0x1142…115a              Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW3,W0«, t00=0x000b, t01=0x001c}
0x115a…1174              Head {h00=0x0016, h01=0x0050, text=» MOVE DEBINW2,W17 «, t00=0x000b, t01=0x0034}
0x1174…1186              Head {h00=0x000e, h01=0x0050, text=» B DEAOK0 «, t00=0x000b, t01=0x004e}
0x1186…1196              Head {h00=0x000c, h01=0x0050, text=»DEAPRERR«, t00=0x000b, t01=0x0060}
0x1196…11ae              Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW4,W7«, t00=0x000b, t01=0x0070}
0x11ae…11c0              Head {h00=0x000e, h01=0x0050, text=» B DEANOK «, t00=0x000b, t01=0x0088}
0x11c0…11ca              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x009a}
0x11ca…11d4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00a4}
0x11d4…11fc              Head {h00=0x0024, h01=0x0050, text=» ATTFMT FORMN DUMMY INSTRUCTION «, t00=0x000b, t01=0x00ae}
0x11fc…121c              Head {h00=0x001c, h01=0x0050, text=» ATTFMT FORMA     - " - «, t00=0x000b, t01=0x00d6}
0x121c…1230              Head {h00=0x0010, h01=0x0050, text=» ATTFMT VSET«, t00=0x000b, t01=0x00f6}
0x1230…123e              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x010a}
0x123e…124e              Head {h00=0x000c, h01=0x0050, text=»DEUNENT «, t00=0x000b, t01=0x0118}
0x124e…1268              Head {h00=0x0016, h01=0x0050, text=» MOVE DEBINW2,W17 «, t00=0x000b, t01=0x0128}
0x1268…1278              Head {h00=0x000c, h01=0x0050, text=»DEAUNIT «, t00=0x000b, t01=0x0142}
0x1278…12a6              Head {h00=0x002a, h01=0x0050, text=» MOVE BCD2A,DEINPUT CHECK IF SPECIFIED«, t00=0x000b, t01=0x0152}
0x12a6…12d0              Head {h00=0x0026, h01=0x0050, text=» MOVE DEBINW4,BCD2A UNIT NUMBER IS«, t00=0x000b, t01=0x0180}
0x12d0…12ee              Head {h00=0x001a, h01=0x0050, text=» MOVE FILINDUS,DEBINW4«, t00=0x000c, t01=0x001a}
0x12ee…1326              Head {h00=0x0034, h01=0x0050, text=» XCOPY DEBINW4,W1,W1,DUNIT,FILINDUS GET FILECODE«, t00=0x000c, t01=0x0038}
0x1326…133e              Head {h00=0x0014, h01=0x0050, text=» ADD FILINDUS,W2«, t00=0x000c, t01=0x0070}
0x133e…1368              Head {h00=0x0026, h01=0x0050, text=» CBE FCOUNTER(FILINDUS),W0,DEAUN0 «, t00=0x000c, t01=0x0088}
0x1368…137e              Head {h00=0x0012, h01=0x0050, text=» ERASE 1,W2,W2«, t00=0x000c, t01=0x00b2}
0x137e…13a4              Head {h00=0x0022, h01=0x0050, text=» MOVE TABLE,FVOLNAME(FILINDUS)«, t00=0x000c, t01=0x00c8}
0x13a4…13b6              Head {h00=0x000e, h01=0x0050, text=» B DEAUN5 «, t00=0x000c, t01=0x00ee}
0x13b6…13c4              Head {h00=0x000a, h01=0x0050, text=»DEAUN0«, t00=0x000c, t01=0x0100}
0x13c4…13f6              Head {h00=0x002e, h01=0x0050, text=» CALL CHANFC,DISK,DEBINW4 CHANGE FILECODE «, t00=0x000c, t01=0x010e}
0x13f6…1434              Head {h00=0x003a, h01=0x0050, text=» CALL GETVOL,DISK,RBUF,STRG10A,DEBINW4 GET VOLUMENAME «, t00=0x000c, t01=0x0140}
0x1434…1460              Head {h00=0x0028, h01=0x0050, text=» CBE DEBINW4,W0,DEAUN4 JUMP IF OKEY «, t00=0x000c, t01=0x017e}
0x1460…1482              Head {h00=0x001e, h01=0x0050, text=» MOVE DEBINW4,W9 NOT FOUND«, t00=0x000d, t01=0x001a}
0x1482…1494              Head {h00=0x000e, h01=0x0050, text=» B DEANOK «, t00=0x000d, t01=0x003c}
0x1494…14a2              Head {h00=0x000a, h01=0x0050, text=»DEAUN4«, t00=0x000d, t01=0x004e}
0x14a2…14b8              Head {h00=0x0012, h01=0x0050, text=» ERASE 1,W2,W2«, t00=0x000d, t01=0x005c}
0x14b8…14d4              Head {h00=0x0018, h01=0x0050, text=» MOVE TABLE,STRG10A «, t00=0x000d, t01=0x0072}
0x14d4…14fa              Head {h00=0x0022, h01=0x0050, text=» MOVE FVOLNAME(FILINDUS),TABLE«, t00=0x000d, t01=0x008e}
0x14fa…1508              Head {h00=0x000a, h01=0x0050, text=»DEAUN5«, t00=0x000d, t01=0x00b4}
0x1508…1520              Head {h00=0x0014, h01=0x0050, text=» DISPLAY 2,W1,W1«, t00=0x000d, t01=0x00c2}
0x1520…1532              Head {h00=0x000e, h01=0x0050, text=» B DEAOK0 «, t00=0x000d, t01=0x00da}
0x1532…1540              Head {h00=0x000a, h01=0x0050, text=»DEAUN2«, t00=0x000d, t01=0x00ec}
0x1540…1558              Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW4,W7«, t00=0x000d, t01=0x00fa}
0x1558…156a              Head {h00=0x000e, h01=0x0050, text=» B DEANOK «, t00=0x000d, t01=0x0112}
0x156a…158e              Head {h00=0x0020, h01=0x0050, text=»DEAJOB   CHECK IF SPECIFIED «, t00=0x000d, t01=0x0124}
0x158e…15ae              Head {h00=0x001c, h01=0x0050, text=» MOVE STSAVE(W1),DEINPUT«, t00=0x000d, t01=0x0148}
0x15ae…15d4              Head {h00=0x0022, h01=0x0050, text=»   JOBNAME EXISTS ON USERFILE «, t00=0x000d, t01=0x0168}
0x15d4…15e6              Head {h00=0x000e, h01=0x0050, text=» B DEAOK0 «, t00=0x000d, t01=0x018e}
0x15e6…160c              Head {h00=0x0022, h01=0x0050, text=»DEABATCH   CHECK IF SPECIFIED «, t00=0x000e, t01=0x0010}
0x160c…1630              Head {h00=0x0020, h01=0x0050, text=»   BATCH EXISTS ON USERFILE «, t00=0x000e, t01=0x0036}
0x1630…1650              Head {h00=0x001c, h01=0x0050, text=» MOVE STSAVE(W2),DEINPUT«, t00=0x000e, t01=0x005a}
0x1650…1662              Head {h00=0x000e, h01=0x0050, text=» B DEAOK0 «, t00=0x000e, t01=0x007a}
0x1662…1670              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000e, t01=0x008c}
0x1670…167a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x009a}
0x167a…16ba              Head {h00=0x003c, h01=0x0050, text=»*        JUMP TO APPL HANDLING IN CORRESPONDING PROGRAM «, t00=0x000e, t01=0x00a4}
0x16ba…16c4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00e4}
0x16c4…16d2              Head {h00=0x000a, h01=0x0050, text=»DEAPP0«, t00=0x000e, t01=0x00ee}
0x16d2…16ee              Head {h00=0x0018, h01=0x0050, text=» SUB DEBINW3,=W'100'«, t00=0x000e, t01=0x00fc}
0x16ee…1716              Head {h00=0x0024, h01=0x0050, text=» MOVE DEBINW4,PRNUM SAVE PRNNUM «, t00=0x000e, t01=0x0118}
0x1716…1736              Head {h00=0x001c, h01=0x0050, text=» MOVE BCD3A,W10 LOAD +10«, t00=0x000e, t01=0x0140}
0x1736…1764              Head {h00=0x002a, h01=0x0050, text=» DIV PRNUM,BCD3A GET MODE TENTH FIGURE«, t00=0x000e, t01=0x0160}
0x1764…1790              Head {h00=0x0028, h01=0x0050, text=» MOVE DEBIN1,PRNUM LOAD MODE BINARY «, t00=0x000e, t01=0x018e}
0x1790…17ba              Head {h00=0x0026, h01=0x0050, text=» MOVE PRNUM,DEBINW4 RESTORE PRNUM «, t00=0x000f, t01=0x002a}
0x17ba…17ec              Head {h00=0x002e, h01=0x0050, text=» MOVE BCD2A,PRNUM GET MODE LEVEL ONETH FIG«, t00=0x000f, t01=0x0054}
0x17ec…181e              Head {h00=0x002e, h01=0x0050, text=» MOVE DEBINW4,BCD2A LOAD MODE LEVEL BINARY«, t00=0x000f, t01=0x0086}
0x181e…1842              Head {h00=0x0020, h01=0x0050, text=» IB DEBIN1 JUMP MODE APPL C «, t00=0x000f, t01=0x00b8}
0x1842…1856              Head {h00=0x0010, h01=0x0050, text=»  DEAP1A  C «, t00=0x000f, t01=0x00dc}
0x1856…186a              Head {h00=0x0010, h01=0x0050, text=»  DEAP2A  C «, t00=0x000f, t01=0x00f0}
0x186a…187e              Head {h00=0x0010, h01=0x0050, text=»  DEAP3A  C «, t00=0x000f, t01=0x0104}
0x187e…1892              Head {h00=0x0010, h01=0x0050, text=»  DEAER6  C «, t00=0x000f, t01=0x0118}
0x1892…18a6              Head {h00=0x0010, h01=0x0050, text=»  DEAP5A  C «, t00=0x000f, t01=0x012c}
0x18a6…18ba              Head {h00=0x0010, h01=0x0050, text=»  DEAER6  C «, t00=0x000f, t01=0x0140}
0x18ba…18ce              Head {h00=0x0010, h01=0x0050, text=»  DEAP7A  C «, t00=0x000f, t01=0x0154}
0x18ce…18de              Head {h00=0x000c, h01=0x0050, text=»  DEAER6«, t00=0x000f, t01=0x0168}
0x18de…18f0              Head {h00=0x000e, h01=0x0050, text=» B DEAER6 «, t00=0x000f, t01=0x0178}
0x18f0…18fe              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000f, t01=0x018a}
0x18fe…1940              Head {h00=0x003e, h01=0x0050, text=»*      RETURNS FROM APPL HANDLING IN CORRESPONDING PROGRAM«, t00=0x0010, t01=0x0008}
0x1940…194a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x004a}
0x194a…1958              Head {h00=0x000a, h01=0x0050, text=»DEAOK0«, t00=0x0010, t01=0x0054}
0x1958…1970              Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW3,W0«, t00=0x0010, t01=0x0062}
0x1970…197c              Head {h00=0x0008, h01=0x0004, text=» RET«, t00=0x0010, t01=0x007a}
0x197c…198a              Head {h00=0x000a, h01=0x0050, text=»DEAOK1«, t00=0x0010, t01=0x0086}
0x198a…19a2              Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW3,W1«, t00=0x0010, t01=0x0094}
0x19a2…19ae              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0010, t01=0x00ac}
0x19ae…19bc              Head {h00=0x000a, h01=0x0050, text=»DEAOK2«, t00=0x0010, t01=0x00b8}
0x19bc…19d4              Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW3,W2«, t00=0x0010, t01=0x00c6}
0x19d4…19e0              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0010, t01=0x00de}
0x19e0…19ee              Head {h00=0x000a, h01=0x0050, text=»DEAOK4«, t00=0x0010, t01=0x00ea}
0x19ee…1a06              Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW3,W4«, t00=0x0010, t01=0x00f8}
0x1a06…1a12              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0010, t01=0x0110}
0x1a12…1a20              Head {h00=0x000a, h01=0x0050, text=»DEAER6«, t00=0x0010, t01=0x011c}
0x1a20…1a46              Head {h00=0x0022, h01=0x0050, text=» MOVE DEBINW4,W6 ILLEGAL VALUE«, t00=0x0010, t01=0x012a}
0x1a46…1a54              Head {h00=0x000a, h01=0x0050, text=»DEANOK«, t00=0x0010, t01=0x0150}
0x1a54…1a6c              Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW3,W3«, t00=0x0010, t01=0x015e}
0x1a6c…1a78              Head {h00=0x0008, h01=0x0004, text=» RET«, t00=0x0010, t01=0x0176}
0x1a78…1a86              Head {h00=0x000a, h01=0x0005, text=» PEND «, t00=0x0010, t01=0x0182}
0x1a86…1a94              Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0010, t01=0x0190}
0x1a94…1a9e              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0011, t01=0x000e}
0x1a9e…1ac8              Head {h00=0x0026, h01=0x0021, text=»*        TABULATION-CHECK ROUTINE «, t00=0x0011, t01=0x0018}
0x1ac8…1ad2              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0011, t01=0x0042}
0x1ad2…1ae6              Head {h00=0x0010, h01=0x0050, text=»DETCHK PROC «, t00=0x0011, t01=0x004c}
0x1ae6…1b00              Head {h00=0x0016, h01=0x0050, text=» TBF DOOL3,DCHKUT «, t00=0x0011, t01=0x0060}
0x1b00…1b18              Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW3,W2«, t00=0x0011, t01=0x007a}
0x1b18…1b24              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0011, t01=0x0092}
0x1b24…1b32              Head {h00=0x000a, h01=0x0050, text=»DCHKUT«, t00=0x0011, t01=0x009e}
0x1b32…1b4a              Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW3,W0«, t00=0x0011, t01=0x00ac}
0x1b4a…1b56              Head {h00=0x0008, h01=0x0004, text=» RET«, t00=0x0011, t01=0x00c4}
0x1b56…1b64              Head {h00=0x000a, h01=0x0005, text=» PEND «, t00=0x0011, t01=0x00d0}
0x1b64…1b72              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x00de}
0x1b72…1bbc              Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x0011, t01=0x00ec}
0x1bbc…1c06              Head {h00=0x0046, h01=0x0050, text=»* THIS PROCEDURE RETURNS THE PROGRAMNUMBER SPLIT INTO TO BINARYS *«, t00=0x0011, t01=0x0136}
0x1c06…1c50              Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x0011, t01=0x0180}
0x1c50…1c74              Head {h00=0x0020, h01=0x0050, text=»DEPRUT PROC NUM,FIRST,SECOND«, t00=0x0012, t01=0x003a}
0x1c74…1c86              Head {h00=0x000e, h01=0x0050, text=» PBCD NUM «, t00=0x0012, t01=0x005e}
0x1c86…1c9a              Head {h00=0x0010, h01=0x0050, text=» PBIN FIRST «, t00=0x0012, t01=0x0070}
0x1c9a…1cae              Head {h00=0x0010, h01=0x0050, text=» PBIN SECOND«, t00=0x0012, t01=0x0084}
0x1cae…1cc6              Head {h00=0x0014, h01=0x0050, text=» MOVE FIRST,NUM «, t00=0x0012, t01=0x0098}
0x1cc6…1cdc              Head {h00=0x0012, h01=0x0050, text=» DIV FIRST,W10«, t00=0x0012, t01=0x00b0}
0x1cdc…1cf4              Head {h00=0x0014, h01=0x0050, text=» MOVE BCD2A,NUM «, t00=0x0012, t01=0x00c6}
0x1cf4…1d0e              Head {h00=0x0016, h01=0x0050, text=» MOVE SECOND,BCD2A«, t00=0x0012, t01=0x00de}
0x1d0e…1d1a              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0012, t01=0x00f8}
0x1d1a…1d28              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0012, t01=0x0104}
0x1d28…1d36              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x0112}
0x1d36…1d66              Head {h00=0x002c, h01=0x0050, text=»****************************************«, t00=0x0012, t01=0x0120}
0x1d66…1d96              Head {h00=0x002c, h01=0x0050, text=»* THIS PROCEDURE FIX THE PROGRAMMASKS. *«, t00=0x0012, t01=0x0150}
0x1d96…1dc6              Head {h00=0x002c, h01=0x0050, text=»****************************************«, t00=0x0012, t01=0x0180}
0x1dc6…1dda              Head {h00=0x0010, h01=0x0050, text=»DEPMSK PROC «, t00=0x0013, t01=0x0020}
0x1dda…1df2              Head {h00=0x0014, h01=0x0050, text=» MOVE PINACC,W0 «, t00=0x0013, t01=0x0034}
0x1df2…1e0a              Head {h00=0x0014, h01=0x0050, text=» MOVE PJOBCUR,W0«, t00=0x0013, t01=0x004c}
0x1e0a…1e22              Head {h00=0x0014, h01=0x0050, text=» MOVE PINDFR,W0 «, t00=0x0013, t01=0x0064}
0x1e22…1e3a              Head {h00=0x0014, h01=0x0050, text=» MOVE PINDTB,W0 «, t00=0x0013, t01=0x007c}
0x1e3a…1e52              Head {h00=0x0014, h01=0x0050, text=» MOVE BIN4,BIN1 «, t00=0x0013, t01=0x0094}
0x1e52…1e7c              Head {h00=0x0026, h01=0x0050, text=» SUB BIN4,W1 FIRST DIGIT IN PRNUM «, t00=0x0013, t01=0x00ac}
0x1e7c…1e9e              Head {h00=0x001e, h01=0x0050, text=» BNL DEAPR10 JUMP IF > 00 «, t00=0x0013, t01=0x00d6}
0x1e9e…1eb6              Head {h00=0x0014, h01=0x0050, text=» MOVE KEYMSK,W0 «, t00=0x0013, t01=0x00f8}
0x1eb6…1ec2              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0013, t01=0x0110}
0x1ec2…1ed2              Head {h00=0x000c, h01=0x0050, text=»DEAPR10 «, t00=0x0013, t01=0x011c}
0x1ed2…1ee8              Head {h00=0x0012, h01=0x0050, text=» MUL BIN4,W10 «, t00=0x0013, t01=0x012c}
0x1ee8…1f12              Head {h00=0x0026, h01=0x0050, text=» ADD BIN4,BIN2 NEXT DIGIT IN PRNUM«, t00=0x0013, t01=0x0142}
0x1f12…1f3a              Head {h00=0x0024, h01=0x0050, text=» DIV BIN4,W2 BYTE POS IN PRKEYS «, t00=0x0013, t01=0x016c}
0x1f3a…1f52 (20, 0, 400) Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW3,W0«, t00=0x0014, t01=0x0004}
0x1f52…1f7a              Head {h00=0x0024, h01=0x0050, text=» XCOPY DEBINW3,W1,W1,PRKEYS,BIN4«, t00=0x0014, t01=0x001c}
0x1f7a…1faa              Head {h00=0x002c, h01=0x0050, text=» CALL TESTB,BIN2,W15 LOOK WHICH HALFBYTE«, t00=0x0014, t01=0x0044}
0x1faa…1fcc              Head {h00=0x001e, h01=0x0050, text=» BZ DEAPR20 JUMP IF FIRST «, t00=0x0014, t01=0x0074}
0x1fcc…1fe6              Head {h00=0x0016, h01=0x0050, text=» MOVE DEBINW2,W15 «, t00=0x0014, t01=0x0096}
0x1fe6…200a              Head {h00=0x0020, h01=0x0050, text=» CALL MSKOUT,DEBINW2,DEBINW3«, t00=0x0014, t01=0x00b0}
0x200a…2026              Head {h00=0x0018, h01=0x0050, text=» MOVE KEYMSK,DEBINW2«, t00=0x0014, t01=0x00d4}
0x2026…2032              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0014, t01=0x00f0}
0x2032…2042              Head {h00=0x000c, h01=0x0050, text=»DEAPR20 «, t00=0x0014, t01=0x00fc}
0x2042…205a              Head {h00=0x0014, h01=0x0050, text=» DIV DEBINW3,W16«, t00=0x0014, t01=0x010c}
0x205a…2076              Head {h00=0x0018, h01=0x0050, text=» MOVE KEYMSK,DEBINW3«, t00=0x0014, t01=0x0124}
0x2076…2082              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0014, t01=0x0140}
0x2082…2090              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0014, t01=0x014c}
0x2090…209e              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0014, t01=0x015a}
0x209e…20a8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0168}
0x20a8…20f6              Head {h00=0x004a, h01=0x0050, text=»*   ATTACH DE-PRINTER. SHOULD BE PERFORMED BEFORE ANY PRINTING IS DONE«, t00=0x0014, t01=0x0172}
0x20f6…2128              Head {h00=0x002e, h01=0x0050, text=»*   CONDITION-REGISTER IS SET TO  0 : OKAY«, t00=0x0015, t01=0x0030}
0x2128…2164              Head {h00=0x0038, h01=0x0050, text=»*                                 1 : PRINTER BUSY; «, t00=0x0015, t01=0x0062}
0x2164…21b4              Head {h00=0x004c, h01=0x0050, text=»*   IF THE PRINTER IS BUSY, THE ERROR-INDICATION 11 (IN USE) IS GIVEN IN«, t00=0x0015, t01=0x009e}
0x21b4…2204              Head {h00=0x004c, h01=0x0050, text=»*   IN DEBIN1, THE TERMINALNUMBER OF THE CURRENT TASK IS RGIVEN FOR EV P«, t00=0x0015, t01=0x00ee}
0x2204…220e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x013e}
0x220e…2222              Head {h00=0x0010, h01=0x0050, text=»ATTPRT PROC «, t00=0x0015, t01=0x0148}
0x2222…2240              Head {h00=0x001a, h01=0x0050, text=» MOVE DEBINW4,=X'0036'«, t00=0x0015, t01=0x015c}
0x2240…225c              Head {h00=0x0018, h01=0x0050, text=» PERF ATTDEV,DEBINW4«, t00=0x0015, t01=0x017a}
0x225c…2268              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0016, t01=0x0008}
0x2268…2276              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0016, t01=0x0014}
0x2276…228c              Head {h00=0x0012, h01=0x0050, text=»ATTDEV PROC FC«, t00=0x0016, t01=0x0022}
0x228c…22ac              Head {h00=0x001c, h01=0x0050, text=» CALL CHANFC,DEDSPRT,FC «, t00=0x0016, t01=0x0038}
0x22ac…22c4              Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW4,W0«, t00=0x0016, t01=0x0058}
0x22c4…22fe              Head {h00=0x0036, h01=0x0050, text=» DSC0 .NW,DEDSPRT,TSTAT CHECK IF PRINTER AVAILABLE«, t00=0x0016, t01=0x0070}
0x22fe…2322              Head {h00=0x0020, h01=0x0050, text=» DELAY W4 WAIT FOR 4/100 SEC«, t00=0x0016, t01=0x00aa}
0x2322…233a              Head {h00=0x0014, h01=0x0050, text=» TESTIO DEDSPRT «, t00=0x0016, t01=0x00ce}
0x233a…234c              Head {h00=0x000e, h01=0x0050, text=» BNZ NOTOK«, t00=0x0016, t01=0x00e6}
0x234c…2362              Head {h00=0x0012, h01=0x0050, text=» WAIT DEDSPRT «, t00=0x0016, t01=0x00f8}
0x2362…2380              Head {h00=0x001a, h01=0x0050, text=» XSTAT DEDSPRT,DEBINW4«, t00=0x0016, t01=0x010e}
0x2380…239a              Head {h00=0x0016, h01=0x0050, text=» CBE DEBINW4,W0,OK«, t00=0x0016, t01=0x012c}
0x239a…23b2              Head {h00=0x0014, h01=0x0050, text=» B ATT10 NOT OK «, t00=0x0016, t01=0x0146}
0x23b2…23c0              Head {h00=0x000a, h01=0x0050, text=»NOTOK «, t00=0x0016, t01=0x015e}
0x23c0…23d6              Head {h00=0x0012, h01=0x0050, text=» ABORT DEDSPRT«, t00=0x0016, t01=0x016c}
0x23d6…23f2              Head {h00=0x0018, h01=0x0050, text=» B ATT10 NO PRINTER «, t00=0x0016, t01=0x0182}
0x23f2…23fc              Head {h00=0x0006, h01=0x0050, text=»OK«, t00=0x0017, t01=0x000e}
0x23fc…241c              Head {h00=0x001c, h01=0x0050, text=» DSC1 DEDSPRT,ATTACH,W20«, t00=0x0017, t01=0x0018}
0x241c…242c              Head {h00=0x000c, h01=0x0050, text=» BOK OUT«, t00=0x0017, t01=0x0038}
0x242c…2446              Head {h00=0x0016, h01=0x0050, text=» MOVE DEBINW4,W11 «, t00=0x0017, t01=0x0048}
0x2446…2454              Head {h00=0x000a, h01=0x0050, text=» B OUT«, t00=0x0017, t01=0x0062}
0x2454…2462              Head {h00=0x000a, h01=0x0050, text=»ATT10 «, t00=0x0017, t01=0x0070}
0x2462…2496              Head {h00=0x0030, h01=0x0050, text=» MOVE DEBINW4,=W'35' 'OUT-DEV NOT OPERABLE' «, t00=0x0017, t01=0x007e}
0x2496…24a2              Head {h00=0x0008, h01=0x0050, text=»OUT «, t00=0x0017, t01=0x00b2}
0x24a2…24ce              Head {h00=0x0028, h01=0x0050, text=» PERF COND SET/CLEAR CONDITION REG. «, t00=0x0017, t01=0x00be}
0x24ce…24da              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0017, t01=0x00ea}
0x24da…24e8              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0017, t01=0x00f6}
0x24e8…24f2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0104}
0x24f2…2534              Head {h00=0x003e, h01=0x0050, text=»*   RELEASE DE-PRINTER. MUST BE PERFORMED AFTER PRINTOUT. «, t00=0x0017, t01=0x010e}
0x2534…253e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0150}
0x253e…2552              Head {h00=0x0010, h01=0x0050, text=»DETPRT PROC «, t00=0x0017, t01=0x015a}
0x2552…2572              Head {h00=0x001c, h01=0x0050, text=» DSC1 DEDSPRT,DETACH,W0 «, t00=0x0017, t01=0x016e}
0x2572…257e              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0017, t01=0x018e}
0x257e…258c              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0018, t01=0x000a}
0x258c…2596              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0018}
0x2596…25ca              Head {h00=0x0030, h01=0x0050, text=»*   THIS ROUTINE CALCULATE FIELDNUMBER FOR A«, t00=0x0018, t01=0x0022}
0x25ca…25fa              Head {h00=0x002c, h01=0x0050, text=»*   RELATIVE FIELD ADRESSING TYP + OR - «, t00=0x0018, t01=0x0056}
0x25fa…2604              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0086}
0x2604…2622              Head {h00=0x001a, h01=0x0050, text=»DEFIND PROC VAR1,VAR2 «, t00=0x0018, t01=0x0090}
0x2622…2634              Head {h00=0x000e, h01=0x0050, text=» PBIN VAR1«, t00=0x0018, t01=0x00ae}
0x2634…2646              Head {h00=0x000e, h01=0x0050, text=» PBIN VAR2«, t00=0x0018, t01=0x00c0}
0x2646…2672              Head {h00=0x0028, h01=0x0050, text=» XCOPY VAR1,W1,W1,BPOOL(BIN11),BIN12«, t00=0x0018, t01=0x00d2}
0x2672…2692              Head {h00=0x001c, h01=0x0050, text=» CBL VAR1,=W'254',UTFIN «, t00=0x0018, t01=0x00fe}
0x2692…26a8              Head {h00=0x0012, h01=0x0050, text=» ADD BIN12,W1 «, t00=0x0018, t01=0x011e}
0x26a8…26d4              Head {h00=0x0028, h01=0x0050, text=» XCOPY VAR2,W1,W1,BPOOL(BIN11),BIN12«, t00=0x0018, t01=0x0134}
0x26d4…26ea              Head {h00=0x0012, h01=0x0050, text=» GETABX BIN16 «, t00=0x0018, t01=0x0160}
0x26ea…270c              Head {h00=0x001e, h01=0x0050, text=» CBNE VAR1,=W'254',DEFI00 «, t00=0x0018, t01=0x0176}
0x270c…2724              Head {h00=0x0014, h01=0x0050, text=» MOVE VAR1,BIN16«, t00=0x0019, t01=0x0008}
0x2724…273a              Head {h00=0x0012, h01=0x0050, text=» SUB VAR1,VAR2«, t00=0x0019, t01=0x0020}
0x273a…2746              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0019, t01=0x0036}
0x2746…2754              Head {h00=0x000a, h01=0x0050, text=»DEFI00«, t00=0x0019, t01=0x0042}
0x2754…276c              Head {h00=0x0014, h01=0x0050, text=» ADD VAR2,BIN16 «, t00=0x0019, t01=0x0050}
0x276c…2784              Head {h00=0x0014, h01=0x0050, text=» MOVE VAR1,VAR2 «, t00=0x0019, t01=0x0068}
0x2784…2792              Head {h00=0x000a, h01=0x0050, text=»UTFIN «, t00=0x0019, t01=0x0080}
0x2792…279e              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0019, t01=0x008e}
0x279e…27ac              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0019, t01=0x009a}
0x27ac…27b4              Head {h00=0x0004, h01=0x0050, t00=0x0019, t01=0x00a8}
0x27b4…27c2              Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0019, t01=0x00b0}
0x27c2…27cc              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0019, t01=0x00be}
0x27cc…27e4              Head {h00=0x0014, h01=0x0010, text=»*        FORMATS«, t00=0x0019, t01=0x00c8}
0x27e4…27ee              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0019, t01=0x00e0}
0x27ee…2800              Head {h00=0x000e, h01=0x000a, text=»F00ST FRMT«, t00=0x0019, t01=0x00ea}
0x2800…280c              Head {h00=0x0008, h01=0x0004, text=» FSL«, t00=0x0019, t01=0x00fc}
0x280c…2818              Head {h00=0x0008, h01=0x0004, text=» FUL«, t00=0x0019, t01=0x0108}
0x2818…282e              Head {h00=0x0012, h01=0x0050, text=» FCOPY =C'PTS'«, t00=0x0019, t01=0x0114}
0x282e…2842              Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',1«, t00=0x0019, t01=0x012a}
0x2842…285a              Head {h00=0x0014, h01=0x0050, text=» FCOPY =C'DATA' «, t00=0x0019, t01=0x013e}
0x285a…286e              Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',1«, t00=0x0019, t01=0x0156}
0x286e…2886              Head {h00=0x0014, h01=0x0050, text=» FCOPY =C'ENTRY'«, t00=0x0019, t01=0x016a}
0x2886…289a              Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',5«, t00=0x0019, t01=0x0182}
0x289a…28b6              Head {h00=0x0018, h01=0x0050, text=» FCOPY =C'REL 10.0' «, t00=0x001a, t01=0x0008}
0x28b6…28c4              Head {h00=0x000a, h01=0x0005, text=» FNUL «, t00=0x001a, t01=0x0024}
0x28c4…28d0              Head {h00=0x0008, h01=0x0004, text=» FNL«, t00=0x001a, t01=0x0032}
0x28d0…28dc              Head {h00=0x0008, h01=0x0004, text=» FNL«, t00=0x001a, t01=0x003e}
0x28dc…28f8              Head {h00=0x0018, h01=0x0050, text=» FCOPY =C'PROGRAM:' «, t00=0x001a, t01=0x004a}
0x28f8…2924              Head {h00=0x0028, h01=0x0050, text=» FKI 9,MINL=2,MAXL=2,ME,NEOI,APPL=1 «, t00=0x001a, t01=0x0066}
0x2924…293c              Head {h00=0x0014, h01=0x0050, text=» FMEL 'XX',PRNUM«, t00=0x001a, t01=0x0092}
0x293c…2956              Head {h00=0x0016, h01=0x0011, text=» FBF BOOL1,F00OUT «, t00=0x001a, t01=0x00aa}
0x2956…2962              Head {h00=0x0008, h01=0x0004, text=» FNL«, t00=0x001a, t01=0x00c4}
0x2962…298e              Head {h00=0x0028, h01=0x0050, text=» FCOPY =C'10 SUPERVISORY FUNCTIONS' «, t00=0x001a, t01=0x00d0}
0x298e…299a              Head {h00=0x0008, h01=0x0004, text=» FNL«, t00=0x001a, t01=0x00fc}
0x299a…29ae              Head {h00=0x0010, h01=0x0050, text=» FTEXT '20 '«, t00=0x001a, t01=0x0108}
0x29ae…29c8              Head {h00=0x0016, h01=0x0050, text=» FCOPY =C'FORMAT' «, t00=0x001a, t01=0x011c}
0x29c8…29dc              Head {h00=0x0010, h01=0x0050, text=» FILLR '-',1«, t00=0x001a, t01=0x0136}
0x29dc…29fa              Head {h00=0x001a, h01=0x0050, text=» FCOPY =C'DEFINITION' «, t00=0x001a, t01=0x014a}
0x29fa…2a06              Head {h00=0x0008, h01=0x0004, text=» FNL«, t00=0x001a, t01=0x0168}
0x2a06…2a1a              Head {h00=0x0010, h01=0x0050, text=» FTEXT '30 '«, t00=0x001a, t01=0x0174}
0x2a1a…2a30              Head {h00=0x0012, h01=0x0050, text=» FCOPY =C'JOB'«, t00=0x001a, t01=0x0188}
0x2a30…2a44              Head {h00=0x0010, h01=0x0050, text=» FILLR '-',1«, t00=0x001b, t01=0x000e}
0x2a44…2a62              Head {h00=0x001a, h01=0x0050, text=» FCOPY =C'DEFINITION' «, t00=0x001b, t01=0x0022}
0x2a62…2a6e              Head {h00=0x0008, h01=0x0004, text=» FNL«, t00=0x001b, t01=0x0040}
0x2a6e…2a82              Head {h00=0x0010, h01=0x0050, text=» FTEXT '40 '«, t00=0x001b, t01=0x004c}
0x2a82…2a9a              Head {h00=0x0014, h01=0x0050, text=» FCOPY =C'ENTRY'«, t00=0x001b, t01=0x0060}
0x2a9a…2aae              Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',1«, t00=0x001b, t01=0x0078}
0x2aae…2ac6              Head {h00=0x0014, h01=0x0050, text=» FCOPY =C'MODE' «, t00=0x001b, t01=0x008c}
0x2ac6…2ad2              Head {h00=0x0008, h01=0x0004, text=» FNL«, t00=0x001b, t01=0x00a4}
0x2ad2…2ae6              Head {h00=0x0010, h01=0x0050, text=» FTEXT '50 '«, t00=0x001b, t01=0x00b0}
0x2ae6…2b00              Head {h00=0x0016, h01=0x0050, text=» FCOPY =C'SEARCH' «, t00=0x001b, t01=0x00c4}
0x2b00…2b14              Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',1«, t00=0x001b, t01=0x00de}
0x2b14…2b2c              Head {h00=0x0014, h01=0x0050, text=» FCOPY =C'MODE' «, t00=0x001b, t01=0x00f2}
0x2b2c…2b38              Head {h00=0x0008, h01=0x0004, text=» FNL«, t00=0x001b, t01=0x010a}
0x2b38…2b4c              Head {h00=0x0010, h01=0x0050, text=» FTEXT '60 '«, t00=0x001b, t01=0x0116}
0x2b4c…2b66              Head {h00=0x0016, h01=0x0050, text=» FCOPY =C'VERIFY' «, t00=0x001b, t01=0x012a}
0x2b66…2b7a              Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',1«, t00=0x001b, t01=0x0144}
0x2b7a…2b92              Head {h00=0x0014, h01=0x0050, text=» FCOPY =C'MODE' «, t00=0x001b, t01=0x0158}
0x2b92…2b9e              Head {h00=0x0008, h01=0x0004, text=» FNL«, t00=0x001b, t01=0x0170}
0x2b9e…2bbe              Head {h00=0x001c, h01=0x0050, text=» FCOPY =C'70 CONVERSION'«, t00=0x001b, t01=0x017c}
0x2bbe…2bd2              Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',1«, t00=0x001c, t01=0x000c}
0x2bd2…2bea              Head {h00=0x0014, h01=0x0050, text=» FCOPY =C'MODE' «, t00=0x001c, t01=0x0020}
0x2bea…2bf6              Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x001c, t01=0x0038}
0x2bf6…2c04              Head {h00=0x000a, h01=0x0006, text=»F00OUT«, t00=0x001c, t01=0x0044}
0x2c04…2c12              Head {h00=0x000a, h01=0x0006, text=» FMEND«, t00=0x001c, t01=0x0052}
0x2c12…2c26              Head {h00=0x0010, h01=0x0050, text=»F00RET FRMT «, t00=0x001c, t01=0x0060}
0x2c26…2c32              Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x001c, t01=0x0074}
0x2c32…2c5a              Head {h00=0x0024, h01=0x0050, text=» FTEXT 'RETURN FROM DATA-ENTRY' «, t00=0x001c, t01=0x0080}
0x2c5a…2c66              Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x001c, t01=0x00a8}
0x2c66…2c74              Head {h00=0x000a, h01=0x0050, text=» FKI 1«, t00=0x001c, t01=0x00b4}
0x2c74…2c88              Head {h00=0x0010, h01=0x0050, text=» FCOPY HEX00«, t00=0x001c, t01=0x00c2}
0x2c88…2c96              Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x001c, t01=0x00d6}
0x2c96…2ca4              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001c, t01=0x00e4}
0x2ca4…2ccc              Head {h00=0x0024, h01=0x0050, text=»******************************* «, t00=0x001c, t01=0x00f2}
0x2ccc…2cf4              Head {h00=0x0024, h01=0x0050, text=»*  TABLE  = VALUE-SET NO.     * «, t00=0x001c, t01=0x011a}
0x2cf4…2d1a              Head {h00=0x0022, h01=0x0050, text=»*  TIME  = SIZE OF ELEMENTS  *«, t00=0x001c, t01=0x0142}
0x2d1a…2d42              Head {h00=0x0024, h01=0x0050, text=»*  ACK(W1) = ELEMENT NO.       *«, t00=0x001c, t01=0x0168}
0x2d42…2d6a              Head {h00=0x0024, h01=0x0050, text=»******************************* «, t00=0x001c, t01=0x0190}
0x2d6a…2d7c              Head {h00=0x000e, h01=0x0050, text=»VSET FRMT «, t00=0x001d, t01=0x0028}
0x2d7c…2d88              Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x001d, t01=0x003a}
0x2d88…2da0              Head {h00=0x0014, h01=0x0050, text=» FMEL '99',PRNUM«, t00=0x001d, t01=0x0046}
0x2da0…2db6              Head {h00=0x0012, h01=0x0050, text=» FBT BOOL1,F13«, t00=0x001d, t01=0x005e}
0x2db6…2dd0              Head {h00=0x0016, h01=0x0050, text=» FCOPY =C' CREATE'«, t00=0x001d, t01=0x0074}
0x2dd0…2de0              Head {h00=0x000c, h01=0x0050, text=» FB F12A«, t00=0x001d, t01=0x008e}
0x2de0…2dfa              Head {h00=0x0016, h01=0x0050, text=»F13 FCOPY =C' GET'«, t00=0x001d, t01=0x009e}
0x2dfa…2e1c              Head {h00=0x001e, h01=0x0050, text=»F12A FCOPY =C' VALUE-SETS'«, t00=0x001d, t01=0x00b8}
0x2e1c…2e28              Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x001d, t01=0x00da}
0x2e28…2e42              Head {h00=0x0016, h01=0x0050, text=» FCOPY =C'NAME: T'«, t00=0x001d, t01=0x00e6}
0x2e42…2e5a              Head {h00=0x0014, h01=0x0050, text=» FBT BOOL2,F12B «, t00=0x001d, t01=0x0100}
0x2e5a…2e6a              Head {h00=0x000c, h01=0x0050, text=» FINP 7 «, t00=0x001d, t01=0x0118}
0x2e6a…2e7e              Head {h00=0x0010, h01=0x0050, text=» FCOPY TABLE«, t00=0x001d, t01=0x0128}
0x2e7e…2e8e              Head {h00=0x000c, h01=0x0050, text=» FB F12C«, t00=0x001d, t01=0x013c}
0x2e8e…2ea4              Head {h00=0x0012, h01=0x0050, text=»F12B   2 LINES«, t00=0x001d, t01=0x014c}
0x2ea4…2eda              Head {h00=0x0032, h01=0x0050, text=» FKI 8,NUM,MINL=2,MAXL=2,ME,NCLR,NEOI,APPL=101«, t00=0x001d, t01=0x0162}
0x2eda…2eee              Head {h00=0x0010, h01=0x0050, text=» FCOPY STR6A«, t00=0x001e, t01=0x0008}
0x2eee…2f00              Head {h00=0x000e, h01=0x0050, text=» FB F12UT «, t00=0x001e, t01=0x001c}
0x2f00…2f0c              Head {h00=0x0008, h01=0x0050, text=»F12C«, t00=0x001e, t01=0x002e}
0x2f0c…2f20              Head {h00=0x0010, h01=0x0050, text=» FLINK F121 «, t00=0x001e, t01=0x003a}
0x2f20…2f34              Head {h00=0x0010, h01=0x0050, text=»F12UT FMEND «, t00=0x001e, t01=0x004e}
0x2f34…2f3e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0062}
0x2f3e…2f50              Head {h00=0x000e, h01=0x0050, text=»F121 FRMT «, t00=0x001e, t01=0x006c}
0x2f50…2f5c              Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x001e, t01=0x007e}
0x2f5c…2f74              Head {h00=0x0014, h01=0x0050, text=» FCOPY =C'TYPE:'«, t00=0x001e, t01=0x008a}
0x2f74…2f8c              Head {h00=0x0014, h01=0x0050, text=» FBT BOOL3,F121A«, t00=0x001e, t01=0x00a2}
0x2f8c…2fae              Head {h00=0x001e, h01=0x0050, text=» FBF BOOL1,F124 IF CREATE «, t00=0x001e, t01=0x00ba}
0x2fae…2fbc              Head {h00=0x000a, h01=0x0050, text=»F121A «, t00=0x001e, t01=0x00dc}
0x2fbc…2fcc              Head {h00=0x000c, h01=0x0050, text=» FINP 7 «, t00=0x001e, t01=0x00ea}
0x2fcc…2fe0              Head {h00=0x0010, h01=0x0050, text=» FCOPY STR2A«, t00=0x001e, t01=0x00fa}
0x2fe0…2ff0              Head {h00=0x000c, h01=0x0050, text=» FB F125«, t00=0x001e, t01=0x010e}
0x2ff0…2ffc              Head {h00=0x0008, h01=0x0050, text=»F124«, t00=0x001e, t01=0x011e}
0x2ffc…3038              Head {h00=0x0038, h01=0x0050, text=» FKI 7,MINL=1,MAXL=1,ALPHA,NEOI,ME,NCLR,APPL=102 A/N«, t00=0x001e, t01=0x012a}
0x3038…304c              Head {h00=0x0010, h01=0x0050, text=» FCOPY STR2A«, t00=0x001e, t01=0x0166}
0x304c…3058              Head {h00=0x0008, h01=0x0050, text=»F125«, t00=0x001e, t01=0x017a}
0x3058…3068              Head {h00=0x000c, h01=0x0050, text=» FTAB 10«, t00=0x001e, t01=0x0186}
0x3068…3084              Head {h00=0x0018, h01=0x0050, text=» FCOPY =C'SIZE OF ' «, t00=0x001f, t01=0x0008}
0x3084…309e              Head {h00=0x0016, h01=0x0050, text=» FCOPY =C'ELEMENT'«, t00=0x001f, t01=0x0024}
0x309e…30b4              Head {h00=0x0012, h01=0x0050, text=» FCOPY =C'S:' «, t00=0x001f, t01=0x003e}
0x30b4…30cc              Head {h00=0x0014, h01=0x0050, text=» FBT BOOL3,F125A«, t00=0x001f, t01=0x0054}
0x30cc…30ee              Head {h00=0x001e, h01=0x0050, text=» FBF BOOL1,F127 IF CREATE «, t00=0x001f, t01=0x006c}
0x30ee…30fc              Head {h00=0x000a, h01=0x0050, text=»F125A «, t00=0x001f, t01=0x008e}
0x30fc…310c              Head {h00=0x000c, h01=0x0050, text=» FINP 28«, t00=0x001f, t01=0x009c}
0x310c…3124              Head {h00=0x0014, h01=0x0050, text=» FMEL 'XX',TIME «, t00=0x001f, t01=0x00ac}
0x3124…3134              Head {h00=0x000c, h01=0x0050, text=» FB F128«, t00=0x001f, t01=0x00c4}
0x3134…3140              Head {h00=0x0008, h01=0x0050, text=»F127«, t00=0x001f, t01=0x00d4}
0x3140…317e              Head {h00=0x003a, h01=0x0050, text=» FKI 28,MINL=1,MAXL=2,NEOI,ME,NCLR,REWRT,APPL=103 <61 «, t00=0x001f, t01=0x00e0}
0x317e…3196              Head {h00=0x0014, h01=0x0050, text=» FMEL 'XX',TIME «, t00=0x001f, t01=0x011e}
0x3196…31a2              Head {h00=0x0008, h01=0x0050, text=»F128«, t00=0x001f, t01=0x0136}
0x31a2…31ae              Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x001f, t01=0x0142}
0x31ae…31c8              Head {h00=0x0016, h01=0x0050, text=» FCOPY =C'ELEMENT'«, t00=0x001f, t01=0x014e}
0x31c8…31e0              Head {h00=0x0014, h01=0x0050, text=» FCOPY =C' NO.:'«, t00=0x001f, t01=0x0168}
0x31e0…3204              Head {h00=0x0020, h01=0x0050, text=» FBF BOOL3,FEND IF LINE 1-3 «, t00=0x001f, t01=0x0180}
0x3204…321a              Head {h00=0x0012, h01=0x0050, text=» FINP 13 ENTER«, t00=0x0020, t01=0x0014}
0x321a…3234              Head {h00=0x0016, h01=0x0050, text=» FMEL 'XX',ACK(W1)«, t00=0x0020, t01=0x002a}
0x3234…3240              Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0020, t01=0x0044}
0x3240…3256              Head {h00=0x0012, h01=0x0050, text=»* FLINK STR64A«, t00=0x0020, t01=0x0050}
0x3256…3270              Head {h00=0x0016, h01=0x0050, text=» FCTL X'DE',STR64A«, t00=0x0020, t01=0x0066}
0x3270…327c              Head {h00=0x0008, h01=0x0050, text=»FEND«, t00=0x0020, t01=0x0080}
0x327c…328a              Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0020, t01=0x008c}
0x328a…3294              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x009a}
0x3294…32a6              Head {h00=0x000e, h01=0x0050, text=»FORMN FRMT«, t00=0x0020, t01=0x00a4}
0x32a6…32d4              Head {h00=0x002a, h01=0x0050, text=» FKI 1,NUM,MINL=1,MAXL=1,REWRT,SCHK=1 «, t00=0x0020, t01=0x00b6}
0x32d4…3308              Head {h00=0x0030, h01=0x0050, text=» FMEL 'XXXXXXXXXXXXXXXXXXXXX-',FDVBCD(BIN6) «, t00=0x0020, t01=0x00e4}
0x3308…3314              Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0020, t01=0x0118}
0x3314…3330              Head {h00=0x0018, h01=0x0050, text=» FKI 1,MINL=0,MAXL=0«, t00=0x0020, t01=0x0124}
0x3330…3344              Head {h00=0x0010, h01=0x0050, text=» FCOPY HEX00«, t00=0x0020, t01=0x0140}
0x3344…3352              Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0020, t01=0x0154}
0x3352…335c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0162}
0x335c…336e              Head {h00=0x000e, h01=0x0050, text=»FORMA FRMT«, t00=0x0020, t01=0x016c}
0x336e…339a              Head {h00=0x0028, h01=0x0050, text=»* FKI 1,ALPHA,MINL=1,MAXL=1,NEOI,ME «, t00=0x0020, t01=0x017e}
0x339a…33b6              Head {h00=0x0018, h01=0x0050, text=»* FCOPY FDVBCD(BIN6)«, t00=0x0021, t01=0x001a}
0x33b6…33f0              Head {h00=0x0036, h01=0x0050, text=» FCTL X'F0',1,X'C1',X'01',X'00',X'C0',FDVBCD(BIN6)«, t00=0x0021, t01=0x0036}
0x33f0…33fc              Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0021, t01=0x0070}
0x33fc…3418              Head {h00=0x0018, h01=0x0050, text=» FKI 1,MINL=0,MAXL=0«, t00=0x0021, t01=0x007c}
0x3418…342c              Head {h00=0x0010, h01=0x0050, text=» FCOPY HEX00«, t00=0x0021, t01=0x0098}
0x342c…343a              Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0021, t01=0x00ac}
0x343a…3446              Head {h00=0x0008, h01=0x0004, text=» END«, t00=0x0021, t01=0x00ba}
0x3446…344a              Head {h00=0x4004, h01=0x0000}
0x344a…344e              00 21 00 c6                                                                                                                                                                                                                                       ┆ !  ┆
0x344e…3456 (34, 1, 8)   20 04 00 00 00 22 00 04                                                                                                                                                                                                                           ┆     "  ┆
0x3456…34a6 (35, 0, 398) 00 04 03 06 00 04 03 5b 00 04 04 44 00 04 03 f9 00 04 04 88 00 04 04 53 00 04 04 71 00 04 00 82 01 88 00 2a 00 26 03 12 00 00 0c 33 00 00 00 64 00 04 01 45 00 04 02 8a 00 04 02 81 00 04 05 3d 00 04 05 47 00 04 05 42 00 04 04 e4 00 83 00 26   ┆       [   D           S   q       * &     3   d   E           =   G   B       &┆
0x34a6…34f6              00 2a 00 26 03 12 00 00 0c 51 00 00 00 04 05 30 00 04 05 4d 00 04 07 d4 00 04 05 f3 00 04 06 b2 00 04 06 38 00 04 0a 33 00 04 00 83 00 54 00 26 00 22 03 10 00 00 0c 6f 00 00 0a 3a 00 04 0a 40 00 04 09 56 00 04 0b 9c 00 04 0b 5a 00 04 0a fb   ┆ * &     Q     0   M               8   3     T & "     o   :   @   V       Z    ┆
0x34f6…3546              00 04 0b ab 00 83 00 82 00 2a 00 26 03 12 00 00 0c 89 00 00 00 0b 00 04 0a 48 00 00 03 6e 00 00 02 2d 00 00 02 56 00 02 04 14 00 04 08 63 00 04 05 cb 00 83 00 ac 00 2a 00 26 03 12 00 00 0c a7 00 00 00 04 00 0e 00 04 08 cb 00 04 0a f8 00 00   ┆         * &             H   n   -   V       c         * &                      ┆
0x3546…3596              03 00 00 1d 00 20 00 2b 00 3f 00 50 30 3a 3b 3d 00 83 00 da 00 2a 00 26 03 12 00 00 0c c5 00 00 3f 54 2b 2d 20 2b 2d 2a 3a 44 47 52 4e 44 55 46 4d 42 41 54 43 48 4e 55 4d 42 45 52 52 45 00 83 01 08 00 2a 00 26 03 12 00 00 0c e3 00 00 43 4f   ┆       + ? P0:;=     * &        ?T+- +-*:DGRNDUFMBATCHNUMBERRE     * &        CO┆
0x3596…35e4              52 44 41 53 55 46 46 46 58 43 4f 4e 46 49 52 4d 20 56 41 4c 55 45 53 45 54 4d 2f 3d 00 83 01 36 00 2a 00 26 03 12 00 00 0d 01 00 00 3e 3c 44 47 52 4e 53 59 4d 42 4f 4c 49 43 3a 21 55 46 2b 2d 2a 3a 3b 41 53 4c 21 41 53 55 00 83 01 64         ┆RDASUFFFXCONFIRM VALUESETM/=   6 * &        ><DGRNSYMBOLIC:!UF+-*:;ASL!ASU   d┆
0x35e4…3634 (36, 0, 400) 00 2a 00 26 03 12 00 00 0d 1f 00 00 46 54 43 58 45 00 58 54 54 54 54 39 2b 54 54 54 54 54 54 54 54 54 54 54 54 54 54 54 54 54 00 84 00 04 00 2a 00 26 03 12 00 00 0d 3d 00 00 54 54 54 39 15 9f 21 c0 17 89 c0 d5 89 c0 d5 87 c0 17 87 e0 81 07   ┆ * &        FTCXE XTTTT9+TTTTTTTTTTTTTTTTT     * &     =  TTT9  !               ┆
0x3634…3684              e0 c9 c1 49 c0 0b 00 0a 00 84 00 32 00 2a 00 26 03 12 00 00 0d 5b 00 00 89 c0 0b 00 0a 87 e0 c9 c1 44 81 20 14 98 81 20 df 1f c3 07 44 45 4c 45 54 45 44 df 1f c3 00 84 00 60 00 2a 00 26 03 12 00 00 0d 79 00 00 08 49 4e 53 45 52 54 45 44 e0   ┆   I       2 * &     [           D          DELETED      ` * &     y   INSERTED ┆
0x3684…36d4              df 2b c3 09 4f 4e 20 55 4e 49 54 3a 55 13 69 e0 df 2b c3 0b 00 84 00 8e 00 2a 00 26 03 12 00 00 0d 97 00 00 57 49 54 48 49 4e 20 4a 4f 42 3a c0 6b e0 c3 11 52 45 43 4f 56 45 52 59 20 52 55 4e 4e 49 00 84 00 bc 00 2a 00 26 03 12 00 00 0d b5   ┆ +  ON UNIT:U i  +       * &        WITHIN JOB: k   RECOVERY RUNNI     * &      ┆
0x36d4…3724              00 00 4e 47 2e e0 c9 c3 11 52 45 43 4f 52 44 20 43 4f 52 52 45 43 54 49 4f 4e e0 c1 46 c3 12 46 00 84 00 ea 00 2a 00 26 03 12 00 00 0d d3 00 00 52 45 45 5a 49 4e 47 20 4f 46 20 42 41 54 43 48 20 c0 6c e0 c9 c3 15 43 4f 4e 46 49 52 4d 00 84   ┆  NG.    RECORD CORRECTION  F  F     * &        REEZING OF BATCH  l    CONFIRM  ┆
0x3724…3774              01 18 00 2a 00 26 03 12 00 00 0d f1 00 00 20 52 45 43 4f 52 44 20 49 4e 53 45 52 54 e0 c9 c3 16 43 4f 4e 46 49 52 4d 20 52 45 43 4f 00 84 01 46 00 2a 00 26 03 12 00 00 0e 0f 00 00 52 44 20 44 45 4c 45 54 45 3a e0 c9 c3 17 52 45 43 4f 52 44   ┆   * &         RECORD INSERT    CONFIRM RECO   F * &        RD DELETE:    RECORD┆

Reduced view