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

⟦9c1d5a385⟧

    Length: 17394 (0x43f2)
    Notes: pts_type(SC)
    Names: »KMDIO.SC«

Derivation

└─⟦d2cdd233a⟧ Bits:30009674 Philips computer tape "600204"
    └─⟦this⟧ »OD-KOM/KMDIO.SC« 

PTS(SC)

 IDENT KMDIO 831005 EV
         DDUM    KMD08
	PDIV 
	ENTRY	WRITFD 
         ENTRY   WRITVO 
         ENTRY   WRITJT 
         ENTRY   WTALLY 
 ENTRY WRITID 
         ENTRY   CRKJ 
	ENTRY	GRASPV 
	ENTRY	LINOPT 
	ENTRY	CRVO 
         ENTRY   WCHECK 
	ENTRY	CLEAR8 
 ENTRY EDATNR 
 EXT RADEL
	EXT	SPCHK5 
	EXT	SPLIN8 
 EXT SPERR
         EXT     FRMTJT 
	EXT	FRMXJT 
 EXT FRMXBC 
 EXT ADM
 EXT CYWRT
	EXT	FRMXVO 
 EXT FRMXTA 
         EXT     ABORT
 EXT RAWRIT 
         INCLUDE EQUATE 
* 
WRITFD	PROC 
 TBF CSKIFTWN,WRFD00
 PERF ADM,CBIN12 DISKETTE SKIFT 
 TBF CSKIFTWN,WRFD00
 CMP CBIN1,CBIN0
 RET
WRFD00
 TBF CPFLG,WRFD010 DISC OCUPIED ? 
 DELAY CBIN2 YES DELAY 200 MS 
 B WRFD00 
WRFD010 
 SET CPFLG
 CLEAR CSPLITFL 
 MOVE CTWBIN1,CBIN0 NO. OF WRITTEN RECORDS
 PERF EDATNR
 MOVE GSWBIN5,CBIN0 
 MOVE GTWBCD1,=D'0' TR 50.., RATE COUNTER 
WRFD005 
 SET CSWFLAG
 CBE CRECLGD,=W'128',WRFD006
 CLEAR CSWFLAG
WRFD006 
 EDIT CPCKBUF,PCKINIT 
 EDIT CPCKBUF,TREC1 INSERT HEADER INF 
 MOVE GSWBIN3,CBIN10
 MOVE GSWBIN4,CRECLGD 
 SUB GSWBIN4,CBIN11 
 MATCH CPCKBUF,GSWBIN3,GSWBIN4,CBLANKS,CBIN0,CBIN2
 MOVE GSWBIN4,CRECLGD 
 SUB GSWBIN4,CBIN1
 SUB GSWBIN4,GSWBIN3 REMAINING LENGTH 
 CBE GTREGNR,=D'12',WRFD070 
 TBT CSPLITFL,WRFD025 IF SPLIT PACK REST
WRFD020 
 TBF GTSPECTR,WRFD024 TR 50... ?
 CBNE GSWBIN5,=W'6',WRFD024 YES, AFTER FIELD 39/47
 ADD GTWBCD1,=D'1' YES
 CBNL GTWBCD1,GTRTANT,WRFD022 MORE 'RATE' ? 
 ADD GTDUPF(CBIN4),=D'1' YES SET NEXT 'RATE'
 SUB GSWBIN5,CBIN3 READY FOR NEXT RATE
 B WRFD024
WRFD022			CORRECT RATE ?
 SUB GTWBCD1,=D'1'
 SUB GTDUPF(CBIN4),GTWBCD1
WRFD024 
 ADD GSWBIN5,CBIN1
 CBNL GSWBIN5,CBINMAX,WRFD070 
 CBE GTUSED(GSWBIN5),CBIN0,WRFD020 USED FIELD ? 
 MOVE GSWSTR20,=X'00' YES 
 MOVE GSWBCD3,GTUSED(GSWBIN5) CONVERT 
 EDIT GSWSTR20,PFRM1
WRFD025 
	MOVE	GSWSTR1,=X'00'
 MOVE GSWBIN6,CBIN0 FIND LENGTH 
 MATCH GSWSTR20,GSWBIN6,CBIN16,GSWSTR1,CBIN0,CBIN1
 CLEAR CSPLITFL 
 CBG GSWBIN6,GSWBIN4,WRFD030 OVERFLOW ? 
 COPY CPCKBUF,GSWBIN3,GSWBIN6,GSWSTR20,CBIN0 NO 
 ADD GSWBIN3,GSWBIN6
 SUB GSWBIN4,GSWBIN6 ADJUST POINTERS
 B WRFD020 SEE IF MORE
WRFD030 
 COPY CPCKBUF,GSWBIN3,GSWBIN4,GSWSTR20,CBIN0
 MOVE GSWSTR1,=X'21' CONTINUATION MARK
 ADD GSWBIN3,GSWBIN4
 COPY CPCKBUF,GSWBIN3,CBIN1,GSWSTR1,CBIN0 
 DLETE GSWSTR20,CBIN0,GSWBIN4 
 SET CSPLITFL 
 PERF RAWRIT,DK02,=D'2',CPCKBUF,CRECNR
 BNOK WRFDERR 
 TBT GTTESTFL,WRFD005 
 ADD CTWBIN1,CBIN1
 ADD CRECNR,CBIN1 
 ADD CRECBCD,=D'1'
 B WRFD005 GO AND PACK REST 
WRFD070 
 MOVE GSWSTR1,=X'7F'
 COPY CPCKBUF,GSWBIN3,CBIN1,GSWSTR1,CBIN0 
 PERF RAWRIT,DK02,=D'2',CPCKBUF,CRECNR
 BNOK WRFDERR 
 TBT GTTESTFL,WRFD080 
 ADD CTWBIN1,CBIN1
 ADD CRECNR,CBIN1 
 ADD CRECBCD,=D'1'
 PERF RADEL,DK02,CRECNR 
 BNOK WRFDERR 
* 
*        LOOK FOR ACCOUNT NO
*        IN KONTOPLAN. IF FOUND,
*        SET FLAG GTKORTFL
* 
 CBL CRECNR,CMAXREC,WRFD080 
* 
*       HERE MUST BEE A WAARNING 'DISC NAESTEN FYLDT' 
WRFD075			DISK N[STEN FULD
 CLEAR CPFLG
 CLEAR CSPLITFL 
 MOVE SPBINW4,CBIN21
 MOVE GTWBCD2,=D'02' FILE CODE
 MOVE GTWBCD1,=D'50' ERROR CODE 
 MOVE GSWSTR9,=C'DISCFEJL ' 
 PERF SPERR 
 CMP CBIN0,CBIN0
 RET
* 
WRFD080 
 CLEAR CSPLITFL 
 CLEAR CPFLG
	CMP	CBIN0,CBIN0	OK, SET CR=0 
 RET
* 
WRFDERR 
* 
*     HERE MUST BEE RECOVERRY 
 SUB CRECNR,CTWBIN1 
 MOVE GSWBCD1,CTWBIN1 
 SUB CRECBCD,GSWBCD1
 SET CSKIFTWN 
	CLEAR	CPFLG
 SET GTREGFLG 
 CMP CBIN1,CBIN0 NOK, CR<>0 
 RET
 PEND 
 EJECT
********************************************
* 
*     EDATNR
*          FINDS DATASETNR FOR THE TRANSACTIONS 
*          AND PUT THE INFORMATION IN RELEVANT FIELDS 
* 
************************************************
EDATNR PROC 
 CLEAR TTR11FLG 
 CBG GTREGNR,=D'12',EDAT100 
 MOVE CEDATNR,=D'1' 
 CBG GTREGNR,=D'10',EDAT010 
 MOVE GTUSED(CBIN5),CBIN9 UPDATE D/K MARK 
 MOVE GTDUPF(CBIN5),TTDKBCD 
EDAT010 
 CBNE GTREGNR,=D'11',EDAT020
 SET TTR11FLG 
EDAT020 
 RET
EDAT100 
 CBG GTREGNR,=D'42',EDAT110 
 MOVE CEDATNR,=D'3' TR 40-42
 B EDAT020
EDAT110 
 CBG GTREGNR,=D'47',EDAT120 
 MOVE CEDATNR,=D'5' TR 45-47
 B EDAT020
EDAT120 
 CBG GTREGNR,=D'49',EDAT130 
 MOVE CEDATNR,=D'4' TR 48-49
 B EDAT020
EDAT130 
 MOVE CEDATNR,=D'2' TR 50-54
 B EDAT020
 PEND 
 EJECT
* 
* 
WCHECK	PROC 
	RET
	PEND 
	EJECT
WRITJT   PROC  $JTLIT 
 PLIT $JTLIT
********************
* 
*        THIS ROUTINE MAKES OUTPUT ON JOURNAL TAPE
*        DEPENDING ON TRANSACTION TYPE
* 
********************
 TBT TBCTASK,JT01 
 WAIT KVOUCH
 WAIT KTALLY
JT01
 TBT GTSPGFLG,JTRET 
         MOVE  GSWBIN1,$JTLIT 
         CBG   GSWBIN1,CBIN0,JT10 
         PERF  FRMTJT                  GET FORMAT ACORDING TO TYPE
         B     JT20 
JT10
			GET SPECIAL FORMAT 
 TBT TBCTASK,JT15 
 PERF FRMXJT,GSWBIN1 FOR JOURNAL
 B JT20 
JT15
 PERF FRMXBC,GSWBIN1 FOR COPY 80
JT20
	MOVE	GSWBIN1,TTCNTNR	'TAELLER' NR IN BINARY
 TBT GTNWFLG,JT50 
	EDWRT	KJTAPE,GTSTRFMT	EDWRT JOURNAL
* 
	DSC0	KJTAPE,TSTAT	TEST STATUS OF JOURNAL 
         BOK   JTRET
 TBT TBCTASK,JTRET
 PERF SPLIN8,CBIN1,CBIN1 'SKIFT JOURNAL'
	SET	TTJTEND
JTRET 
	RET
JT50
 EDWRT .NW,KJTAPE,GTSTRFMT
 RET
         PEND 
         EJECT
WTALLY   PROC 
******************* 
* 
*        WRITE TALLY ROLL 
* 
********************
 WAIT KVOUCH
 WAIT KTALLY
         EDWRT   .NW,KTALLY,GTSTRFMT           EDWRT WITH THE FORMAT
	RET		STORED IN GTSTRFMT
        PEND
* 
* 
         EJECT
CRKJ     PROC 
********************
* 
*         DOES A CARRIAGE RETURN ON TTP WITHOUT WAIT
* 
********************
         EDWRT   .NW,KJTAPE,CRJTFMT 
         RET
CRJTFMT	FRMT
         FILLR   ' ',2
 FILLR X'0D',1
        FMEND 
         PEND 
* 
* 
CRVO	PROC 
******************* 
* 
*          DOES A CARRIAGE RETURN ON VOUCHER WITH WAIT
* 
********************
	EDWRT	KVOUCH,CRVOFMT 
	RET
CRVOFMT	FRMT
	FILLR	' ',2
 FILLR X'09',1
	FMEND
	PEND 
* 
* 
         EJECT
WRITVO PROC 
* 
*        WRITE VOUCHER
* 
*        IN CYCLE  POSITION AND WRITE 
*                  (MAY BE NEW PAGE)
* 
*        NOT CYCLE  GET LINE NR 
*                  POSITION VOUCHER 
*                  WRITE
*                  AND RELEASE VOUCHER
* 
********************
         TBT     GTCYFLG,CYVOUCH
* NOT IN CYCLE
WOBILAG 
 PERF SPLIN8,CBIN2,CBIN0 WRITE BILAG
         PERF GRASPV
 CLEAR GTSWFLAG 
	PERF	LINOPT	SEE IF DEFAULT LINE
         BNOK    WOBILAG
	CBG	GSWBIN1,=W'90',WO90
	MOVE	GSWBIN1,TTLINNR 
	B	WO100
WO90	MOVE	GSWBIN2,=W'100' 
	SUB	GSWBIN2,GSWBIN1
	IB	GSWBIN2,		C 
		WO99,WO98,WO97,WO96,WO95,		C
		WO94,WO93,WO92,WO91 
WO99
	PERF	FRMXVO,CBIN6
	MOVE	GSWBIN1,=W'35'
	B	WO100
WO98
	PERF	FRMXVO,CBIN4
	MOVE	GSWBIN1,=W'14'
	B	WO100
WO97
	PERF	FRMXVO,CBIN5
	MOVE	GSWBIN1,=W'14'
	B	WO100
WO96
 PERF FRMXVO,CBIN17 
 MOVE GSWBIN1,=W'37'
 B WO100
WO95
WO94
WO93
 DSC0 KVOUCH,RLEAS
	B	WOBILAG
WO92			SHORT 'BILAG'
 PERF SPLIN8,CBIN2,CBIN0
 PERF GRASPV
 SET GTSWFLAG 
 PERF LINOPT
 BNOK WO92
 CBG GSWBIN1,=W'90',WO92
 MOVE GSWBIN1,TTLINNR 
 CLEAR GTSWFLAG 
	PERF FRMXVO,CBIN19 
 B WO100
WO91
	MOVE	GTRETUR,=W'3'	INDICATE KONTOKORT
	RET
* 
WO100 
	DSC1	KVOUCH,POS,GSWBIN1	POSITION VOUCHER 
	EDWRT	KVOUCH,GTSTRFMT	EDWRT WITH CURRENT FORMAT
	PERF	CRVO
WO110 
         DSC0    .NW,KVOUCH,RLEAS                RELEASE VOUCHER
         RET
* IN CYCLE
CYVOUCH 
 TBT GTCYWRTF,WO5 
 PERF CYWRT 
 BNOK WO5 
 RET
* 
WO5 
         TBT     TTTSTFLG,WO10
         SET     TTTSTFLG 
 PERF SPLIN8,CBIN5,CBIN2 WRITE 'BILAG'
         PERF    GRASPV 
	PERF	CLEAR8
WO10
	MOVE	GSWBIN1,TTLINNR 
	DSC1	KVOUCH,POS,GSWBIN1	POSITION VOUCHER 
	EDWRT	.NW,KVOUCH,GTSTRFMT
***** 
* 
*        WRITING OF TEXTLINE
*        FOR CHECK ON WORKSET 
* 
***** 
* 
*        SEE OLD SUBS                      LINES 700 - 719
* 
* 
WO20
         SUB     TTLINNR,=D'2'             NEXT LINE
         CBL     TTLINNR,=D'4',NEWPG       NEW PAGE?
	RET		NO
* 
NEWPG			NEW PAGE
 TBT TTPSEFLG,WORET T: IF SUBTOTAL
 WAIT KVOUCH
 MOVE GSWBIN1,TTLINNR 
 DSC1 KVOUCH,POS,GSWBIN1
 MOVE GSWSTR9,=C'TRP '
 PERF FRMXVO,CBIN2
 EDWRT KVOUCH,GTSTRFMT
         DSC0    KVOUCH,RLEAS 
 SET GTCYTRPF 
WORET 
 RET
         PEND 
* 
* 
         EJECT
GRASPV   PROC 
********************
* 
*        GRASP VOUCHER
* 
********************
 WAIT KVOUCH
	DSC0	KVOUCH,GRASP	GRASP VOUCHER
         RET
         PEND 
* 
* 
         EJECT
LINOPT   PROC 
********************
* 
*        CHECK LINE NUMBER, IF ANY
* 
********************
 TBT GTSWFLAG,LINST 
	TESTIO	KEYB	SEE IF INPUT FINISHED
	BNOK	LINOP1	NO, ABORT
LINST 
	WAIT	KEYB
 CBE SPBINW2,=W'18',LINOP0 SLUT KEY 
	CBNE	SPBINW2,=W'4',LINOP2	ONLY ENTER KEY ALLOWED 
LINOP0
	CBG	SPBINW1,=W'3',LINOP2	CHECK LENGTH
	MOVE	GSWBCD3,SPINPUT	GET LINE NR 
	CBG	GSWBCD3,=D'90',LINOP4	SPECIAL FORMATS? 
	PERF	SPCHK5	OK, CHECK LINENR 
	CBE	SPBINW3,=W'3',LINOP2	ERROR IN LINE NR
	MOVE	TTLINNR,GSWBIN1	GET CONVERTED LINE NO.
LIN90 
	CMP	CBIN0,CBIN0	SET CR=0,OK
	B	LINRET 
LINOP1
	CALL	ABORT,KEYB	ABORT I/O
 CBL GTDFLIN,=W'90',LINOP101
 MOVE GSWBCD3,GTDFLIN 
 B LINOP4 
LINOP101
 MOVE GSWBCD3,GTDFLIN 
 MOVE SPINPUT,GSWBCD3 
 PERF SPCHK5
 MOVE TTLINNR,GSWBIN1 SET DEFAULT LINE NO 
	CMP	CBIN0,CBIN0	SET CR=0, OK 
	MOVE	GSWBIN1,=W'0' 
	B	LINRET 
LINOP2
	DSC0	KVOUCH,RLEAS	RELEASE VOUCHER
	DSC0	KEYB,SKIB 
	CMP	CBIN0,CBIN1	SET CR<>0, NOT OK
         RET
LINOP4
	MOVE	GSWBIN1,GSWBCD3 
	B	LIN90
LINRET
	PERF	CLEAR8	DELETE LINE 8
	RET
        PEND
* 
 EJECT
WRITID PROC BUF,WRITVAR1,WRITVAR2 
********************
* 
*          PRINTS HEADING IDENTIFIED BY WRITVAR1
*          PRINTS ID IDENTIFIED BY WRITVAR2 
* 
*          PRINTS ON JOURNAL AND TALLY
* 
* 
*          WRITVAR1:
*               1   FEJL
*               2   OPSTART 
*               3   DISKETTE SKIFT
*               4   KONVERTERING
*               5   DATATRANSMISSION
*               6   BACKUP
* 
*          WRITVAR2:
*          CHARACTERS PRINTED FROM PACKBUFFER:
*               1   1-20 + 40-59
*               2   1-20 + 23-42, IF KONVERTERING 
*               2   1-20 + VOLID, IF NOT KONVERTERING 
*               3   NOTHING 
*               4   VOLID 
* 
* 
* 
********************
* 
 WAIT KJTAPE
 IB WRITVAR1,WRID31,WRID32,WRID33,WRID34,WRID35,WRID36
 B WRID50 
WRID34
 MOVE GSWSTR20,=C'FEJL '
 B WRID50 
WRID31
 MOVE GSWSTR20,=C'OPSTART ' 
 B WRID40 
WRID32
 MOVE GSWSTR20,=C'DISK SKIFT '
 B WRID40 
WRID33
 MOVE GSWSTR20,=C'KONVERTERING '
 B WRID40 
WRID35
 MOVE GSWSTR20,=C'DATATRANSMISSION '
 B WRID40 
WRID36
 MOVE GSWSTR20,=C'BACKUP '
 B WRID40 
WRID40
 PERF WRITJT,=W'12' 
 TBT TBCTASK,WRID50 
 PERF FRMXTA,CBIN6
 PERF WTALLY
* 
* 
WRID50
 TBT TBCTASK,WRID51 
 WAIT KTALLY
WRID51
 TBF TBCTASK,WRID55 
 MOVE CPRTBUF,BUF 
 PERF WRITJT,=W'13' 
 B WRID90 
WRID55
 CBE WRITVAR2,CBIN3,WRID80
 CBE WRITVAR2,CBIN4,WRID73
 MOVE GSWSTR20,BUF
 PERF WRITJT,=W'12' 
 CBG WRITVAR1,=W'3',WRID60
 TBT TBCTASK,WRID60 
 PERF FRMXTA,CBIN6
 PERF WTALLY
 WAIT KTALLY
* 
WRID60
 CBE WRITVAR2,CBIN2,WRID70
 MOVE GSWBIN2,CBIN20
 MOVE GSWBIN1,=W'40'
 COPY GSWSTR20,CBIN0,GSWBIN2,BUF,GSWBIN1
 B WRID75 
* 
WRID70
 CBNE WRITVAR1,CBIN4,WRID72 
 MOVE GSWBIN2,CBIN20
 MOVE GSWBIN1,=W'23'
 COPY GSWSTR20,CBIN0,GSWBIN2,BUF,GSWBIN1
 B WRID75 
WRID72
 CBG WRITVAR1,CBIN2,WRID80
WRID73
 MOVE GSWSTR20,CBLANKS
 MOVE GSWBCD3,CVOLNO
 EDIT GSWSTR20,FRVOLID
WRID75
 PERF WRITJT,=W'12' 
 CBL WRITVAR1,=W'4',WRID76 1,2,3,6
 CBL WRITVAR1,=W'6',WRID90 4,5
WRID76
 TBT TBCTASK,WRID85 
 PERF FRMXTA,CBIN6
 PERF WTALLY
 WAIT KTALLY
 B WRID85 
WRID80
 CBG WRITVAR1,=W'3',WRID90
WRID85
 TBT TBCTASK,WRID90 
 PERF FRMXTA,CBIN7
 PERF WTALLY
 WAIT KTALLY
WRID90
 RET
 PEND 
	EJECT
CLEAR8	PROC 
*     DELETE FIRST 14 CHARACTERS
*     OF LINE 8 
	MOVE	GSWBIN2,=X'0801'	INDICATE LAST LINE 
	DSC1	SCREEN,06,GSWBIN2 
	MOVE	GSWBIN2,CBIN14
	DSC1	SCREEN,02,GSWBIN2	ERASE 14 CHARS
	RET	 
	PEND 
* 
************************************************* 
* 
*       FORMATS FOR WRITFD
* 
********************************************************
* 
PCKINIT FRMT
 FBT CSWFLAG,INIT10 
 FILLR ' ',40 
 FILLR ' ',40 
 FILLR X'00',48 
 FEXIT
INIT10
 FILLR ' ',40 
 FILLR ' ',40 
 FILLR ' ',48 
 FMEND
* 
FRVOLID FRMT
 FMEL '999999',CMASKDAT 
 FMEL 'B99999',GSWBCD3
 FMEND
* 
TREC1 FRMT
 FMEL '999',GTMSK 
 FILLR C'G',1 
 FMEL '99',CEDATNR
 FMEL '99999',CRECBCD 
 FBT CSPLITFL,TREC40
 FMEL '99',GTREGNR
 FCOPY =C'&01'
 FMEL '9999',CKMDNR 
 FBF GTKASSE,TREC40 
 FBT GTSPECTR,TREC40 TR 50... 
 FBT TTR11FLG,TREC10
 FCOPY =C'&02'
 FMEL '999999',GTDATO 
TREC10
 FCOPY =C'&03'
 FMEL '999',GTMSK 
 FBT TTR11FLG,TREC40
 FCOPY =C'&04'
 FMEL '99999',TTLBNR
TREC40
 FMEND
* 
PFRM1 FRMT
 FCOPY =C'&'
 FMEL '99',GSWBCD3
 FBP GSWBCD3,PLAB10 
 FMEL 'TTTTTTTTTTTTT9-',GTDUPF(GSWBIN5) 
 FEXIT
PLAB10
 FMEL 'TTTTTTTTTTTTT9',GTDUPF(GSWBIN5)
 FMEND
         END

HexDump

0x0000…001e (0, 0, 398)  Head {h00=0x001a, h01=0x0050, text=» IDENT KMDIO 831005 EV«, t00=0x0000, t01=0x0004}
0x001e…003c              Head {h00=0x001a, h01=0x0050, text=»         DDUM    KMD08«, t00=0x0000, t01=0x0022}
0x003c…004a              Head {h00=0x000a, h01=0x0050, text=» PDIV «, t00=0x0000, t01=0x0040}
0x004a…0060              Head {h00=0x0012, h01=0x0050, text=» ENTRY WRITFD «, t00=0x0000, t01=0x004e}
0x0060…0080              Head {h00=0x001c, h01=0x0050, text=»         ENTRY   WRITVO «, t00=0x0000, t01=0x0064}
0x0080…00a0              Head {h00=0x001c, h01=0x0050, text=»         ENTRY   WRITJT «, t00=0x0000, t01=0x0084}
0x00a0…00c0              Head {h00=0x001c, h01=0x0050, text=»         ENTRY   WTALLY «, t00=0x0000, t01=0x00a4}
0x00c0…00d6              Head {h00=0x0012, h01=0x0050, text=» ENTRY WRITID «, t00=0x0000, t01=0x00c4}
0x00d6…00f4              Head {h00=0x001a, h01=0x0050, text=»         ENTRY   CRKJ «, t00=0x0000, t01=0x00da}
0x00f4…010a              Head {h00=0x0012, h01=0x0050, text=» ENTRY GRASPV «, t00=0x0000, t01=0x00f8}
0x010a…0120              Head {h00=0x0012, h01=0x0050, text=» ENTRY LINOPT «, t00=0x0000, t01=0x010e}
0x0120…0134              Head {h00=0x0010, h01=0x0050, text=» ENTRY CRVO «, t00=0x0000, t01=0x0124}
0x0134…0154              Head {h00=0x001c, h01=0x0050, text=»         ENTRY   WCHECK «, t00=0x0000, t01=0x0138}
0x0154…016a              Head {h00=0x0012, h01=0x0050, text=» ENTRY CLEAR8 «, t00=0x0000, t01=0x0158}
0x016a…0180              Head {h00=0x0012, h01=0x0050, text=» ENTRY EDATNR «, t00=0x0000, t01=0x016e}
0x0180…0192              Head {h00=0x000e, h01=0x0050, text=» EXT RADEL«, t00=0x0000, t01=0x0184}
0x0192…01a6              Head {h00=0x0010, h01=0x0050, text=» EXT SPCHK5 «, t00=0x0001, t01=0x0008}
0x01a6…01ba              Head {h00=0x0010, h01=0x0050, text=» EXT SPLIN8 «, t00=0x0001, t01=0x001c}
0x01ba…01cc              Head {h00=0x000e, h01=0x0050, text=» EXT SPERR«, t00=0x0001, t01=0x0030}
0x01cc…01ec              Head {h00=0x001c, h01=0x0050, text=»         EXT     FRMTJT «, t00=0x0001, t01=0x0042}
0x01ec…0200              Head {h00=0x0010, h01=0x0050, text=» EXT FRMXJT «, t00=0x0001, t01=0x0062}
0x0200…0214              Head {h00=0x0010, h01=0x0050, text=» EXT FRMXBC «, t00=0x0001, t01=0x0076}
0x0214…0224              Head {h00=0x000c, h01=0x0050, text=» EXT ADM«, t00=0x0001, t01=0x008a}
0x0224…0236              Head {h00=0x000e, h01=0x0050, text=» EXT CYWRT«, t00=0x0001, t01=0x009a}
0x0236…024a              Head {h00=0x0010, h01=0x0050, text=» EXT FRMXVO «, t00=0x0001, t01=0x00ac}
0x024a…025e              Head {h00=0x0010, h01=0x0050, text=» EXT FRMXTA «, t00=0x0001, t01=0x00c0}
0x025e…027c              Head {h00=0x001a, h01=0x0050, text=»         EXT     ABORT«, t00=0x0001, t01=0x00d4}
0x027c…0290              Head {h00=0x0010, h01=0x0050, text=» EXT RAWRIT «, t00=0x0001, t01=0x00f2}
0x0290…02b0              Head {h00=0x001c, h01=0x0050, text=»         INCLUDE EQUATE «, t00=0x0001, t01=0x0106}
0x02b0…02ba              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0126}
0x02ba…02ce              Head {h00=0x0010, h01=0x0050, text=»WRITFD PROC «, t00=0x0001, t01=0x0130}
0x02ce…02ea              Head {h00=0x0018, h01=0x0050, text=» TBF CSKIFTWN,WRFD00«, t00=0x0001, t01=0x0144}
0x02ea…0312              Head {h00=0x0024, h01=0x0050, text=» PERF ADM,CBIN12 DISKETTE SKIFT «, t00=0x0001, t01=0x0160}
0x0312…032e              Head {h00=0x0018, h01=0x0050, text=» TBF CSKIFTWN,WRFD00«, t00=0x0001, t01=0x0188}
0x032e…0346              Head {h00=0x0014, h01=0x0050, text=» CMP CBIN1,CBIN0«, t00=0x0002, t01=0x0014}
0x0346…0352              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0002, t01=0x002c}
0x0352…0360              Head {h00=0x000a, h01=0x0050, text=»WRFD00«, t00=0x0002, t01=0x0038}
0x0360…038a              Head {h00=0x0026, h01=0x0050, text=» TBF CPFLG,WRFD010 DISC OCUPIED ? «, t00=0x0002, t01=0x0046}
0x038a…03b0              Head {h00=0x0022, h01=0x0050, text=» DELAY CBIN2 YES DELAY 200 MS «, t00=0x0002, t01=0x0070}
0x03b0…03c2              Head {h00=0x000e, h01=0x0050, text=» B WRFD00 «, t00=0x0002, t01=0x0096}
0x03c2…03d2              Head {h00=0x000c, h01=0x0050, text=»WRFD010 «, t00=0x0002, t01=0x00a8}
0x03d2…03e4              Head {h00=0x000e, h01=0x0050, text=» SET CPFLG«, t00=0x0002, t01=0x00b8}
0x03e4…03fc              Head {h00=0x0014, h01=0x0050, text=» CLEAR CSPLITFL «, t00=0x0002, t01=0x00ca}
0x03fc…042e              Head {h00=0x002e, h01=0x0050, text=» MOVE CTWBIN1,CBIN0 NO. OF WRITTEN RECORDS«, t00=0x0002, t01=0x00e2}
0x042e…0442              Head {h00=0x0010, h01=0x0050, text=» PERF EDATNR«, t00=0x0002, t01=0x0114}
0x0442…045e              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN5,CBIN0 «, t00=0x0002, t01=0x0128}
0x045e…0490              Head {h00=0x002e, h01=0x0050, text=» MOVE GTWBCD1,=D'0' TR 50.., RATE COUNTER «, t00=0x0002, t01=0x0144}
0x0490…04a0              Head {h00=0x000c, h01=0x0050, text=»WRFD005 «, t00=0x0002, t01=0x0176}
0x04a0…04b4              Head {h00=0x0010, h01=0x0050, text=» SET CSWFLAG«, t00=0x0002, t01=0x0186}
0x04b4…04d8              Head {h00=0x0020, h01=0x0050, text=» CBE CRECLGD,=W'128',WRFD006«, t00=0x0003, t01=0x000a}
0x04d8…04ee              Head {h00=0x0012, h01=0x0050, text=» CLEAR CSWFLAG«, t00=0x0003, t01=0x002e}
0x04ee…04fe              Head {h00=0x000c, h01=0x0050, text=»WRFD006 «, t00=0x0003, t01=0x0044}
0x04fe…051c              Head {h00=0x001a, h01=0x0050, text=» EDIT CPCKBUF,PCKINIT «, t00=0x0003, t01=0x0054}
0x051c…054a              Head {h00=0x002a, h01=0x0050, text=» EDIT CPCKBUF,TREC1 INSERT HEADER INF «, t00=0x0003, t01=0x0072}
0x054a…0566              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN3,CBIN10«, t00=0x0003, t01=0x00a0}
0x0566…0584              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN4,CRECLGD «, t00=0x0003, t01=0x00bc}
0x0584…05a0              Head {h00=0x0018, h01=0x0050, text=» SUB GSWBIN4,CBIN11 «, t00=0x0003, t01=0x00da}
0x05a0…05da              Head {h00=0x0036, h01=0x0050, text=» MATCH CPCKBUF,GSWBIN3,GSWBIN4,CBLANKS,CBIN0,CBIN2«, t00=0x0003, t01=0x00f6}
0x05da…05f8              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN4,CRECLGD «, t00=0x0003, t01=0x0130}
0x05f8…0612              Head {h00=0x0016, h01=0x0050, text=» SUB GSWBIN4,CBIN1«, t00=0x0003, t01=0x014e}
0x0612…0640              Head {h00=0x002a, h01=0x0050, text=» SUB GSWBIN4,GSWBIN3 REMAINING LENGTH «, t00=0x0003, t01=0x0168}
0x0640…0664              Head {h00=0x0020, h01=0x0050, text=» CBE GTREGNR,=D'12',WRFD070 «, t00=0x0004, t01=0x0008}
0x0664…0694              Head {h00=0x002c, h01=0x0050, text=» TBT CSPLITFL,WRFD025 IF SPLIT PACK REST«, t00=0x0004, t01=0x002c}
0x0694…06a4              Head {h00=0x000c, h01=0x0050, text=»WRFD020 «, t00=0x0004, t01=0x005c}
0x06a4…06cc              Head {h00=0x0024, h01=0x0050, text=» TBF GTSPECTR,WRFD024 TR 50... ?«, t00=0x0004, t01=0x006c}
0x06cc…0706              Head {h00=0x0036, h01=0x0050, text=» CBNE GSWBIN5,=W'6',WRFD024 YES, AFTER FIELD 39/47«, t00=0x0004, t01=0x0094}
0x0706…0724              Head {h00=0x001a, h01=0x0050, text=» ADD GTWBCD1,=D'1' YES«, t00=0x0004, t01=0x00ce}
0x0724…0758              Head {h00=0x0030, h01=0x0050, text=» CBNL GTWBCD1,GTRTANT,WRFD022 MORE 'RATE' ? «, t00=0x0004, t01=0x00ec}
0x0758…078c              Head {h00=0x0030, h01=0x0050, text=» ADD GTDUPF(CBIN4),=D'1' YES SET NEXT 'RATE'«, t00=0x0004, t01=0x0120}
0x078c…07ba              Head {h00=0x002a, h01=0x0050, text=» SUB GSWBIN5,CBIN3 READY FOR NEXT RATE«, t00=0x0004, t01=0x0154}
0x07ba…07cc              Head {h00=0x000e, h01=0x0050, text=» B WRFD024«, t00=0x0004, t01=0x0182}
0x07cc…07ec (5, 0, 400)  Head {h00=0x001c, h01=0x0050, text=»WRFD022   CORRECT RATE ?«, t00=0x0005, t01=0x0004}
0x07ec…0806              Head {h00=0x0016, h01=0x0050, text=» SUB GTWBCD1,=D'1'«, t00=0x0005, t01=0x0024}
0x0806…0828              Head {h00=0x001e, h01=0x0050, text=» SUB GTDUPF(CBIN4),GTWBCD1«, t00=0x0005, t01=0x003e}
0x0828…0838              Head {h00=0x000c, h01=0x0050, text=»WRFD024 «, t00=0x0005, t01=0x0060}
0x0838…0852              Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN5,CBIN1«, t00=0x0005, t01=0x0070}
0x0852…0878              Head {h00=0x0022, h01=0x0050, text=» CBNL GSWBIN5,CBINMAX,WRFD070 «, t00=0x0005, t01=0x008a}
0x0878…08b0              Head {h00=0x0034, h01=0x0050, text=» CBE GTUSED(GSWBIN5),CBIN0,WRFD020 USED FIELD ? «, t00=0x0005, t01=0x00b0}
0x08b0…08d2              Head {h00=0x001e, h01=0x0050, text=» MOVE GSWSTR20,=X'00' YES «, t00=0x0005, t01=0x00e8}
0x08d2…0900              Head {h00=0x002a, h01=0x0050, text=» MOVE GSWBCD3,GTUSED(GSWBIN5) CONVERT «, t00=0x0005, t01=0x010a}
0x0900…091c              Head {h00=0x0018, h01=0x0050, text=» EDIT GSWSTR20,PFRM1«, t00=0x0005, t01=0x0138}
0x091c…092c              Head {h00=0x000c, h01=0x0050, text=»WRFD025 «, t00=0x0005, t01=0x0154}
0x092c…0948              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWSTR1,=X'00'«, t00=0x0005, t01=0x0164}
0x0948…0970              Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBIN6,CBIN0 FIND LENGTH «, t00=0x0005, t01=0x0180}
0x0970…09aa              Head {h00=0x0036, h01=0x0050, text=» MATCH GSWSTR20,GSWBIN6,CBIN16,GSWSTR1,CBIN0,CBIN1«, t00=0x0006, t01=0x0018}
0x09aa…09c2              Head {h00=0x0014, h01=0x0050, text=» CLEAR CSPLITFL «, t00=0x0006, t01=0x0052}
0x09c2…09f2              Head {h00=0x002c, h01=0x0050, text=» CBG GSWBIN6,GSWBIN4,WRFD030 OVERFLOW ? «, t00=0x0006, t01=0x006a}
0x09f2…0a2a              Head {h00=0x0034, h01=0x0050, text=» COPY CPCKBUF,GSWBIN3,GSWBIN6,GSWSTR20,CBIN0 NO «, t00=0x0006, t01=0x009a}
0x0a2a…0a46              Head {h00=0x0018, h01=0x0050, text=» ADD GSWBIN3,GSWBIN6«, t00=0x0006, t01=0x00d2}
0x0a46…0a72              Head {h00=0x0028, h01=0x0050, text=» SUB GSWBIN4,GSWBIN6 ADJUST POINTERS«, t00=0x0006, t01=0x00ee}
0x0a72…0a90              Head {h00=0x001a, h01=0x0050, text=» B WRFD020 SEE IF MORE«, t00=0x0006, t01=0x011a}
0x0a90…0aa0              Head {h00=0x000c, h01=0x0050, text=»WRFD030 «, t00=0x0006, t01=0x0138}
0x0aa0…0ad4              Head {h00=0x0030, h01=0x0050, text=» COPY CPCKBUF,GSWBIN3,GSWBIN4,GSWSTR20,CBIN0«, t00=0x0006, t01=0x0148}
0x0ad4…0b02              Head {h00=0x002a, h01=0x0050, text=» MOVE GSWSTR1,=X'21' CONTINUATION MARK«, t00=0x0006, t01=0x017c}
0x0b02…0b1e              Head {h00=0x0018, h01=0x0050, text=» ADD GSWBIN3,GSWBIN4«, t00=0x0007, t01=0x001a}
0x0b1e…0b50              Head {h00=0x002e, h01=0x0050, text=» COPY CPCKBUF,GSWBIN3,CBIN1,GSWSTR1,CBIN0 «, t00=0x0007, t01=0x0036}
0x0b50…0b76              Head {h00=0x0022, h01=0x0050, text=» DLETE GSWSTR20,CBIN0,GSWBIN4 «, t00=0x0007, t01=0x0068}
0x0b76…0b8c              Head {h00=0x0012, h01=0x0050, text=» SET CSPLITFL «, t00=0x0007, t01=0x008e}
0x0b8c…0bba              Head {h00=0x002a, h01=0x0050, text=» PERF RAWRIT,DK02,=D'2',CPCKBUF,CRECNR«, t00=0x0007, t01=0x00a4}
0x0bba…0bd0              Head {h00=0x0012, h01=0x0050, text=» BNOK WRFDERR «, t00=0x0007, t01=0x00d2}
0x0bd0…0bee              Head {h00=0x001a, h01=0x0050, text=» TBT GTTESTFL,WRFD005 «, t00=0x0007, t01=0x00e8}
0x0bee…0c08              Head {h00=0x0016, h01=0x0050, text=» ADD CTWBIN1,CBIN1«, t00=0x0007, t01=0x0106}
0x0c08…0c22              Head {h00=0x0016, h01=0x0050, text=» ADD CRECNR,CBIN1 «, t00=0x0007, t01=0x0120}
0x0c22…0c3c              Head {h00=0x0016, h01=0x0050, text=» ADD CRECBCD,=D'1'«, t00=0x0007, t01=0x013a}
0x0c3c…0c60              Head {h00=0x0020, h01=0x0050, text=» B WRFD005 GO AND PACK REST «, t00=0x0007, t01=0x0154}
0x0c60…0c70              Head {h00=0x000c, h01=0x0050, text=»WRFD070 «, t00=0x0007, t01=0x0178}
0x0c70…0c8c              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWSTR1,=X'7F'«, t00=0x0007, t01=0x0188}
0x0c8c…0cbe              Head {h00=0x002e, h01=0x0050, text=» COPY CPCKBUF,GSWBIN3,CBIN1,GSWSTR1,CBIN0 «, t00=0x0008, t01=0x0014}
0x0cbe…0cec              Head {h00=0x002a, h01=0x0050, text=» PERF RAWRIT,DK02,=D'2',CPCKBUF,CRECNR«, t00=0x0008, t01=0x0046}
0x0cec…0d02              Head {h00=0x0012, h01=0x0050, text=» BNOK WRFDERR «, t00=0x0008, t01=0x0074}
0x0d02…0d20              Head {h00=0x001a, h01=0x0050, text=» TBT GTTESTFL,WRFD080 «, t00=0x0008, t01=0x008a}
0x0d20…0d3a              Head {h00=0x0016, h01=0x0050, text=» ADD CTWBIN1,CBIN1«, t00=0x0008, t01=0x00a8}
0x0d3a…0d54              Head {h00=0x0016, h01=0x0050, text=» ADD CRECNR,CBIN1 «, t00=0x0008, t01=0x00c2}
0x0d54…0d6e              Head {h00=0x0016, h01=0x0050, text=» ADD CRECBCD,=D'1'«, t00=0x0008, t01=0x00dc}
0x0d6e…0d8e              Head {h00=0x001c, h01=0x0050, text=» PERF RADEL,DK02,CRECNR «, t00=0x0008, t01=0x00f6}
0x0d8e…0da4              Head {h00=0x0012, h01=0x0050, text=» BNOK WRFDERR «, t00=0x0008, t01=0x0116}
0x0da4…0dae              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x012c}
0x0dae…0dd2              Head {h00=0x0020, h01=0x0050, text=»*        LOOK FOR ACCOUNT NO«, t00=0x0008, t01=0x0136}
0x0dd2…0dfa              Head {h00=0x0024, h01=0x0050, text=»*        IN KONTOPLAN. IF FOUND,«, t00=0x0008, t01=0x015a}
0x0dfa…0e1c              Head {h00=0x001e, h01=0x0050, text=»*        SET FLAG GTKORTFL«, t00=0x0008, t01=0x0182}
0x0e1c…0e26              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0014}
0x0e26…0e4a              Head {h00=0x0020, h01=0x0050, text=» CBL CRECNR,CMAXREC,WRFD080 «, t00=0x0009, t01=0x001e}
0x0e4a…0e54              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0042}
0x0e54…0e92              Head {h00=0x003a, h01=0x0050, text=»*       HERE MUST BEE A WAARNING 'DISC NAESTEN FYLDT' «, t00=0x0009, t01=0x004c}
0x0e92…0eb4              Head {h00=0x001e, h01=0x0050, text=»WRFD075   DISK N[STEN FULD«, t00=0x0009, t01=0x008a}
0x0eb4…0ec8              Head {h00=0x0010, h01=0x0050, text=» CLEAR CPFLG«, t00=0x0009, t01=0x00ac}
0x0ec8…0ee0              Head {h00=0x0014, h01=0x0050, text=» CLEAR CSPLITFL «, t00=0x0009, t01=0x00c0}
0x0ee0…0efc              Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,CBIN21«, t00=0x0009, t01=0x00d8}
0x0efc…0f22              Head {h00=0x0022, h01=0x0050, text=» MOVE GTWBCD2,=D'02' FILE CODE«, t00=0x0009, t01=0x00f4}
0x0f22…0f4a              Head {h00=0x0024, h01=0x0050, text=» MOVE GTWBCD1,=D'50' ERROR CODE «, t00=0x0009, t01=0x011a}
0x0f4a…0f6e              Head {h00=0x0020, h01=0x0050, text=» MOVE GSWSTR9,=C'DISCFEJL ' «, t00=0x0009, t01=0x0142}
0x0f6e…0f82              Head {h00=0x0010, h01=0x0050, text=» PERF SPERR «, t00=0x0009, t01=0x0166}
0x0f82…0f9a              Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN0«, t00=0x0009, t01=0x017a}
0x0f9a…0fa6 (10, 0, 400) Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000a, t01=0x0004}
0x0fa6…0fb0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0010}
0x0fb0…0fc0              Head {h00=0x000c, h01=0x0050, text=»WRFD080 «, t00=0x000a, t01=0x001a}
0x0fc0…0fd8              Head {h00=0x0014, h01=0x0050, text=» CLEAR CSPLITFL «, t00=0x000a, t01=0x002a}
0x0fd8…0fec              Head {h00=0x0010, h01=0x0050, text=» CLEAR CPFLG«, t00=0x000a, t01=0x0042}
0x0fec…1012              Head {h00=0x0022, h01=0x0050, text=» CMP CBIN0,CBIN0 OK, SET CR=0 «, t00=0x000a, t01=0x0056}
0x1012…101e              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000a, t01=0x007c}
0x101e…1028              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0088}
0x1028…1038              Head {h00=0x000c, h01=0x0050, text=»WRFDERR «, t00=0x000a, t01=0x0092}
0x1038…1042              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00a2}
0x1042…1068              Head {h00=0x0022, h01=0x0050, text=»*     HERE MUST BEE RECOVERRY «, t00=0x000a, t01=0x00ac}
0x1068…1084              Head {h00=0x0018, h01=0x0050, text=» SUB CRECNR,CTWBIN1 «, t00=0x000a, t01=0x00d2}
0x1084…10a2              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD1,CTWBIN1 «, t00=0x000a, t01=0x00ee}
0x10a2…10be              Head {h00=0x0018, h01=0x0050, text=» SUB CRECBCD,GSWBCD1«, t00=0x000a, t01=0x010c}
0x10be…10d4              Head {h00=0x0012, h01=0x0050, text=» SET CSKIFTWN «, t00=0x000a, t01=0x0128}
0x10d4…10e8              Head {h00=0x0010, h01=0x0050, text=» CLEAR CPFLG«, t00=0x000a, t01=0x013e}
0x10e8…10fe              Head {h00=0x0012, h01=0x0050, text=» SET GTREGFLG «, t00=0x000a, t01=0x0152}
0x10fe…1122              Head {h00=0x0020, h01=0x0050, text=» CMP CBIN1,CBIN0 NOK, CR<>0 «, t00=0x000a, t01=0x0168}
0x1122…112e              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000a, t01=0x018c}
0x112e…113c              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000b, t01=0x0008}
0x113c…114a              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x0016}
0x114a…117e              Head {h00=0x0030, h01=0x0050, text=»********************************************«, t00=0x000b, t01=0x0024}
0x117e…1188              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0058}
0x1188…119c              Head {h00=0x0010, h01=0x0050, text=»*     EDATNR«, t00=0x000b, t01=0x0062}
0x119c…11d4              Head {h00=0x0034, h01=0x0050, text=»*          FINDS DATASETNR FOR THE TRANSACTIONS «, t00=0x000b, t01=0x0076}
0x11d4…1212              Head {h00=0x003a, h01=0x0050, text=»*          AND PUT THE INFORMATION IN RELEVANT FIELDS «, t00=0x000b, t01=0x00ae}
0x1212…121c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00ec}
0x121c…1254              Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x000b, t01=0x00f6}
0x1254…1268              Head {h00=0x0010, h01=0x0050, text=»EDATNR PROC «, t00=0x000b, t01=0x012e}
0x1268…1280              Head {h00=0x0014, h01=0x0050, text=» CLEAR TTR11FLG «, t00=0x000b, t01=0x0142}
0x1280…12a4              Head {h00=0x0020, h01=0x0050, text=» CBG GTREGNR,=D'12',EDAT100 «, t00=0x000b, t01=0x015a}
0x12a4…12c0              Head {h00=0x0018, h01=0x0050, text=» MOVE CEDATNR,=D'1' «, t00=0x000b, t01=0x017e}
0x12c0…12e4              Head {h00=0x0020, h01=0x0050, text=» CBG GTREGNR,=D'10',EDAT010 «, t00=0x000c, t01=0x000a}
0x12e4…1316              Head {h00=0x002e, h01=0x0050, text=» MOVE GTUSED(CBIN5),CBIN9 UPDATE D/K MARK «, t00=0x000c, t01=0x002e}
0x1316…133a              Head {h00=0x0020, h01=0x0050, text=» MOVE GTDUPF(CBIN5),TTDKBCD «, t00=0x000c, t01=0x0060}
0x133a…134a              Head {h00=0x000c, h01=0x0050, text=»EDAT010 «, t00=0x000c, t01=0x0084}
0x134a…136e              Head {h00=0x0020, h01=0x0050, text=» CBNE GTREGNR,=D'11',EDAT020«, t00=0x000c, t01=0x0094}
0x136e…1384              Head {h00=0x0012, h01=0x0050, text=» SET TTR11FLG «, t00=0x000c, t01=0x00b8}
0x1384…1394              Head {h00=0x000c, h01=0x0050, text=»EDAT020 «, t00=0x000c, t01=0x00ce}
0x1394…13a0              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000c, t01=0x00de}
0x13a0…13b0              Head {h00=0x000c, h01=0x0050, text=»EDAT100 «, t00=0x000c, t01=0x00ea}
0x13b0…13d4              Head {h00=0x0020, h01=0x0050, text=» CBG GTREGNR,=D'42',EDAT110 «, t00=0x000c, t01=0x00fa}
0x13d4…13f8              Head {h00=0x0020, h01=0x0050, text=» MOVE CEDATNR,=D'3' TR 40-42«, t00=0x000c, t01=0x011e}
0x13f8…140a              Head {h00=0x000e, h01=0x0050, text=» B EDAT020«, t00=0x000c, t01=0x0142}
0x140a…141a              Head {h00=0x000c, h01=0x0050, text=»EDAT110 «, t00=0x000c, t01=0x0154}
0x141a…143e              Head {h00=0x0020, h01=0x0050, text=» CBG GTREGNR,=D'47',EDAT120 «, t00=0x000c, t01=0x0164}
0x143e…1462              Head {h00=0x0020, h01=0x0050, text=» MOVE CEDATNR,=D'5' TR 45-47«, t00=0x000c, t01=0x0188}
0x1462…1474              Head {h00=0x000e, h01=0x0050, text=» B EDAT020«, t00=0x000d, t01=0x001c}
0x1474…1484              Head {h00=0x000c, h01=0x0050, text=»EDAT120 «, t00=0x000d, t01=0x002e}
0x1484…14a8              Head {h00=0x0020, h01=0x0050, text=» CBG GTREGNR,=D'49',EDAT130 «, t00=0x000d, t01=0x003e}
0x14a8…14cc              Head {h00=0x0020, h01=0x0050, text=» MOVE CEDATNR,=D'4' TR 48-49«, t00=0x000d, t01=0x0062}
0x14cc…14de              Head {h00=0x000e, h01=0x0050, text=» B EDAT020«, t00=0x000d, t01=0x0086}
0x14de…14ee              Head {h00=0x000c, h01=0x0050, text=»EDAT130 «, t00=0x000d, t01=0x0098}
0x14ee…1512              Head {h00=0x0020, h01=0x0050, text=» MOVE CEDATNR,=D'2' TR 50-54«, t00=0x000d, t01=0x00a8}
0x1512…1524              Head {h00=0x000e, h01=0x0050, text=» B EDAT020«, t00=0x000d, t01=0x00cc}
0x1524…1532              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000d, t01=0x00de}
0x1532…1540              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x00ec}
0x1540…154a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00fa}
0x154a…1554              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0104}
0x1554…1568              Head {h00=0x0010, h01=0x0050, text=»WCHECK PROC «, t00=0x000d, t01=0x010e}
0x1568…1574              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000d, t01=0x0122}
0x1574…1582              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000d, t01=0x012e}
0x1582…1590              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x013c}
0x1590…15ae              Head {h00=0x001a, h01=0x0050, text=»WRITJT   PROC  $JTLIT «, t00=0x000d, t01=0x014a}
0x15ae…15c2              Head {h00=0x0010, h01=0x0050, text=» PLIT $JTLIT«, t00=0x000d, t01=0x0168}
0x15c2…15de              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000d, t01=0x017c}
0x15de…15e8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0008}
0x15e8…1622              Head {h00=0x0036, h01=0x0050, text=»*        THIS ROUTINE MAKES OUTPUT ON JOURNAL TAPE«, t00=0x000e, t01=0x0012}
0x1622…1650              Head {h00=0x002a, h01=0x0050, text=»*        DEPENDING ON TRANSACTION TYPE«, t00=0x000e, t01=0x004c}
0x1650…165a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x007a}
0x165a…1676              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000e, t01=0x0084}
0x1676…1690              Head {h00=0x0016, h01=0x0050, text=» TBT TBCTASK,JT01 «, t00=0x000e, t01=0x00a0}
0x1690…16a4              Head {h00=0x0010, h01=0x0050, text=» WAIT KVOUCH«, t00=0x000e, t01=0x00ba}
0x16a4…16b8              Head {h00=0x0010, h01=0x0050, text=» WAIT KTALLY«, t00=0x000e, t01=0x00ce}
0x16b8…16c4              Head {h00=0x0008, h01=0x0050, text=»JT01«, t00=0x000e, t01=0x00e2}
0x16c4…16e0              Head {h00=0x0018, h01=0x0050, text=» TBT GTSPGFLG,JTRET «, t00=0x000e, t01=0x00ee}
0x16e0…1706              Head {h00=0x0022, h01=0x0050, text=»         MOVE  GSWBIN1,$JTLIT «, t00=0x000e, t01=0x010a}
0x1706…1730              Head {h00=0x0026, h01=0x0050, text=»         CBG   GSWBIN1,CBIN0,JT10 «, t00=0x000e, t01=0x0130}
0x1730…177a              Head {h00=0x0046, h01=0x0050, text=»         PERF  FRMTJT                  GET FORMAT ACORDING TO TYPE«, t00=0x000e, t01=0x015a}
0x177a…1796              Head {h00=0x0018, h01=0x0050, text=»         B     JT20 «, t00=0x000f, t01=0x0014}
0x1796…17a2              Head {h00=0x0008, h01=0x0050, text=»JT10«, t00=0x000f, t01=0x0030}
0x17a2…17c0              Head {h00=0x001a, h01=0x0050, text=»   GET SPECIAL FORMAT «, t00=0x000f, t01=0x003c}
0x17c0…17da              Head {h00=0x0016, h01=0x0050, text=» TBT TBCTASK,JT15 «, t00=0x000f, t01=0x005a}
0x17da…1802              Head {h00=0x0024, h01=0x0050, text=» PERF FRMXJT,GSWBIN1 FOR JOURNAL«, t00=0x000f, t01=0x0074}
0x1802…1812              Head {h00=0x000c, h01=0x0050, text=» B JT20 «, t00=0x000f, t01=0x009c}
0x1812…181e              Head {h00=0x0008, h01=0x0050, text=»JT15«, t00=0x000f, t01=0x00ac}
0x181e…1846              Head {h00=0x0024, h01=0x0050, text=» PERF FRMXBC,GSWBIN1 FOR COPY 80«, t00=0x000f, t01=0x00b8}
0x1846…1852              Head {h00=0x0008, h01=0x0050, text=»JT20«, t00=0x000f, t01=0x00e0}
0x1852…1886              Head {h00=0x0030, h01=0x0050, text=» MOVE GSWBIN1,TTCNTNR 'TAELLER' NR IN BINARY«, t00=0x000f, t01=0x00ec}
0x1886…18a0              Head {h00=0x0016, h01=0x0050, text=» TBT GTNWFLG,JT50 «, t00=0x000f, t01=0x0120}
0x18a0…18cc              Head {h00=0x0028, h01=0x0050, text=» EDWRT KJTAPE,GTSTRFMT EDWRT JOURNAL«, t00=0x000f, t01=0x013a}
0x18cc…18d6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0166}
0x18d6…1908              Head {h00=0x002e, h01=0x0050, text=» DSC0 KJTAPE,TSTAT TEST STATUS OF JOURNAL «, t00=0x000f, t01=0x0170}
0x1908…1924              Head {h00=0x0018, h01=0x0050, text=»         BOK   JTRET«, t00=0x0010, t01=0x0012}
0x1924…193e              Head {h00=0x0016, h01=0x0050, text=» TBT TBCTASK,JTRET«, t00=0x0010, t01=0x002e}
0x193e…196e              Head {h00=0x002c, h01=0x0050, text=» PERF SPLIN8,CBIN1,CBIN1 'SKIFT JOURNAL'«, t00=0x0010, t01=0x0048}
0x196e…1982              Head {h00=0x0010, h01=0x0050, text=» SET TTJTEND«, t00=0x0010, t01=0x0078}
0x1982…1990              Head {h00=0x000a, h01=0x0050, text=»JTRET «, t00=0x0010, t01=0x008c}
0x1990…199c              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0010, t01=0x009a}
0x199c…19a8              Head {h00=0x0008, h01=0x0050, text=»JT50«, t00=0x0010, t01=0x00a6}
0x19a8…19ca              Head {h00=0x001e, h01=0x0050, text=» EDWRT .NW,KJTAPE,GTSTRFMT«, t00=0x0010, t01=0x00b2}
0x19ca…19d6              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0010, t01=0x00d4}
0x19d6…19ec              Head {h00=0x0012, h01=0x0050, text=»         PEND «, t00=0x0010, t01=0x00e0}
0x19ec…1a02              Head {h00=0x0012, h01=0x0050, text=»         EJECT«, t00=0x0010, t01=0x00f6}
0x1a02…1a18              Head {h00=0x0012, h01=0x0050, text=»WTALLY   PROC «, t00=0x0010, t01=0x010c}
0x1a18…1a34              Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0010, t01=0x0122}
0x1a34…1a3e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x013e}
0x1a3e…1a60              Head {h00=0x001e, h01=0x0050, text=»*        WRITE TALLY ROLL «, t00=0x0010, t01=0x0148}
0x1a60…1a6a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x016a}
0x1a6a…1a86              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0010, t01=0x0174}
0x1a86…1a9a              Head {h00=0x0010, h01=0x0050, text=» WAIT KVOUCH«, t00=0x0010, t01=0x0190}
0x1a9a…1aae              Head {h00=0x0010, h01=0x0050, text=» WAIT KTALLY«, t00=0x0011, t01=0x0014}
0x1aae…1afa              Head {h00=0x0048, h01=0x0050, text=»         EDWRT   .NW,KTALLY,GTSTRFMT           EDWRT WITH THE FORMAT«, t00=0x0011, t01=0x0028}
0x1afa…1b1a              Head {h00=0x001c, h01=0x0050, text=» RET  STORED IN GTSTRFMT«, t00=0x0011, t01=0x0074}
0x1b1a…1b2e              Head {h00=0x0010, h01=0x0050, text=»        PEND«, t00=0x0011, t01=0x0094}
0x1b2e…1b38              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00a8}
0x1b38…1b42              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00b2}
0x1b42…1b58              Head {h00=0x0012, h01=0x0050, text=»         EJECT«, t00=0x0011, t01=0x00bc}
0x1b58…1b6e              Head {h00=0x0012, h01=0x0050, text=»CRKJ     PROC «, t00=0x0011, t01=0x00d2}
0x1b6e…1b8a              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0011, t01=0x00e8}
0x1b8a…1b94              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0104}
0x1b94…1bd0              Head {h00=0x0038, h01=0x0050, text=»*         DOES A CARRIAGE RETURN ON TTP WITHOUT WAIT«, t00=0x0011, t01=0x010e}
0x1bd0…1bda              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x014a}
0x1bda…1bf6              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0011, t01=0x0154}
0x1bf6…1c22              Head {h00=0x0028, h01=0x0050, text=»         EDWRT   .NW,KJTAPE,CRJTFMT «, t00=0x0011, t01=0x0170}
0x1c22…1c36              Head {h00=0x0010, h01=0x0050, text=»         RET«, t00=0x0012, t01=0x000c}
0x1c36…1c4a              Head {h00=0x0010, h01=0x0050, text=»CRJTFMT FRMT«, t00=0x0012, t01=0x0020}
0x1c4a…1c68              Head {h00=0x001a, h01=0x0050, text=»         FILLR   ' ',2«, t00=0x0012, t01=0x0034}
0x1c68…1c7e              Head {h00=0x0012, h01=0x0050, text=» FILLR X'0D',1«, t00=0x0012, t01=0x0052}
0x1c7e…1c94              Head {h00=0x0012, h01=0x0050, text=»        FMEND «, t00=0x0012, t01=0x0068}
0x1c94…1caa              Head {h00=0x0012, h01=0x0050, text=»         PEND «, t00=0x0012, t01=0x007e}
0x1caa…1cb4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0094}
0x1cb4…1cbe              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x009e}
0x1cbe…1cd0              Head {h00=0x000e, h01=0x0050, text=»CRVO PROC «, t00=0x0012, t01=0x00a8}
0x1cd0…1cec              Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0012, t01=0x00ba}
0x1cec…1cf6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00d6}
0x1cf6…1d34              Head {h00=0x003a, h01=0x0050, text=»*          DOES A CARRIAGE RETURN ON VOUCHER WITH WAIT«, t00=0x0012, t01=0x00e0}
0x1d34…1d3e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x011e}
0x1d3e…1d5a              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0012, t01=0x0128}
0x1d5a…1d78              Head {h00=0x001a, h01=0x0050, text=» EDWRT KVOUCH,CRVOFMT «, t00=0x0012, t01=0x0144}
0x1d78…1d84              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0012, t01=0x0162}
0x1d84…1d98              Head {h00=0x0010, h01=0x0050, text=»CRVOFMT FRMT«, t00=0x0012, t01=0x016e}
0x1d98…1dac              Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',2«, t00=0x0012, t01=0x0182}
0x1dac…1dc2              Head {h00=0x0012, h01=0x0050, text=» FILLR X'09',1«, t00=0x0013, t01=0x0008}
0x1dc2…1dd0              Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0013, t01=0x001e}
0x1dd0…1dde              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0013, t01=0x002c}
0x1dde…1de8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x003a}
0x1de8…1df2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0044}
0x1df2…1e08              Head {h00=0x0012, h01=0x0050, text=»         EJECT«, t00=0x0013, t01=0x004e}
0x1e08…1e1c              Head {h00=0x0010, h01=0x0050, text=»WRITVO PROC «, t00=0x0013, t01=0x0064}
0x1e1c…1e26              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0078}
0x1e26…1e44              Head {h00=0x001a, h01=0x0050, text=»*        WRITE VOUCHER«, t00=0x0013, t01=0x0082}
0x1e44…1e4e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00a0}
0x1e4e…1e7c              Head {h00=0x002a, h01=0x0050, text=»*        IN CYCLE  POSITION AND WRITE «, t00=0x0013, t01=0x00aa}
0x1e7c…1ea8              Head {h00=0x0028, h01=0x0050, text=»*                  (MAY BE NEW PAGE)«, t00=0x0013, t01=0x00d8}
0x1ea8…1eb2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0104}
0x1eb2…1eda              Head {h00=0x0024, h01=0x0050, text=»*        NOT CYCLE  GET LINE NR «, t00=0x0013, t01=0x010e}
0x1eda…1f06              Head {h00=0x0028, h01=0x0050, text=»*                  POSITION VOUCHER «, t00=0x0013, t01=0x0136}
0x1f06…1f26              Head {h00=0x001c, h01=0x0050, text=»*                  WRITE«, t00=0x0013, t01=0x0162}
0x1f26…1f54              Head {h00=0x002a, h01=0x0050, text=»*                  AND RELEASE VOUCHER«, t00=0x0013, t01=0x0182}
0x1f54…1f5e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0020}
0x1f5e…1f7a              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0014, t01=0x002a}
0x1f7a…1fa2              Head {h00=0x0024, h01=0x0050, text=»         TBT     GTCYFLG,CYVOUCH«, t00=0x0014, t01=0x0046}
0x1fa2…1fb8              Head {h00=0x0012, h01=0x0050, text=»* NOT IN CYCLE«, t00=0x0014, t01=0x006e}
0x1fb8…1fc8              Head {h00=0x000c, h01=0x0050, text=»WOBILAG «, t00=0x0014, t01=0x0084}
0x1fc8…1ff4              Head {h00=0x0028, h01=0x0050, text=» PERF SPLIN8,CBIN2,CBIN0 WRITE BILAG«, t00=0x0014, t01=0x0094}
0x1ff4…2010              Head {h00=0x0018, h01=0x0050, text=»         PERF GRASPV«, t00=0x0014, t01=0x00c0}
0x2010…2028              Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSWFLAG «, t00=0x0014, t01=0x00dc}
0x2028…2050              Head {h00=0x0024, h01=0x0050, text=» PERF LINOPT SEE IF DEFAULT LINE«, t00=0x0014, t01=0x00f4}
0x2050…2070              Head {h00=0x001c, h01=0x0050, text=»         BNOK    WOBILAG«, t00=0x0014, t01=0x011c}
0x2070…2090              Head {h00=0x001c, h01=0x0050, text=» CBG GSWBIN1,=W'90',WO90«, t00=0x0014, t01=0x013c}
0x2090…20ae              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,TTLINNR «, t00=0x0014, t01=0x015c}
0x20ae…20be              Head {h00=0x000c, h01=0x0050, text=» B WO100«, t00=0x0014, t01=0x017a}
0x20be…20e0              Head {h00=0x001e, h01=0x0050, text=»WO90 MOVE GSWBIN2,=W'100' «, t00=0x0014, t01=0x018a}
0x20e0…20fc              Head {h00=0x0018, h01=0x0050, text=» SUB GSWBIN2,GSWBIN1«, t00=0x0015, t01=0x001c}
0x20fc…2114              Head {h00=0x0014, h01=0x0050, text=» IB GSWBIN2,  C «, t00=0x0015, t01=0x0038}
0x2114…213a              Head {h00=0x0022, h01=0x0050, text=»  WO99,WO98,WO97,WO96,WO95,  C«, t00=0x0015, t01=0x0050}
0x213a…2158              Head {h00=0x001a, h01=0x0050, text=»  WO94,WO93,WO92,WO91 «, t00=0x0015, t01=0x0076}
0x2158…2164              Head {h00=0x0008, h01=0x0050, text=»WO99«, t00=0x0015, t01=0x0094}
0x2164…217e              Head {h00=0x0016, h01=0x0050, text=» PERF FRMXVO,CBIN6«, t00=0x0015, t01=0x00a0}
0x217e…219a              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,=W'35'«, t00=0x0015, t01=0x00ba}
0x219a…21aa              Head {h00=0x000c, h01=0x0050, text=» B WO100«, t00=0x0015, t01=0x00d6}
0x21aa…21b6              Head {h00=0x0008, h01=0x0050, text=»WO98«, t00=0x0015, t01=0x00e6}
0x21b6…21d0              Head {h00=0x0016, h01=0x0050, text=» PERF FRMXVO,CBIN4«, t00=0x0015, t01=0x00f2}
0x21d0…21ec              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,=W'14'«, t00=0x0015, t01=0x010c}
0x21ec…21fc              Head {h00=0x000c, h01=0x0050, text=» B WO100«, t00=0x0015, t01=0x0128}
0x21fc…2208              Head {h00=0x0008, h01=0x0050, text=»WO97«, t00=0x0015, t01=0x0138}
0x2208…2222              Head {h00=0x0016, h01=0x0050, text=» PERF FRMXVO,CBIN5«, t00=0x0015, t01=0x0144}
0x2222…223e              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,=W'14'«, t00=0x0015, t01=0x015e}
0x223e…224e              Head {h00=0x000c, h01=0x0050, text=» B WO100«, t00=0x0015, t01=0x017a}
0x224e…225a              Head {h00=0x0008, h01=0x0050, text=»WO96«, t00=0x0015, t01=0x018a}
0x225a…2276              Head {h00=0x0018, h01=0x0050, text=» PERF FRMXVO,CBIN17 «, t00=0x0016, t01=0x0008}
0x2276…2292              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,=W'37'«, t00=0x0016, t01=0x0024}
0x2292…22a2              Head {h00=0x000c, h01=0x0050, text=» B WO100«, t00=0x0016, t01=0x0040}
0x22a2…22ae              Head {h00=0x0008, h01=0x0050, text=»WO95«, t00=0x0016, t01=0x0050}
0x22ae…22ba              Head {h00=0x0008, h01=0x0050, text=»WO94«, t00=0x0016, t01=0x005c}
0x22ba…22c6              Head {h00=0x0008, h01=0x0050, text=»WO93«, t00=0x0016, t01=0x0068}
0x22c6…22e0              Head {h00=0x0016, h01=0x0050, text=» DSC0 KVOUCH,RLEAS«, t00=0x0016, t01=0x0074}
0x22e0…22f2              Head {h00=0x000e, h01=0x0050, text=» B WOBILAG«, t00=0x0016, t01=0x008e}
0x22f2…230e              Head {h00=0x0018, h01=0x0050, text=»WO92   SHORT 'BILAG'«, t00=0x0016, t01=0x00a0}
0x230e…232e              Head {h00=0x001c, h01=0x0050, text=» PERF SPLIN8,CBIN2,CBIN0«, t00=0x0016, t01=0x00bc}
0x232e…2342              Head {h00=0x0010, h01=0x0050, text=» PERF GRASPV«, t00=0x0016, t01=0x00dc}
0x2342…2358              Head {h00=0x0012, h01=0x0050, text=» SET GTSWFLAG «, t00=0x0016, t01=0x00f0}
0x2358…236c              Head {h00=0x0010, h01=0x0050, text=» PERF LINOPT«, t00=0x0016, t01=0x0106}
0x236c…237e              Head {h00=0x000e, h01=0x0050, text=» BNOK WO92«, t00=0x0016, t01=0x011a}
0x237e…239e              Head {h00=0x001c, h01=0x0050, text=» CBG GSWBIN1,=W'90',WO92«, t00=0x0016, t01=0x012c}
0x239e…23bc              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,TTLINNR «, t00=0x0016, t01=0x014c}
0x23bc…23d4              Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSWFLAG «, t00=0x0016, t01=0x016a}
0x23d4…23f0              Head {h00=0x0018, h01=0x0050, text=» PERF FRMXVO,CBIN19 «, t00=0x0016, t01=0x0182}
0x23f0…2400              Head {h00=0x000c, h01=0x0050, text=» B WO100«, t00=0x0017, t01=0x000e}
0x2400…240c              Head {h00=0x0008, h01=0x0050, text=»WO91«, t00=0x0017, t01=0x001e}
0x240c…243a              Head {h00=0x002a, h01=0x0050, text=» MOVE GTRETUR,=W'3' INDICATE KONTOKORT«, t00=0x0017, t01=0x002a}
0x243a…2446              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0017, t01=0x0058}
0x2446…2450              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0064}
0x2450…245e              Head {h00=0x000a, h01=0x0050, text=»WO100 «, t00=0x0017, t01=0x006e}
0x245e…2490              Head {h00=0x002e, h01=0x0050, text=» DSC1 KVOUCH,POS,GSWBIN1 POSITION VOUCHER «, t00=0x0017, t01=0x007c}
0x2490…24c8              Head {h00=0x0034, h01=0x0050, text=» EDWRT KVOUCH,GTSTRFMT EDWRT WITH CURRENT FORMAT«, t00=0x0017, t01=0x00ae}
0x24c8…24da              Head {h00=0x000e, h01=0x0050, text=» PERF CRVO«, t00=0x0017, t01=0x00e6}
0x24da…24e8              Head {h00=0x000a, h01=0x0050, text=»WO110 «, t00=0x0017, t01=0x00f8}
0x24e8…2530              Head {h00=0x0044, h01=0x0050, text=»         DSC0    .NW,KVOUCH,RLEAS                RELEASE VOUCHER«, t00=0x0017, t01=0x0106}
0x2530…2544              Head {h00=0x0010, h01=0x0050, text=»         RET«, t00=0x0017, t01=0x014e}
0x2544…2556              Head {h00=0x000e, h01=0x0050, text=»* IN CYCLE«, t00=0x0017, t01=0x0162}
0x2556…2566              Head {h00=0x000c, h01=0x0050, text=»CYVOUCH «, t00=0x0017, t01=0x0174}
0x2566…2580              Head {h00=0x0016, h01=0x0050, text=» TBT GTCYWRTF,WO5 «, t00=0x0017, t01=0x0184}
0x2580…2594              Head {h00=0x0010, h01=0x0050, text=» PERF CYWRT «, t00=0x0018, t01=0x000e}
0x2594…25a6              Head {h00=0x000e, h01=0x0050, text=» BNOK WO5 «, t00=0x0018, t01=0x0022}
0x25a6…25b2              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0018, t01=0x0034}
0x25b2…25bc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0040}
0x25bc…25c8              Head {h00=0x0008, h01=0x0050, text=»WO5 «, t00=0x0018, t01=0x004a}
0x25c8…25ee              Head {h00=0x0022, h01=0x0050, text=»         TBT     TTTSTFLG,WO10«, t00=0x0018, t01=0x0056}
0x25ee…2610              Head {h00=0x001e, h01=0x0050, text=»         SET     TTTSTFLG «, t00=0x0018, t01=0x007c}
0x2610…263e              Head {h00=0x002a, h01=0x0050, text=» PERF SPLIN8,CBIN5,CBIN2 WRITE 'BILAG'«, t00=0x0018, t01=0x009e}
0x263e…265e              Head {h00=0x001c, h01=0x0050, text=»         PERF    GRASPV «, t00=0x0018, t01=0x00cc}
0x265e…2672              Head {h00=0x0010, h01=0x0050, text=» PERF CLEAR8«, t00=0x0018, t01=0x00ec}
0x2672…267e              Head {h00=0x0008, h01=0x0050, text=»WO10«, t00=0x0018, t01=0x0100}
0x267e…269c              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,TTLINNR «, t00=0x0018, t01=0x010c}
0x269c…26ce              Head {h00=0x002e, h01=0x0050, text=» DSC1 KVOUCH,POS,GSWBIN1 POSITION VOUCHER «, t00=0x0018, t01=0x012a}
0x26ce…26f0              Head {h00=0x001e, h01=0x0050, text=» EDWRT .NW,KVOUCH,GTSTRFMT«, t00=0x0018, t01=0x015c}
0x26f0…26fe              Head {h00=0x000a, h01=0x0050, text=»***** «, t00=0x0018, t01=0x017e}
0x26fe…2708              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x018c}
0x2708…272c              Head {h00=0x0020, h01=0x0050, text=»*        WRITING OF TEXTLINE«, t00=0x0019, t01=0x0008}
0x272c…2752              Head {h00=0x0022, h01=0x0050, text=»*        FOR CHECK ON WORKSET «, t00=0x0019, t01=0x002c}
0x2752…275c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0052}
0x275c…276a              Head {h00=0x000a, h01=0x0050, text=»***** «, t00=0x0019, t01=0x005c}
0x276a…2774              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x006a}
0x2774…27b6              Head {h00=0x003e, h01=0x0050, text=»*        SEE OLD SUBS                      LINES 700 - 719«, t00=0x0019, t01=0x0074}
0x27b6…27c0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00b6}
0x27c0…27ca              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00c0}
0x27ca…27d6              Head {h00=0x0008, h01=0x0050, text=»WO20«, t00=0x0019, t01=0x00ca}
0x27d6…2812              Head {h00=0x0038, h01=0x0050, text=»         SUB     TTLINNR,=D'2'             NEXT LINE«, t00=0x0019, t01=0x00d6}
0x2812…284e              Head {h00=0x0038, h01=0x0050, text=»         CBL     TTLINNR,=D'4',NEWPG       NEW PAGE?«, t00=0x0019, t01=0x0112}
0x284e…285e              Head {h00=0x000c, h01=0x0050, text=» RET  NO«, t00=0x0019, t01=0x014e}
0x285e…2868              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x015e}
0x2868…2880              Head {h00=0x0014, h01=0x0050, text=»NEWPG   NEW PAGE«, t00=0x0019, t01=0x0168}
0x2880…28aa              Head {h00=0x0026, h01=0x0050, text=» TBT TTPSEFLG,WORET T: IF SUBTOTAL«, t00=0x0019, t01=0x0180}
0x28aa…28be              Head {h00=0x0010, h01=0x0050, text=» WAIT KVOUCH«, t00=0x001a, t01=0x001a}
0x28be…28dc              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,TTLINNR «, t00=0x001a, t01=0x002e}
0x28dc…28fc              Head {h00=0x001c, h01=0x0050, text=» DSC1 KVOUCH,POS,GSWBIN1«, t00=0x001a, t01=0x004c}
0x28fc…291a              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWSTR9,=C'TRP '«, t00=0x001a, t01=0x006c}
0x291a…2934              Head {h00=0x0016, h01=0x0050, text=» PERF FRMXVO,CBIN2«, t00=0x001a, t01=0x008a}
0x2934…2952              Head {h00=0x001a, h01=0x0050, text=» EDWRT KVOUCH,GTSTRFMT«, t00=0x001a, t01=0x00a4}
0x2952…2978              Head {h00=0x0022, h01=0x0050, text=»         DSC0    KVOUCH,RLEAS «, t00=0x001a, t01=0x00c2}
0x2978…298e              Head {h00=0x0012, h01=0x0050, text=» SET GTCYTRPF «, t00=0x001a, t01=0x00e8}
0x298e…299c              Head {h00=0x000a, h01=0x0050, text=»WORET «, t00=0x001a, t01=0x00fe}
0x299c…29a8              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x001a, t01=0x010c}
0x29a8…29be              Head {h00=0x0012, h01=0x0050, text=»         PEND «, t00=0x001a, t01=0x0118}
0x29be…29c8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x012e}
0x29c8…29d2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0138}
0x29d2…29e8              Head {h00=0x0012, h01=0x0050, text=»         EJECT«, t00=0x001a, t01=0x0142}
0x29e8…29fe              Head {h00=0x0012, h01=0x0050, text=»GRASPV   PROC «, t00=0x001a, t01=0x0158}
0x29fe…2a1a              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x001a, t01=0x016e}
0x2a1a…2a24              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x018a}
0x2a24…2a42 (27, 0, 400) Head {h00=0x001a, h01=0x0050, text=»*        GRASP VOUCHER«, t00=0x001b, t01=0x0004}
0x2a42…2a4c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0022}
0x2a4c…2a68              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x001b, t01=0x002c}
0x2a68…2a7c              Head {h00=0x0010, h01=0x0050, text=» WAIT KVOUCH«, t00=0x001b, t01=0x0048}
0x2a7c…2aa4              Head {h00=0x0024, h01=0x0050, text=» DSC0 KVOUCH,GRASP GRASP VOUCHER«, t00=0x001b, t01=0x005c}
0x2aa4…2ab8              Head {h00=0x0010, h01=0x0050, text=»         RET«, t00=0x001b, t01=0x0084}
0x2ab8…2ace              Head {h00=0x0012, h01=0x0050, text=»         PEND «, t00=0x001b, t01=0x0098}
0x2ace…2ad8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00ae}
0x2ad8…2ae2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00b8}
0x2ae2…2af8              Head {h00=0x0012, h01=0x0050, text=»         EJECT«, t00=0x001b, t01=0x00c2}
0x2af8…2b0e              Head {h00=0x0012, h01=0x0050, text=»LINOPT   PROC «, t00=0x001b, t01=0x00d8}
0x2b0e…2b2a              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x001b, t01=0x00ee}
0x2b2a…2b34              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x010a}
0x2b34…2b5e              Head {h00=0x0026, h01=0x0050, text=»*        CHECK LINE NUMBER, IF ANY«, t00=0x001b, t01=0x0114}
0x2b5e…2b68              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x013e}
0x2b68…2b84              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x001b, t01=0x0148}
0x2b84…2ba0              Head {h00=0x0018, h01=0x0050, text=» TBT GTSWFLAG,LINST «, t00=0x001b, t01=0x0164}
0x2ba0…2bca              Head {h00=0x0026, h01=0x0050, text=» TESTIO KEYB SEE IF INPUT FINISHED«, t00=0x001b, t01=0x0180}
0x2bca…2be8              Head {h00=0x001a, h01=0x0050, text=» BNOK LINOP1 NO, ABORT«, t00=0x001c, t01=0x001a}
0x2be8…2bf6              Head {h00=0x000a, h01=0x0050, text=»LINST «, t00=0x001c, t01=0x0038}
0x2bf6…2c08              Head {h00=0x000e, h01=0x0050, text=» WAIT KEYB«, t00=0x001c, t01=0x0046}
0x2c08…2c34              Head {h00=0x0028, h01=0x0050, text=» CBE SPBINW2,=W'18',LINOP0 SLUT KEY «, t00=0x001c, t01=0x0058}
0x2c34…2c6e              Head {h00=0x0036, h01=0x0050, text=» CBNE SPBINW2,=W'4',LINOP2 ONLY ENTER KEY ALLOWED «, t00=0x001c, t01=0x0084}
0x2c6e…2c7c              Head {h00=0x000a, h01=0x0050, text=»LINOP0«, t00=0x001c, t01=0x00be}
0x2c7c…2caa              Head {h00=0x002a, h01=0x0050, text=» CBG SPBINW1,=W'3',LINOP2 CHECK LENGTH«, t00=0x001c, t01=0x00cc}
0x2caa…2cd4              Head {h00=0x0026, h01=0x0050, text=» MOVE GSWBCD3,SPINPUT GET LINE NR «, t00=0x001c, t01=0x00fa}
0x2cd4…2d08              Head {h00=0x0030, h01=0x0050, text=» CBG GSWBCD3,=D'90',LINOP4 SPECIAL FORMATS? «, t00=0x001c, t01=0x0124}
0x2d08…2d2e              Head {h00=0x0022, h01=0x0050, text=» PERF SPCHK5 OK, CHECK LINENR «, t00=0x001c, t01=0x0158}
0x2d2e…2d60              Head {h00=0x002e, h01=0x0050, text=» CBE SPBINW3,=W'3',LINOP2 ERROR IN LINE NR«, t00=0x001c, t01=0x017e}
0x2d60…2d94              Head {h00=0x0030, h01=0x0050, text=» MOVE TTLINNR,GSWBIN1 GET CONVERTED LINE NO.«, t00=0x001d, t01=0x0020}
0x2d94…2da2              Head {h00=0x000a, h01=0x0050, text=»LIN90 «, t00=0x001d, t01=0x0054}
0x2da2…2dc6              Head {h00=0x0020, h01=0x0050, text=» CMP CBIN0,CBIN0 SET CR=0,OK«, t00=0x001d, t01=0x0062}
0x2dc6…2dd8              Head {h00=0x000e, h01=0x0050, text=» B LINRET «, t00=0x001d, t01=0x0086}
0x2dd8…2de6              Head {h00=0x000a, h01=0x0050, text=»LINOP1«, t00=0x001d, t01=0x0098}
0x2de6…2e08              Head {h00=0x001e, h01=0x0050, text=» CALL ABORT,KEYB ABORT I/O«, t00=0x001d, t01=0x00a6}
0x2e08…2e2c              Head {h00=0x0020, h01=0x0050, text=» CBL GTDFLIN,=W'90',LINOP101«, t00=0x001d, t01=0x00c8}
0x2e2c…2e4a              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD3,GTDFLIN «, t00=0x001d, t01=0x00ec}
0x2e4a…2e5c              Head {h00=0x000e, h01=0x0050, text=» B LINOP4 «, t00=0x001d, t01=0x010a}
0x2e5c…2e6c              Head {h00=0x000c, h01=0x0050, text=»LINOP101«, t00=0x001d, t01=0x011c}
0x2e6c…2e8a              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD3,GTDFLIN «, t00=0x001d, t01=0x012c}
0x2e8a…2ea8              Head {h00=0x001a, h01=0x0050, text=» MOVE SPINPUT,GSWBCD3 «, t00=0x001d, t01=0x014a}
0x2ea8…2ebc              Head {h00=0x0010, h01=0x0050, text=» PERF SPCHK5«, t00=0x001d, t01=0x0168}
0x2ebc…2eee              Head {h00=0x002e, h01=0x0050, text=» MOVE TTLINNR,GSWBIN1 SET DEFAULT LINE NO «, t00=0x001d, t01=0x017c}
0x2eee…2f14              Head {h00=0x0022, h01=0x0050, text=» CMP CBIN0,CBIN0 SET CR=0, OK «, t00=0x001e, t01=0x001e}
0x2f14…2f30              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,=W'0' «, t00=0x001e, t01=0x0044}
0x2f30…2f42              Head {h00=0x000e, h01=0x0050, text=» B LINRET «, t00=0x001e, t01=0x0060}
0x2f42…2f50              Head {h00=0x000a, h01=0x0050, text=»LINOP2«, t00=0x001e, t01=0x0072}
0x2f50…2f7a              Head {h00=0x0026, h01=0x0050, text=» DSC0 KVOUCH,RLEAS RELEASE VOUCHER«, t00=0x001e, t01=0x0080}
0x2f7a…2f92              Head {h00=0x0014, h01=0x0050, text=» DSC0 KEYB,SKIB «, t00=0x001e, t01=0x00aa}
0x2f92…2fbc              Head {h00=0x0026, h01=0x0050, text=» CMP CBIN0,CBIN1 SET CR<>0, NOT OK«, t00=0x001e, t01=0x00c2}
0x2fbc…2fd0              Head {h00=0x0010, h01=0x0050, text=»         RET«, t00=0x001e, t01=0x00ec}
0x2fd0…2fde              Head {h00=0x000a, h01=0x0050, text=»LINOP4«, t00=0x001e, t01=0x0100}
0x2fde…2ffc              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,GSWBCD3 «, t00=0x001e, t01=0x010e}
0x2ffc…300c              Head {h00=0x000c, h01=0x0050, text=» B LIN90«, t00=0x001e, t01=0x012c}
0x300c…301a              Head {h00=0x000a, h01=0x0050, text=»LINRET«, t00=0x001e, t01=0x013c}
0x301a…303c              Head {h00=0x001e, h01=0x0050, text=» PERF CLEAR8 DELETE LINE 8«, t00=0x001e, t01=0x014a}
0x303c…3048              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x001e, t01=0x016c}
0x3048…305c              Head {h00=0x0010, h01=0x0050, text=»        PEND«, t00=0x001e, t01=0x0178}
0x305c…3066              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x018c}
0x3066…3074              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001f, t01=0x0008}
0x3074…309e              Head {h00=0x0026, h01=0x0050, text=»WRITID PROC BUF,WRITVAR1,WRITVAR2 «, t00=0x001f, t01=0x0016}
0x309e…30ba              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x001f, t01=0x0040}
0x30ba…30c4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x005c}
0x30c4…30fc              Head {h00=0x0034, h01=0x0050, text=»*          PRINTS HEADING IDENTIFIED BY WRITVAR1«, t00=0x001f, t01=0x0066}
0x30fc…3130              Head {h00=0x0030, h01=0x0050, text=»*          PRINTS ID IDENTIFIED BY WRITVAR2 «, t00=0x001f, t01=0x009e}
0x3130…313a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00d2}
0x313a…3168              Head {h00=0x002a, h01=0x0050, text=»*          PRINTS ON JOURNAL AND TALLY«, t00=0x001f, t01=0x00dc}
0x3168…3172              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x010a}
0x3172…317c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0114}
0x317c…3198              Head {h00=0x0018, h01=0x0050, text=»*          WRITVAR1:«, t00=0x001f, t01=0x011e}
0x3198…31b8              Head {h00=0x001c, h01=0x0050, text=»*               1   FEJL«, t00=0x001f, t01=0x013a}
0x31b8…31dc              Head {h00=0x0020, h01=0x0050, text=»*               2   OPSTART «, t00=0x001f, t01=0x015a}
0x31dc…3206              Head {h00=0x0026, h01=0x0050, text=»*               3   DISKETTE SKIFT«, t00=0x001f, t01=0x017e}
0x3206…322e              Head {h00=0x0024, h01=0x0050, text=»*               4   KONVERTERING«, t00=0x0020, t01=0x0018}
0x322e…325a              Head {h00=0x0028, h01=0x0050, text=»*               5   DATATRANSMISSION«, t00=0x0020, t01=0x0040}
0x325a…327c              Head {h00=0x001e, h01=0x0050, text=»*               6   BACKUP«, t00=0x0020, t01=0x006c}
0x327c…3286              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x008e}
0x3286…32a2              Head {h00=0x0018, h01=0x0050, text=»*          WRITVAR2:«, t00=0x0020, t01=0x0098}
0x32a2…32d8              Head {h00=0x0032, h01=0x0050, text=»*          CHARACTERS PRINTED FROM PACKBUFFER:«, t00=0x0020, t01=0x00b4}
0x32d8…3300              Head {h00=0x0024, h01=0x0050, text=»*               1   1-20 + 40-59«, t00=0x0020, t01=0x00ea}
0x3300…333a              Head {h00=0x0036, h01=0x0050, text=»*               2   1-20 + 23-42, IF KONVERTERING «, t00=0x0020, t01=0x0112}
0x333a…3378              Head {h00=0x003a, h01=0x0050, text=»*               2   1-20 + VOLID, IF NOT KONVERTERING «, t00=0x0020, t01=0x014c}
0x3378…339c              Head {h00=0x0020, h01=0x0050, text=»*               3   NOTHING «, t00=0x0020, t01=0x018a}
0x339c…33be              Head {h00=0x001e, h01=0x0050, text=»*               4   VOLID «, t00=0x0021, t01=0x001e}
0x33be…33c8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0040}
0x33c8…33d2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x004a}
0x33d2…33dc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0054}
0x33dc…33f8              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0021, t01=0x005e}
0x33f8…3402              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x007a}
0x3402…3416              Head {h00=0x0010, h01=0x0050, text=» WAIT KJTAPE«, t00=0x0021, t01=0x0084}
0x3416…3454              Head {h00=0x003a, h01=0x0050, text=» IB WRITVAR1,WRID31,WRID32,WRID33,WRID34,WRID35,WRID36«, t00=0x0021, t01=0x0098}
0x3454…3466              Head {h00=0x000e, h01=0x0050, text=» B WRID50 «, t00=0x0021, t01=0x00d6}
0x3466…3474              Head {h00=0x000a, h01=0x0050, text=»WRID34«, t00=0x0021, t01=0x00e8}
0x3474…3494              Head {h00=0x001c, h01=0x0050, text=» MOVE GSWSTR20,=C'FEJL '«, t00=0x0021, t01=0x00f6}
0x3494…34a6              Head {h00=0x000e, h01=0x0050, text=» B WRID50 «, t00=0x0021, t01=0x0116}
0x34a6…34b4              Head {h00=0x000a, h01=0x0050, text=»WRID31«, t00=0x0021, t01=0x0128}
0x34b4…34d8              Head {h00=0x0020, h01=0x0050, text=» MOVE GSWSTR20,=C'OPSTART ' «, t00=0x0021, t01=0x0136}
0x34d8…34ea              Head {h00=0x000e, h01=0x0050, text=» B WRID40 «, t00=0x0021, t01=0x015a}
0x34ea…34f8              Head {h00=0x000a, h01=0x0050, text=»WRID32«, t00=0x0021, t01=0x016c}
0x34f8…351e              Head {h00=0x0022, h01=0x0050, text=» MOVE GSWSTR20,=C'DISK SKIFT '«, t00=0x0021, t01=0x017a}
0x351e…3530              Head {h00=0x000e, h01=0x0050, text=» B WRID40 «, t00=0x0022, t01=0x0010}
0x3530…353e              Head {h00=0x000a, h01=0x0050, text=»WRID33«, t00=0x0022, t01=0x0022}
0x353e…3566              Head {h00=0x0024, h01=0x0050, text=» MOVE GSWSTR20,=C'KONVERTERING '«, t00=0x0022, t01=0x0030}
0x3566…3578              Head {h00=0x000e, h01=0x0050, text=» B WRID40 «, t00=0x0022, t01=0x0058}
0x3578…3586              Head {h00=0x000a, h01=0x0050, text=»WRID35«, t00=0x0022, t01=0x006a}
0x3586…35b2              Head {h00=0x0028, h01=0x0050, text=» MOVE GSWSTR20,=C'DATATRANSMISSION '«, t00=0x0022, t01=0x0078}
0x35b2…35c4              Head {h00=0x000e, h01=0x0050, text=» B WRID40 «, t00=0x0022, t01=0x00a4}
0x35c4…35d2              Head {h00=0x000a, h01=0x0050, text=»WRID36«, t00=0x0022, t01=0x00b6}
0x35d2…35f4              Head {h00=0x001e, h01=0x0050, text=» MOVE GSWSTR20,=C'BACKUP '«, t00=0x0022, t01=0x00c4}
0x35f4…3606              Head {h00=0x000e, h01=0x0050, text=» B WRID40 «, t00=0x0022, t01=0x00e6}
0x3606…3614              Head {h00=0x000a, h01=0x0050, text=»WRID40«, t00=0x0022, t01=0x00f8}
0x3614…3630              Head {h00=0x0018, h01=0x0050, text=» PERF WRITJT,=W'12' «, t00=0x0022, t01=0x0106}
0x3630…364c              Head {h00=0x0018, h01=0x0050, text=» TBT TBCTASK,WRID50 «, t00=0x0022, t01=0x0122}
0x364c…3666              Head {h00=0x0016, h01=0x0050, text=» PERF FRMXTA,CBIN6«, t00=0x0022, t01=0x013e}
0x3666…367a              Head {h00=0x0010, h01=0x0050, text=» PERF WTALLY«, t00=0x0022, t01=0x0158}
0x367a…3684              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x016c}
0x3684…368e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0176}
0x368e…369c              Head {h00=0x000a, h01=0x0050, text=»WRID50«, t00=0x0022, t01=0x0180}
0x369c…36b8              Head {h00=0x0018, h01=0x0050, text=» TBT TBCTASK,WRID51 «, t00=0x0022, t01=0x018e}
0x36b8…36cc              Head {h00=0x0010, h01=0x0050, text=» WAIT KTALLY«, t00=0x0023, t01=0x001a}
0x36cc…36da              Head {h00=0x000a, h01=0x0050, text=»WRID51«, t00=0x0023, t01=0x002e}
0x36da…36f6              Head {h00=0x0018, h01=0x0050, text=» TBF TBCTASK,WRID55 «, t00=0x0023, t01=0x003c}
0x36f6…3710              Head {h00=0x0016, h01=0x0050, text=» MOVE CPRTBUF,BUF «, t00=0x0023, t01=0x0058}
0x3710…372c              Head {h00=0x0018, h01=0x0050, text=» PERF WRITJT,=W'13' «, t00=0x0023, t01=0x0072}
0x372c…373e              Head {h00=0x000e, h01=0x0050, text=» B WRID90 «, t00=0x0023, t01=0x008e}
0x373e…374c              Head {h00=0x000a, h01=0x0050, text=»WRID55«, t00=0x0023, t01=0x00a0}
0x374c…376e              Head {h00=0x001e, h01=0x0050, text=» CBE WRITVAR2,CBIN3,WRID80«, t00=0x0023, t01=0x00ae}
0x376e…3790              Head {h00=0x001e, h01=0x0050, text=» CBE WRITVAR2,CBIN4,WRID73«, t00=0x0023, t01=0x00d0}
0x3790…37aa              Head {h00=0x0016, h01=0x0050, text=» MOVE GSWSTR20,BUF«, t00=0x0023, t01=0x00f2}
0x37aa…37c6              Head {h00=0x0018, h01=0x0050, text=» PERF WRITJT,=W'12' «, t00=0x0023, t01=0x010c}
0x37c6…37e8              Head {h00=0x001e, h01=0x0050, text=» CBG WRITVAR1,=W'3',WRID60«, t00=0x0023, t01=0x0128}
0x37e8…3804              Head {h00=0x0018, h01=0x0050, text=» TBT TBCTASK,WRID60 «, t00=0x0023, t01=0x014a}
0x3804…381e              Head {h00=0x0016, h01=0x0050, text=» PERF FRMXTA,CBIN6«, t00=0x0023, t01=0x0166}
0x381e…3832              Head {h00=0x0010, h01=0x0050, text=» PERF WTALLY«, t00=0x0023, t01=0x0180}
0x3832…3846 (36, 0, 400) Head {h00=0x0010, h01=0x0050, text=» WAIT KTALLY«, t00=0x0024, t01=0x0004}
0x3846…3850              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0018}
0x3850…385e              Head {h00=0x000a, h01=0x0050, text=»WRID60«, t00=0x0024, t01=0x0022}
0x385e…3880              Head {h00=0x001e, h01=0x0050, text=» CBE WRITVAR2,CBIN2,WRID70«, t00=0x0024, t01=0x0030}
0x3880…389c              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN2,CBIN20«, t00=0x0024, t01=0x0052}
0x389c…38b8              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,=W'40'«, t00=0x0024, t01=0x006e}
0x38b8…38e8              Head {h00=0x002c, h01=0x0050, text=» COPY GSWSTR20,CBIN0,GSWBIN2,BUF,GSWBIN1«, t00=0x0024, t01=0x008a}
0x38e8…38fa              Head {h00=0x000e, h01=0x0050, text=» B WRID75 «, t00=0x0024, t01=0x00ba}
0x38fa…3904              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00cc}
0x3904…3912              Head {h00=0x000a, h01=0x0050, text=»WRID70«, t00=0x0024, t01=0x00d6}
0x3912…3936              Head {h00=0x0020, h01=0x0050, text=» CBNE WRITVAR1,CBIN4,WRID72 «, t00=0x0024, t01=0x00e4}
0x3936…3952              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN2,CBIN20«, t00=0x0024, t01=0x0108}
0x3952…396e              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,=W'23'«, t00=0x0024, t01=0x0124}
0x396e…399e              Head {h00=0x002c, h01=0x0050, text=» COPY GSWSTR20,CBIN0,GSWBIN2,BUF,GSWBIN1«, t00=0x0024, t01=0x0140}
0x399e…39b0              Head {h00=0x000e, h01=0x0050, text=» B WRID75 «, t00=0x0024, t01=0x0170}
0x39b0…39be              Head {h00=0x000a, h01=0x0050, text=»WRID72«, t00=0x0024, t01=0x0182}
0x39be…39e0              Head {h00=0x001e, h01=0x0050, text=» CBG WRITVAR1,CBIN2,WRID80«, t00=0x0024, t01=0x0190}
0x39e0…39ee              Head {h00=0x000a, h01=0x0050, text=»WRID73«, t00=0x0025, t01=0x0022}
0x39ee…3a0c              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWSTR20,CBLANKS«, t00=0x0025, t01=0x0030}
0x3a0c…3a28              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD3,CVOLNO«, t00=0x0025, t01=0x004e}
0x3a28…3a46              Head {h00=0x001a, h01=0x0050, text=» EDIT GSWSTR20,FRVOLID«, t00=0x0025, t01=0x006a}
0x3a46…3a54              Head {h00=0x000a, h01=0x0050, text=»WRID75«, t00=0x0025, t01=0x0088}
0x3a54…3a70              Head {h00=0x0018, h01=0x0050, text=» PERF WRITJT,=W'12' «, t00=0x0025, t01=0x0096}
0x3a70…3a9a              Head {h00=0x0026, h01=0x0050, text=» CBL WRITVAR1,=W'4',WRID76 1,2,3,6«, t00=0x0025, t01=0x00b2}
0x3a9a…3ac0              Head {h00=0x0022, h01=0x0050, text=» CBL WRITVAR1,=W'6',WRID90 4,5«, t00=0x0025, t01=0x00dc}
0x3ac0…3ace              Head {h00=0x000a, h01=0x0050, text=»WRID76«, t00=0x0025, t01=0x0102}
0x3ace…3aea              Head {h00=0x0018, h01=0x0050, text=» TBT TBCTASK,WRID85 «, t00=0x0025, t01=0x0110}
0x3aea…3b04              Head {h00=0x0016, h01=0x0050, text=» PERF FRMXTA,CBIN6«, t00=0x0025, t01=0x012c}
0x3b04…3b18              Head {h00=0x0010, h01=0x0050, text=» PERF WTALLY«, t00=0x0025, t01=0x0146}
0x3b18…3b2c              Head {h00=0x0010, h01=0x0050, text=» WAIT KTALLY«, t00=0x0025, t01=0x015a}
0x3b2c…3b3e              Head {h00=0x000e, h01=0x0050, text=» B WRID85 «, t00=0x0025, t01=0x016e}
0x3b3e…3b4c              Head {h00=0x000a, h01=0x0050, text=»WRID80«, t00=0x0025, t01=0x0180}
0x3b4c…3b6e              Head {h00=0x001e, h01=0x0050, text=» CBG WRITVAR1,=W'3',WRID90«, t00=0x0025, t01=0x018e}
0x3b6e…3b7c              Head {h00=0x000a, h01=0x0050, text=»WRID85«, t00=0x0026, t01=0x0020}
0x3b7c…3b98              Head {h00=0x0018, h01=0x0050, text=» TBT TBCTASK,WRID90 «, t00=0x0026, t01=0x002e}
0x3b98…3bb2              Head {h00=0x0016, h01=0x0050, text=» PERF FRMXTA,CBIN7«, t00=0x0026, t01=0x004a}
0x3bb2…3bc6              Head {h00=0x0010, h01=0x0050, text=» PERF WTALLY«, t00=0x0026, t01=0x0064}
0x3bc6…3bda              Head {h00=0x0010, h01=0x0050, text=» WAIT KTALLY«, t00=0x0026, t01=0x0078}
0x3bda…3be8              Head {h00=0x000a, h01=0x0050, text=»WRID90«, t00=0x0026, t01=0x008c}
0x3be8…3bf4              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0026, t01=0x009a}
0x3bf4…3c02              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0026, t01=0x00a6}
0x3c02…3c10              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0026, t01=0x00b4}
0x3c10…3c24              Head {h00=0x0010, h01=0x0050, text=»CLEAR8 PROC «, t00=0x0026, t01=0x00c2}
0x3c24…3c4c              Head {h00=0x0024, h01=0x0050, text=»*     DELETE FIRST 14 CHARACTERS«, t00=0x0026, t01=0x00d6}
0x3c4c…3c64              Head {h00=0x0014, h01=0x0050, text=»*     OF LINE 8 «, t00=0x0026, t01=0x00fe}
0x3c64…3c96              Head {h00=0x002e, h01=0x0050, text=» MOVE GSWBIN2,=X'0801' INDICATE LAST LINE «, t00=0x0026, t01=0x0116}
0x3c96…3cb6              Head {h00=0x001c, h01=0x0050, text=» DSC1 SCREEN,06,GSWBIN2 «, t00=0x0026, t01=0x0148}
0x3cb6…3cd2              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN2,CBIN14«, t00=0x0026, t01=0x0168}
0x3cd2…3d00              Head {h00=0x002a, h01=0x0050, text=» DSC1 SCREEN,02,GSWBIN2 ERASE 14 CHARS«, t00=0x0026, t01=0x0184}
0x3d00…3d0e              Head {h00=0x000a, h01=0x0050, text=» RET  «, t00=0x0027, t01=0x0022}
0x3d0e…3d1c              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0027, t01=0x0030}
0x3d1c…3d26              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x003e}
0x3d26…3d60              Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x0027, t01=0x0048}
0x3d60…3d6a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0082}
0x3d6a…3d8c              Head {h00=0x001e, h01=0x0050, text=»*       FORMATS FOR WRITFD«, t00=0x0027, t01=0x008c}
0x3d8c…3d96              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00ae}
0x3d96…3dd6              Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0027, t01=0x00b8}
0x3dd6…3de0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00f8}
0x3de0…3df4              Head {h00=0x0010, h01=0x0050, text=»PCKINIT FRMT«, t00=0x0027, t01=0x0102}
0x3df4…3e10              Head {h00=0x0018, h01=0x0050, text=» FBT CSWFLAG,INIT10 «, t00=0x0027, t01=0x0116}
0x3e10…3e26              Head {h00=0x0012, h01=0x0050, text=» FILLR ' ',40 «, t00=0x0027, t01=0x0132}
0x3e26…3e3c              Head {h00=0x0012, h01=0x0050, text=» FILLR ' ',40 «, t00=0x0027, t01=0x0148}
0x3e3c…3e54              Head {h00=0x0014, h01=0x0050, text=» FILLR X'00',48 «, t00=0x0027, t01=0x015e}
0x3e54…3e62              Head {h00=0x000a, h01=0x0050, text=» FEXIT«, t00=0x0027, t01=0x0176}
0x3e62…3e70              Head {h00=0x000a, h01=0x0050, text=»INIT10«, t00=0x0027, t01=0x0184}
0x3e70…3e86 (40, 0, 400) Head {h00=0x0012, h01=0x0050, text=» FILLR ' ',40 «, t00=0x0028, t01=0x0004}
0x3e86…3e9c              Head {h00=0x0012, h01=0x0050, text=» FILLR ' ',40 «, t00=0x0028, t01=0x001a}
0x3e9c…3eb2              Head {h00=0x0012, h01=0x0050, text=» FILLR ' ',48 «, t00=0x0028, t01=0x0030}
0x3eb2…3ec0              Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0028, t01=0x0046}
0x3ec0…3eca              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0054}
0x3eca…3ede              Head {h00=0x0010, h01=0x0050, text=»FRVOLID FRMT«, t00=0x0028, t01=0x005e}
0x3ede…3efe              Head {h00=0x001c, h01=0x0050, text=» FMEL '999999',CMASKDAT «, t00=0x0028, t01=0x0072}
0x3efe…3f1c              Head {h00=0x001a, h01=0x0050, text=» FMEL 'B99999',GSWBCD3«, t00=0x0028, t01=0x0092}
0x3f1c…3f2a              Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0028, t01=0x00b0}
0x3f2a…3f34              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x00be}
0x3f34…3f46              Head {h00=0x000e, h01=0x0050, text=»TREC1 FRMT«, t00=0x0028, t01=0x00c8}
0x3f46…3f60              Head {h00=0x0016, h01=0x0050, text=» FMEL '999',GTMSK «, t00=0x0028, t01=0x00da}
0x3f60…3f76              Head {h00=0x0012, h01=0x0050, text=» FILLR C'G',1 «, t00=0x0028, t01=0x00f4}
0x3f76…3f90              Head {h00=0x0016, h01=0x0050, text=» FMEL '99',CEDATNR«, t00=0x0028, t01=0x010a}
0x3f90…3fae              Head {h00=0x001a, h01=0x0050, text=» FMEL '99999',CRECBCD «, t00=0x0028, t01=0x0124}
0x3fae…3fca              Head {h00=0x0018, h01=0x0050, text=» FBT CSPLITFL,TREC40«, t00=0x0028, t01=0x0142}
0x3fca…3fe4              Head {h00=0x0016, h01=0x0050, text=» FMEL '99',GTREGNR«, t00=0x0028, t01=0x015e}
0x3fe4…3ffa              Head {h00=0x0012, h01=0x0050, text=» FCOPY =C'&01'«, t00=0x0028, t01=0x0178}
0x3ffa…4016              Head {h00=0x0018, h01=0x0050, text=» FMEL '9999',CKMDNR «, t00=0x0028, t01=0x018e}
0x4016…4032              Head {h00=0x0018, h01=0x0050, text=» FBF GTKASSE,TREC40 «, t00=0x0029, t01=0x001a}
0x4032…4058              Head {h00=0x0022, h01=0x0050, text=» FBT GTSPECTR,TREC40 TR 50... «, t00=0x0029, t01=0x0036}
0x4058…4074              Head {h00=0x0018, h01=0x0050, text=» FBT TTR11FLG,TREC10«, t00=0x0029, t01=0x005c}
0x4074…408a              Head {h00=0x0012, h01=0x0050, text=» FCOPY =C'&02'«, t00=0x0029, t01=0x0078}
0x408a…40a8              Head {h00=0x001a, h01=0x0050, text=» FMEL '999999',GTDATO «, t00=0x0029, t01=0x008e}
0x40a8…40b6              Head {h00=0x000a, h01=0x0050, text=»TREC10«, t00=0x0029, t01=0x00ac}
0x40b6…40cc              Head {h00=0x0012, h01=0x0050, text=» FCOPY =C'&03'«, t00=0x0029, t01=0x00ba}
0x40cc…40e6              Head {h00=0x0016, h01=0x0050, text=» FMEL '999',GTMSK «, t00=0x0029, t01=0x00d0}
0x40e6…4102              Head {h00=0x0018, h01=0x0050, text=» FBT TTR11FLG,TREC40«, t00=0x0029, t01=0x00ea}
0x4102…4118              Head {h00=0x0012, h01=0x0050, text=» FCOPY =C'&04'«, t00=0x0029, t01=0x0106}
0x4118…4134              Head {h00=0x0018, h01=0x0050, text=» FMEL '99999',TTLBNR«, t00=0x0029, t01=0x011c}
0x4134…4142              Head {h00=0x000a, h01=0x0050, text=»TREC40«, t00=0x0029, t01=0x0138}
0x4142…4150              Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0029, t01=0x0146}
0x4150…415a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0154}
0x415a…416c              Head {h00=0x000e, h01=0x0050, text=»PFRM1 FRMT«, t00=0x0029, t01=0x015e}
0x416c…4180              Head {h00=0x0010, h01=0x0050, text=» FCOPY =C'&'«, t00=0x0029, t01=0x0170}
0x4180…419a              Head {h00=0x0016, h01=0x0050, text=» FMEL '99',GSWBCD3«, t00=0x0029, t01=0x0184}
0x419a…41b6              Head {h00=0x0018, h01=0x0050, text=» FBP GSWBCD3,PLAB10 «, t00=0x002a, t01=0x000e}
0x41b6…41e6              Head {h00=0x002c, h01=0x0050, text=» FMEL 'TTTTTTTTTTTTT9-',GTDUPF(GSWBIN5) «, t00=0x002a, t01=0x002a}
0x41e6…41f4              Head {h00=0x000a, h01=0x0050, text=» FEXIT«, t00=0x002a, t01=0x005a}
0x41f4…4202              Head {h00=0x000a, h01=0x0050, text=»PLAB10«, t00=0x002a, t01=0x0068}
0x4202…4230              Head {h00=0x002a, h01=0x0050, text=» FMEL 'TTTTTTTTTTTTT9',GTDUPF(GSWBIN5)«, t00=0x002a, t01=0x0076}
0x4230…423e              Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x002a, t01=0x00a4}
0x423e…4252              Head {h00=0x0010, h01=0x0050, text=»         END«, t00=0x002a, t01=0x00b2}
0x4252…4256              Head {h00=0x4004, h01=0x0000}
0x4256…425a              00 2a 00 c6                                                                                                                                                                                                                                       ┆ *  ┆
0x425a…4262 (43, 1, 8)   20 04 00 00 00 2b 00 04                                                                                                                                                                                                                           ┆     +  ┆
0x4262…42b2 (44, 0, 400) 54 54 2e 54 54 58 2e 58 58 2d 54 54 54 54 54 54 54 56 54 54 58 2c 58 58 2d 5a 2e 5a 5a 5a 2e 5a 5a 58 2e 58 58 45 2d 42 5a 5a 5a 2e 5a 5a 5a 2e 5a 5a 39 2e 39 39 2d 5a 5a 5a 2e 5a 5a 5a 2e 5a 5a 39 2e 5a 5a 2d 39 39 39 45 2d 39 39 39 39 39   ┆TT.TTX.XX-TTTTTTTVTTX,XX-Z.ZZZ.ZZX.XXE-BZZZ.ZZZ.ZZ9.99-ZZZ.ZZZ.ZZ9.ZZ-999E-99999┆
0x42b2…4302              45 2d 39 39 42 42 42 2a 2a 2a 2e 2a 2a 2a 2e 2a 2a 39 2e 39 39 2d 42 42 58 45 2d 58 58 45 2d 58 58 45 2d 58 58 42 2a 2e 2a 2a 2a 2e 2a 2a 2a 2e 2a 2a 39 2c 39 39 2b 2a 2e 2a 2a 2a 2e 2a 2a 2a 2e 2a 2a 39 2e 39 39 2b 2a 2e 2a 2a 2a 2e 2a 2a   ┆E-99BBB***.***.**9.99-BBXE-XXE-XXE-XXB*.***.***.**9,99+*.***.***.**9.99+*.***.**┆
0x4302…4352              2a 2e 2a 2a 39 2e 39 39 2d 5a 2e 5a 5a 5a 2e 5a 5a 5a 2e 5a 5a 39 2e 39 39 2d 2a 2e 2a 2a 2a 2e 2a 2a 2a 2e 2a 2a 39 2e 39 39 2b 42 42 2a 2e 2a 2a 2a 2e 2a 2a 2a 2e 2a 2a 39 2e 39 39 2d 42 2a 2e 2a 2a 2a 2e 2a 2a 2a 2e 2a 2a 39 45 2c 39 39   ┆*.**9.99-Z.ZZZ.ZZZ.ZZ9.99-*.***.***.**9.99+BB*.***.***.**9.99-B*.***.***.**9E,99┆
0x4352…43a2              42 39 39 39 45 2d 39 39 39 45 2d 39 39 45 2d 39 39 42 42 42 5a 5a 5a 45 2d 5a 5a 5a 45 2d 5a 5a 45 2d 5a 5a 54 54 54 2e 54 54 54 2e 54 54 54 2e 54 54 39 2e 39 39 2d 5a 5a 5a 2e 5a 5a 5a 2e 5a 5a 5a 2e 5a 5a 39 2e 39 39 2d 42 54 54 54 2e 54   ┆B999E-999E-99E-99BBBZZZE-ZZZE-ZZE-ZZTTT.TTT.TTT.TT9.99-ZZZ.ZZZ.ZZZ.ZZ9.99-BTTT.T┆
0x43a2…43f2              54 54 2e 54 54 54 2e 54 54 39 2e 39 39 2d 42 42 5a 5a 5a 2e 5a 5a 5a 2e 5a 5a 5a 2e 5a 5a 39 2e 39 39 2d 01 90 08 83 87 81 82 89 8a 8b a0 18 c7 d1 ff d0 ff d5 cb c3 ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0c   ┆TT.TTT.TT9.99-BBZZZ.ZZZ.ZZZ.ZZ9.99-                                             ┆

Reduced view