|
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: 5032 (0x13a8)
Notes: pts_type(SC)
Names: »KTPLN.SC«
└─⟦b6546aa17⟧ Bits:30009689 Philips computer tape "600325"
└─⟦this⟧ »REMIT2/KTPLN.SC«
IDENT KTPLN 03.01.XXX.1 DDUM KMD08 PDIV ENTRY KTPLAN ENTRY RESTMK ENTRY SETMK EXT RAREAD 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 MUL GSWBIN4,CBIN3 CBG GSWBIN4,CKTMAX,KTP020 RETURN, NOT FOUND DIV GSWBIN4,CBIN3 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 KTP100 TBF CKFLAG,KTP110 WAIT FOR BUFFER DELAY CBIN1 B KTP100 KTP110 SET CKFLAG RESERVE BUFFER 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 MUL GSWBIN3,CBIN3 CBG GSWBIN3,CKTMAX,RESOK DIV GSWBIN3,CBIN3 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,CKTMAX,SET010 MOVE CKTLAST,CKTMAX 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…0022 (0, 0, 400) Head {h00=0x001e, h01=0x0050, text=» IDENT KTPLN 03.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…005a Head {h00=0x0012, h01=0x0050, text=» ENTRY KTPLAN «, t00=0x0000, t01=0x0048}
0x005a…0070 Head {h00=0x0012, h01=0x0050, text=» ENTRY RESTMK «, t00=0x0000, t01=0x005e}
0x0070…0084 Head {h00=0x0010, h01=0x0050, text=» ENTRY SETMK«, t00=0x0000, t01=0x0074}
0x0084…0098 Head {h00=0x0010, h01=0x0050, text=» EXT RAREAD «, t00=0x0000, t01=0x0088}
0x0098…00b0 Head {h00=0x0014, h01=0x0050, text=» INCLUDE EQUATE «, t00=0x0000, t01=0x009c}
0x00b0…00be Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0000, t01=0x00b4}
0x00be…00dc Head {h00=0x001a, h01=0x0050, text=»KTPLAN PROC KTNR,TYPE «, t00=0x0000, t01=0x00c2}
0x00dc…0114 Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x0000, t01=0x00e0}
0x0114…011e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0118}
0x011e…015c Head {h00=0x003a, h01=0x0050, text=»* PROCEDURE FOR SEARCHING A GIVEN KONTO NO -KTNR-«, t00=0x0000, t01=0x0122}
0x015c…017e Head {h00=0x001e, h01=0x0050, text=»* ON THE 'KONTOPLAN' «, t00=0x0000, t01=0x0160}
0x017e…0188 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0182}
0x0188…01c2 Head {h00=0x0036, h01=0x0050, text=»* IF FOUND - CONDITION REGISTER IS SET TO OK «, t00=0x0000, t01=0x018c}
0x01c2…0202 Head {h00=0x003c, h01=0x0050, text=»* TYPE WILL CONTAIN THE ASSOCIATED TYPE «, t00=0x0001, t01=0x0036}
0x0202…0230 Head {h00=0x002a, h01=0x0050, text=»* GSWBIN4 IS RECORD NO«, t00=0x0001, t01=0x0076}
0x0230…0270 Head {h00=0x003c, h01=0x0050, text=»* GSWBIN5 POINTS TO START OF FOUND NO «, t00=0x0001, t01=0x00a4}
0x0270…02a2 Head {h00=0x002e, h01=0x0050, text=»* IF NOT FOUND - GSWBIN4 IS RECORD NO«, t00=0x0001, t01=0x00e4}
0x02a2…02ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0116}
0x02ac…02dc Head {h00=0x002c, h01=0x0050, text=»*************************************** «, t00=0x0001, t01=0x0120}
0x02dc…02e4 Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x0150}
0x02e4…031a Head {h00=0x0032, h01=0x0050, text=»* SEARCH MASTER INDEX FOR RELEVANT RECORD«, t00=0x0001, t01=0x0158}
0x031a…0322 Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x018e}
0x0322…033e Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN4,CBIN0 «, t00=0x0002, t01=0x0008}
0x033e…034c Head {h00=0x000a, h01=0x0050, text=»KTP010«, t00=0x0002, t01=0x0024}
0x034c…0366 Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN4,CBIN1«, t00=0x0002, t01=0x0032}
0x0366…0380 Head {h00=0x0016, h01=0x0050, text=» MUL GSWBIN4,CBIN3«, t00=0x0002, t01=0x004c}
0x0380…03b4 Head {h00=0x0030, h01=0x0050, text=» CBG GSWBIN4,CKTMAX,KTP020 RETURN, NOT FOUND«, t00=0x0002, t01=0x0066}
0x03b4…03ce Head {h00=0x0016, h01=0x0050, text=» DIV GSWBIN4,CBIN3«, t00=0x0002, t01=0x009a}
0x03ce…040a Head {h00=0x0038, h01=0x0050, text=» CBE CKTINDX(GSWBIN4),=D'0',KTP020 RETURN, NOT FOUND«, t00=0x0002, t01=0x00b4}
0x040a…044c Head {h00=0x003e, h01=0x0050, text=» CBNL CKTINDX(GSWBIN4),KTNR,KTP030 KNT.NO < MASTER ?FOUND «, t00=0x0002, t01=0x00f0}
0x044c…0466 Head {h00=0x0016, h01=0x0050, text=» B KTP010 TRY NEXT«, t00=0x0002, t01=0x0132}
0x0466…0480 Head {h00=0x0016, h01=0x0050, text=»KTP020 NOT FOUND«, t00=0x0002, t01=0x014c}
0x0480…049e Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN4,CKTLAST «, t00=0x0002, t01=0x0166}
0x049e…04c2 Head {h00=0x0020, h01=0x0050, text=» CBNE GSWBIN4,CBIN0,KTPNOK2 «, t00=0x0002, t01=0x0184}
0x04c2…04de Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN4,CBIN1 «, t00=0x0003, t01=0x0018}
0x04de…04f0 Head {h00=0x000e, h01=0x0050, text=» B KTPNOK2«, t00=0x0003, t01=0x0034}
0x04f0…0506 Head {h00=0x0012, h01=0x0050, text=»KTP030 FOUND«, t00=0x0003, t01=0x0046}
0x0506…0536 Head {h00=0x002c, h01=0x0050, text=» MUL GSWBIN4,CBIN3 LAST RECORD IN GROUP «, t00=0x0003, t01=0x005c}
0x0536…0566 Head {h00=0x002c, h01=0x0050, text=» SUB GSWBIN4,CBIN2 FIRST RECORD IN GROUP«, t00=0x0003, t01=0x008c}
0x0566…0574 Head {h00=0x000a, h01=0x0050, text=»KTP100«, t00=0x0003, t01=0x00bc}
0x0574…059e Head {h00=0x0026, h01=0x0050, text=» TBF CKFLAG,KTP110 WAIT FOR BUFFER«, t00=0x0003, t01=0x00ca}
0x059e…05b2 Head {h00=0x0010, h01=0x0050, text=» DELAY CBIN1«, t00=0x0003, t01=0x00f4}
0x05b2…05c4 Head {h00=0x000e, h01=0x0050, text=» B KTP100 «, t00=0x0003, t01=0x0108}
0x05c4…05d2 Head {h00=0x000a, h01=0x0050, text=»KTP110«, t00=0x0003, t01=0x011a}
0x05d2…05f4 Head {h00=0x001e, h01=0x0050, text=» SET CKFLAG RESERVE BUFFER«, t00=0x0003, t01=0x0128}
0x05f4…0612 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN5,=W'128' «, t00=0x0003, t01=0x014a}
0x0612…062e Head {h00=0x0018, h01=0x0050, text=» MOVE CKTBUF,CBLANKS«, t00=0x0003, t01=0x0168}
0x062e…0670 Head {h00=0x003e, h01=0x0050, text=» PERF RAREAD,DK04,=D'4',CKTBUF,GSWBIN5,GSWBIN4 GET RECORD «, t00=0x0003, t01=0x0184}
0x0670…0696 Head {h00=0x0022, h01=0x0050, text=» BNOK KTPNOK ERROR ON READING «, t00=0x0004, t01=0x0036}
0x0696…06b8 Head {h00=0x001e, h01=0x0050, text=»* LOOP THROUGH BUFFER«, t00=0x0004, t01=0x005c}
0x06b8…06d4 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN5,CBIN0 «, t00=0x0004, t01=0x007e}
0x06d4…06e2 Head {h00=0x000a, h01=0x0050, text=»KTP120«, t00=0x0004, t01=0x009a}
0x06e2…06fe Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD7,=D'1' «, t00=0x0004, t01=0x00a8}
0x06fe…0730 Head {h00=0x002e, h01=0x0050, text=» XCOPY GSWBCD7,CBIN1,CBIN6,CKTBUF,GSWBIN5 «, t00=0x0004, t01=0x00c4}
0x0730…0756 Head {h00=0x0022, h01=0x0050, text=» CBE GSWBCD7,KTNR,KTP200 FOUND«, t00=0x0004, t01=0x00f6}
0x0756…0782 Head {h00=0x0028, h01=0x0050, text=» CBG GSWBCD7,KTNR,KTPNOK1 NOT FOUND «, t00=0x0004, t01=0x011c}
0x0782…07aa Head {h00=0x0024, h01=0x0050, text=» ADD GSWBIN5,CBIN8 LOOK FURTHER «, t00=0x0004, t01=0x0148}
0x07aa…07de Head {h00=0x0030, h01=0x0050, text=» CBNG GSWBIN5,=W'120',KTP120 LOOK AT NEXT NO«, t00=0x0004, t01=0x0170}
0x07de…080c Head {h00=0x002a, h01=0x0050, text=» ADD GSWBIN4,CBIN1 LOOK AT NEXT RECORD«, t00=0x0005, t01=0x0014}
0x080c…081e Head {h00=0x000e, h01=0x0050, text=» B KTP110 «, t00=0x0005, t01=0x0042}
0x081e…082c Head {h00=0x000a, h01=0x0050, text=»KTP200«, t00=0x0005, t01=0x0054}
0x082c…0850 Head {h00=0x0020, h01=0x0050, text=» ADD GSWBIN5,CBIN6 GET TYPE «, t00=0x0005, t01=0x0062}
0x0850…087c Head {h00=0x0028, h01=0x0050, text=» MOVE GSWBCD7,=D'1' INITIATE NUMBER «, t00=0x0005, t01=0x0086}
0x087c…08ae Head {h00=0x002e, h01=0x0050, text=» XCOPY GSWBCD7,CBIN5,CBIN2,CKTBUF,GSWBIN5 «, t00=0x0005, t01=0x00b2}
0x08ae…08c8 Head {h00=0x0016, h01=0x0050, text=» MOVE TYPE,GSWBCD7«, t00=0x0005, t01=0x00e4}
0x08c8…08e2 Head {h00=0x0016, h01=0x0050, text=» SUB GSWBIN5,CBIN6«, t00=0x0005, t01=0x00fe}
0x08e2…08f8 Head {h00=0x0012, h01=0x0050, text=» CLEAR CKFLAG «, t00=0x0005, t01=0x0118}
0x08f8…0910 Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN0«, t00=0x0005, t01=0x012e}
0x0910…091c Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0005, t01=0x0146}
0x091c…092c Head {h00=0x000c, h01=0x0050, text=»KTPNOK1 «, t00=0x0005, t01=0x0152}
0x092c…0942 Head {h00=0x0012, h01=0x0050, text=» CLEAR CKFLAG «, t00=0x0005, t01=0x0162}
0x0942…0952 Head {h00=0x000c, h01=0x0050, text=»KTPNOK2 «, t00=0x0005, t01=0x0178}
0x0952…096a Head {h00=0x0014, h01=0x0050, text=» MOVE TYPE,=D'0'«, t00=0x0005, t01=0x0188}
0x096a…0986 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN5,=W'-1'«, t00=0x0006, t01=0x0010}
0x0986…099e Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN0«, t00=0x0006, t01=0x002c}
0x099e…09aa Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0006, t01=0x0044}
0x09aa…09b8 Head {h00=0x000a, h01=0x0050, text=»KTPNOK«, t00=0x0006, t01=0x0050}
0x09b8…09ce Head {h00=0x0012, h01=0x0050, text=» CLEAR CKFLAG «, t00=0x0006, t01=0x005e}
0x09ce…09f0 Head {h00=0x001e, h01=0x0050, text=» MOVE TYPE,=D'0' NOT FOUND«, t00=0x0006, t01=0x0074}
0x09f0…0a10 Head {h00=0x001c, h01=0x0050, text=» CMP CBIN1,CBIN0 NOT OK «, t00=0x0006, t01=0x0096}
0x0a10…0a1c Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0006, t01=0x00b6}
0x0a1c…0a2a Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0006, t01=0x00c2}
0x0a2a…0a38 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0006, t01=0x00d0}
0x0a38…0a4c Head {h00=0x0010, h01=0x0050, text=»RESTMK PROC «, t00=0x0006, t01=0x00de}
0x0a4c…0a78 Head {h00=0x0028, h01=0x0050, text=»************************************«, t00=0x0006, t01=0x00f2}
0x0a78…0a82 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x011e}
0x0a82…0ab0 Head {h00=0x002a, h01=0x0050, text=»* RESET MASTER INDEX IN KONTOPLAN«, t00=0x0006, t01=0x0128}
0x0ab0…0ad2 Head {h00=0x001e, h01=0x0050, text=»* FOR RECORD GSWBIN4 «, t00=0x0006, t01=0x0156}
0x0ad2…0adc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0178}
0x0adc…0b08 Head {h00=0x0028, h01=0x0050, text=»************************************«, t00=0x0006, t01=0x0182}
0x0b08…0b10 Head {h00=0x0004, h01=0x0050, t00=0x0007, t01=0x001e}
0x0b10…0b3c Head {h00=0x0028, h01=0x0050, text=» MOVE GSWBIN3,GSWBIN4 FIND GROUP NO «, t00=0x0007, t01=0x0026}
0x0b3c…0b56 Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN3,CBIN2«, t00=0x0007, t01=0x0052}
0x0b56…0b84 Head {h00=0x002a, h01=0x0050, text=» DIV GSWBIN3,CBIN3 GSWBIN3 = GROUP NO «, t00=0x0007, t01=0x006c}
0x0b84…0b92 Head {h00=0x000a, h01=0x0050, text=»RES010«, t00=0x0007, t01=0x009a}
0x0b92…0bce Head {h00=0x0038, h01=0x0050, text=» CBE GSWBIN4,CKTLAST,RES100 LAST RECORD ? YES: JUMP «, t00=0x0007, t01=0x00a8}
0x0bce…0bfc Head {h00=0x002a, h01=0x0050, text=» MOVE GSWBIN5,GSWBIN3 LAST IN GROUP ? «, t00=0x0007, t01=0x00e4}
0x0bfc…0c16 Head {h00=0x0016, h01=0x0050, text=» MUL GSWBIN5,CBIN3«, t00=0x0007, t01=0x0112}
0x0c16…0c32 Head {h00=0x0018, h01=0x0050, text=» SUB GSWBIN5,GSWBIN4«, t00=0x0007, t01=0x012c}
0x0c32…0c60 Head {h00=0x002a, h01=0x0050, text=» BNE RESOK FINISH IF NOT LAST IN GROUP«, t00=0x0007, t01=0x0148}
0x0c60…0c8c Head {h00=0x0028, h01=0x0050, text=» MOVE GSWBIN5,=W'120' LAST IN GROUP «, t00=0x0007, t01=0x0176}
0x0c8c…0ca8 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD7,=D'1' «, t00=0x0008, t01=0x0012}
0x0ca8…0ce6 Head {h00=0x003a, h01=0x0050, text=» XCOPY GSWBCD7,CBIN1,CBIN6,CKTBUF,GSWBIN5 GET LAST NO «, t00=0x0008, t01=0x002e}
0x0ce6…0d0c Head {h00=0x0022, h01=0x0050, text=» MOVE CKTINDX(GSWBIN3),GSWBCD7«, t00=0x0008, t01=0x006c}
0x0d0c…0d1c Head {h00=0x000c, h01=0x0050, text=» B RESOK«, t00=0x0008, t01=0x0092}
0x0d1c…0d2a Head {h00=0x000a, h01=0x0050, text=»RES100«, t00=0x0008, t01=0x00a2}
0x0d2a…0d32 Head {h00=0x0004, h01=0x0050, t00=0x0008, t01=0x00b0}
0x0d32…0d54 Head {h00=0x001e, h01=0x0050, text=» CBE CKTLAST,CBIN0,RES170 «, t00=0x0008, t01=0x00b8}
0x0d54…0d88 Head {h00=0x0030, h01=0x0050, text=» MOVE GSWBIN5,=W'120' FIND LAST USED NUMBER «, t00=0x0008, t01=0x00da}
0x0d88…0da4 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD7,=D'1' «, t00=0x0008, t01=0x010e}
0x0da4…0db2 Head {h00=0x000a, h01=0x0050, text=»RES110«, t00=0x0008, t01=0x012a}
0x0db2…0dea Head {h00=0x0034, h01=0x0050, text=» MATCH CKTBUF,GSWBIN5,CBIN1,CBLANKS,CBIN0,CBIN1 «, t00=0x0008, t01=0x0138}
0x0dea…0dfc Head {h00=0x000e, h01=0x0050, text=» BE RES150«, t00=0x0008, t01=0x0170}
0x0dfc…0e2e Head {h00=0x002e, h01=0x0050, text=» XCOPY GSWBCD7,CBIN1,CBIN6,CKTBUF,GSWBIN5 «, t00=0x0008, t01=0x0182}
0x0e2e…0e66 Head {h00=0x0034, h01=0x0050, text=» MOVE CKTINDX(GSWBIN3),GSWBCD7 SET MASTER INDEX «, t00=0x0009, t01=0x0024}
0x0e66…0e74 Head {h00=0x000a, h01=0x0050, text=»RES120«, t00=0x0009, t01=0x005c}
0x0e74…0eac Head {h00=0x0034, h01=0x0050, text=» ADD GSWBIN3,CBIN1 SET REMAINING INDICES TO ZERO«, t00=0x0009, t01=0x006a}
0x0eac…0ec6 Head {h00=0x0016, h01=0x0050, text=» MUL GSWBIN3,CBIN3«, t00=0x0009, t01=0x00a2}
0x0ec6…0ee8 Head {h00=0x001e, h01=0x0050, text=» CBG GSWBIN3,CKTMAX,RESOK «, t00=0x0009, t01=0x00bc}
0x0ee8…0f02 Head {h00=0x0016, h01=0x0050, text=» DIV GSWBIN3,CBIN3«, t00=0x0009, t01=0x00de}
0x0f02…0f26 Head {h00=0x0020, h01=0x0050, text=» MOVE CKTINDX(GSWBIN3),=D'0'«, t00=0x0009, t01=0x00f8}
0x0f26…0f38 Head {h00=0x000e, h01=0x0050, text=» B RES120 «, t00=0x0009, t01=0x011c}
0x0f38…0f46 Head {h00=0x000a, h01=0x0050, text=»RES150«, t00=0x0009, t01=0x012e}
0x0f46…0f60 Head {h00=0x0016, h01=0x0050, text=» SUB GSWBIN5,CBIN8«, t00=0x0009, t01=0x013c}
0x0f60…0f74 Head {h00=0x0010, h01=0x0050, text=» BNL RES110 «, t00=0x0009, t01=0x0156}
0x0f74…0f82 Head {h00=0x000a, h01=0x0050, text=»RES170«, t00=0x0009, t01=0x016a}
0x0f82…0f9e Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN3,CBIN0 «, t00=0x0009, t01=0x0178}
0x0f9e…0fb0 (10, 0, 398) Head {h00=0x000e, h01=0x0050, text=» B RES120 «, t00=0x000a, t01=0x0004}
0x0fb0…0fbe Head {h00=0x000a, h01=0x0050, text=»RESOK «, t00=0x000a, t01=0x0016}
0x0fbe…0fca Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000a, t01=0x0024}
0x0fca…0fd8 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000a, t01=0x0030}
0x0fd8…0fe6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x003e}
0x0fe6…0ff8 Head {h00=0x000e, h01=0x0050, text=»SETMK PROC«, t00=0x000a, t01=0x004c}
0x0ff8…101c Head {h00=0x0020, h01=0x0050, text=»****************************«, t00=0x000a, t01=0x005e}
0x101c…1026 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0082}
0x1026…105c Head {h00=0x0032, h01=0x0050, text=»* INITIATE MASTER INDEX FOR 'KONTOPLAN' «, t00=0x000a, t01=0x008c}
0x105c…1066 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00c2}
0x1066…108a Head {h00=0x0020, h01=0x0050, text=»****************************«, t00=0x000a, t01=0x00cc}
0x108a…1092 Head {h00=0x0004, h01=0x0050, t00=0x000a, t01=0x00f0}
0x1092…10ae Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN4,CBIN1 «, t00=0x000a, t01=0x00f8}
0x10ae…10bc Head {h00=0x000a, h01=0x0050, text=»SET010«, t00=0x000a, t01=0x0114}
0x10bc…10da Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN5,=W'128' «, t00=0x000a, t01=0x0122}
0x10da…10f6 Head {h00=0x0018, h01=0x0050, text=» MOVE CKTBUF,CBLANKS«, t00=0x000a, t01=0x0140}
0x10f6…112c Head {h00=0x0032, h01=0x0050, text=» PERF RAREAD,DK04,=D'4',CKTBUF,GSWBIN5,GSWBIN4«, t00=0x000a, t01=0x015c}
0x112c…114a (11, 0, 400) Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN5,=W'120' «, t00=0x000b, t01=0x0004}
0x114a…1182 Head {h00=0x0034, h01=0x0050, text=» MATCH CKTBUF,GSWBIN5,CBIN2,CBLANKS,CBIN0,CBIN2 «, t00=0x000b, t01=0x0022}
0x1182…1194 Head {h00=0x000e, h01=0x0050, text=» BE SET100«, t00=0x000b, t01=0x005a}
0x1194…11a8 Head {h00=0x0010, h01=0x0050, text=» PERF RESTMK«, t00=0x000b, t01=0x006c}
0x11a8…11c2 Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN4,CBIN1«, t00=0x000b, t01=0x0080}
0x11c2…11e6 Head {h00=0x0020, h01=0x0050, text=» CBNG GSWBIN4,CKTMAX,SET010 «, t00=0x000b, t01=0x009a}
0x11e6…1202 Head {h00=0x0018, h01=0x0050, text=» MOVE CKTLAST,CKTMAX«, t00=0x000b, t01=0x00be}
0x1202…1212 Head {h00=0x000c, h01=0x0050, text=» B SETOK«, t00=0x000b, t01=0x00da}
0x1212…1220 Head {h00=0x000a, h01=0x0050, text=»SET100«, t00=0x000b, t01=0x00ea}
0x1220…123c Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN5,CBIN0 «, t00=0x000b, t01=0x00f8}
0x123c…1274 Head {h00=0x0034, h01=0x0050, text=» MATCH CKTBUF,GSWBIN5,CBIN2,CBLANKS,CBIN0,CBIN2 «, t00=0x000b, t01=0x0114}
0x1274…1288 Head {h00=0x0010, h01=0x0050, text=» BNE SET120 «, t00=0x000b, t01=0x014c}
0x1288…12a2 Head {h00=0x0016, h01=0x0050, text=» SUB GSWBIN4,CBIN1«, t00=0x000b, t01=0x0160}
0x12a2…12b4 Head {h00=0x000e, h01=0x0050, text=» BE SET120«, t00=0x000b, t01=0x017a}
0x12b4…12d2 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN5,=W'128' «, t00=0x000b, t01=0x018c}
0x12d2…12ee Head {h00=0x0018, h01=0x0050, text=» MOVE CKTBUF,CBLANKS«, t00=0x000c, t01=0x001a}
0x12ee…1324 Head {h00=0x0032, h01=0x0050, text=» PERF RAREAD,DK04,=D'4',CKTBUF,GSWBIN5,GSWBIN4«, t00=0x000c, t01=0x0036}
0x1324…1332 Head {h00=0x000a, h01=0x0050, text=»SET120«, t00=0x000c, t01=0x006c}
0x1332…1350 Head {h00=0x001a, h01=0x0050, text=» MOVE CKTLAST,GSWBIN4 «, t00=0x000c, t01=0x007a}
0x1350…1364 Head {h00=0x0010, h01=0x0050, text=» PERF RESTMK«, t00=0x000c, t01=0x0098}
0x1364…1372 Head {h00=0x000a, h01=0x0050, text=»SETOK «, t00=0x000c, t01=0x00ac}
0x1372…137e Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000c, t01=0x00ba}
0x137e…138c Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000c, t01=0x00c6}
0x138c…1398 Head {h00=0x0008, h01=0x0004, text=» END«, t00=0x000c, t01=0x00d4}
0x1398…139c Head {h00=0x4004, h01=0x0000}
0x139c…13a0 00 0c 00 e0 ┆ ┆
0x13a0…13a8 (13, 1, 8) 20 04 00 00 00 0d 00 04 ┆ ┆