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

⟦e67e6e687⟧

    Length: 7434 (0x1d0a)
    Notes: pts_type(SC)
    Names: »KTOPR.SC«

Derivation

└─⟦9ad21746d⟧ Bits:30009682 Philips computer tape "600304"
    └─⟦this⟧ »NJ-AMT/KTOPR.SC« 

PTS(SC)

	IDENT KTOPR 	02.01.XXX.1 
 DDUM KMD08 
 PDIV 
 ENTRY KTOPR
 ENTRY KTPRT
 EXT ADMRET 
 EXT KTPLAN 
 EXT RESTMK 
	EXT	RAREAD 
	EXT	RAWRIT 
	EXT	SPCLRA 
	EXT	SPCLRN 
	EXT	SPERR
 EXT FRMXTA 
 EXT WTALLY 
	INCLUDE	EQUATE 
 EJECT
KTOPR 
********************
* 
*      OPRETTELSE/SLETNING I KONTOPLAN
* 
********************
	TBT	GTMASTFL,KTCR00A	ONLY MASTER 
 B KTCROK1
KTCR00A 
	CMP	CTASKNR,CBIN0	ALL MUST BE CLOSED 
 BNE KTCROK1
 SET CCONVFLG CLOSE FOR OTHER TASKS 
 MOVE SPKEY,CBIN2 
			KEY POSITION = 2 
KTCR000 
 SET SPPROMPT 
 SET GTDYFLG
 ATTFMT KTPFRM01
KTCR010 
 PERF SPCLRA
 IB SPBINW2,KTCROK,KTCROK,KTCR100 
 B KTCR000
KTCR100 CLEAR CSWFLAG LOOK FOR NUMBER 
 PERF KTPLAN,GSWBCD6,GSWBCD3
 BNOK KTCR000 ERROR ON KTPLAN 
 CBL GSWBIN5,CBIN0,KTCR110
 SET CSWFLAG
KTCR110 
 CLEAR GTDYFLG
 ATTFMT KTPFRM01
KTCR120 
 PERF SPCLRN
 IB SPBINW2,KTCR130,KTCR130,KTCR150 
 B KTCR120
KTCR130 B KTCR000 
KTCR150 
 TBF CSWFLAG,KTCR500 IF NOT FOUND 
*      FOUND
 CBE GSWBCD3,=D'0',KTCR200 BRANCH TO DELETE 
 ADD GSWBIN5,CBIN6
 XCOPY CKTBUF,GSWBIN5,CBIN2,GSWBCD3,CBIN1 
 PERF RAWRIT,DK04,=D'4',CKTBUF,GSWBIN4 REWRITE RECORD 
 B KTCR000
*      DELETE A RECORD
*            GSWBIN4 - RECORD NO
*            GSWBIN5-6 - START OF RECORD
KTCR200 
KTCR210 
 DLETE CKTBUF,GSWBIN5,CBIN8 DELETE RECORD 
 CBNE GSWBIN4,CKTLAST,KTCR250 
			NOW THIS IS LAST USED RECORD 
 XCOPY GSWSTR20,CBIN0,CBIN20,CKTBUF,CBIN0 
 CBNE GSWSTR20,CBLANKS,KTCR220
 PERF RAWRIT,DK04,=D'4',CKTBUF,GSWBIN4
 BNOK KTCR000 
			NOW FIRST NO DELETED 
 SUB CKTLAST,CBIN1
 SUB GSWBIN4,CBIN1
 CBE GSWBIN4,CBIN0,KTCR215
 MOVE GSWBIN5,=W'128' 
 PERF RAREAD,DK04,=D'4',CKTBUF,GSWBIN5,CKTLAST
 BNOK KTCR000 
KTCR215 
 PERF RESTMK
 B KTCR000
KTCR220 
 PERF RAWRIT,DK04,=D'4',CKTBUF,GSWBIN4 REWRITE
 BNOK KTCR000 
 PERF RESTMK
 B KTCR000
KTCR250 
 ADD GSWBIN4,CBIN1 NOT LAST RECORD
 MOVE CCYBUF,CBLANKS
 MOVE GSWBIN5,=W'128' 
 PERF RAREAD,DK04,=D'4',CCYBUF,GSWBIN5,GSWBIN4
 BNOK KTCROK
 MOVE GSWBIN5,=W'120' 
 XCOPY CKTBUF,GSWBIN5,CBIN8,CCYBUF,CBIN0
 MOVE GSWBIN5,CBIN0 
 SUB GSWBIN4,CBIN1
 PERF RAWRIT,DK04,=D'4',CKTBUF,GSWBIN4
 BNOK KTCROK
 PERF RESTMK
 MOVE CKTBUF,CCYBUF 
 MOVE GSWBIN5,CBIN0 
 ADD GSWBIN4,CBIN1
 B KTCR200
KTCR500 
			NOT FOUND
 CMP GSWBCD3,=D'0'
 BE KTCR000 DELETE NON-EXISTING 
*      CREATE NEW 
 MOVE CKTBUF,CBLANKS
 MOVE GSWBIN5,=W'128' 
 PERF RAREAD,DK04,=D'4',CKTBUF,GSWBIN5,GSWBIN4
 BNOK KTCR000 
 MOVE GSWSTR20,CBLANKS
 MOVE GSWBIN5,CBIN0 
KTCR520 
 MOVE GSWBCD7,=D'1' 
 XCOPY GSWSTR20,CBIN0,CBIN6,CKTBUF,GSWBIN5
 XCOPY GSWBCD7,CBIN1,CBIN6,CKTBUF,GSWBIN5 
 CBE GSWSTR20,CBLANKS,KTCR550  POSITION FOUND (BLANK) 
 CBG GSWBCD7,GSWBCD6,KTCR550 POSITION FOUND 
 ADD GSWBIN5,CBIN8
 CBE GSWBIN5,=W'128',KTCR530 POSITION FOUND 
 B KTCR520
*      IN NEXT RECORD 
KTCR530 
 ADD GSWBIN4,CBIN1
 CBL GSWBIN4,=W'22',KTCR540 
*      SET UP ERROR 10
KTCR535 
 MOVE SPBINW4,CBIN21
 MOVE GTWBCD2,=D'04'
 MOVE GTWBCD1,=D'10'
 MOVE GSWSTR9,=C'DISCFEJL ' 
 PERF SPERR 
 B KTCR000
KTCR540 
 MOVE GSWBIN5,=W'128' 
 MOVE CKTBUF,CBLANKS
 PERF RAREAD,DK04,=D'4',CKTBUF,GSWBIN5,GSWBIN4
 BNOK KTCR000 
 MOVE GSWBIN5,CBIN0 
KTCR550 
 XCOPY GSWSTR20,CBIN0,CBIN6,GSWBCD6,CBIN1 
 XCOPY GSWSTR20,CBIN6,CBIN2,GSWBCD3,CBIN1 
KTCR560 
 MOVE GSWBIN3,=W'120' 
 XCOPY GSWSTR20,CBIN8,CBIN8,CKTBUF,GSWBIN3 SAVE LAST
 INSRT CKTBUF,GSWBIN5,CBIN8,GSWSTR20,CBIN0
 BOFL KTCR600 
 MOVE CKTLAST,GSWBIN4 SET LAST
 PERF RAWRIT,DK04,=D'4',CKTBUF,GSWBIN4
 BNOK KTCROK
 PERF RESTMK
 B KTCR000
KTCR600 
 CBNE GSWBIN4,CKTLAST,KTCR610 
 CBE CKTLAST,=W'21',KTCR535 
 ADD CKTLAST,CBIN1
KTCR610 
 PERF RAWRIT,DK04,=D'4',CKTBUF,GSWBIN4
 BNOK KTCROK
 PERF RESTMK
 ADD GSWBIN4,CBIN1
 MOVE CKTBUF,CBLANKS
 MOVE GSWBIN5,=W'128' 
 PERF RAREAD,DK04,=D'4',CKTBUF,GSWBIN5,GSWBIN4
 BNOK KTCROK
 MOVE GSWBIN5,CBIN0 
 COPY GSWSTR20,CBIN0,CBIN8,GSWSTR20,CBIN8 
 B KTCR560
KTCROK
 CLEAR CCONVFLG 
KTCROK1 
 B ADMRET 
 EJECT
KTPRT PROC
********************
* 
*          LISTING OF KONTOPLAN ON TALLY ROLL 
* 
********************
 TBF GTMASTFL,KTPRTOK ONLY MASTER 
 CBNE CTASKNR,CBIN0,KTPRTOK 
 WAIT KTALLY
 EDWRT KTALLY,KTPF100 WRITE HEADING 
*     LOOP THROUGH FILE 
 MOVE GSWBIN4,CBIN0 
KTPRT15 
 ADD GSWBIN4,CBIN1
 CBG GSWBIN4,CKTLAST,KTPRT90 NO MORE RECORDS IN FILE
KTPRT20 
 TBF CKFLAG,KTPRT25 
 DELAY CBIN1
 B KTPRT20
KTPRT25 
 SET CKFLAG RESERVE BUFFER
 MOVE GSWBIN5,=W'128' 
 MOVE CKTBUF,CBLANKS
 PERF RAREAD,DK04,=D'4',CKTBUF,GSWBIN5,GSWBIN4
 BNOK KTPRT45 
*     LOOP THROUGH BUFFER 
 MOVE GSWBIN5,CBIN0 
KTPRT35 
 MOVE GSWBCD6,=D'1' 
 MOVE GSWBCD3,=D'1' 
 MOVE GSWSTR20,CBLANKS
 XCOPY GSWSTR20,CBIN0,CBIN8,CKTBUF,GSWBIN5
 XCOPY GSWBCD6,CBIN1,CBIN6,CKTBUF,GSWBIN5 
 ADD GSWBIN5,CBIN6
 XCOPY GSWBCD3,CBIN1,CBIN2,CKTBUF,GSWBIN5 
 ADD GSWBIN5,CBIN2
 CBE GSWSTR20,CBLANKS,KTPRT80 
 WAIT KTALLY
 EDWRT KTALLY,KTPF200 PRINT LINE
 CBL GSWBIN5,=W'128',KTPRT35
* 
 PERF FRMXTA,CBIN1
 PERF WTALLY
KTPRT45 
 CLEAR CKFLAG 
 B KTPRT15
* 
KTPRT80 
 CLEAR CKFLAG 
KTPRT90 
 PERF FRMXTA,CBIN7 SKIP LINES 
 PERF WTALLY
KTPRTOK 
 RET
 PEND 
 EJECT
* 
* 
*   FORMATS 
* 

KTPFRM01	FRMT 
 FLINK KTPF100
	FBF	GTDYFLG,KTPF010
	FKI	1,ME,MINL=10,MAXL=10,REWRT,SCHK=1
KTPF010 
	FMEL	'99999999E-99',GSWBCD6
	FBT	GTDYFLG,KTPF020
	FKI	13,ME,MINL=1,MAXL=1,APPL=106 
	FMEL	'9',GSWBCD3 
KTPF020 
	FMEND
* 
KTPF100 FRMT
	FSL	 
	FCOPY	=C'ADM  '
 FNL
	FCOPY	=C'DATAS[T'
	FILLR	' ',1
	FCOPY	=C'REGKONTONR' 
 FILLR ' ',2
	FNL
	FCOPY	=C'KONTONR'
	FILLR	' ',5
	FCOPY	=C'BFO'
 FILLR ' ',2
	FNL
 FNL
 FMEND
* 
KTPF200 FRMT
 FILLR '1',2
 FMEL '99999999E-99',GSWBCD6 KT NO
 FMEL 'BBZ9',GSWBCD3 TYPE 
 FILLR ' ',2
 FMEND
* 

 END

HexDump

0x0000…0022 (0, 0, 400)  Head {h00=0x001e, h01=0x0050, text=» IDENT KTOPR  02.01.XXX.1 «, t00=0x0000, t01=0x0004}
0x0022…0036              Head {h00=0x0010, h01=0x000b, text=» DDUM KMD08 «, t00=0x0000, t01=0x0026}
0x0036…0044              Head {h00=0x000a, h01=0x0005, text=» PDIV «, t00=0x0000, t01=0x003a}
0x0044…0058              Head {h00=0x0010, h01=0x000c, text=» ENTRY KTOPR«, t00=0x0000, t01=0x0048}
0x0058…006c              Head {h00=0x0010, h01=0x0050, text=» ENTRY KTPRT«, t00=0x0000, t01=0x005c}
0x006c…0080              Head {h00=0x0010, h01=0x0050, text=» EXT ADMRET «, t00=0x0000, t01=0x0070}
0x0080…0094              Head {h00=0x0010, h01=0x000b, text=» EXT KTPLAN «, t00=0x0000, t01=0x0084}
0x0094…00a8              Head {h00=0x0010, h01=0x0050, text=» EXT RESTMK «, t00=0x0000, t01=0x0098}
0x00a8…00bc              Head {h00=0x0010, h01=0x0050, text=» EXT RAREAD «, t00=0x0000, t01=0x00ac}
0x00bc…00d0              Head {h00=0x0010, h01=0x0050, text=» EXT RAWRIT «, t00=0x0000, t01=0x00c0}
0x00d0…00e4              Head {h00=0x0010, h01=0x0050, text=» EXT SPCLRA «, t00=0x0000, t01=0x00d4}
0x00e4…00f8              Head {h00=0x0010, h01=0x0050, text=» EXT SPCLRN «, t00=0x0000, t01=0x00e8}
0x00f8…010a              Head {h00=0x000e, h01=0x0050, text=» EXT SPERR«, t00=0x0000, t01=0x00fc}
0x010a…011e              Head {h00=0x0010, h01=0x0050, text=» EXT FRMXTA «, t00=0x0000, t01=0x010e}
0x011e…0132              Head {h00=0x0010, h01=0x0050, text=» EXT WTALLY «, t00=0x0000, t01=0x0122}
0x0132…014a              Head {h00=0x0014, h01=0x0050, text=» INCLUDE EQUATE «, t00=0x0000, t01=0x0136}
0x014a…0158              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0000, t01=0x014e}
0x0158…0166              Head {h00=0x000a, h01=0x0050, text=»KTOPR «, t00=0x0000, t01=0x015c}
0x0166…0182              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0000, t01=0x016a}
0x0182…018c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0186}
0x018c…01ba              Head {h00=0x002a, h01=0x0050, text=»*      OPRETTELSE/SLETNING I KONTOPLAN«, t00=0x0000, t01=0x0190}
0x01ba…01c4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x002e}
0x01c4…01e0              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0001, t01=0x0038}
0x01e0…020a              Head {h00=0x0026, h01=0x0050, text=» TBT GTMASTFL,KTCR00A ONLY MASTER «, t00=0x0001, t01=0x0054}
0x020a…021c              Head {h00=0x000e, h01=0x0050, text=» B KTCROK1«, t00=0x0001, t01=0x007e}
0x021c…022c              Head {h00=0x000c, h01=0x0050, text=»KTCR00A «, t00=0x0001, t01=0x0090}
0x022c…025a              Head {h00=0x002a, h01=0x0050, text=» CMP CTASKNR,CBIN0 ALL MUST BE CLOSED «, t00=0x0001, t01=0x00a0}
0x025a…026e              Head {h00=0x0010, h01=0x0050, text=» BNE KTCROK1«, t00=0x0001, t01=0x00ce}
0x026e…029a              Head {h00=0x0028, h01=0x0050, text=» SET CCONVFLG CLOSE FOR OTHER TASKS «, t00=0x0001, t01=0x00e2}
0x029a…02b4              Head {h00=0x0016, h01=0x0050, text=» MOVE SPKEY,CBIN2 «, t00=0x0001, t01=0x010e}
0x02b4…02d0              Head {h00=0x0018, h01=0x0050, text=»   KEY POSITION = 2 «, t00=0x0001, t01=0x0128}
0x02d0…02e0              Head {h00=0x000c, h01=0x0050, text=»KTCR000 «, t00=0x0001, t01=0x0144}
0x02e0…02f6              Head {h00=0x0012, h01=0x0050, text=» SET SPPROMPT «, t00=0x0001, t01=0x0154}
0x02f6…030a              Head {h00=0x0010, h01=0x0050, text=» SET GTDYFLG«, t00=0x0001, t01=0x016a}
0x030a…0322              Head {h00=0x0014, h01=0x0050, text=» ATTFMT KTPFRM01«, t00=0x0001, t01=0x017e}
0x0322…0332              Head {h00=0x000c, h01=0x0050, text=»KTCR010 «, t00=0x0002, t01=0x0008}
0x0332…0346              Head {h00=0x0010, h01=0x0050, text=» PERF SPCLRA«, t00=0x0002, t01=0x0018}
0x0346…0370              Head {h00=0x0026, h01=0x0050, text=» IB SPBINW2,KTCROK,KTCROK,KTCR100 «, t00=0x0002, t01=0x002c}
0x0370…0382              Head {h00=0x000e, h01=0x0050, text=» B KTCR000«, t00=0x0002, t01=0x0056}
0x0382…03b0              Head {h00=0x002a, h01=0x0050, text=»KTCR100 CLEAR CSWFLAG LOOK FOR NUMBER «, t00=0x0002, t01=0x0068}
0x03b0…03d4              Head {h00=0x0020, h01=0x0050, text=» PERF KTPLAN,GSWBCD6,GSWBCD3«, t00=0x0002, t01=0x0096}
0x03d4…03fa              Head {h00=0x0022, h01=0x0050, text=» BNOK KTCR000 ERROR ON KTPLAN «, t00=0x0002, t01=0x00ba}
0x03fa…041c              Head {h00=0x001e, h01=0x0050, text=» CBL GSWBIN5,CBIN0,KTCR110«, t00=0x0002, t01=0x00e0}
0x041c…0430              Head {h00=0x0010, h01=0x0050, text=» SET CSWFLAG«, t00=0x0002, t01=0x0102}
0x0430…0440              Head {h00=0x000c, h01=0x0050, text=»KTCR110 «, t00=0x0002, t01=0x0116}
0x0440…0456              Head {h00=0x0012, h01=0x0050, text=» CLEAR GTDYFLG«, t00=0x0002, t01=0x0126}
0x0456…046e              Head {h00=0x0014, h01=0x0050, text=» ATTFMT KTPFRM01«, t00=0x0002, t01=0x013c}
0x046e…047e              Head {h00=0x000c, h01=0x0050, text=»KTCR120 «, t00=0x0002, t01=0x0154}
0x047e…0492              Head {h00=0x0010, h01=0x0050, text=» PERF SPCLRN«, t00=0x0002, t01=0x0164}
0x0492…04be              Head {h00=0x0028, h01=0x0050, text=» IB SPBINW2,KTCR130,KTCR130,KTCR150 «, t00=0x0002, t01=0x0178}
0x04be…04d0              Head {h00=0x000e, h01=0x0050, text=» B KTCR120«, t00=0x0003, t01=0x0014}
0x04d0…04ea              Head {h00=0x0016, h01=0x0050, text=»KTCR130 B KTCR000 «, t00=0x0003, t01=0x0026}
0x04ea…04fa              Head {h00=0x000c, h01=0x0050, text=»KTCR150 «, t00=0x0003, t01=0x0040}
0x04fa…0524              Head {h00=0x0026, h01=0x0050, text=» TBF CSWFLAG,KTCR500 IF NOT FOUND «, t00=0x0003, t01=0x0050}
0x0524…0538              Head {h00=0x0010, h01=0x0050, text=»*      FOUND«, t00=0x0003, t01=0x007a}
0x0538…056c              Head {h00=0x0030, h01=0x0050, text=» CBE GSWBCD3,=D'0',KTCR200 BRANCH TO DELETE «, t00=0x0003, t01=0x008e}
0x056c…0586              Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN5,CBIN6«, t00=0x0003, t01=0x00c2}
0x0586…05b8              Head {h00=0x002e, h01=0x0050, text=» XCOPY CKTBUF,GSWBIN5,CBIN2,GSWBCD3,CBIN1 «, t00=0x0003, t01=0x00dc}
0x05b8…05f6              Head {h00=0x003a, h01=0x0050, text=» PERF RAWRIT,DK04,=D'4',CKTBUF,GSWBIN4 REWRITE RECORD «, t00=0x0003, t01=0x010e}
0x05f6…0608              Head {h00=0x000e, h01=0x0050, text=» B KTCR000«, t00=0x0003, t01=0x014c}
0x0608…0626              Head {h00=0x001a, h01=0x0050, text=»*      DELETE A RECORD«, t00=0x0003, t01=0x015e}
0x0626…064e              Head {h00=0x0024, h01=0x0050, text=»*            GSWBIN4 - RECORD NO«, t00=0x0003, t01=0x017c}
0x064e…067e              Head {h00=0x002c, h01=0x0050, text=»*            GSWBIN5-6 - START OF RECORD«, t00=0x0004, t01=0x0014}
0x067e…068e              Head {h00=0x000c, h01=0x0050, text=»KTCR200 «, t00=0x0004, t01=0x0044}
0x068e…069e              Head {h00=0x000c, h01=0x0050, text=»KTCR210 «, t00=0x0004, t01=0x0054}
0x069e…06d0              Head {h00=0x002e, h01=0x0050, text=» DLETE CKTBUF,GSWBIN5,CBIN8 DELETE RECORD «, t00=0x0004, t01=0x0064}
0x06d0…06f6              Head {h00=0x0022, h01=0x0050, text=» CBNE GSWBIN4,CKTLAST,KTCR250 «, t00=0x0004, t01=0x0096}
0x06f6…071e              Head {h00=0x0024, h01=0x0050, text=»   NOW THIS IS LAST USED RECORD «, t00=0x0004, t01=0x00bc}
0x071e…0750              Head {h00=0x002e, h01=0x0050, text=» XCOPY GSWSTR20,CBIN0,CBIN20,CKTBUF,CBIN0 «, t00=0x0004, t01=0x00e4}
0x0750…0776              Head {h00=0x0022, h01=0x0050, text=» CBNE GSWSTR20,CBLANKS,KTCR220«, t00=0x0004, t01=0x0116}
0x0776…07a4              Head {h00=0x002a, h01=0x0050, text=» PERF RAWRIT,DK04,=D'4',CKTBUF,GSWBIN4«, t00=0x0004, t01=0x013c}
0x07a4…07ba              Head {h00=0x0012, h01=0x0050, text=» BNOK KTCR000 «, t00=0x0004, t01=0x016a}
0x07ba…07da              Head {h00=0x001c, h01=0x0050, text=»   NOW FIRST NO DELETED «, t00=0x0004, t01=0x0180}
0x07da…07f4              Head {h00=0x0016, h01=0x0050, text=» SUB CKTLAST,CBIN1«, t00=0x0005, t01=0x0010}
0x07f4…080e              Head {h00=0x0016, h01=0x0050, text=» SUB GSWBIN4,CBIN1«, t00=0x0005, t01=0x002a}
0x080e…0830              Head {h00=0x001e, h01=0x0050, text=» CBE GSWBIN4,CBIN0,KTCR215«, t00=0x0005, t01=0x0044}
0x0830…084e              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN5,=W'128' «, t00=0x0005, t01=0x0066}
0x084e…0884              Head {h00=0x0032, h01=0x0050, text=» PERF RAREAD,DK04,=D'4',CKTBUF,GSWBIN5,CKTLAST«, t00=0x0005, t01=0x0084}
0x0884…089a              Head {h00=0x0012, h01=0x0050, text=» BNOK KTCR000 «, t00=0x0005, t01=0x00ba}
0x089a…08aa              Head {h00=0x000c, h01=0x0050, text=»KTCR215 «, t00=0x0005, t01=0x00d0}
0x08aa…08be              Head {h00=0x0010, h01=0x0050, text=» PERF RESTMK«, t00=0x0005, t01=0x00e0}
0x08be…08d0              Head {h00=0x000e, h01=0x0050, text=» B KTCR000«, t00=0x0005, t01=0x00f4}
0x08d0…08e0              Head {h00=0x000c, h01=0x0050, text=»KTCR220 «, t00=0x0005, t01=0x0106}
0x08e0…0916              Head {h00=0x0032, h01=0x0050, text=» PERF RAWRIT,DK04,=D'4',CKTBUF,GSWBIN4 REWRITE«, t00=0x0005, t01=0x0116}
0x0916…092c              Head {h00=0x0012, h01=0x0050, text=» BNOK KTCR000 «, t00=0x0005, t01=0x014c}
0x092c…0940              Head {h00=0x0010, h01=0x0050, text=» PERF RESTMK«, t00=0x0005, t01=0x0162}
0x0940…0952              Head {h00=0x000e, h01=0x0050, text=» B KTCR000«, t00=0x0005, t01=0x0176}
0x0952…0962              Head {h00=0x000c, h01=0x0050, text=»KTCR250 «, t00=0x0005, t01=0x0188}
0x0962…098c              Head {h00=0x0026, h01=0x0050, text=» ADD GSWBIN4,CBIN1 NOT LAST RECORD«, t00=0x0006, t01=0x0008}
0x098c…09a8              Head {h00=0x0018, h01=0x0050, text=» MOVE CCYBUF,CBLANKS«, t00=0x0006, t01=0x0032}
0x09a8…09c6              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN5,=W'128' «, t00=0x0006, t01=0x004e}
0x09c6…09fc              Head {h00=0x0032, h01=0x0050, text=» PERF RAREAD,DK04,=D'4',CCYBUF,GSWBIN5,GSWBIN4«, t00=0x0006, t01=0x006c}
0x09fc…0a10              Head {h00=0x0010, h01=0x0050, text=» BNOK KTCROK«, t00=0x0006, t01=0x00a2}
0x0a10…0a2e              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN5,=W'120' «, t00=0x0006, t01=0x00b6}
0x0a2e…0a5e              Head {h00=0x002c, h01=0x0050, text=» XCOPY CKTBUF,GSWBIN5,CBIN8,CCYBUF,CBIN0«, t00=0x0006, t01=0x00d4}
0x0a5e…0a7a              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN5,CBIN0 «, t00=0x0006, t01=0x0104}
0x0a7a…0a94              Head {h00=0x0016, h01=0x0050, text=» SUB GSWBIN4,CBIN1«, t00=0x0006, t01=0x0120}
0x0a94…0ac2              Head {h00=0x002a, h01=0x0050, text=» PERF RAWRIT,DK04,=D'4',CKTBUF,GSWBIN4«, t00=0x0006, t01=0x013a}
0x0ac2…0ad6              Head {h00=0x0010, h01=0x0050, text=» BNOK KTCROK«, t00=0x0006, t01=0x0168}
0x0ad6…0aea              Head {h00=0x0010, h01=0x0050, text=» PERF RESTMK«, t00=0x0006, t01=0x017c}
0x0aea…0b06              Head {h00=0x0018, h01=0x0050, text=» MOVE CKTBUF,CCYBUF «, t00=0x0006, t01=0x0190}
0x0b06…0b22              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN5,CBIN0 «, t00=0x0007, t01=0x001c}
0x0b22…0b3c              Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN4,CBIN1«, t00=0x0007, t01=0x0038}
0x0b3c…0b4e              Head {h00=0x000e, h01=0x0050, text=» B KTCR200«, t00=0x0007, t01=0x0052}
0x0b4e…0b5e              Head {h00=0x000c, h01=0x0050, text=»KTCR500 «, t00=0x0007, t01=0x0064}
0x0b5e…0b72              Head {h00=0x0010, h01=0x0050, text=»   NOT FOUND«, t00=0x0007, t01=0x0074}
0x0b72…0b8c              Head {h00=0x0016, h01=0x0050, text=» CMP GSWBCD3,=D'0'«, t00=0x0007, t01=0x0088}
0x0b8c…0bb4              Head {h00=0x0024, h01=0x0050, text=» BE KTCR000 DELETE NON-EXISTING «, t00=0x0007, t01=0x00a2}
0x0bb4…0bce              Head {h00=0x0016, h01=0x0050, text=»*      CREATE NEW «, t00=0x0007, t01=0x00ca}
0x0bce…0bea              Head {h00=0x0018, h01=0x0050, text=» MOVE CKTBUF,CBLANKS«, t00=0x0007, t01=0x00e4}
0x0bea…0c08              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN5,=W'128' «, t00=0x0007, t01=0x0100}
0x0c08…0c3e              Head {h00=0x0032, h01=0x0050, text=» PERF RAREAD,DK04,=D'4',CKTBUF,GSWBIN5,GSWBIN4«, t00=0x0007, t01=0x011e}
0x0c3e…0c54              Head {h00=0x0012, h01=0x0050, text=» BNOK KTCR000 «, t00=0x0007, t01=0x0154}
0x0c54…0c72              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWSTR20,CBLANKS«, t00=0x0007, t01=0x016a}
0x0c72…0c8e              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN5,CBIN0 «, t00=0x0007, t01=0x0188}
0x0c8e…0c9e              Head {h00=0x000c, h01=0x0050, text=»KTCR520 «, t00=0x0008, t01=0x0014}
0x0c9e…0cba              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD7,=D'1' «, t00=0x0008, t01=0x0024}
0x0cba…0cec              Head {h00=0x002e, h01=0x0050, text=» XCOPY GSWSTR20,CBIN0,CBIN6,CKTBUF,GSWBIN5«, t00=0x0008, t01=0x0040}
0x0cec…0d1e              Head {h00=0x002e, h01=0x0050, text=» XCOPY GSWBCD7,CBIN1,CBIN6,CKTBUF,GSWBIN5 «, t00=0x0008, t01=0x0072}
0x0d1e…0d5c              Head {h00=0x003a, h01=0x0050, text=» CBE GSWSTR20,CBLANKS,KTCR550  POSITION FOUND (BLANK) «, t00=0x0008, t01=0x00a4}
0x0d5c…0d90              Head {h00=0x0030, h01=0x0050, text=» CBG GSWBCD7,GSWBCD6,KTCR550 POSITION FOUND «, t00=0x0008, t01=0x00e2}
0x0d90…0daa              Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN5,CBIN8«, t00=0x0008, t01=0x0116}
0x0daa…0dde              Head {h00=0x0030, h01=0x0050, text=» CBE GSWBIN5,=W'128',KTCR530 POSITION FOUND «, t00=0x0008, t01=0x0130}
0x0dde…0df0              Head {h00=0x000e, h01=0x0050, text=» B KTCR520«, t00=0x0008, t01=0x0164}
0x0df0…0e0e              Head {h00=0x001a, h01=0x0050, text=»*      IN NEXT RECORD «, t00=0x0008, t01=0x0176}
0x0e0e…0e1e (9, 0, 400)  Head {h00=0x000c, h01=0x0050, text=»KTCR530 «, t00=0x0009, t01=0x0004}
0x0e1e…0e38              Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN4,CBIN1«, t00=0x0009, t01=0x0014}
0x0e38…0e5c              Head {h00=0x0020, h01=0x0050, text=» CBL GSWBIN4,=W'22',KTCR540 «, t00=0x0009, t01=0x002e}
0x0e5c…0e7a              Head {h00=0x001a, h01=0x0050, text=»*      SET UP ERROR 10«, t00=0x0009, t01=0x0052}
0x0e7a…0e8a              Head {h00=0x000c, h01=0x0050, text=»KTCR535 «, t00=0x0009, t01=0x0070}
0x0e8a…0ea6              Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,CBIN21«, t00=0x0009, t01=0x0080}
0x0ea6…0ec2              Head {h00=0x0018, h01=0x0050, text=» MOVE GTWBCD2,=D'04'«, t00=0x0009, t01=0x009c}
0x0ec2…0ede              Head {h00=0x0018, h01=0x0050, text=» MOVE GTWBCD1,=D'10'«, t00=0x0009, t01=0x00b8}
0x0ede…0f02              Head {h00=0x0020, h01=0x0050, text=» MOVE GSWSTR9,=C'DISCFEJL ' «, t00=0x0009, t01=0x00d4}
0x0f02…0f16              Head {h00=0x0010, h01=0x0050, text=» PERF SPERR «, t00=0x0009, t01=0x00f8}
0x0f16…0f28              Head {h00=0x000e, h01=0x0050, text=» B KTCR000«, t00=0x0009, t01=0x010c}
0x0f28…0f38              Head {h00=0x000c, h01=0x0050, text=»KTCR540 «, t00=0x0009, t01=0x011e}
0x0f38…0f56              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN5,=W'128' «, t00=0x0009, t01=0x012e}
0x0f56…0f72              Head {h00=0x0018, h01=0x0050, text=» MOVE CKTBUF,CBLANKS«, t00=0x0009, t01=0x014c}
0x0f72…0fa8              Head {h00=0x0032, h01=0x0050, text=» PERF RAREAD,DK04,=D'4',CKTBUF,GSWBIN5,GSWBIN4«, t00=0x0009, t01=0x0168}
0x0fa8…0fbe              Head {h00=0x0012, h01=0x0050, text=» BNOK KTCR000 «, t00=0x000a, t01=0x000e}
0x0fbe…0fda              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN5,CBIN0 «, t00=0x000a, t01=0x0024}
0x0fda…0fea              Head {h00=0x000c, h01=0x0050, text=»KTCR550 «, t00=0x000a, t01=0x0040}
0x0fea…101c              Head {h00=0x002e, h01=0x0050, text=» XCOPY GSWSTR20,CBIN0,CBIN6,GSWBCD6,CBIN1 «, t00=0x000a, t01=0x0050}
0x101c…104e              Head {h00=0x002e, h01=0x0050, text=» XCOPY GSWSTR20,CBIN6,CBIN2,GSWBCD3,CBIN1 «, t00=0x000a, t01=0x0082}
0x104e…105e              Head {h00=0x000c, h01=0x0050, text=»KTCR560 «, t00=0x000a, t01=0x00b4}
0x105e…107c              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN3,=W'120' «, t00=0x000a, t01=0x00c4}
0x107c…10b8              Head {h00=0x0038, h01=0x0050, text=» XCOPY GSWSTR20,CBIN8,CBIN8,CKTBUF,GSWBIN3 SAVE LAST«, t00=0x000a, t01=0x00e2}
0x10b8…10ea              Head {h00=0x002e, h01=0x0050, text=» INSRT CKTBUF,GSWBIN5,CBIN8,GSWSTR20,CBIN0«, t00=0x000a, t01=0x011e}
0x10ea…1100              Head {h00=0x0012, h01=0x0050, text=» BOFL KTCR600 «, t00=0x000a, t01=0x0150}
0x1100…1126              Head {h00=0x0022, h01=0x0050, text=» MOVE CKTLAST,GSWBIN4 SET LAST«, t00=0x000a, t01=0x0166}
0x1126…1154              Head {h00=0x002a, h01=0x0050, text=» PERF RAWRIT,DK04,=D'4',CKTBUF,GSWBIN4«, t00=0x000a, t01=0x018c}
0x1154…1168              Head {h00=0x0010, h01=0x0050, text=» BNOK KTCROK«, t00=0x000b, t01=0x002a}
0x1168…117c              Head {h00=0x0010, h01=0x0050, text=» PERF RESTMK«, t00=0x000b, t01=0x003e}
0x117c…118e              Head {h00=0x000e, h01=0x0050, text=» B KTCR000«, t00=0x000b, t01=0x0052}
0x118e…119e              Head {h00=0x000c, h01=0x0050, text=»KTCR600 «, t00=0x000b, t01=0x0064}
0x119e…11c4              Head {h00=0x0022, h01=0x0050, text=» CBNE GSWBIN4,CKTLAST,KTCR610 «, t00=0x000b, t01=0x0074}
0x11c4…11e8              Head {h00=0x0020, h01=0x0050, text=» CBE CKTLAST,=W'21',KTCR535 «, t00=0x000b, t01=0x009a}
0x11e8…1202              Head {h00=0x0016, h01=0x0050, text=» ADD CKTLAST,CBIN1«, t00=0x000b, t01=0x00be}
0x1202…1212              Head {h00=0x000c, h01=0x0050, text=»KTCR610 «, t00=0x000b, t01=0x00d8}
0x1212…1240              Head {h00=0x002a, h01=0x0050, text=» PERF RAWRIT,DK04,=D'4',CKTBUF,GSWBIN4«, t00=0x000b, t01=0x00e8}
0x1240…1254              Head {h00=0x0010, h01=0x0050, text=» BNOK KTCROK«, t00=0x000b, t01=0x0116}
0x1254…1268              Head {h00=0x0010, h01=0x0050, text=» PERF RESTMK«, t00=0x000b, t01=0x012a}
0x1268…1282              Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN4,CBIN1«, t00=0x000b, t01=0x013e}
0x1282…129e              Head {h00=0x0018, h01=0x0050, text=» MOVE CKTBUF,CBLANKS«, t00=0x000b, t01=0x0158}
0x129e…12bc              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN5,=W'128' «, t00=0x000b, t01=0x0174}
0x12bc…12f2 (12, 0, 400) Head {h00=0x0032, h01=0x0050, text=» PERF RAREAD,DK04,=D'4',CKTBUF,GSWBIN5,GSWBIN4«, t00=0x000c, t01=0x0004}
0x12f2…1306              Head {h00=0x0010, h01=0x0050, text=» BNOK KTCROK«, t00=0x000c, t01=0x003a}
0x1306…1322              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN5,CBIN0 «, t00=0x000c, t01=0x004e}
0x1322…1354              Head {h00=0x002e, h01=0x0050, text=» COPY GSWSTR20,CBIN0,CBIN8,GSWSTR20,CBIN8 «, t00=0x000c, t01=0x006a}
0x1354…1366              Head {h00=0x000e, h01=0x0050, text=» B KTCR560«, t00=0x000c, t01=0x009c}
0x1366…1374              Head {h00=0x000a, h01=0x0050, text=»KTCROK«, t00=0x000c, t01=0x00ae}
0x1374…138c              Head {h00=0x0014, h01=0x0050, text=» CLEAR CCONVFLG «, t00=0x000c, t01=0x00bc}
0x138c…139c              Head {h00=0x000c, h01=0x0050, text=»KTCROK1 «, t00=0x000c, t01=0x00d4}
0x139c…13ae              Head {h00=0x000e, h01=0x0050, text=» B ADMRET «, t00=0x000c, t01=0x00e4}
0x13ae…13bc              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x00f6}
0x13bc…13ce              Head {h00=0x000e, h01=0x0050, text=»KTPRT PROC«, t00=0x000c, t01=0x0104}
0x13ce…13ea              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000c, t01=0x0116}
0x13ea…13f4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0132}
0x13f4…142a              Head {h00=0x0032, h01=0x0050, text=»*          LISTING OF KONTOPLAN ON TALLY ROLL «, t00=0x000c, t01=0x013c}
0x142a…1434              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0172}
0x1434…1450              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000c, t01=0x017c}
0x1450…147a              Head {h00=0x0026, h01=0x0050, text=» TBF GTMASTFL,KTPRTOK ONLY MASTER «, t00=0x000d, t01=0x0008}
0x147a…149e              Head {h00=0x0020, h01=0x0050, text=» CBNE CTASKNR,CBIN0,KTPRTOK «, t00=0x000d, t01=0x0032}
0x149e…14b2              Head {h00=0x0010, h01=0x0050, text=» WAIT KTALLY«, t00=0x000d, t01=0x0056}
0x14b2…14de              Head {h00=0x0028, h01=0x0050, text=» EDWRT KTALLY,KTPF100 WRITE HEADING «, t00=0x000d, t01=0x006a}
0x14de…14fe              Head {h00=0x001c, h01=0x0050, text=»*     LOOP THROUGH FILE «, t00=0x000d, t01=0x0096}
0x14fe…151a              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN4,CBIN0 «, t00=0x000d, t01=0x00b6}
0x151a…152a              Head {h00=0x000c, h01=0x0050, text=»KTPRT15 «, t00=0x000d, t01=0x00d2}
0x152a…1544              Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN4,CBIN1«, t00=0x000d, t01=0x00e2}
0x1544…1580              Head {h00=0x0038, h01=0x0050, text=» CBG GSWBIN4,CKTLAST,KTPRT90 NO MORE RECORDS IN FILE«, t00=0x000d, t01=0x00fc}
0x1580…1590              Head {h00=0x000c, h01=0x0050, text=»KTPRT20 «, t00=0x000d, t01=0x0138}
0x1590…15ac              Head {h00=0x0018, h01=0x0050, text=» TBF CKFLAG,KTPRT25 «, t00=0x000d, t01=0x0148}
0x15ac…15c0              Head {h00=0x0010, h01=0x0050, text=» DELAY CBIN1«, t00=0x000d, t01=0x0164}
0x15c0…15d2              Head {h00=0x000e, h01=0x0050, text=» B KTPRT20«, t00=0x000d, t01=0x0178}
0x15d2…15e2              Head {h00=0x000c, h01=0x0050, text=»KTPRT25 «, t00=0x000d, t01=0x018a}
0x15e2…1604              Head {h00=0x001e, h01=0x0050, text=» SET CKFLAG RESERVE BUFFER«, t00=0x000e, t01=0x000a}
0x1604…1622              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN5,=W'128' «, t00=0x000e, t01=0x002c}
0x1622…163e              Head {h00=0x0018, h01=0x0050, text=» MOVE CKTBUF,CBLANKS«, t00=0x000e, t01=0x004a}
0x163e…1674              Head {h00=0x0032, h01=0x0050, text=» PERF RAREAD,DK04,=D'4',CKTBUF,GSWBIN5,GSWBIN4«, t00=0x000e, t01=0x0066}
0x1674…168a              Head {h00=0x0012, h01=0x0050, text=» BNOK KTPRT45 «, t00=0x000e, t01=0x009c}
0x168a…16ac              Head {h00=0x001e, h01=0x0050, text=»*     LOOP THROUGH BUFFER «, t00=0x000e, t01=0x00b2}
0x16ac…16c8              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN5,CBIN0 «, t00=0x000e, t01=0x00d4}
0x16c8…16d8              Head {h00=0x000c, h01=0x0050, text=»KTPRT35 «, t00=0x000e, t01=0x00f0}
0x16d8…16f4              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD6,=D'1' «, t00=0x000e, t01=0x0100}
0x16f4…1710              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD3,=D'1' «, t00=0x000e, t01=0x011c}
0x1710…172e              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWSTR20,CBLANKS«, t00=0x000e, t01=0x0138}
0x172e…1760              Head {h00=0x002e, h01=0x0050, text=» XCOPY GSWSTR20,CBIN0,CBIN8,CKTBUF,GSWBIN5«, t00=0x000e, t01=0x0156}
0x1760…1792              Head {h00=0x002e, h01=0x0050, text=» XCOPY GSWBCD6,CBIN1,CBIN6,CKTBUF,GSWBIN5 «, t00=0x000e, t01=0x0188}
0x1792…17ac              Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN5,CBIN6«, t00=0x000f, t01=0x002a}
0x17ac…17de              Head {h00=0x002e, h01=0x0050, text=» XCOPY GSWBCD3,CBIN1,CBIN2,CKTBUF,GSWBIN5 «, t00=0x000f, t01=0x0044}
0x17de…17f8              Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN5,CBIN2«, t00=0x000f, t01=0x0076}
0x17f8…181e              Head {h00=0x0022, h01=0x0050, text=» CBE GSWSTR20,CBLANKS,KTPRT80 «, t00=0x000f, t01=0x0090}
0x181e…1832              Head {h00=0x0010, h01=0x0050, text=» WAIT KTALLY«, t00=0x000f, t01=0x00b6}
0x1832…185a              Head {h00=0x0024, h01=0x0050, text=» EDWRT KTALLY,KTPF200 PRINT LINE«, t00=0x000f, t01=0x00ca}
0x185a…187e              Head {h00=0x0020, h01=0x0050, text=» CBL GSWBIN5,=W'128',KTPRT35«, t00=0x000f, t01=0x00f2}
0x187e…1888              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0116}
0x1888…18a2              Head {h00=0x0016, h01=0x0050, text=» PERF FRMXTA,CBIN1«, t00=0x000f, t01=0x0120}
0x18a2…18b6              Head {h00=0x0010, h01=0x0050, text=» PERF WTALLY«, t00=0x000f, t01=0x013a}
0x18b6…18c6              Head {h00=0x000c, h01=0x0050, text=»KTPRT45 «, t00=0x000f, t01=0x014e}
0x18c6…18dc              Head {h00=0x0012, h01=0x0050, text=» CLEAR CKFLAG «, t00=0x000f, t01=0x015e}
0x18dc…18ee              Head {h00=0x000e, h01=0x0050, text=» B KTPRT15«, t00=0x000f, t01=0x0174}
0x18ee…18f8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0186}
0x18f8…1908              Head {h00=0x000c, h01=0x0050, text=»KTPRT80 «, t00=0x000f, t01=0x0190}
0x1908…191e              Head {h00=0x0012, h01=0x0050, text=» CLEAR CKFLAG «, t00=0x0010, t01=0x0010}
0x191e…192e              Head {h00=0x000c, h01=0x0050, text=»KTPRT90 «, t00=0x0010, t01=0x0026}
0x192e…1954              Head {h00=0x0022, h01=0x0050, text=» PERF FRMXTA,CBIN7 SKIP LINES «, t00=0x0010, t01=0x0036}
0x1954…1968              Head {h00=0x0010, h01=0x0050, text=» PERF WTALLY«, t00=0x0010, t01=0x005c}
0x1968…1978              Head {h00=0x000c, h01=0x0050, text=»KTPRTOK «, t00=0x0010, t01=0x0070}
0x1978…1984              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0010, t01=0x0080}
0x1984…1992              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0010, t01=0x008c}
0x1992…19a0              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x009a}
0x19a0…19aa              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00a8}
0x19aa…19b4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00b2}
0x19b4…19c8              Head {h00=0x0010, h01=0x0050, text=»*   FORMATS «, t00=0x0010, t01=0x00bc}
0x19c8…19d2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00d0}
0x19d2…19da              Head {h00=0x0004, h01=0x0050, t00=0x0010, t01=0x00da}
0x19da…19f0              Head {h00=0x0012, h01=0x0050, text=»KTPFRM01 FRMT «, t00=0x0010, t01=0x00e2}
0x19f0…1a06              Head {h00=0x0012, h01=0x0050, text=» FLINK KTPF100«, t00=0x0010, t01=0x00f8}
0x1a06…1a22              Head {h00=0x0018, h01=0x0050, text=» FBF GTDYFLG,KTPF010«, t00=0x0010, t01=0x010e}
0x1a22…1a50              Head {h00=0x002a, h01=0x0050, text=» FKI 1,ME,MINL=10,MAXL=10,REWRT,SCHK=1«, t00=0x0010, t01=0x012a}
0x1a50…1a60              Head {h00=0x000c, h01=0x0050, text=»KTPF010 «, t00=0x0010, t01=0x0158}
0x1a60…1a84              Head {h00=0x0020, h01=0x0050, text=» FMEL '99999999E-99',GSWBCD6«, t00=0x0010, t01=0x0168}
0x1a84…1aa0              Head {h00=0x0018, h01=0x0050, text=» FBT GTDYFLG,KTPF020«, t00=0x0010, t01=0x018c}
0x1aa0…1aca              Head {h00=0x0026, h01=0x0050, text=» FKI 13,ME,MINL=1,MAXL=1,APPL=106 «, t00=0x0011, t01=0x0018}
0x1aca…1ae4              Head {h00=0x0016, h01=0x0050, text=» FMEL '9',GSWBCD3 «, t00=0x0011, t01=0x0042}
0x1ae4…1af4              Head {h00=0x000c, h01=0x0050, text=»KTPF020 «, t00=0x0011, t01=0x005c}
0x1af4…1b02              Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0011, t01=0x006c}
0x1b02…1b0c              Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0011, t01=0x007a}
0x1b0c…1b20              Head {h00=0x0010, h01=0x0050, text=»KTPF100 FRMT«, t00=0x0011, t01=0x0084}
0x1b20…1b2e              Head {h00=0x000a, h01=0x0050, text=» FSL  «, t00=0x0011, t01=0x0098}
0x1b2e…1b46              Head {h00=0x0014, h01=0x0050, text=» FCOPY =C'ADM  '«, t00=0x0011, t01=0x00a6}
0x1b46…1b52              Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0011, t01=0x00be}
0x1b52…1b6c              Head {h00=0x0016, h01=0x0050, text=» FCOPY =C'DATAS[T'«, t00=0x0011, t01=0x00ca}
0x1b6c…1b80              Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',1«, t00=0x0011, t01=0x00e4}
0x1b80…1b9e              Head {h00=0x001a, h01=0x0050, text=» FCOPY =C'REGKONTONR' «, t00=0x0011, t01=0x00f8}
0x1b9e…1bb2              Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',2«, t00=0x0011, t01=0x0116}
0x1bb2…1bbe              Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0011, t01=0x012a}
0x1bbe…1bd8              Head {h00=0x0016, h01=0x0050, text=» FCOPY =C'KONTONR'«, t00=0x0011, t01=0x0136}
0x1bd8…1bec              Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',5«, t00=0x0011, t01=0x0150}
0x1bec…1c02              Head {h00=0x0012, h01=0x0050, text=» FCOPY =C'BFO'«, t00=0x0011, t01=0x0164}
0x1c02…1c16              Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',2«, t00=0x0011, t01=0x017a}
0x1c16…1c22              Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0011, t01=0x018e}
0x1c22…1c2e              Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0012, t01=0x000a}
0x1c2e…1c3c              Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0012, t01=0x0016}
0x1c3c…1c46              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0024}
0x1c46…1c5a              Head {h00=0x0010, h01=0x0050, text=»KTPF200 FRMT«, t00=0x0012, t01=0x002e}
0x1c5a…1c6e              Head {h00=0x0010, h01=0x0050, text=» FILLR '1',2«, t00=0x0012, t01=0x0042}
0x1c6e…1c98              Head {h00=0x0026, h01=0x0050, text=» FMEL '99999999E-99',GSWBCD6 KT NO«, t00=0x0012, t01=0x0056}
0x1c98…1cba              Head {h00=0x001e, h01=0x0050, text=» FMEL 'BBZ9',GSWBCD3 TYPE «, t00=0x0012, t01=0x0080}
0x1cba…1cce              Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',2«, t00=0x0012, t01=0x00a2}
0x1cce…1cdc              Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0012, t01=0x00b6}
0x1cdc…1ce6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00c4}
0x1ce6…1cee              Head {h00=0x0004, h01=0x0050, t00=0x0012, t01=0x00ce}
0x1cee…1cfa              Head {h00=0x0008, h01=0x0004, text=» END«, t00=0x0012, t01=0x00d6}
0x1cfa…1cfe              Head {h00=0x4004, h01=0x0000}
0x1cfe…1d02              00 12 00 e2                                                                                                                                                                                                                                       ┆    ┆
0x1d02…1d0a (19, 1, 8)   20 04 00 00 00 13 00 04                                                                                                                                                                                                                           ┆        ┆

Reduced view