|
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: 7232 (0x1c40)
Notes: pts_type(SC)
Names: »KTPLN.SC«
└─⟦38a30a456⟧ Bits:30009662 Philips computer tape "600104"
└─⟦this⟧ »OD-KOM/KTPLN.SC«
IDENT KTPLN 840203 EV DDUM KMD08 PDIV ENTRY KTPLAN ENTRY RESTMK ENTRY SETMK EXT RAREAD EXT WAITF INCLUDE EQUATE EJECT KTPLAN PROC KTNR,TYPE ************************************************ * * PROCEDURE FOR SEARCHING A GIVEN KONTO NO -KTNR- * ON THE 'KONTOPLAN' * * IF FOUND - CONDITION REGISTER IS SET TO OK * TYPE WILL CONTAIN THE ASSOCIATED TYPE * GSWBIN4 IS RECORD NO * GSWBIN5 POINTS TO START OF FOUND NO * IF NOT FOUND - GSWBIN4 IS RECORD NO * *************************************** * SEARCH MASTER INDEX FOR RELEVANT RECORD MOVE GSWBIN4,CBIN0 KTP010 ADD GSWBIN4,CBIN1 CBG GSWBIN4,CBIN7,KTP020 RETURN, NOT FOUND CBE CKTINDX(GSWBIN4),=D'0',KTP020 RETURN, NOT FOUND CBNL CKTINDX(GSWBIN4),KTNR,KTP030 KNT.NO < MASTER ?FOUND B KTP010 TRY NEXT KTP020 NOT FOUND MOVE GSWBIN4,CKTLAST CBNE GSWBIN4,CBIN0,KTPNOK2 MOVE GSWBIN4,CBIN1 B KTPNOK2 KTP030 FOUND MUL GSWBIN4,CBIN3 LAST RECORD IN GROUP SUB GSWBIN4,CBIN2 FIRST RECORD IN GROUP PERF WAITF,CKFLAG KTP110 MOVE GSWBIN5,=W'128' MOVE CKTBUF,CBLANKS PERF RAREAD,DK04,=D'4',CKTBUF,GSWBIN5,GSWBIN4 GET RECORD BNOK KTPNOK ERROR ON READING * LOOP THROUGH BUFFER MOVE GSWBIN5,CBIN0 KTP120 MOVE GSWBCD7,=D'1' XCOPY GSWBCD7,CBIN1,CBIN6,CKTBUF,GSWBIN5 CBE GSWBCD7,KTNR,KTP200 FOUND CBG GSWBCD7,KTNR,KTPNOK1 NOT FOUND ADD GSWBIN5,CBIN8 LOOK FURTHER CBNG GSWBIN5,=W'120',KTP120 LOOK AT NEXT NO ADD GSWBIN4,CBIN1 LOOK AT NEXT RECORD B KTP110 KTP200 ADD GSWBIN5,CBIN6 GET TYPE MOVE GSWBCD7,=D'1' INITIATE NUMBER XCOPY GSWBCD7,CBIN5,CBIN2,CKTBUF,GSWBIN5 MOVE TYPE,GSWBCD7 SUB GSWBIN5,CBIN6 CLEAR CKFLAG CMP CBIN0,CBIN0 RET KTPNOK1 CLEAR CKFLAG KTPNOK2 MOVE TYPE,=D'0' MOVE GSWBIN5,=W'-1' CMP CBIN0,CBIN0 RET KTPNOK CLEAR CKFLAG MOVE TYPE,=D'0' NOT FOUND CMP CBIN1,CBIN0 NOT OK RET PEND EJECT RESTMK PROC ************************************ * * RESET MASTER INDEX IN KONTOPLAN * FOR RECORD GSWBIN4 * ************************************ MOVE GSWBIN3,GSWBIN4 FIND GROUP NO ADD GSWBIN3,CBIN2 DIV GSWBIN3,CBIN3 GSWBIN3 = GROUP NO RES010 CBE GSWBIN4,CKTLAST,RES100 LAST RECORD ? YES: JUMP MOVE GSWBIN5,GSWBIN3 LAST IN GROUP ? MUL GSWBIN5,CBIN3 SUB GSWBIN5,GSWBIN4 BNE RESOK FINISH IF NOT LAST IN GROUP MOVE GSWBIN5,=W'120' LAST IN GROUP MOVE GSWBCD7,=D'1' XCOPY GSWBCD7,CBIN1,CBIN6,CKTBUF,GSWBIN5 GET LAST NO MOVE CKTINDX(GSWBIN3),GSWBCD7 B RESOK RES100 CBE CKTLAST,CBIN0,RES170 MOVE GSWBIN5,=W'120' FIND LAST USED NUMBER MOVE GSWBCD7,=D'1' RES110 MATCH CKTBUF,GSWBIN5,CBIN1,CBLANKS,CBIN0,CBIN1 BE RES150 XCOPY GSWBCD7,CBIN1,CBIN6,CKTBUF,GSWBIN5 MOVE CKTINDX(GSWBIN3),GSWBCD7 SET MASTER INDEX RES120 ADD GSWBIN3,CBIN1 SET REMAINING INDICES TO ZERO CBG GSWBIN3,CBIN7,RESOK MOVE CKTINDX(GSWBIN3),=D'0' B RES120 RES150 SUB GSWBIN5,CBIN8 BNL RES110 RES170 MOVE GSWBIN3,CBIN0 B RES120 RESOK RET PEND EJECT SETMK PROC **************************** * * INITIATE MASTER INDEX FOR 'KONTOPLAN' * **************************** MOVE GSWBIN4,CBIN1 SET010 MOVE GSWBIN5,=W'128' MOVE CKTBUF,CBLANKS PERF RAREAD,DK04,=D'4',CKTBUF,GSWBIN5,GSWBIN4 MOVE GSWBIN5,=W'120' MATCH CKTBUF,GSWBIN5,CBIN2,CBLANKS,CBIN0,CBIN2 BE SET100 PERF RESTMK ADD GSWBIN4,CBIN1 CBNG GSWBIN4,=W'21',SET010 MOVE CKTLAST,=W'21' B SETOK SET100 MOVE GSWBIN5,CBIN0 MATCH CKTBUF,GSWBIN5,CBIN2,CBLANKS,CBIN0,CBIN2 BNE SET120 SUB GSWBIN4,CBIN1 BE SET120 MOVE GSWBIN5,=W'128' MOVE CKTBUF,CBLANKS PERF RAREAD,DK04,=D'4',CKTBUF,GSWBIN5,GSWBIN4 SET120 MOVE CKTLAST,GSWBIN4 PERF RESTMK SETOK RET PEND END
0x0000…0020 (0, 0, 398) Head {h00=0x001c, h01=0x0050, text=» IDENT KTPLN 840203 EV «, t00=0x0000, t01=0x0004}
0x0020…0034 Head {h00=0x0010, h01=0x0050, text=» DDUM KMD08 «, t00=0x0000, t01=0x0024}
0x0034…0042 Head {h00=0x000a, h01=0x0050, text=» PDIV «, t00=0x0000, t01=0x0038}
0x0042…0058 Head {h00=0x0012, h01=0x0050, text=» ENTRY KTPLAN «, t00=0x0000, t01=0x0046}
0x0058…006e Head {h00=0x0012, h01=0x0050, text=» ENTRY RESTMK «, t00=0x0000, t01=0x005c}
0x006e…0082 Head {h00=0x0010, h01=0x0050, text=» ENTRY SETMK«, t00=0x0000, t01=0x0072}
0x0082…0096 Head {h00=0x0010, h01=0x0050, text=» EXT RAREAD «, t00=0x0000, t01=0x0086}
0x0096…00a8 Head {h00=0x000e, h01=0x0050, text=» EXT WAITF«, t00=0x0000, t01=0x009a}
0x00a8…00c0 Head {h00=0x0014, h01=0x0050, text=» INCLUDE EQUATE «, t00=0x0000, t01=0x00ac}
0x00c0…00ce Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0000, t01=0x00c4}
0x00ce…00ec Head {h00=0x001a, h01=0x0050, text=»KTPLAN PROC KTNR,TYPE «, t00=0x0000, t01=0x00d2}
0x00ec…0124 Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x0000, t01=0x00f0}
0x0124…012e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0128}
0x012e…016c Head {h00=0x003a, h01=0x0050, text=»* PROCEDURE FOR SEARCHING A GIVEN KONTO NO -KTNR-«, t00=0x0000, t01=0x0132}
0x016c…018e Head {h00=0x001e, h01=0x0050, text=»* ON THE 'KONTOPLAN' «, t00=0x0000, t01=0x0170}
0x018e…0198 (1, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0004}
0x0198…01d2 Head {h00=0x0036, h01=0x0050, text=»* IF FOUND - CONDITION REGISTER IS SET TO OK «, t00=0x0001, t01=0x000e}
0x01d2…0212 Head {h00=0x003c, h01=0x0050, text=»* TYPE WILL CONTAIN THE ASSOCIATED TYPE «, t00=0x0001, t01=0x0048}
0x0212…0240 Head {h00=0x002a, h01=0x0050, text=»* GSWBIN4 IS RECORD NO«, t00=0x0001, t01=0x0088}
0x0240…0280 Head {h00=0x003c, h01=0x0050, text=»* GSWBIN5 POINTS TO START OF FOUND NO «, t00=0x0001, t01=0x00b6}
0x0280…02b2 Head {h00=0x002e, h01=0x0050, text=»* IF NOT FOUND - GSWBIN4 IS RECORD NO«, t00=0x0001, t01=0x00f6}
0x02b2…02bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0128}
0x02bc…02ec Head {h00=0x002c, h01=0x0050, text=»*************************************** «, t00=0x0001, t01=0x0132}
0x02ec…02f4 Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x0162}
0x02f4…032a Head {h00=0x0032, h01=0x0050, text=»* SEARCH MASTER INDEX FOR RELEVANT RECORD«, t00=0x0001, t01=0x016a}
0x032a…0332 Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x0010}
0x0332…034e Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN4,CBIN0 «, t00=0x0002, t01=0x0018}
0x034e…035c Head {h00=0x000a, h01=0x0050, text=»KTP010«, t00=0x0002, t01=0x0034}
0x035c…0376 Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN4,CBIN1«, t00=0x0002, t01=0x0042}
0x0376…03aa Head {h00=0x0030, h01=0x0050, text=» CBG GSWBIN4,CBIN7,KTP020 RETURN, NOT FOUND «, t00=0x0002, t01=0x005c}
0x03aa…03e6 Head {h00=0x0038, h01=0x0050, text=» CBE CKTINDX(GSWBIN4),=D'0',KTP020 RETURN, NOT FOUND«, t00=0x0002, t01=0x0090}
0x03e6…0428 Head {h00=0x003e, h01=0x0050, text=» CBNL CKTINDX(GSWBIN4),KTNR,KTP030 KNT.NO < MASTER ?FOUND «, t00=0x0002, t01=0x00cc}
0x0428…0442 Head {h00=0x0016, h01=0x0050, text=» B KTP010 TRY NEXT«, t00=0x0002, t01=0x010e}
0x0442…045c Head {h00=0x0016, h01=0x0050, text=»KTP020 NOT FOUND«, t00=0x0002, t01=0x0128}
0x045c…047a Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN4,CKTLAST «, t00=0x0002, t01=0x0142}
0x047a…049e Head {h00=0x0020, h01=0x0050, text=» CBNE GSWBIN4,CBIN0,KTPNOK2 «, t00=0x0002, t01=0x0160}
0x049e…04ba Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN4,CBIN1 «, t00=0x0002, t01=0x0184}
0x04ba…04cc Head {h00=0x000e, h01=0x0050, text=» B KTPNOK2«, t00=0x0003, t01=0x0010}
0x04cc…04e2 Head {h00=0x0012, h01=0x0050, text=»KTP030 FOUND«, t00=0x0003, t01=0x0022}
0x04e2…0512 Head {h00=0x002c, h01=0x0050, text=» MUL GSWBIN4,CBIN3 LAST RECORD IN GROUP «, t00=0x0003, t01=0x0038}
0x0512…0542 Head {h00=0x002c, h01=0x0050, text=» SUB GSWBIN4,CBIN2 FIRST RECORD IN GROUP«, t00=0x0003, t01=0x0068}
0x0542…055c Head {h00=0x0016, h01=0x0050, text=» PERF WAITF,CKFLAG«, t00=0x0003, t01=0x0098}
0x055c…056a Head {h00=0x000a, h01=0x0050, text=»KTP110«, t00=0x0003, t01=0x00b2}
0x056a…0588 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN5,=W'128' «, t00=0x0003, t01=0x00c0}
0x0588…05a4 Head {h00=0x0018, h01=0x0050, text=» MOVE CKTBUF,CBLANKS«, t00=0x0003, t01=0x00de}
0x05a4…05e6 Head {h00=0x003e, h01=0x0050, text=» PERF RAREAD,DK04,=D'4',CKTBUF,GSWBIN5,GSWBIN4 GET RECORD «, t00=0x0003, t01=0x00fa}
0x05e6…060c Head {h00=0x0022, h01=0x0050, text=» BNOK KTPNOK ERROR ON READING «, t00=0x0003, t01=0x013c}
0x060c…062e Head {h00=0x001e, h01=0x0050, text=»* LOOP THROUGH BUFFER«, t00=0x0003, t01=0x0162}
0x062e…064a Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN5,CBIN0 «, t00=0x0003, t01=0x0184}
0x064a…0658 Head {h00=0x000a, h01=0x0050, text=»KTP120«, t00=0x0004, t01=0x0010}
0x0658…0674 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD7,=D'1' «, t00=0x0004, t01=0x001e}
0x0674…06a6 Head {h00=0x002e, h01=0x0050, text=» XCOPY GSWBCD7,CBIN1,CBIN6,CKTBUF,GSWBIN5 «, t00=0x0004, t01=0x003a}
0x06a6…06cc Head {h00=0x0022, h01=0x0050, text=» CBE GSWBCD7,KTNR,KTP200 FOUND«, t00=0x0004, t01=0x006c}
0x06cc…06f8 Head {h00=0x0028, h01=0x0050, text=» CBG GSWBCD7,KTNR,KTPNOK1 NOT FOUND «, t00=0x0004, t01=0x0092}
0x06f8…0720 Head {h00=0x0024, h01=0x0050, text=» ADD GSWBIN5,CBIN8 LOOK FURTHER «, t00=0x0004, t01=0x00be}
0x0720…0754 Head {h00=0x0030, h01=0x0050, text=» CBNG GSWBIN5,=W'120',KTP120 LOOK AT NEXT NO«, t00=0x0004, t01=0x00e6}
0x0754…0782 Head {h00=0x002a, h01=0x0050, text=» ADD GSWBIN4,CBIN1 LOOK AT NEXT RECORD«, t00=0x0004, t01=0x011a}
0x0782…0794 Head {h00=0x000e, h01=0x0050, text=» B KTP110 «, t00=0x0004, t01=0x0148}
0x0794…07a2 Head {h00=0x000a, h01=0x0050, text=»KTP200«, t00=0x0004, t01=0x015a}
0x07a2…07c6 Head {h00=0x0020, h01=0x0050, text=» ADD GSWBIN5,CBIN6 GET TYPE «, t00=0x0004, t01=0x0168}
0x07c6…07f2 Head {h00=0x0028, h01=0x0050, text=» MOVE GSWBCD7,=D'1' INITIATE NUMBER «, t00=0x0004, t01=0x018c}
0x07f2…0824 Head {h00=0x002e, h01=0x0050, text=» XCOPY GSWBCD7,CBIN5,CBIN2,CKTBUF,GSWBIN5 «, t00=0x0005, t01=0x0028}
0x0824…083e Head {h00=0x0016, h01=0x0050, text=» MOVE TYPE,GSWBCD7«, t00=0x0005, t01=0x005a}
0x083e…0858 Head {h00=0x0016, h01=0x0050, text=» SUB GSWBIN5,CBIN6«, t00=0x0005, t01=0x0074}
0x0858…086e Head {h00=0x0012, h01=0x0050, text=» CLEAR CKFLAG «, t00=0x0005, t01=0x008e}
0x086e…0886 Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN0«, t00=0x0005, t01=0x00a4}
0x0886…0892 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0005, t01=0x00bc}
0x0892…08a2 Head {h00=0x000c, h01=0x0050, text=»KTPNOK1 «, t00=0x0005, t01=0x00c8}
0x08a2…08b8 Head {h00=0x0012, h01=0x0050, text=» CLEAR CKFLAG «, t00=0x0005, t01=0x00d8}
0x08b8…08c8 Head {h00=0x000c, h01=0x0050, text=»KTPNOK2 «, t00=0x0005, t01=0x00ee}
0x08c8…08e0 Head {h00=0x0014, h01=0x0050, text=» MOVE TYPE,=D'0'«, t00=0x0005, t01=0x00fe}
0x08e0…08fc Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN5,=W'-1'«, t00=0x0005, t01=0x0116}
0x08fc…0914 Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN0«, t00=0x0005, t01=0x0132}
0x0914…0920 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0005, t01=0x014a}
0x0920…092e Head {h00=0x000a, h01=0x0050, text=»KTPNOK«, t00=0x0005, t01=0x0156}
0x092e…0944 Head {h00=0x0012, h01=0x0050, text=» CLEAR CKFLAG «, t00=0x0005, t01=0x0164}
0x0944…0966 Head {h00=0x001e, h01=0x0050, text=» MOVE TYPE,=D'0' NOT FOUND«, t00=0x0005, t01=0x017a}
0x0966…0986 Head {h00=0x001c, h01=0x0050, text=» CMP CBIN1,CBIN0 NOT OK «, t00=0x0006, t01=0x000c}
0x0986…0992 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0006, t01=0x002c}
0x0992…09a0 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0006, t01=0x0038}
0x09a0…09ae Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0006, t01=0x0046}
0x09ae…09c2 Head {h00=0x0010, h01=0x0050, text=»RESTMK PROC «, t00=0x0006, t01=0x0054}
0x09c2…09ee Head {h00=0x0028, h01=0x0050, text=»************************************«, t00=0x0006, t01=0x0068}
0x09ee…09f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0094}
0x09f8…0a26 Head {h00=0x002a, h01=0x0050, text=»* RESET MASTER INDEX IN KONTOPLAN«, t00=0x0006, t01=0x009e}
0x0a26…0a48 Head {h00=0x001e, h01=0x0050, text=»* FOR RECORD GSWBIN4 «, t00=0x0006, t01=0x00cc}
0x0a48…0a52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00ee}
0x0a52…0a7e Head {h00=0x0028, h01=0x0050, text=»************************************«, t00=0x0006, t01=0x00f8}
0x0a7e…0a86 Head {h00=0x0004, h01=0x0050, t00=0x0006, t01=0x0124}
0x0a86…0ab2 Head {h00=0x0028, h01=0x0050, text=» MOVE GSWBIN3,GSWBIN4 FIND GROUP NO «, t00=0x0006, t01=0x012c}
0x0ab2…0acc Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN3,CBIN2«, t00=0x0006, t01=0x0158}
0x0acc…0afa Head {h00=0x002a, h01=0x0050, text=» DIV GSWBIN3,CBIN3 GSWBIN3 = GROUP NO «, t00=0x0006, t01=0x0172}
0x0afa…0b08 Head {h00=0x000a, h01=0x0050, text=»RES010«, t00=0x0007, t01=0x0010}
0x0b08…0b44 Head {h00=0x0038, h01=0x0050, text=» CBE GSWBIN4,CKTLAST,RES100 LAST RECORD ? YES: JUMP «, t00=0x0007, t01=0x001e}
0x0b44…0b72 Head {h00=0x002a, h01=0x0050, text=» MOVE GSWBIN5,GSWBIN3 LAST IN GROUP ? «, t00=0x0007, t01=0x005a}
0x0b72…0b8c Head {h00=0x0016, h01=0x0050, text=» MUL GSWBIN5,CBIN3«, t00=0x0007, t01=0x0088}
0x0b8c…0ba8 Head {h00=0x0018, h01=0x0050, text=» SUB GSWBIN5,GSWBIN4«, t00=0x0007, t01=0x00a2}
0x0ba8…0bd6 Head {h00=0x002a, h01=0x0050, text=» BNE RESOK FINISH IF NOT LAST IN GROUP«, t00=0x0007, t01=0x00be}
0x0bd6…0c02 Head {h00=0x0028, h01=0x0050, text=» MOVE GSWBIN5,=W'120' LAST IN GROUP «, t00=0x0007, t01=0x00ec}
0x0c02…0c1e Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD7,=D'1' «, t00=0x0007, t01=0x0118}
0x0c1e…0c5c Head {h00=0x003a, h01=0x0050, text=» XCOPY GSWBCD7,CBIN1,CBIN6,CKTBUF,GSWBIN5 GET LAST NO «, t00=0x0007, t01=0x0134}
0x0c5c…0c82 Head {h00=0x0022, h01=0x0050, text=» MOVE CKTINDX(GSWBIN3),GSWBCD7«, t00=0x0007, t01=0x0172}
0x0c82…0c92 Head {h00=0x000c, h01=0x0050, text=» B RESOK«, t00=0x0008, t01=0x0008}
0x0c92…0ca0 Head {h00=0x000a, h01=0x0050, text=»RES100«, t00=0x0008, t01=0x0018}
0x0ca0…0ca8 Head {h00=0x0004, h01=0x0050, t00=0x0008, t01=0x0026}
0x0ca8…0cca Head {h00=0x001e, h01=0x0050, text=» CBE CKTLAST,CBIN0,RES170 «, t00=0x0008, t01=0x002e}
0x0cca…0cfe Head {h00=0x0030, h01=0x0050, text=» MOVE GSWBIN5,=W'120' FIND LAST USED NUMBER «, t00=0x0008, t01=0x0050}
0x0cfe…0d1a Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD7,=D'1' «, t00=0x0008, t01=0x0084}
0x0d1a…0d28 Head {h00=0x000a, h01=0x0050, text=»RES110«, t00=0x0008, t01=0x00a0}
0x0d28…0d60 Head {h00=0x0034, h01=0x0050, text=» MATCH CKTBUF,GSWBIN5,CBIN1,CBLANKS,CBIN0,CBIN1 «, t00=0x0008, t01=0x00ae}
0x0d60…0d72 Head {h00=0x000e, h01=0x0050, text=» BE RES150«, t00=0x0008, t01=0x00e6}
0x0d72…0da4 Head {h00=0x002e, h01=0x0050, text=» XCOPY GSWBCD7,CBIN1,CBIN6,CKTBUF,GSWBIN5 «, t00=0x0008, t01=0x00f8}
0x0da4…0ddc Head {h00=0x0034, h01=0x0050, text=» MOVE CKTINDX(GSWBIN3),GSWBCD7 SET MASTER INDEX «, t00=0x0008, t01=0x012a}
0x0ddc…0dea Head {h00=0x000a, h01=0x0050, text=»RES120«, t00=0x0008, t01=0x0162}
0x0dea…0e22 Head {h00=0x0034, h01=0x0050, text=» ADD GSWBIN3,CBIN1 SET REMAINING INDICES TO ZERO«, t00=0x0008, t01=0x0170}
0x0e22…0e42 Head {h00=0x001c, h01=0x0050, text=» CBG GSWBIN3,CBIN7,RESOK«, t00=0x0009, t01=0x0018}
0x0e42…0e66 Head {h00=0x0020, h01=0x0050, text=» MOVE CKTINDX(GSWBIN3),=D'0'«, t00=0x0009, t01=0x0038}
0x0e66…0e78 Head {h00=0x000e, h01=0x0050, text=» B RES120 «, t00=0x0009, t01=0x005c}
0x0e78…0e86 Head {h00=0x000a, h01=0x0050, text=»RES150«, t00=0x0009, t01=0x006e}
0x0e86…0ea0 Head {h00=0x0016, h01=0x0050, text=» SUB GSWBIN5,CBIN8«, t00=0x0009, t01=0x007c}
0x0ea0…0eb4 Head {h00=0x0010, h01=0x0050, text=» BNL RES110 «, t00=0x0009, t01=0x0096}
0x0eb4…0ec2 Head {h00=0x000a, h01=0x0050, text=»RES170«, t00=0x0009, t01=0x00aa}
0x0ec2…0ede Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN3,CBIN0 «, t00=0x0009, t01=0x00b8}
0x0ede…0ef0 Head {h00=0x000e, h01=0x0050, text=» B RES120 «, t00=0x0009, t01=0x00d4}
0x0ef0…0efe Head {h00=0x000a, h01=0x0050, text=»RESOK «, t00=0x0009, t01=0x00e6}
0x0efe…0f0a Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0009, t01=0x00f4}
0x0f0a…0f18 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0009, t01=0x0100}
0x0f18…0f26 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x010e}
0x0f26…0f38 Head {h00=0x000e, h01=0x0050, text=»SETMK PROC«, t00=0x0009, t01=0x011c}
0x0f38…0f5c Head {h00=0x0020, h01=0x0050, text=»****************************«, t00=0x0009, t01=0x012e}
0x0f5c…0f66 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0152}
0x0f66…0f9c Head {h00=0x0032, h01=0x0050, text=»* INITIATE MASTER INDEX FOR 'KONTOPLAN' «, t00=0x0009, t01=0x015c}
0x0f9c…0fa6 (10, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0004}
0x0fa6…0fca Head {h00=0x0020, h01=0x0050, text=»****************************«, t00=0x000a, t01=0x000e}
0x0fca…0fd2 Head {h00=0x0004, h01=0x0050, t00=0x000a, t01=0x0032}
0x0fd2…0fee Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN4,CBIN1 «, t00=0x000a, t01=0x003a}
0x0fee…0ffc Head {h00=0x000a, h01=0x0050, text=»SET010«, t00=0x000a, t01=0x0056}
0x0ffc…101a Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN5,=W'128' «, t00=0x000a, t01=0x0064}
0x101a…1036 Head {h00=0x0018, h01=0x0050, text=» MOVE CKTBUF,CBLANKS«, t00=0x000a, t01=0x0082}
0x1036…106c Head {h00=0x0032, h01=0x0050, text=» PERF RAREAD,DK04,=D'4',CKTBUF,GSWBIN5,GSWBIN4«, t00=0x000a, t01=0x009e}
0x106c…108a Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN5,=W'120' «, t00=0x000a, t01=0x00d4}
0x108a…10c2 Head {h00=0x0034, h01=0x0050, text=» MATCH CKTBUF,GSWBIN5,CBIN2,CBLANKS,CBIN0,CBIN2 «, t00=0x000a, t01=0x00f2}
0x10c2…10d4 Head {h00=0x000e, h01=0x0050, text=» BE SET100«, t00=0x000a, t01=0x012a}
0x10d4…10e8 Head {h00=0x0010, h01=0x0050, text=» PERF RESTMK«, t00=0x000a, t01=0x013c}
0x10e8…1102 Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN4,CBIN1«, t00=0x000a, t01=0x0150}
0x1102…1126 Head {h00=0x0020, h01=0x0050, text=» CBNG GSWBIN4,=W'21',SET010 «, t00=0x000a, t01=0x016a}
0x1126…1142 Head {h00=0x0018, h01=0x0050, text=» MOVE CKTLAST,=W'21'«, t00=0x000a, t01=0x018e}
0x1142…1152 Head {h00=0x000c, h01=0x0050, text=» B SETOK«, t00=0x000b, t01=0x001a}
0x1152…1160 Head {h00=0x000a, h01=0x0050, text=»SET100«, t00=0x000b, t01=0x002a}
0x1160…117c Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN5,CBIN0 «, t00=0x000b, t01=0x0038}
0x117c…11b4 Head {h00=0x0034, h01=0x0050, text=» MATCH CKTBUF,GSWBIN5,CBIN2,CBLANKS,CBIN0,CBIN2 «, t00=0x000b, t01=0x0054}
0x11b4…11c8 Head {h00=0x0010, h01=0x0050, text=» BNE SET120 «, t00=0x000b, t01=0x008c}
0x11c8…11e2 Head {h00=0x0016, h01=0x0050, text=» SUB GSWBIN4,CBIN1«, t00=0x000b, t01=0x00a0}
0x11e2…11f4 Head {h00=0x000e, h01=0x0050, text=» BE SET120«, t00=0x000b, t01=0x00ba}
0x11f4…1212 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN5,=W'128' «, t00=0x000b, t01=0x00cc}
0x1212…122e Head {h00=0x0018, h01=0x0050, text=» MOVE CKTBUF,CBLANKS«, t00=0x000b, t01=0x00ea}
0x122e…1264 Head {h00=0x0032, h01=0x0050, text=» PERF RAREAD,DK04,=D'4',CKTBUF,GSWBIN5,GSWBIN4«, t00=0x000b, t01=0x0106}
0x1264…1272 Head {h00=0x000a, h01=0x0050, text=»SET120«, t00=0x000b, t01=0x013c}
0x1272…1290 Head {h00=0x001a, h01=0x0050, text=» MOVE CKTLAST,GSWBIN4 «, t00=0x000b, t01=0x014a}
0x1290…12a4 Head {h00=0x0010, h01=0x0050, text=» PERF RESTMK«, t00=0x000b, t01=0x0168}
0x12a4…12b2 Head {h00=0x000a, h01=0x0050, text=»SETOK «, t00=0x000b, t01=0x017c}
0x12b2…12be Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000b, t01=0x018a}
0x12be…12cc Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000c, t01=0x0008}
0x12cc…12d8 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x000c, t01=0x0016}
0x12d8…12dc Head {h00=0x4004, h01=0x0000}
0x12dc…12e0 00 0c 00 22 ┆ "┆
0x12e0…12e8 (13, 1, 8) 20 04 00 00 00 0d 00 04 ┆ ┆
0x12e8…1338 (14, 0, 400) 00 05 01 84 00 0c 00 08 00 03 06 06 02 6c 01 0a 00 06 00 08 00 0c 00 08 00 03 05 06 02 76 00 12 00 06 00 18 00 0c 00 08 00 03 05 06 02 7c 00 12 00 06 00 28 00 4a 00 46 00 22 00 44 02 40 92 02 2f 01 90 04 49 1c 0f 80 52 12 01 03 90 92 54 16 ┆ l v | ( J F " D @ / I R T ┆
0x1338…1388 21 9d 4c 15 57 08 80 52 1e 4c 03 92 54 08 80 52 00 01 03 92 58 2c 80 52 4c 80 52 00 92 01 5f 36 49 1c 06 30 58 92 03 57 04 30 58 9e 01 40 00 06 00 38 00 0c 00 08 00 03 07 06 02 87 00 02 00 06 00 86 00 0e 00 0a 00 04 11 08 02 88 20 02 00 02 ┆! L W R L T R X, RL R _6I 0X W 0X @ 8 ┆
0x1388…13d8 00 06 00 96 00 0c 00 08 00 03 05 06 02 8d 00 12 00 06 00 a8 00 0c 00 08 00 03 05 06 02 93 00 12 00 06 00 b8 00 0c 00 08 00 03 06 06 02 9e 04 77 00 06 00 c8 00 0e 00 09 00 04 14 07 02 aa 30 01 00 02 00 06 00 d8 00 0c 00 08 00 03 07 06 02 ac ┆ w 0 ┆
0x13d8…1428 00 06 00 06 00 ea 00 0c 00 08 00 03 07 06 02 ae 00 08 00 06 00 fa 00 0e 00 0a 00 04 10 08 02 b4 20 02 00 80 00 06 01 0a 00 0c 00 08 00 03 06 06 02 b6 00 44 00 06 01 1c 00 0c 00 08 00 03 02 06 02 bd 04 5a 00 06 01 2c 00 0e 00 09 00 04 14 07 ┆ D Z , ┆
0x1428…1478 02 c0 30 01 b4 80 00 06 01 3c 00 4a 00 46 00 22 00 44 02 80 20 06 10 10 34 05 80 52 4c 49 1c 06 30 58 92 03 57 04 30 58 9e 01 40 20 06 10 11 34 05 80 52 20 49 22 03 00 c3 43 40 25 01 98 4c 80 52 80 52 00 30 c3 01 90 4c 80 52 00 01 4d 90 c3 ┆ 0 < J F " D 4 RLI 0X W 0X @ 4 R I" C@% L R R 0 L R M ┆
0x1478…14c8 (15, 0, 400) 3c 52 07 9d 00 06 01 4e 00 0c 00 08 00 03 02 06 02 c2 04 5a 00 07 00 0c 00 10 00 0b 00 05 14 09 02 ce 00 03 26 30 31 05 00 07 00 1c 00 0e 00 09 00 04 14 07 02 d7 00 01 00 30 00 07 00 30 00 0c 00 08 00 03 02 06 02 e5 04 5a 00 07 00 42 00 0e ┆<R N Z &01 0 0 Z B ┆
0x14c8…1518 00 09 00 04 14 07 02 e8 00 01 00 30 00 07 00 52 00 0e 00 09 00 04 14 07 02 f4 00 01 00 30 00 07 00 64 00 0e 00 0a 00 04 14 08 03 00 30 02 b0 11 00 07 00 76 00 4a 00 46 00 22 00 44 02 c0 4c 38 52 00 bf 4c 62 bf 10 13 4d 21 21 bf 4c 05 04 c3 ┆ 0 R 0 d 0 v J F " D L8R Lb M!! L ┆
0x1518…1568 11 5f 2f 01 bf 4c 62 bf 10 13 4d 10 00 9a bf 06 db 9a 3c 52 01 bf 4c 62 bf 10 12 4d 1b 00 9a bf 01 bf 4c 62 bf 10 15 4d 16 00 98 bf 07 9a 00 07 00 88 00 0c 00 08 00 03 02 06 03 02 04 63 00 07 00 d6 00 0e 00 0a 00 04 14 08 03 05 30 02 b0 12 ┆ _/ Lb M <R Lb M Lb M c 0 ┆
0x1568…15b8 00 07 00 e6 00 0c 00 08 00 03 02 06 03 0b 04 65 00 07 00 f8 00 0e 00 09 00 04 14 07 03 1f 30 01 d1 12 00 07 01 08 00 0c 00 08 00 03 02 06 03 21 04 5a 00 07 01 1a 00 0c 00 08 00 03 02 06 03 2d 04 6c 00 07 01 2a 00 0e 00 09 00 04 14 07 03 30 ┆ e 0 ! Z - l * 0┆
0x15b8…1608 00 01 26 12 00 07 01 3a 00 4a 00 46 00 22 00 44 03 00 4c 38 52 07 9a 4c 52 04 40 b7 3f 52 00 b6 9a 00 aa 10 02 aa 11 20 b6 4f aa a9 09 07 4f aa a9 4c 38 52 5f 12 00 95 12 00 94 42 43 25 3c 52 01 bc 4c 04 95 12 68 4d 95 94 bc 10 11 02 95 11 ┆ & : J F " D L8R LR @ ?R O O L8R_ BC%<R L hM ┆
0x1608…1658 (16, 0, 400) 00 93 00 07 01 4c 00 0e 00 09 00 04 14 07 03 64 00 01 00 07 00 08 00 0a 00 4a 00 46 00 22 00 44 03 40 95 00 94 42 04 94 95 68 4d 95 94 bc 10 11 54 8d 00 92 95 04 92 93 62 bd 10 12 4d 93 02 93 12 04 92 12 01 bf 4c 62 bf 10 92 4d 93 02 95 11 ┆ L d J F " D @ B hM T b M Lb M ┆
0x1658…16a8 04 94 92 04 94 13 00 9a bd 00 92 9a 06 92 12 50 d3 14 00 08 00 1c 00 0e 00 09 00 04 14 07 03 a8 00 01 2d 42 00 08 00 6a 00 0e 00 0a 00 04 10 08 03 b5 20 02 ff ff 00 08 00 7c 00 0e 00 09 00 04 14 07 03 b9 30 01 d1 ff 00 08 00 8e 00 0e 00 09 ┆ P -B j | 0 ┆
0x16a8…16f8 00 04 14 07 03 bd 30 01 d1 ff 00 08 00 a0 00 4a 00 46 00 22 00 44 03 80 92 14 59 06 92 14 50 bf 28 92 21 03 4b 22 65 00 93 2c 92 00 ae 93 92 00 ee 93 bf 00 df 93 bf 20 92 19 2f 00 92 10 01 bd 4c 68 bf 92 28 bd 10 11 54 0e 09 ae 93 4c 09 ee ┆ 0 J F " D Y P ( ! K"e , / Lh ( T L ┆
0x16f8…1748 93 4c 09 df 93 4c 5f 96 00 08 00 b2 00 0e 00 0a 00 04 10 08 03 cf 20 02 ff ff 00 08 01 00 00 0c 00 08 00 03 07 06 03 d9 00 0c 00 08 01 12 00 0c 00 08 00 03 07 06 03 da 00 0a 00 08 01 22 00 0e 00 09 00 04 14 07 03 df 00 01 7f ff 00 08 01 32 ┆ L L_ " 2┆
0x1748…1798 00 0e 00 09 00 04 14 07 03 f2 00 01 21 ff 00 08 01 44 00 4a 00 46 00 22 00 44 03 c0 00 92 10 68 bf 92 28 4c 10 11 5c a2 09 ae 93 4c 5f a8 00 92 ee 93 33 92 02 52 52 5f b3 01 bd 4c 00 95 93 68 4d 95 94 bd 10 11 54 04 41 25 5f a0 01 bd 4c 00 ┆ ! D J F " D h (L L_ 3 RR_ L hM T A%_ L ┆
0x1798…17e8 (17, 2, 384) 95 93 68 4d 95 94 bd 10 11 54 5b 66 00 08 01 56 00 0e 00 09 00 04 14 07 04 11 30 01 b1 68 00 09 00 14 00 0e 00 0a 00 04 10 08 04 14 20 02 00 80 00 09 00 26 00 0c 00 08 00 03 06 06 04 16 00 44 00 09 00 38 00 0e 00 0a 00 04 10 08 04 2a 20 02 ┆ hM T[f V 0 h & D 8 * ┆
0x17e8…1838 00 80 00 09 00 48 00 0e 00 09 00 04 14 07 04 2e 00 01 00 80 00 09 00 5a 00 4a 00 46 00 22 00 44 04 00 4d 10 93 00 bf 4d 02 30 11 49 22 03 02 43 11 03 97 4c 01 90 4c 80 52 00 01 4d 90 30 54 3c 66 4d 10 1b 00 95 10 00 bd 4c 21 42 4c 03 01 bd ┆ H . Z J F " D M M 0 I" C L L R M 0T<fM L!BL ┆
0x1838…1888 4c 68 bf 95 27 bd 10 11 04 95 11 64 4d 10 95 bf 10 00 00 09 00 6c 00 0e 00 09 00 04 14 07 04 44 30 01 b1 00 00 09 00 ba 00 0c 00 08 00 03 02 06 04 46 03 3e 00 09 00 cc 00 0c 00 08 00 03 02 06 04 51 03 2a 00 09 00 dc 00 0c 00 08 00 03 02 06 ┆Lh ' dM l D0 F > Q * ┆
0x1888…18d8 04 59 03 2a 00 09 00 ec 00 0c 00 08 00 03 05 06 04 7b 00 1c 00 09 00 fc 00 4a 00 46 00 22 00 44 04 40 95 10 03 98 4c 3f 52 00 c4 bf 49 22 03 00 f8 c4 3f 52 49 22 03 00 dc bf 3f 52 40 20 40 b7 06 10 11 34 02 41 b7 40 20 06 11 10 34 02 40 20 ┆ Y * { J F " D @ L?R I" ?RI" ?R@ @ 4 A @ 4 @ ┆
0x18d8…1918 41 d8 40 b7 06 10 10 34 02 48 00 04 30 58 5f 07 41 00 00 09 01 0c 00 0c 00 08 00 03 00 06 04 80 34 01 00 09 01 5a 00 0e 00 0a 07 04 00 00 04 40 04 82 00 00 00 09 01 6a 40 04 00 00 00 09 01 7c ┆A @ 4 H 0X_ A 4 Z @ j@ |┆
0x1918…1920 (18, 1, 8) 20 04 00 00 00 0a 00 04 ┆ ┆
0x1920…1970 (19, 0, 400) 29 20 00 2a 01 66 00 26 00 50 54 57 45 4c 50 4e 54 20 42 49 4e 20 27 30 27 20 50 4f 49 4e 54 45 52 20 49 4e 20 4f 50 53 54 41 52 54 00 2b 00 0a 00 2a 00 50 54 57 45 4c 53 54 52 54 20 42 49 4e 20 27 30 27 20 42 45 46 4f 52 45 20 4e 45 58 54 ┆) * f & PTWELPNT BIN '0' POINTER IN OPSTART + * PTWELSTRT BIN '0' BEFORE NEXT┆
0x1970…19c0 20 54 4f 20 50 52 49 4e 54 20 00 2b 00 34 00 26 00 50 54 57 45 4c 53 4c 55 54 20 42 49 4e 20 27 30 27 20 46 49 52 53 54 20 46 52 45 45 20 52 45 43 4f 52 44 00 2b 00 62 00 2a 00 50 54 53 45 4c 42 55 46 20 53 54 52 47 20 36 30 20 42 55 46 46 ┆ TO PRINT + 4 & PTWELSLUT BIN '0' FIRST FREE RECORD + b * PTSELBUF STRG 60 BUFF┆
0x19c0…1a10 45 52 20 46 4f 52 20 45 4c 2e 4a 4f 55 52 4e 41 4c 20 00 2b 00 8c 00 0a 00 50 5c 45 4a 45 43 54 00 2b 00 ba 00 0c 00 50 54 42 32 20 42 4c 4b 20 00 2b 00 c8 00 06 00 50 2a 20 00 2b 00 d8 00 06 00 50 2a 20 00 2b 00 e2 00 20 00 50 47 54 44 42 ┆ER FOR EL.JOURNAL + P EJECT + PTB2 BLK + P* + P* + PGTDB┆
0x1a10…1a60 4b 52 43 5c 53 54 52 47 5c 34 5c 44 45 42 2f 4b 52 45 20 54 45 58 54 20 00 2b 00 ec 00 14 00 50 47 54 54 45 53 54 4d 4b 5c 53 54 52 47 5c 31 20 00 2b 01 10 00 24 00 50 54 54 53 55 50 4d 52 4b 5c 53 54 52 47 5c 31 5c 53 55 50 50 4c 45 4d 45 ┆KRC STRG 4 DEB/KRE TEXT + PGTTESTMK STRG 1 + $ PTTSUPMRK STRG 1 SUPPLEME┆
0x1a60…1ab0 4e 54 20 4d 41 52 4b 20 00 2b 01 28 00 1c 00 50 54 54 53 55 4d 4d 52 4b 5c 53 54 52 47 5c 31 5c 53 55 4d 20 4d 41 52 4b 00 2b 01 50 00 12 00 50 47 54 54 45 58 54 5c 53 54 52 47 5c 36 20 00 2b 01 70 00 18 00 50 54 54 53 50 41 52 45 33 5c 53 ┆NT MARK + ( PTTSUMMRK STRG 1 SUM MARK + P PGTTEXT STRG 6 + p PTTSPARE3 S┆
0x1ab0…1b00 (20, 0, 400) 54 52 47 5c 31 43 27 2e 27 20 00 2b 01 86 00 1a 00 50 54 43 4f 4e 42 55 46 20 53 54 52 47 20 33 39 38 58 27 46 46 27 20 00 2c 00 12 00 26 00 50 54 54 43 59 4b 53 54 20 42 43 44 20 34 20 31 2e 20 4c 49 4e 45 20 43 59 43 4c 45 2f 53 54 41 42 ┆TRG 1C'.' + PTCONBUF STRG 398X'FF' , & PTTCYKST BCD 4 1. LINE CYCLE/STAB┆
0x1b00…1b50 45 4c 00 2c 00 30 00 24 00 50 54 54 4b 54 53 4c 44 5c 42 43 44 20 31 34 5c 4b 4f 4e 54 4f 4b 4f 52 54 2c 20 53 41 4c 44 4f 20 00 2c 00 5a 00 26 00 50 54 54 4b 54 4c 49 4e 5c 42 43 44 5c 34 5c 4b 4f 4e 54 4f 4b 4f 52 54 2c 20 4c 49 4e 49 45 ┆EL , 0 $ PTTKTSLD BCD 14 KONTOKORT, SALDO , Z & PTTKTLIN BCD 4 KONTOKORT, LINIE┆
0x1b50…1ba0 20 4e 52 20 00 2c 00 82 00 28 00 50 54 54 4b 54 43 48 4b 5c 42 43 44 5c 32 5c 4b 4f 4e 54 4f 4b 4f 52 54 2c 20 43 48 45 43 4b 43 49 46 46 45 52 00 2c 00 ac 00 2e 00 50 54 54 44 42 4b 52 4d 20 53 54 52 47 20 31 43 27 4b 27 20 44 45 42 2f 4b ┆ NR , ( PTTKTCHK BCD 2 KONTOKORT, CHECKCIFFER , . PTTDBKRM STRG 1C'K' DEB/K┆
0x1ba0…1bf0 52 45 20 4d 41 52 4b 20 4f 4e 20 4a 4f 55 52 4e 41 4c 00 2c 00 d8 00 24 00 50 54 54 31 36 54 58 54 5c 53 54 52 47 5c 32 5c 52 45 4e 54 45 2f 47 45 42 59 52 2f 52 41 54 45 20 00 2c 01 0a 00 1c 00 50 54 54 30 37 54 58 54 5c 53 54 52 47 5c 35 ┆RE MARK ON JOURNAL , $ PTT16TXT STRG 2 RENTE/GEBYR/RATE , PTT07TXT STRG 5┆
0x1bf0…1c40 5c 42 4b 4f 20 54 45 58 54 53 00 2c 01 32 00 26 00 50 47 54 44 55 50 46 5c 42 43 44 49 5c 28 32 36 29 2c 31 36 58 27 46 27 5c 44 55 50 20 46 49 45 4c 44 53 00 2c 01 52 00 06 00 50 2a 20 00 2c 01 7c 00 06 00 50 2a 20 00 2c 01 86 00 0a 00 50 ┆ BKO TEXTS , 2 & PGTDUPF BCDI (26),16X'F' DUP FIELDS , R P* , | P* , P┆