|
DataMuseum.dkPresents historical artifacts from the history of: Philips Data Systems |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Philips Data Systems Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 7746 (0x1e42)
Notes: pts_type(SC)
Names: »KTOPR.SC«
└─⟦22f4dea89⟧ Bits:30009702 Philips computer tape "DOS_PTS_4.2_M_FL"
└─⟦this⟧ »NJ-AMT/KTOPR.SC«
└─⟦dab19bdd7⟧ Bits:30009677 Philips computer tape "600218"
└─⟦this⟧ »NJ-AMT/KTOPR.SC«
IDENT KTOPR 02.03.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 EXT WAITF 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'1' BL 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 PERF WAITF,CKFLAG 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
0x0000…0022 (0, 0, 400) Head {h00=0x001e, h01=0x0050, text=» IDENT KTOPR 02.03.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…0144 Head {h00=0x000e, h01=0x0050, text=» EXT WAITF«, t00=0x0000, t01=0x0136}
0x0144…015c Head {h00=0x0014, h01=0x0050, text=» INCLUDE EQUATE «, t00=0x0000, t01=0x0148}
0x015c…016a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0000, t01=0x0160}
0x016a…0178 Head {h00=0x000a, h01=0x0050, text=»KTOPR «, t00=0x0000, t01=0x016e}
0x0178…0194 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0000, t01=0x017c}
0x0194…019e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0008}
0x019e…01cc Head {h00=0x002a, h01=0x0050, text=»* OPRETTELSE/SLETNING I KONTOPLAN«, t00=0x0001, t01=0x0012}
0x01cc…01d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0040}
0x01d6…01f2 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0001, t01=0x004a}
0x01f2…021c Head {h00=0x0026, h01=0x0050, text=» TBT GTMASTFL,KTCR00A ONLY MASTER «, t00=0x0001, t01=0x0066}
0x021c…022e Head {h00=0x000e, h01=0x0050, text=» B KTCROK1«, t00=0x0001, t01=0x0090}
0x022e…023e Head {h00=0x000c, h01=0x0050, text=»KTCR00A «, t00=0x0001, t01=0x00a2}
0x023e…026c Head {h00=0x002a, h01=0x0050, text=» CMP CTASKNR,CBIN0 ALL MUST BE CLOSED «, t00=0x0001, t01=0x00b2}
0x026c…0280 Head {h00=0x0010, h01=0x0050, text=» BNE KTCROK1«, t00=0x0001, t01=0x00e0}
0x0280…02ac Head {h00=0x0028, h01=0x0050, text=» SET CCONVFLG CLOSE FOR OTHER TASKS «, t00=0x0001, t01=0x00f4}
0x02ac…02c6 Head {h00=0x0016, h01=0x0050, text=» MOVE SPKEY,CBIN2 «, t00=0x0001, t01=0x0120}
0x02c6…02e2 Head {h00=0x0018, h01=0x0050, text=» KEY POSITION = 2 «, t00=0x0001, t01=0x013a}
0x02e2…02f2 Head {h00=0x000c, h01=0x0050, text=»KTCR000 «, t00=0x0001, t01=0x0156}
0x02f2…0308 Head {h00=0x0012, h01=0x0050, text=» SET SPPROMPT «, t00=0x0001, t01=0x0166}
0x0308…031c Head {h00=0x0010, h01=0x0050, text=» SET GTDYFLG«, t00=0x0001, t01=0x017c}
0x031c…0334 Head {h00=0x0014, h01=0x0050, text=» ATTFMT KTPFRM01«, t00=0x0001, t01=0x0190}
0x0334…0344 Head {h00=0x000c, h01=0x0050, text=»KTCR010 «, t00=0x0002, t01=0x0018}
0x0344…0358 Head {h00=0x0010, h01=0x0050, text=» PERF SPCLRA«, t00=0x0002, t01=0x0028}
0x0358…0382 Head {h00=0x0026, h01=0x0050, text=» IB SPBINW2,KTCROK,KTCROK,KTCR100 «, t00=0x0002, t01=0x003c}
0x0382…0394 Head {h00=0x000e, h01=0x0050, text=» B KTCR000«, t00=0x0002, t01=0x0066}
0x0394…03c2 Head {h00=0x002a, h01=0x0050, text=»KTCR100 CLEAR CSWFLAG LOOK FOR NUMBER «, t00=0x0002, t01=0x0078}
0x03c2…03e6 Head {h00=0x0020, h01=0x0050, text=» PERF KTPLAN,GSWBCD6,GSWBCD3«, t00=0x0002, t01=0x00a6}
0x03e6…040c Head {h00=0x0022, h01=0x0050, text=» BNOK KTCR000 ERROR ON KTPLAN «, t00=0x0002, t01=0x00ca}
0x040c…042e Head {h00=0x001e, h01=0x0050, text=» CBL GSWBIN5,CBIN0,KTCR110«, t00=0x0002, t01=0x00f0}
0x042e…0442 Head {h00=0x0010, h01=0x0050, text=» SET CSWFLAG«, t00=0x0002, t01=0x0112}
0x0442…0452 Head {h00=0x000c, h01=0x0050, text=»KTCR110 «, t00=0x0002, t01=0x0126}
0x0452…0468 Head {h00=0x0012, h01=0x0050, text=» CLEAR GTDYFLG«, t00=0x0002, t01=0x0136}
0x0468…0480 Head {h00=0x0014, h01=0x0050, text=» ATTFMT KTPFRM01«, t00=0x0002, t01=0x014c}
0x0480…0490 Head {h00=0x000c, h01=0x0050, text=»KTCR120 «, t00=0x0002, t01=0x0164}
0x0490…04a4 Head {h00=0x0010, h01=0x0050, text=» PERF SPCLRN«, t00=0x0002, t01=0x0174}
0x04a4…04d0 Head {h00=0x0028, h01=0x0050, text=» IB SPBINW2,KTCR130,KTCR130,KTCR150 «, t00=0x0002, t01=0x0188}
0x04d0…04e2 Head {h00=0x000e, h01=0x0050, text=» B KTCR120«, t00=0x0003, t01=0x0024}
0x04e2…04fc Head {h00=0x0016, h01=0x0050, text=»KTCR130 B KTCR000 «, t00=0x0003, t01=0x0036}
0x04fc…050c Head {h00=0x000c, h01=0x0050, text=»KTCR150 «, t00=0x0003, t01=0x0050}
0x050c…0536 Head {h00=0x0026, h01=0x0050, text=» TBF CSWFLAG,KTCR500 IF NOT FOUND «, t00=0x0003, t01=0x0060}
0x0536…054a Head {h00=0x0010, h01=0x0050, text=»* FOUND«, t00=0x0003, t01=0x008a}
0x054a…057e Head {h00=0x0030, h01=0x0050, text=» CBE GSWBCD3,=D'0',KTCR200 BRANCH TO DELETE «, t00=0x0003, t01=0x009e}
0x057e…0598 Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN5,CBIN6«, t00=0x0003, t01=0x00d2}
0x0598…05ca Head {h00=0x002e, h01=0x0050, text=» XCOPY CKTBUF,GSWBIN5,CBIN2,GSWBCD3,CBIN1 «, t00=0x0003, t01=0x00ec}
0x05ca…0608 Head {h00=0x003a, h01=0x0050, text=» PERF RAWRIT,DK04,=D'4',CKTBUF,GSWBIN4 REWRITE RECORD «, t00=0x0003, t01=0x011e}
0x0608…061a Head {h00=0x000e, h01=0x0050, text=» B KTCR000«, t00=0x0003, t01=0x015c}
0x061a…0638 Head {h00=0x001a, h01=0x0050, text=»* DELETE A RECORD«, t00=0x0003, t01=0x016e}
0x0638…0660 Head {h00=0x0024, h01=0x0050, text=»* GSWBIN4 - RECORD NO«, t00=0x0003, t01=0x018c}
0x0660…0690 Head {h00=0x002c, h01=0x0050, text=»* GSWBIN5-6 - START OF RECORD«, t00=0x0004, t01=0x0024}
0x0690…06a0 Head {h00=0x000c, h01=0x0050, text=»KTCR200 «, t00=0x0004, t01=0x0054}
0x06a0…06b0 Head {h00=0x000c, h01=0x0050, text=»KTCR210 «, t00=0x0004, t01=0x0064}
0x06b0…06e2 Head {h00=0x002e, h01=0x0050, text=» DLETE CKTBUF,GSWBIN5,CBIN8 DELETE RECORD «, t00=0x0004, t01=0x0074}
0x06e2…0708 Head {h00=0x0022, h01=0x0050, text=» CBNE GSWBIN4,CKTLAST,KTCR250 «, t00=0x0004, t01=0x00a6}
0x0708…0730 Head {h00=0x0024, h01=0x0050, text=» NOW THIS IS LAST USED RECORD «, t00=0x0004, t01=0x00cc}
0x0730…0762 Head {h00=0x002e, h01=0x0050, text=» XCOPY GSWSTR20,CBIN0,CBIN20,CKTBUF,CBIN0 «, t00=0x0004, t01=0x00f4}
0x0762…0788 Head {h00=0x0022, h01=0x0050, text=» CBNE GSWSTR20,CBLANKS,KTCR220«, t00=0x0004, t01=0x0126}
0x0788…07b6 Head {h00=0x002a, h01=0x0050, text=» PERF RAWRIT,DK04,=D'4',CKTBUF,GSWBIN4«, t00=0x0004, t01=0x014c}
0x07b6…07cc Head {h00=0x0012, h01=0x0050, text=» BNOK KTCR000 «, t00=0x0004, t01=0x017a}
0x07cc…07ec Head {h00=0x001c, h01=0x0050, text=» NOW FIRST NO DELETED «, t00=0x0004, t01=0x0190}
0x07ec…0806 Head {h00=0x0016, h01=0x0050, text=» SUB CKTLAST,CBIN1«, t00=0x0005, t01=0x0020}
0x0806…0820 Head {h00=0x0016, h01=0x0050, text=» SUB GSWBIN4,CBIN1«, t00=0x0005, t01=0x003a}
0x0820…0842 Head {h00=0x001e, h01=0x0050, text=» CBE GSWBIN4,CBIN0,KTCR215«, t00=0x0005, t01=0x0054}
0x0842…0860 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN5,=W'128' «, t00=0x0005, t01=0x0076}
0x0860…0896 Head {h00=0x0032, h01=0x0050, text=» PERF RAREAD,DK04,=D'4',CKTBUF,GSWBIN5,CKTLAST«, t00=0x0005, t01=0x0094}
0x0896…08ac Head {h00=0x0012, h01=0x0050, text=» BNOK KTCR000 «, t00=0x0005, t01=0x00ca}
0x08ac…08bc Head {h00=0x000c, h01=0x0050, text=»KTCR215 «, t00=0x0005, t01=0x00e0}
0x08bc…08d0 Head {h00=0x0010, h01=0x0050, text=» PERF RESTMK«, t00=0x0005, t01=0x00f0}
0x08d0…08e2 Head {h00=0x000e, h01=0x0050, text=» B KTCR000«, t00=0x0005, t01=0x0104}
0x08e2…08f2 Head {h00=0x000c, h01=0x0050, text=»KTCR220 «, t00=0x0005, t01=0x0116}
0x08f2…0928 Head {h00=0x0032, h01=0x0050, text=» PERF RAWRIT,DK04,=D'4',CKTBUF,GSWBIN4 REWRITE«, t00=0x0005, t01=0x0126}
0x0928…093e Head {h00=0x0012, h01=0x0050, text=» BNOK KTCR000 «, t00=0x0005, t01=0x015c}
0x093e…0952 Head {h00=0x0010, h01=0x0050, text=» PERF RESTMK«, t00=0x0005, t01=0x0172}
0x0952…0964 Head {h00=0x000e, h01=0x0050, text=» B KTCR000«, t00=0x0005, t01=0x0186}
0x0964…0974 Head {h00=0x000c, h01=0x0050, text=»KTCR250 «, t00=0x0006, t01=0x0008}
0x0974…099e Head {h00=0x0026, h01=0x0050, text=» ADD GSWBIN4,CBIN1 NOT LAST RECORD«, t00=0x0006, t01=0x0018}
0x099e…09ba Head {h00=0x0018, h01=0x0050, text=» MOVE CCYBUF,CBLANKS«, t00=0x0006, t01=0x0042}
0x09ba…09d8 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN5,=W'128' «, t00=0x0006, t01=0x005e}
0x09d8…0a0e Head {h00=0x0032, h01=0x0050, text=» PERF RAREAD,DK04,=D'4',CCYBUF,GSWBIN5,GSWBIN4«, t00=0x0006, t01=0x007c}
0x0a0e…0a22 Head {h00=0x0010, h01=0x0050, text=» BNOK KTCROK«, t00=0x0006, t01=0x00b2}
0x0a22…0a40 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN5,=W'120' «, t00=0x0006, t01=0x00c6}
0x0a40…0a70 Head {h00=0x002c, h01=0x0050, text=» XCOPY CKTBUF,GSWBIN5,CBIN8,CCYBUF,CBIN0«, t00=0x0006, t01=0x00e4}
0x0a70…0a8c Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN5,CBIN0 «, t00=0x0006, t01=0x0114}
0x0a8c…0aa6 Head {h00=0x0016, h01=0x0050, text=» SUB GSWBIN4,CBIN1«, t00=0x0006, t01=0x0130}
0x0aa6…0ad4 Head {h00=0x002a, h01=0x0050, text=» PERF RAWRIT,DK04,=D'4',CKTBUF,GSWBIN4«, t00=0x0006, t01=0x014a}
0x0ad4…0ae8 Head {h00=0x0010, h01=0x0050, text=» BNOK KTCROK«, t00=0x0006, t01=0x0178}
0x0ae8…0afc Head {h00=0x0010, h01=0x0050, text=» PERF RESTMK«, t00=0x0006, t01=0x018c}
0x0afc…0b18 Head {h00=0x0018, h01=0x0050, text=» MOVE CKTBUF,CCYBUF «, t00=0x0007, t01=0x0010}
0x0b18…0b34 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN5,CBIN0 «, t00=0x0007, t01=0x002c}
0x0b34…0b4e Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN4,CBIN1«, t00=0x0007, t01=0x0048}
0x0b4e…0b60 Head {h00=0x000e, h01=0x0050, text=» B KTCR200«, t00=0x0007, t01=0x0062}
0x0b60…0b70 Head {h00=0x000c, h01=0x0050, text=»KTCR500 «, t00=0x0007, t01=0x0074}
0x0b70…0b84 Head {h00=0x0010, h01=0x0050, text=» NOT FOUND«, t00=0x0007, t01=0x0084}
0x0b84…0b9e Head {h00=0x0016, h01=0x0050, text=» CMP GSWBCD3,=D'1'«, t00=0x0007, t01=0x0098}
0x0b9e…0bc6 Head {h00=0x0024, h01=0x0050, text=» BL KTCR000 DELETE NON-EXISTING «, t00=0x0007, t01=0x00b2}
0x0bc6…0be0 Head {h00=0x0016, h01=0x0050, text=»* CREATE NEW «, t00=0x0007, t01=0x00da}
0x0be0…0bfc Head {h00=0x0018, h01=0x0050, text=» MOVE CKTBUF,CBLANKS«, t00=0x0007, t01=0x00f4}
0x0bfc…0c1a Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN5,=W'128' «, t00=0x0007, t01=0x0110}
0x0c1a…0c50 Head {h00=0x0032, h01=0x0050, text=» PERF RAREAD,DK04,=D'4',CKTBUF,GSWBIN5,GSWBIN4«, t00=0x0007, t01=0x012e}
0x0c50…0c66 Head {h00=0x0012, h01=0x0050, text=» BNOK KTCR000 «, t00=0x0007, t01=0x0164}
0x0c66…0c84 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWSTR20,CBLANKS«, t00=0x0007, t01=0x017a}
0x0c84…0ca0 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN5,CBIN0 «, t00=0x0008, t01=0x0008}
0x0ca0…0cb0 Head {h00=0x000c, h01=0x0050, text=»KTCR520 «, t00=0x0008, t01=0x0024}
0x0cb0…0ccc Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD7,=D'1' «, t00=0x0008, t01=0x0034}
0x0ccc…0cfe Head {h00=0x002e, h01=0x0050, text=» XCOPY GSWSTR20,CBIN0,CBIN6,CKTBUF,GSWBIN5«, t00=0x0008, t01=0x0050}
0x0cfe…0d30 Head {h00=0x002e, h01=0x0050, text=» XCOPY GSWBCD7,CBIN1,CBIN6,CKTBUF,GSWBIN5 «, t00=0x0008, t01=0x0082}
0x0d30…0d6e Head {h00=0x003a, h01=0x0050, text=» CBE GSWSTR20,CBLANKS,KTCR550 POSITION FOUND (BLANK) «, t00=0x0008, t01=0x00b4}
0x0d6e…0da2 Head {h00=0x0030, h01=0x0050, text=» CBG GSWBCD7,GSWBCD6,KTCR550 POSITION FOUND «, t00=0x0008, t01=0x00f2}
0x0da2…0dbc Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN5,CBIN8«, t00=0x0008, t01=0x0126}
0x0dbc…0df0 Head {h00=0x0030, h01=0x0050, text=» CBE GSWBIN5,=W'128',KTCR530 POSITION FOUND «, t00=0x0008, t01=0x0140}
0x0df0…0e02 Head {h00=0x000e, h01=0x0050, text=» B KTCR520«, t00=0x0008, t01=0x0174}
0x0e02…0e20 Head {h00=0x001a, h01=0x0050, text=»* IN NEXT RECORD «, t00=0x0008, t01=0x0186}
0x0e20…0e30 Head {h00=0x000c, h01=0x0050, text=»KTCR530 «, t00=0x0009, t01=0x0014}
0x0e30…0e4a Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN4,CBIN1«, t00=0x0009, t01=0x0024}
0x0e4a…0e6e Head {h00=0x0020, h01=0x0050, text=» CBL GSWBIN4,=W'22',KTCR540 «, t00=0x0009, t01=0x003e}
0x0e6e…0e8c Head {h00=0x001a, h01=0x0050, text=»* SET UP ERROR 10«, t00=0x0009, t01=0x0062}
0x0e8c…0e9c Head {h00=0x000c, h01=0x0050, text=»KTCR535 «, t00=0x0009, t01=0x0080}
0x0e9c…0eb8 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,CBIN21«, t00=0x0009, t01=0x0090}
0x0eb8…0ed4 Head {h00=0x0018, h01=0x0050, text=» MOVE GTWBCD2,=D'04'«, t00=0x0009, t01=0x00ac}
0x0ed4…0ef0 Head {h00=0x0018, h01=0x0050, text=» MOVE GTWBCD1,=D'10'«, t00=0x0009, t01=0x00c8}
0x0ef0…0f14 Head {h00=0x0020, h01=0x0050, text=» MOVE GSWSTR9,=C'DISCFEJL ' «, t00=0x0009, t01=0x00e4}
0x0f14…0f28 Head {h00=0x0010, h01=0x0050, text=» PERF SPERR «, t00=0x0009, t01=0x0108}
0x0f28…0f3a Head {h00=0x000e, h01=0x0050, text=» B KTCR000«, t00=0x0009, t01=0x011c}
0x0f3a…0f4a Head {h00=0x000c, h01=0x0050, text=»KTCR540 «, t00=0x0009, t01=0x012e}
0x0f4a…0f68 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN5,=W'128' «, t00=0x0009, t01=0x013e}
0x0f68…0f84 Head {h00=0x0018, h01=0x0050, text=» MOVE CKTBUF,CBLANKS«, t00=0x0009, t01=0x015c}
0x0f84…0fba Head {h00=0x0032, h01=0x0050, text=» PERF RAREAD,DK04,=D'4',CKTBUF,GSWBIN5,GSWBIN4«, t00=0x0009, t01=0x0178}
0x0fba…0fd0 Head {h00=0x0012, h01=0x0050, text=» BNOK KTCR000 «, t00=0x000a, t01=0x001e}
0x0fd0…0fec Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN5,CBIN0 «, t00=0x000a, t01=0x0034}
0x0fec…0ffc Head {h00=0x000c, h01=0x0050, text=»KTCR550 «, t00=0x000a, t01=0x0050}
0x0ffc…102e Head {h00=0x002e, h01=0x0050, text=» XCOPY GSWSTR20,CBIN0,CBIN6,GSWBCD6,CBIN1 «, t00=0x000a, t01=0x0060}
0x102e…1060 Head {h00=0x002e, h01=0x0050, text=» XCOPY GSWSTR20,CBIN6,CBIN2,GSWBCD3,CBIN1 «, t00=0x000a, t01=0x0092}
0x1060…1070 Head {h00=0x000c, h01=0x0050, text=»KTCR560 «, t00=0x000a, t01=0x00c4}
0x1070…108e Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN3,=W'120' «, t00=0x000a, t01=0x00d4}
0x108e…10ca Head {h00=0x0038, h01=0x0050, text=» XCOPY GSWSTR20,CBIN8,CBIN8,CKTBUF,GSWBIN3 SAVE LAST«, t00=0x000a, t01=0x00f2}
0x10ca…10fc Head {h00=0x002e, h01=0x0050, text=» INSRT CKTBUF,GSWBIN5,CBIN8,GSWSTR20,CBIN0«, t00=0x000a, t01=0x012e}
0x10fc…1112 Head {h00=0x0012, h01=0x0050, text=» BOFL KTCR600 «, t00=0x000a, t01=0x0160}
0x1112…1138 Head {h00=0x0022, h01=0x0050, text=» MOVE CKTLAST,GSWBIN4 SET LAST«, t00=0x000a, t01=0x0176}
0x1138…1166 Head {h00=0x002a, h01=0x0050, text=» PERF RAWRIT,DK04,=D'4',CKTBUF,GSWBIN4«, t00=0x000b, t01=0x000c}
0x1166…117a Head {h00=0x0010, h01=0x0050, text=» BNOK KTCROK«, t00=0x000b, t01=0x003a}
0x117a…118e Head {h00=0x0010, h01=0x0050, text=» PERF RESTMK«, t00=0x000b, t01=0x004e}
0x118e…11a0 Head {h00=0x000e, h01=0x0050, text=» B KTCR000«, t00=0x000b, t01=0x0062}
0x11a0…11b0 Head {h00=0x000c, h01=0x0050, text=»KTCR600 «, t00=0x000b, t01=0x0074}
0x11b0…11d6 Head {h00=0x0022, h01=0x0050, text=» CBNE GSWBIN4,CKTLAST,KTCR610 «, t00=0x000b, t01=0x0084}
0x11d6…11fa Head {h00=0x0020, h01=0x0050, text=» CBE CKTLAST,=W'21',KTCR535 «, t00=0x000b, t01=0x00aa}
0x11fa…1214 Head {h00=0x0016, h01=0x0050, text=» ADD CKTLAST,CBIN1«, t00=0x000b, t01=0x00ce}
0x1214…1224 Head {h00=0x000c, h01=0x0050, text=»KTCR610 «, t00=0x000b, t01=0x00e8}
0x1224…1252 Head {h00=0x002a, h01=0x0050, text=» PERF RAWRIT,DK04,=D'4',CKTBUF,GSWBIN4«, t00=0x000b, t01=0x00f8}
0x1252…1266 Head {h00=0x0010, h01=0x0050, text=» BNOK KTCROK«, t00=0x000b, t01=0x0126}
0x1266…127a Head {h00=0x0010, h01=0x0050, text=» PERF RESTMK«, t00=0x000b, t01=0x013a}
0x127a…1294 Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN4,CBIN1«, t00=0x000b, t01=0x014e}
0x1294…12b0 Head {h00=0x0018, h01=0x0050, text=» MOVE CKTBUF,CBLANKS«, t00=0x000b, t01=0x0168}
0x12b0…12ce Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN5,=W'128' «, t00=0x000b, t01=0x0184}
0x12ce…1304 Head {h00=0x0032, h01=0x0050, text=» PERF RAREAD,DK04,=D'4',CKTBUF,GSWBIN5,GSWBIN4«, t00=0x000c, t01=0x0012}
0x1304…1318 Head {h00=0x0010, h01=0x0050, text=» BNOK KTCROK«, t00=0x000c, t01=0x0048}
0x1318…1334 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN5,CBIN0 «, t00=0x000c, t01=0x005c}
0x1334…1366 Head {h00=0x002e, h01=0x0050, text=» COPY GSWSTR20,CBIN0,CBIN8,GSWSTR20,CBIN8 «, t00=0x000c, t01=0x0078}
0x1366…1378 Head {h00=0x000e, h01=0x0050, text=» B KTCR560«, t00=0x000c, t01=0x00aa}
0x1378…1386 Head {h00=0x000a, h01=0x0050, text=»KTCROK«, t00=0x000c, t01=0x00bc}
0x1386…139e Head {h00=0x0014, h01=0x0050, text=» CLEAR CCONVFLG «, t00=0x000c, t01=0x00ca}
0x139e…13ae Head {h00=0x000c, h01=0x0050, text=»KTCROK1 «, t00=0x000c, t01=0x00e2}
0x13ae…13c0 Head {h00=0x000e, h01=0x0050, text=» B ADMRET «, t00=0x000c, t01=0x00f2}
0x13c0…13ce Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x0104}
0x13ce…13e0 Head {h00=0x000e, h01=0x0050, text=»KTPRT PROC«, t00=0x000c, t01=0x0112}
0x13e0…13fc Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000c, t01=0x0124}
0x13fc…1406 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0140}
0x1406…143c Head {h00=0x0032, h01=0x0050, text=»* LISTING OF KONTOPLAN ON TALLY ROLL «, t00=0x000c, t01=0x014a}
0x143c…1446 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0180}
0x1446…1462 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000c, t01=0x018a}
0x1462…148c Head {h00=0x0026, h01=0x0050, text=» TBF GTMASTFL,KTPRTOK ONLY MASTER «, t00=0x000d, t01=0x0016}
0x148c…14b0 Head {h00=0x0020, h01=0x0050, text=» CBNE CTASKNR,CBIN0,KTPRTOK «, t00=0x000d, t01=0x0040}
0x14b0…14c4 Head {h00=0x0010, h01=0x0050, text=» WAIT KTALLY«, t00=0x000d, t01=0x0064}
0x14c4…14f0 Head {h00=0x0028, h01=0x0050, text=» EDWRT KTALLY,KTPF100 WRITE HEADING «, t00=0x000d, t01=0x0078}
0x14f0…1510 Head {h00=0x001c, h01=0x0050, text=»* LOOP THROUGH FILE «, t00=0x000d, t01=0x00a4}
0x1510…152c Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN4,CBIN0 «, t00=0x000d, t01=0x00c4}
0x152c…153c Head {h00=0x000c, h01=0x0050, text=»KTPRT15 «, t00=0x000d, t01=0x00e0}
0x153c…1556 Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN4,CBIN1«, t00=0x000d, t01=0x00f0}
0x1556…1592 Head {h00=0x0038, h01=0x0050, text=» CBG GSWBIN4,CKTLAST,KTPRT90 NO MORE RECORDS IN FILE«, t00=0x000d, t01=0x010a}
0x1592…15ac Head {h00=0x0016, h01=0x0050, text=» PERF WAITF,CKFLAG«, t00=0x000d, t01=0x0146}
0x15ac…15ca Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN5,=W'128' «, t00=0x000d, t01=0x0160}
0x15ca…15e6 Head {h00=0x0018, h01=0x0050, text=» MOVE CKTBUF,CBLANKS«, t00=0x000d, t01=0x017e}
0x15e6…161c Head {h00=0x0032, h01=0x0050, text=» PERF RAREAD,DK04,=D'4',CKTBUF,GSWBIN5,GSWBIN4«, t00=0x000e, t01=0x000a}
0x161c…1632 Head {h00=0x0012, h01=0x0050, text=» BNOK KTPRT45 «, t00=0x000e, t01=0x0040}
0x1632…1654 Head {h00=0x001e, h01=0x0050, text=»* LOOP THROUGH BUFFER «, t00=0x000e, t01=0x0056}
0x1654…1670 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN5,CBIN0 «, t00=0x000e, t01=0x0078}
0x1670…1680 Head {h00=0x000c, h01=0x0050, text=»KTPRT35 «, t00=0x000e, t01=0x0094}
0x1680…169c Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD6,=D'1' «, t00=0x000e, t01=0x00a4}
0x169c…16b8 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD3,=D'1' «, t00=0x000e, t01=0x00c0}
0x16b8…16d6 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWSTR20,CBLANKS«, t00=0x000e, t01=0x00dc}
0x16d6…1708 Head {h00=0x002e, h01=0x0050, text=» XCOPY GSWSTR20,CBIN0,CBIN8,CKTBUF,GSWBIN5«, t00=0x000e, t01=0x00fa}
0x1708…173a Head {h00=0x002e, h01=0x0050, text=» XCOPY GSWBCD6,CBIN1,CBIN6,CKTBUF,GSWBIN5 «, t00=0x000e, t01=0x012c}
0x173a…1754 Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN5,CBIN6«, t00=0x000e, t01=0x015e}
0x1754…1786 Head {h00=0x002e, h01=0x0050, text=» XCOPY GSWBCD3,CBIN1,CBIN2,CKTBUF,GSWBIN5 «, t00=0x000e, t01=0x0178}
0x1786…17a0 Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN5,CBIN2«, t00=0x000f, t01=0x001a}
0x17a0…17c6 Head {h00=0x0022, h01=0x0050, text=» CBE GSWSTR20,CBLANKS,KTPRT80 «, t00=0x000f, t01=0x0034}
0x17c6…17da Head {h00=0x0010, h01=0x0050, text=» WAIT KTALLY«, t00=0x000f, t01=0x005a}
0x17da…1802 Head {h00=0x0024, h01=0x0050, text=» EDWRT KTALLY,KTPF200 PRINT LINE«, t00=0x000f, t01=0x006e}
0x1802…1826 Head {h00=0x0020, h01=0x0050, text=» CBL GSWBIN5,=W'128',KTPRT35«, t00=0x000f, t01=0x0096}
0x1826…1830 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00ba}
0x1830…184a Head {h00=0x0016, h01=0x0050, text=» PERF FRMXTA,CBIN1«, t00=0x000f, t01=0x00c4}
0x184a…185e Head {h00=0x0010, h01=0x0050, text=» PERF WTALLY«, t00=0x000f, t01=0x00de}
0x185e…186e Head {h00=0x000c, h01=0x0050, text=»KTPRT45 «, t00=0x000f, t01=0x00f2}
0x186e…1884 Head {h00=0x0012, h01=0x0050, text=» CLEAR CKFLAG «, t00=0x000f, t01=0x0102}
0x1884…1896 Head {h00=0x000e, h01=0x0050, text=» B KTPRT15«, t00=0x000f, t01=0x0118}
0x1896…18a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x012a}
0x18a0…18b0 Head {h00=0x000c, h01=0x0050, text=»KTPRT80 «, t00=0x000f, t01=0x0134}
0x18b0…18c6 Head {h00=0x0012, h01=0x0050, text=» CLEAR CKFLAG «, t00=0x000f, t01=0x0144}
0x18c6…18d6 Head {h00=0x000c, h01=0x0050, text=»KTPRT90 «, t00=0x000f, t01=0x015a}
0x18d6…18fc Head {h00=0x0022, h01=0x0050, text=» PERF FRMXTA,CBIN7 SKIP LINES «, t00=0x000f, t01=0x016a}
0x18fc…1910 Head {h00=0x0010, h01=0x0050, text=» PERF WTALLY«, t00=0x000f, t01=0x0190}
0x1910…1920 Head {h00=0x000c, h01=0x0050, text=»KTPRTOK «, t00=0x0010, t01=0x0014}
0x1920…192c Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0010, t01=0x0024}
0x192c…193a Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0010, t01=0x0030}
0x193a…1948 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x003e}
0x1948…1952 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x004c}
0x1952…195c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0056}
0x195c…1970 Head {h00=0x0010, h01=0x0050, text=»* FORMATS «, t00=0x0010, t01=0x0060}
0x1970…197a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0074}
0x197a…1982 Head {h00=0x0004, h01=0x0050, t00=0x0010, t01=0x007e}
0x1982…1998 Head {h00=0x0012, h01=0x0050, text=»KTPFRM01 FRMT «, t00=0x0010, t01=0x0086}
0x1998…19ae Head {h00=0x0012, h01=0x0050, text=» FLINK KTPF100«, t00=0x0010, t01=0x009c}
0x19ae…19ca Head {h00=0x0018, h01=0x0050, text=» FBF GTDYFLG,KTPF010«, t00=0x0010, t01=0x00b2}
0x19ca…19f8 Head {h00=0x002a, h01=0x0050, text=» FKI 1,ME,MINL=10,MAXL=10,REWRT,SCHK=1«, t00=0x0010, t01=0x00ce}
0x19f8…1a08 Head {h00=0x000c, h01=0x0050, text=»KTPF010 «, t00=0x0010, t01=0x00fc}
0x1a08…1a2c Head {h00=0x0020, h01=0x0050, text=» FMEL '99999999E-99',GSWBCD6«, t00=0x0010, t01=0x010c}
0x1a2c…1a48 Head {h00=0x0018, h01=0x0050, text=» FBT GTDYFLG,KTPF020«, t00=0x0010, t01=0x0130}
0x1a48…1a72 Head {h00=0x0026, h01=0x0050, text=» FKI 13,ME,MINL=1,MAXL=1,APPL=106 «, t00=0x0010, t01=0x014c}
0x1a72…1a8c Head {h00=0x0016, h01=0x0050, text=» FMEL '9',GSWBCD3 «, t00=0x0010, t01=0x0176}
0x1a8c…1a9c Head {h00=0x000c, h01=0x0050, text=»KTPF020 «, t00=0x0010, t01=0x0190}
0x1a9c…1aaa Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0011, t01=0x0010}
0x1aaa…1ab4 Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0011, t01=0x001e}
0x1ab4…1ac8 Head {h00=0x0010, h01=0x0050, text=»KTPF100 FRMT«, t00=0x0011, t01=0x0028}
0x1ac8…1ad6 Head {h00=0x000a, h01=0x0050, text=» FSL «, t00=0x0011, t01=0x003c}
0x1ad6…1aee Head {h00=0x0014, h01=0x0050, text=» FCOPY =C'ADM '«, t00=0x0011, t01=0x004a}
0x1aee…1afa Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0011, t01=0x0062}
0x1afa…1b14 Head {h00=0x0016, h01=0x0050, text=» FCOPY =C'DATAS[T'«, t00=0x0011, t01=0x006e}
0x1b14…1b28 Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',1«, t00=0x0011, t01=0x0088}
0x1b28…1b46 Head {h00=0x001a, h01=0x0050, text=» FCOPY =C'REGKONTONR' «, t00=0x0011, t01=0x009c}
0x1b46…1b5a Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',2«, t00=0x0011, t01=0x00ba}
0x1b5a…1b66 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0011, t01=0x00ce}
0x1b66…1b80 Head {h00=0x0016, h01=0x0050, text=» FCOPY =C'KONTONR'«, t00=0x0011, t01=0x00da}
0x1b80…1b94 Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',5«, t00=0x0011, t01=0x00f4}
0x1b94…1baa Head {h00=0x0012, h01=0x0050, text=» FCOPY =C'BFO'«, t00=0x0011, t01=0x0108}
0x1baa…1bbe Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',2«, t00=0x0011, t01=0x011e}
0x1bbe…1bca Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0011, t01=0x0132}
0x1bca…1bd6 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0011, t01=0x013e}
0x1bd6…1be4 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0011, t01=0x014a}
0x1be4…1bee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0158}
0x1bee…1c02 Head {h00=0x0010, h01=0x0050, text=»KTPF200 FRMT«, t00=0x0011, t01=0x0162}
0x1c02…1c16 Head {h00=0x0010, h01=0x0050, text=» FILLR '1',2«, t00=0x0011, t01=0x0176}
0x1c16…1c40 Head {h00=0x0026, h01=0x0050, text=» FMEL '99999999E-99',GSWBCD6 KT NO«, t00=0x0011, t01=0x018a}
0x1c40…1c62 Head {h00=0x001e, h01=0x0050, text=» FMEL 'BBZ9',GSWBCD3 TYPE «, t00=0x0012, t01=0x0024}
0x1c62…1c76 Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',2«, t00=0x0012, t01=0x0046}
0x1c76…1c84 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0012, t01=0x005a}
0x1c84…1c8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0068}
0x1c8e…1c96 Head {h00=0x0004, h01=0x0050, t00=0x0012, t01=0x0072}
0x1c96…1ca2 Head {h00=0x0008, h01=0x0004, text=» END«, t00=0x0012, t01=0x007a}
0x1ca2…1ca6 Head {h00=0x4004, h01=0x0000}
0x1ca6…1caa 00 12 00 86 ┆ ┆
0x1caa…1cb2 (19, 1, 8) 20 04 00 00 00 13 00 04 ┆ ┆
0x1cb2…1d02 (20, 0, 400) 4e 20 00 2b 01 78 00 0a 00 50 41 37 36 4e 4f 4b 00 2c 00 0a 00 18 00 50 5c 4d 4f 56 45 5c 53 50 42 49 4e 57 34 2c 3d 57 27 31 38 27 00 2c 00 18 00 0a 00 50 5c 42 5c 41 52 54 00 2c 00 34 00 0e 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 2c 00 42 ┆N + x PA76NOK , P MOVE SPBINW4,=W'18' , P B ART , 4 P********** , B┆
0x1d02…1d52 00 1e 00 50 41 37 37 5c 5c 5c 49 4e 53 45 52 54 20 35 31 2c 35 32 20 49 4e 20 54 52 20 34 00 2c 00 54 00 20 00 50 5c 4d 4f 56 45 5c 53 50 42 49 4e 57 33 2c 3d 57 27 37 27 5c 46 49 45 4c 44 20 37 20 00 2c 00 76 00 1e 00 50 5c 4d 4f 56 45 5c ┆ PA77 INSERT 51,52 IN TR 4 , T P MOVE SPBINW3,=W'7' FIELD 7 , v P MOVE ┆
0x1d52…1da2 53 50 42 49 4e 57 31 2c 3d 57 27 32 27 5c 4c 45 4e 47 54 48 00 2c 00 9a 00 12 00 50 5c 54 42 54 5c 42 43 50 52 2c 41 37 37 35 00 2c 00 bc 00 28 00 50 5c 4d 4f 56 45 5c 53 50 49 4e 50 55 54 2c 3d 58 27 33 35 33 31 30 30 30 30 27 5c 35 31 20 ┆SPBINW1,=W'2' LENGTH , P TBT BCPR,A775 , ( P MOVE SPINPUT,=X'35310000' 51 ┆
0x1da2…1df2 49 46 20 43 49 52 00 2c 00 d2 00 0a 00 50 5c 42 5c 41 30 37 00 2c 00 fe 00 08 00 50 41 37 37 35 00 2c 01 0c 00 28 00 50 5c 4d 4f 56 45 5c 53 50 49 4e 50 55 54 2c 3d 58 27 33 35 33 32 30 30 30 30 27 5c 35 32 20 49 46 20 43 50 52 00 2c 01 18 ┆IF CIR , P B A07 , PA775 , ( P MOVE SPINPUT,=X'35320000' 52 IF CPR , ┆
0x1df2…1e42 00 0a 00 50 5c 42 5c 41 30 37 00 2c 01 44 00 0e 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 2c 01 52 00 1c 00 50 41 37 38 5c 5c 5c 49 4e 53 45 52 54 20 41 43 43 4f 55 4e 54 20 4e 4f 20 00 2c 01 64 00 0c 00 50 5c 5c 5c 31 31 2d 31 35 00 2c 01 84 ┆ P B A07 , D P********** , R PA78 INSERT ACCOUNT NO , d P 11-15 , ┆