|
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: 4926 (0x133e)
Notes: pts_type(SC)
Names: »KTPLN.SC«
└─⟦f445cacdf⟧ Bits:30009666 Philips computer tape "600111"
└─⟦this⟧ »NJ-AMT/KTPLN.SC«
IDENT KTPLN 02.03.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 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 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 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…0022 (0, 0, 400) Head {h00=0x001e, h01=0x0050, text=» IDENT KTPLN 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…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…039a Head {h00=0x0030, h01=0x0050, text=» CBG GSWBIN4,CBIN7,KTP020 RETURN, NOT FOUND «, t00=0x0002, t01=0x004c}
0x039a…03d6 Head {h00=0x0038, h01=0x0050, text=» CBE CKTINDX(GSWBIN4),=D'0',KTP020 RETURN, NOT FOUND«, t00=0x0002, t01=0x0080}
0x03d6…0418 Head {h00=0x003e, h01=0x0050, text=» CBNL CKTINDX(GSWBIN4),KTNR,KTP030 KNT.NO < MASTER ?FOUND «, t00=0x0002, t01=0x00bc}
0x0418…0432 Head {h00=0x0016, h01=0x0050, text=» B KTP010 TRY NEXT«, t00=0x0002, t01=0x00fe}
0x0432…044c Head {h00=0x0016, h01=0x0050, text=»KTP020 NOT FOUND«, t00=0x0002, t01=0x0118}
0x044c…046a Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN4,CKTLAST «, t00=0x0002, t01=0x0132}
0x046a…048e Head {h00=0x0020, h01=0x0050, text=» CBNE GSWBIN4,CBIN0,KTPNOK2 «, t00=0x0002, t01=0x0150}
0x048e…04aa Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN4,CBIN1 «, t00=0x0002, t01=0x0174}
0x04aa…04bc Head {h00=0x000e, h01=0x0050, text=» B KTPNOK2«, t00=0x0002, t01=0x0190}
0x04bc…04d2 Head {h00=0x0012, h01=0x0050, text=»KTP030 FOUND«, t00=0x0003, t01=0x0012}
0x04d2…0502 Head {h00=0x002c, h01=0x0050, text=» MUL GSWBIN4,CBIN3 LAST RECORD IN GROUP «, t00=0x0003, t01=0x0028}
0x0502…0532 Head {h00=0x002c, h01=0x0050, text=» SUB GSWBIN4,CBIN2 FIRST RECORD IN GROUP«, t00=0x0003, t01=0x0058}
0x0532…0540 Head {h00=0x000a, h01=0x0050, text=»KTP100«, t00=0x0003, t01=0x0088}
0x0540…056a Head {h00=0x0026, h01=0x0050, text=» TBF CKFLAG,KTP110 WAIT FOR BUFFER«, t00=0x0003, t01=0x0096}
0x056a…057e Head {h00=0x0010, h01=0x0050, text=» DELAY CBIN1«, t00=0x0003, t01=0x00c0}
0x057e…0590 Head {h00=0x000e, h01=0x0050, text=» B KTP100 «, t00=0x0003, t01=0x00d4}
0x0590…059e Head {h00=0x000a, h01=0x0050, text=»KTP110«, t00=0x0003, t01=0x00e6}
0x059e…05c0 Head {h00=0x001e, h01=0x0050, text=» SET CKFLAG RESERVE BUFFER«, t00=0x0003, t01=0x00f4}
0x05c0…05de Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN5,=W'128' «, t00=0x0003, t01=0x0116}
0x05de…05fa Head {h00=0x0018, h01=0x0050, text=» MOVE CKTBUF,CBLANKS«, t00=0x0003, t01=0x0134}
0x05fa…063c Head {h00=0x003e, h01=0x0050, text=» PERF RAREAD,DK04,=D'4',CKTBUF,GSWBIN5,GSWBIN4 GET RECORD «, t00=0x0003, t01=0x0150}
0x063c…0662 (4, 0, 400) Head {h00=0x0022, h01=0x0050, text=» BNOK KTPNOK ERROR ON READING «, t00=0x0004, t01=0x0004}
0x0662…0684 Head {h00=0x001e, h01=0x0050, text=»* LOOP THROUGH BUFFER«, t00=0x0004, t01=0x002a}
0x0684…06a0 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN5,CBIN0 «, t00=0x0004, t01=0x004c}
0x06a0…06ae Head {h00=0x000a, h01=0x0050, text=»KTP120«, t00=0x0004, t01=0x0068}
0x06ae…06ca Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD7,=D'1' «, t00=0x0004, t01=0x0076}
0x06ca…06fc Head {h00=0x002e, h01=0x0050, text=» XCOPY GSWBCD7,CBIN1,CBIN6,CKTBUF,GSWBIN5 «, t00=0x0004, t01=0x0092}
0x06fc…0722 Head {h00=0x0022, h01=0x0050, text=» CBE GSWBCD7,KTNR,KTP200 FOUND«, t00=0x0004, t01=0x00c4}
0x0722…074e Head {h00=0x0028, h01=0x0050, text=» CBG GSWBCD7,KTNR,KTPNOK1 NOT FOUND «, t00=0x0004, t01=0x00ea}
0x074e…0776 Head {h00=0x0024, h01=0x0050, text=» ADD GSWBIN5,CBIN8 LOOK FURTHER «, t00=0x0004, t01=0x0116}
0x0776…07aa Head {h00=0x0030, h01=0x0050, text=» CBNG GSWBIN5,=W'120',KTP120 LOOK AT NEXT NO«, t00=0x0004, t01=0x013e}
0x07aa…07d8 Head {h00=0x002a, h01=0x0050, text=» ADD GSWBIN4,CBIN1 LOOK AT NEXT RECORD«, t00=0x0004, t01=0x0172}
0x07d8…07ea Head {h00=0x000e, h01=0x0050, text=» B KTP110 «, t00=0x0005, t01=0x0010}
0x07ea…07f8 Head {h00=0x000a, h01=0x0050, text=»KTP200«, t00=0x0005, t01=0x0022}
0x07f8…081c Head {h00=0x0020, h01=0x0050, text=» ADD GSWBIN5,CBIN6 GET TYPE «, t00=0x0005, t01=0x0030}
0x081c…0848 Head {h00=0x0028, h01=0x0050, text=» MOVE GSWBCD7,=D'1' INITIATE NUMBER «, t00=0x0005, t01=0x0054}
0x0848…087a Head {h00=0x002e, h01=0x0050, text=» XCOPY GSWBCD7,CBIN5,CBIN2,CKTBUF,GSWBIN5 «, t00=0x0005, t01=0x0080}
0x087a…0894 Head {h00=0x0016, h01=0x0050, text=» MOVE TYPE,GSWBCD7«, t00=0x0005, t01=0x00b2}
0x0894…08ae Head {h00=0x0016, h01=0x0050, text=» SUB GSWBIN5,CBIN6«, t00=0x0005, t01=0x00cc}
0x08ae…08c4 Head {h00=0x0012, h01=0x0050, text=» CLEAR CKFLAG «, t00=0x0005, t01=0x00e6}
0x08c4…08dc Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN0«, t00=0x0005, t01=0x00fc}
0x08dc…08e8 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0005, t01=0x0114}
0x08e8…08f8 Head {h00=0x000c, h01=0x0050, text=»KTPNOK1 «, t00=0x0005, t01=0x0120}
0x08f8…090e Head {h00=0x0012, h01=0x0050, text=» CLEAR CKFLAG «, t00=0x0005, t01=0x0130}
0x090e…091e Head {h00=0x000c, h01=0x0050, text=»KTPNOK2 «, t00=0x0005, t01=0x0146}
0x091e…0936 Head {h00=0x0014, h01=0x0050, text=» MOVE TYPE,=D'0'«, t00=0x0005, t01=0x0156}
0x0936…0952 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN5,=W'-1'«, t00=0x0005, t01=0x016e}
0x0952…096a Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN0«, t00=0x0005, t01=0x018a}
0x096a…0976 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0006, t01=0x0012}
0x0976…0984 Head {h00=0x000a, h01=0x0050, text=»KTPNOK«, t00=0x0006, t01=0x001e}
0x0984…099a Head {h00=0x0012, h01=0x0050, text=» CLEAR CKFLAG «, t00=0x0006, t01=0x002c}
0x099a…09bc Head {h00=0x001e, h01=0x0050, text=» MOVE TYPE,=D'0' NOT FOUND«, t00=0x0006, t01=0x0042}
0x09bc…09dc Head {h00=0x001c, h01=0x0050, text=» CMP CBIN1,CBIN0 NOT OK «, t00=0x0006, t01=0x0064}
0x09dc…09e8 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0006, t01=0x0084}
0x09e8…09f6 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0006, t01=0x0090}
0x09f6…0a04 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0006, t01=0x009e}
0x0a04…0a18 Head {h00=0x0010, h01=0x0050, text=»RESTMK PROC «, t00=0x0006, t01=0x00ac}
0x0a18…0a44 Head {h00=0x0028, h01=0x0050, text=»************************************«, t00=0x0006, t01=0x00c0}
0x0a44…0a4e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00ec}
0x0a4e…0a7c Head {h00=0x002a, h01=0x0050, text=»* RESET MASTER INDEX IN KONTOPLAN«, t00=0x0006, t01=0x00f6}
0x0a7c…0a9e Head {h00=0x001e, h01=0x0050, text=»* FOR RECORD GSWBIN4 «, t00=0x0006, t01=0x0124}
0x0a9e…0aa8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0146}
0x0aa8…0ad4 Head {h00=0x0028, h01=0x0050, text=»************************************«, t00=0x0006, t01=0x0150}
0x0ad4…0adc Head {h00=0x0004, h01=0x0050, t00=0x0006, t01=0x017c}
0x0adc…0b08 Head {h00=0x0028, h01=0x0050, text=» MOVE GSWBIN3,GSWBIN4 FIND GROUP NO «, t00=0x0006, t01=0x0184}
0x0b08…0b22 Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN3,CBIN2«, t00=0x0007, t01=0x0020}
0x0b22…0b50 Head {h00=0x002a, h01=0x0050, text=» DIV GSWBIN3,CBIN3 GSWBIN3 = GROUP NO «, t00=0x0007, t01=0x003a}
0x0b50…0b5e Head {h00=0x000a, h01=0x0050, text=»RES010«, t00=0x0007, t01=0x0068}
0x0b5e…0b9a Head {h00=0x0038, h01=0x0050, text=» CBE GSWBIN4,CKTLAST,RES100 LAST RECORD ? YES: JUMP «, t00=0x0007, t01=0x0076}
0x0b9a…0bc8 Head {h00=0x002a, h01=0x0050, text=» MOVE GSWBIN5,GSWBIN3 LAST IN GROUP ? «, t00=0x0007, t01=0x00b2}
0x0bc8…0be2 Head {h00=0x0016, h01=0x0050, text=» MUL GSWBIN5,CBIN3«, t00=0x0007, t01=0x00e0}
0x0be2…0bfe Head {h00=0x0018, h01=0x0050, text=» SUB GSWBIN5,GSWBIN4«, t00=0x0007, t01=0x00fa}
0x0bfe…0c2c Head {h00=0x002a, h01=0x0050, text=» BNE RESOK FINISH IF NOT LAST IN GROUP«, t00=0x0007, t01=0x0116}
0x0c2c…0c58 Head {h00=0x0028, h01=0x0050, text=» MOVE GSWBIN5,=W'120' LAST IN GROUP «, t00=0x0007, t01=0x0144}
0x0c58…0c74 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD7,=D'1' «, t00=0x0007, t01=0x0170}
0x0c74…0cb2 Head {h00=0x003a, h01=0x0050, text=» XCOPY GSWBCD7,CBIN1,CBIN6,CKTBUF,GSWBIN5 GET LAST NO «, t00=0x0007, t01=0x018c}
0x0cb2…0cd8 Head {h00=0x0022, h01=0x0050, text=» MOVE CKTINDX(GSWBIN3),GSWBCD7«, t00=0x0008, t01=0x003a}
0x0cd8…0ce8 Head {h00=0x000c, h01=0x0050, text=» B RESOK«, t00=0x0008, t01=0x0060}
0x0ce8…0cf6 Head {h00=0x000a, h01=0x0050, text=»RES100«, t00=0x0008, t01=0x0070}
0x0cf6…0cfe Head {h00=0x0004, h01=0x0050, t00=0x0008, t01=0x007e}
0x0cfe…0d20 Head {h00=0x001e, h01=0x0050, text=» CBE CKTLAST,CBIN0,RES170 «, t00=0x0008, t01=0x0086}
0x0d20…0d54 Head {h00=0x0030, h01=0x0050, text=» MOVE GSWBIN5,=W'120' FIND LAST USED NUMBER «, t00=0x0008, t01=0x00a8}
0x0d54…0d70 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD7,=D'1' «, t00=0x0008, t01=0x00dc}
0x0d70…0d7e Head {h00=0x000a, h01=0x0050, text=»RES110«, t00=0x0008, t01=0x00f8}
0x0d7e…0db6 Head {h00=0x0034, h01=0x0050, text=» MATCH CKTBUF,GSWBIN5,CBIN1,CBLANKS,CBIN0,CBIN1 «, t00=0x0008, t01=0x0106}
0x0db6…0dc8 Head {h00=0x000e, h01=0x0050, text=» BE RES150«, t00=0x0008, t01=0x013e}
0x0dc8…0dfa Head {h00=0x002e, h01=0x0050, text=» XCOPY GSWBCD7,CBIN1,CBIN6,CKTBUF,GSWBIN5 «, t00=0x0008, t01=0x0150}
0x0dfa…0e32 Head {h00=0x0034, h01=0x0050, text=» MOVE CKTINDX(GSWBIN3),GSWBCD7 SET MASTER INDEX «, t00=0x0008, t01=0x0182}
0x0e32…0e40 Head {h00=0x000a, h01=0x0050, text=»RES120«, t00=0x0009, t01=0x002a}
0x0e40…0e78 Head {h00=0x0034, h01=0x0050, text=» ADD GSWBIN3,CBIN1 SET REMAINING INDICES TO ZERO«, t00=0x0009, t01=0x0038}
0x0e78…0e98 Head {h00=0x001c, h01=0x0050, text=» CBG GSWBIN3,CBIN7,RESOK«, t00=0x0009, t01=0x0070}
0x0e98…0ebc Head {h00=0x0020, h01=0x0050, text=» MOVE CKTINDX(GSWBIN3),=D'0'«, t00=0x0009, t01=0x0090}
0x0ebc…0ece Head {h00=0x000e, h01=0x0050, text=» B RES120 «, t00=0x0009, t01=0x00b4}
0x0ece…0edc Head {h00=0x000a, h01=0x0050, text=»RES150«, t00=0x0009, t01=0x00c6}
0x0edc…0ef6 Head {h00=0x0016, h01=0x0050, text=» SUB GSWBIN5,CBIN8«, t00=0x0009, t01=0x00d4}
0x0ef6…0f0a Head {h00=0x0010, h01=0x0050, text=» BNL RES110 «, t00=0x0009, t01=0x00ee}
0x0f0a…0f18 Head {h00=0x000a, h01=0x0050, text=»RES170«, t00=0x0009, t01=0x0102}
0x0f18…0f34 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN3,CBIN0 «, t00=0x0009, t01=0x0110}
0x0f34…0f46 Head {h00=0x000e, h01=0x0050, text=» B RES120 «, t00=0x0009, t01=0x012c}
0x0f46…0f54 Head {h00=0x000a, h01=0x0050, text=»RESOK «, t00=0x0009, t01=0x013e}
0x0f54…0f60 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0009, t01=0x014c}
0x0f60…0f6e Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0009, t01=0x0158}
0x0f6e…0f7c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x0166}
0x0f7c…0f8e Head {h00=0x000e, h01=0x0050, text=»SETMK PROC«, t00=0x0009, t01=0x0174}
0x0f8e…0fb2 Head {h00=0x0020, h01=0x0050, text=»****************************«, t00=0x0009, t01=0x0186}
0x0fb2…0fbc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x001a}
0x0fbc…0ff2 Head {h00=0x0032, h01=0x0050, text=»* INITIATE MASTER INDEX FOR 'KONTOPLAN' «, t00=0x000a, t01=0x0024}
0x0ff2…0ffc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x005a}
0x0ffc…1020 Head {h00=0x0020, h01=0x0050, text=»****************************«, t00=0x000a, t01=0x0064}
0x1020…1028 Head {h00=0x0004, h01=0x0050, t00=0x000a, t01=0x0088}
0x1028…1044 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN4,CBIN1 «, t00=0x000a, t01=0x0090}
0x1044…1052 Head {h00=0x000a, h01=0x0050, text=»SET010«, t00=0x000a, t01=0x00ac}
0x1052…1070 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN5,=W'128' «, t00=0x000a, t01=0x00ba}
0x1070…108c Head {h00=0x0018, h01=0x0050, text=» MOVE CKTBUF,CBLANKS«, t00=0x000a, t01=0x00d8}
0x108c…10c2 Head {h00=0x0032, h01=0x0050, text=» PERF RAREAD,DK04,=D'4',CKTBUF,GSWBIN5,GSWBIN4«, t00=0x000a, t01=0x00f4}
0x10c2…10e0 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN5,=W'120' «, t00=0x000a, t01=0x012a}
0x10e0…1118 Head {h00=0x0034, h01=0x0050, text=» MATCH CKTBUF,GSWBIN5,CBIN2,CBLANKS,CBIN0,CBIN2 «, t00=0x000a, t01=0x0148}
0x1118…112a Head {h00=0x000e, h01=0x0050, text=» BE SET100«, t00=0x000a, t01=0x0180}
0x112a…113e (11, 0, 400) Head {h00=0x0010, h01=0x0050, text=» PERF RESTMK«, t00=0x000b, t01=0x0004}
0x113e…1158 Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN4,CBIN1«, t00=0x000b, t01=0x0018}
0x1158…117c Head {h00=0x0020, h01=0x0050, text=» CBNG GSWBIN4,=W'21',SET010 «, t00=0x000b, t01=0x0032}
0x117c…1198 Head {h00=0x0018, h01=0x0050, text=» MOVE CKTLAST,=W'21'«, t00=0x000b, t01=0x0056}
0x1198…11a8 Head {h00=0x000c, h01=0x0050, text=» B SETOK«, t00=0x000b, t01=0x0072}
0x11a8…11b6 Head {h00=0x000a, h01=0x0050, text=»SET100«, t00=0x000b, t01=0x0082}
0x11b6…11d2 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN5,CBIN0 «, t00=0x000b, t01=0x0090}
0x11d2…120a Head {h00=0x0034, h01=0x0050, text=» MATCH CKTBUF,GSWBIN5,CBIN2,CBLANKS,CBIN0,CBIN2 «, t00=0x000b, t01=0x00ac}
0x120a…121e Head {h00=0x0010, h01=0x0050, text=» BNE SET120 «, t00=0x000b, t01=0x00e4}
0x121e…1238 Head {h00=0x0016, h01=0x0050, text=» SUB GSWBIN4,CBIN1«, t00=0x000b, t01=0x00f8}
0x1238…124a Head {h00=0x000e, h01=0x0050, text=» BE SET120«, t00=0x000b, t01=0x0112}
0x124a…1268 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN5,=W'128' «, t00=0x000b, t01=0x0124}
0x1268…1284 Head {h00=0x0018, h01=0x0050, text=» MOVE CKTBUF,CBLANKS«, t00=0x000b, t01=0x0142}
0x1284…12ba Head {h00=0x0032, h01=0x0050, text=» PERF RAREAD,DK04,=D'4',CKTBUF,GSWBIN5,GSWBIN4«, t00=0x000b, t01=0x015e}
0x12ba…12c8 (12, 2, 124) Head {h00=0x000a, h01=0x0050, text=»SET120«, t00=0x000c, t01=0x0004}
0x12c8…12e6 Head {h00=0x001a, h01=0x0050, text=» MOVE CKTLAST,GSWBIN4 «, t00=0x000c, t01=0x0012}
0x12e6…12fa Head {h00=0x0010, h01=0x0050, text=» PERF RESTMK«, t00=0x000c, t01=0x0030}
0x12fa…1308 Head {h00=0x000a, h01=0x0050, text=»SETOK «, t00=0x000c, t01=0x0044}
0x1308…1314 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000c, t01=0x0052}
0x1314…1322 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000c, t01=0x005e}
0x1322…132e Head {h00=0x0008, h01=0x0004, text=» END«, t00=0x000c, t01=0x006c}
0x132e…1332 Head {h00=0x4004, h01=0x0000}
0x1332…1336 00 0c 00 78 ┆ x┆
0x1336…133e (13, 1, 8) 20 04 00 00 00 0d 00 04 ┆ ┆