|
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: 5808 (0x16b0)
Notes: pts_type(SC)
Names: »KTPLN.SC«
└─⟦22f4dea89⟧ Bits:30009702 Philips computer tape "DOS_PTS_4.2_M_FL"
└─⟦this⟧ »NJ-AMT/KTPLN.SC«
└─⟦dab19bdd7⟧ Bits:30009677 Philips computer tape "600218"
└─⟦this⟧ »NJ-AMT/KTPLN.SC«
IDENT KTPLN 02.03.XXX.1 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 KTP100 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…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…00aa Head {h00=0x000e, h01=0x0050, text=» EXT WAITF«, t00=0x0000, t01=0x009c}
0x00aa…00c2 Head {h00=0x0014, h01=0x0050, text=» INCLUDE EQUATE «, t00=0x0000, t01=0x00ae}
0x00c2…00d0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0000, t01=0x00c6}
0x00d0…00ee Head {h00=0x001a, h01=0x0050, text=»KTPLAN PROC KTNR,TYPE «, t00=0x0000, t01=0x00d4}
0x00ee…0126 Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x0000, t01=0x00f2}
0x0126…0130 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x012a}
0x0130…016e Head {h00=0x003a, h01=0x0050, text=»* PROCEDURE FOR SEARCHING A GIVEN KONTO NO -KTNR-«, t00=0x0000, t01=0x0134}
0x016e…0190 Head {h00=0x001e, h01=0x0050, text=»* ON THE 'KONTOPLAN' «, t00=0x0000, t01=0x0172}
0x0190…019a (1, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0004}
0x019a…01d4 Head {h00=0x0036, h01=0x0050, text=»* IF FOUND - CONDITION REGISTER IS SET TO OK «, t00=0x0001, t01=0x000e}
0x01d4…0214 Head {h00=0x003c, h01=0x0050, text=»* TYPE WILL CONTAIN THE ASSOCIATED TYPE «, t00=0x0001, t01=0x0048}
0x0214…0242 Head {h00=0x002a, h01=0x0050, text=»* GSWBIN4 IS RECORD NO«, t00=0x0001, t01=0x0088}
0x0242…0282 Head {h00=0x003c, h01=0x0050, text=»* GSWBIN5 POINTS TO START OF FOUND NO «, t00=0x0001, t01=0x00b6}
0x0282…02b4 Head {h00=0x002e, h01=0x0050, text=»* IF NOT FOUND - GSWBIN4 IS RECORD NO«, t00=0x0001, t01=0x00f6}
0x02b4…02be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0128}
0x02be…02ee Head {h00=0x002c, h01=0x0050, text=»*************************************** «, t00=0x0001, t01=0x0132}
0x02ee…02f6 Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x0162}
0x02f6…032c Head {h00=0x0032, h01=0x0050, text=»* SEARCH MASTER INDEX FOR RELEVANT RECORD«, t00=0x0001, t01=0x016a}
0x032c…0334 Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x0010}
0x0334…0350 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN4,CBIN0 «, t00=0x0002, t01=0x0018}
0x0350…035e Head {h00=0x000a, h01=0x0050, text=»KTP010«, t00=0x0002, t01=0x0034}
0x035e…0378 Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN4,CBIN1«, t00=0x0002, t01=0x0042}
0x0378…03ac Head {h00=0x0030, h01=0x0050, text=» CBG GSWBIN4,CBIN7,KTP020 RETURN, NOT FOUND «, t00=0x0002, t01=0x005c}
0x03ac…03e8 Head {h00=0x0038, h01=0x0050, text=» CBE CKTINDX(GSWBIN4),=D'0',KTP020 RETURN, NOT FOUND«, t00=0x0002, t01=0x0090}
0x03e8…042a Head {h00=0x003e, h01=0x0050, text=» CBNL CKTINDX(GSWBIN4),KTNR,KTP030 KNT.NO < MASTER ?FOUND «, t00=0x0002, t01=0x00cc}
0x042a…0444 Head {h00=0x0016, h01=0x0050, text=» B KTP010 TRY NEXT«, t00=0x0002, t01=0x010e}
0x0444…045e Head {h00=0x0016, h01=0x0050, text=»KTP020 NOT FOUND«, t00=0x0002, t01=0x0128}
0x045e…047c Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN4,CKTLAST «, t00=0x0002, t01=0x0142}
0x047c…04a0 Head {h00=0x0020, h01=0x0050, text=» CBNE GSWBIN4,CBIN0,KTPNOK2 «, t00=0x0002, t01=0x0160}
0x04a0…04bc Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN4,CBIN1 «, t00=0x0002, t01=0x0184}
0x04bc…04ce Head {h00=0x000e, h01=0x0050, text=» B KTPNOK2«, t00=0x0003, t01=0x0010}
0x04ce…04e4 Head {h00=0x0012, h01=0x0050, text=»KTP030 FOUND«, t00=0x0003, t01=0x0022}
0x04e4…0514 Head {h00=0x002c, h01=0x0050, text=» MUL GSWBIN4,CBIN3 LAST RECORD IN GROUP «, t00=0x0003, t01=0x0038}
0x0514…0544 Head {h00=0x002c, h01=0x0050, text=» SUB GSWBIN4,CBIN2 FIRST RECORD IN GROUP«, t00=0x0003, t01=0x0068}
0x0544…0552 Head {h00=0x000a, h01=0x0050, text=»KTP100«, t00=0x0003, t01=0x0098}
0x0552…056c Head {h00=0x0016, h01=0x0050, text=» PERF WAITF,CKFLAG«, t00=0x0003, t01=0x00a6}
0x056c…057a Head {h00=0x000a, h01=0x0050, text=»KTP110«, t00=0x0003, t01=0x00c0}
0x057a…0598 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN5,=W'128' «, t00=0x0003, t01=0x00ce}
0x0598…05b4 Head {h00=0x0018, h01=0x0050, text=» MOVE CKTBUF,CBLANKS«, t00=0x0003, t01=0x00ec}
0x05b4…05f6 Head {h00=0x003e, h01=0x0050, text=» PERF RAREAD,DK04,=D'4',CKTBUF,GSWBIN5,GSWBIN4 GET RECORD «, t00=0x0003, t01=0x0108}
0x05f6…061c Head {h00=0x0022, h01=0x0050, text=» BNOK KTPNOK ERROR ON READING «, t00=0x0003, t01=0x014a}
0x061c…063e Head {h00=0x001e, h01=0x0050, text=»* LOOP THROUGH BUFFER«, t00=0x0003, t01=0x0170}
0x063e…065a (4, 0, 400) Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN5,CBIN0 «, t00=0x0004, t01=0x0004}
0x065a…0668 Head {h00=0x000a, h01=0x0050, text=»KTP120«, t00=0x0004, t01=0x0020}
0x0668…0684 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD7,=D'1' «, t00=0x0004, t01=0x002e}
0x0684…06b6 Head {h00=0x002e, h01=0x0050, text=» XCOPY GSWBCD7,CBIN1,CBIN6,CKTBUF,GSWBIN5 «, t00=0x0004, t01=0x004a}
0x06b6…06dc Head {h00=0x0022, h01=0x0050, text=» CBE GSWBCD7,KTNR,KTP200 FOUND«, t00=0x0004, t01=0x007c}
0x06dc…0708 Head {h00=0x0028, h01=0x0050, text=» CBG GSWBCD7,KTNR,KTPNOK1 NOT FOUND «, t00=0x0004, t01=0x00a2}
0x0708…0730 Head {h00=0x0024, h01=0x0050, text=» ADD GSWBIN5,CBIN8 LOOK FURTHER «, t00=0x0004, t01=0x00ce}
0x0730…0764 Head {h00=0x0030, h01=0x0050, text=» CBNG GSWBIN5,=W'120',KTP120 LOOK AT NEXT NO«, t00=0x0004, t01=0x00f6}
0x0764…0792 Head {h00=0x002a, h01=0x0050, text=» ADD GSWBIN4,CBIN1 LOOK AT NEXT RECORD«, t00=0x0004, t01=0x012a}
0x0792…07a4 Head {h00=0x000e, h01=0x0050, text=» B KTP110 «, t00=0x0004, t01=0x0158}
0x07a4…07b2 Head {h00=0x000a, h01=0x0050, text=»KTP200«, t00=0x0004, t01=0x016a}
0x07b2…07d6 Head {h00=0x0020, h01=0x0050, text=» ADD GSWBIN5,CBIN6 GET TYPE «, t00=0x0004, t01=0x0178}
0x07d6…0802 Head {h00=0x0028, h01=0x0050, text=» MOVE GSWBCD7,=D'1' INITIATE NUMBER «, t00=0x0005, t01=0x000c}
0x0802…0834 Head {h00=0x002e, h01=0x0050, text=» XCOPY GSWBCD7,CBIN5,CBIN2,CKTBUF,GSWBIN5 «, t00=0x0005, t01=0x0038}
0x0834…084e Head {h00=0x0016, h01=0x0050, text=» MOVE TYPE,GSWBCD7«, t00=0x0005, t01=0x006a}
0x084e…0868 Head {h00=0x0016, h01=0x0050, text=» SUB GSWBIN5,CBIN6«, t00=0x0005, t01=0x0084}
0x0868…087e Head {h00=0x0012, h01=0x0050, text=» CLEAR CKFLAG «, t00=0x0005, t01=0x009e}
0x087e…0896 Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN0«, t00=0x0005, t01=0x00b4}
0x0896…08a2 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0005, t01=0x00cc}
0x08a2…08b2 Head {h00=0x000c, h01=0x0050, text=»KTPNOK1 «, t00=0x0005, t01=0x00d8}
0x08b2…08c8 Head {h00=0x0012, h01=0x0050, text=» CLEAR CKFLAG «, t00=0x0005, t01=0x00e8}
0x08c8…08d8 Head {h00=0x000c, h01=0x0050, text=»KTPNOK2 «, t00=0x0005, t01=0x00fe}
0x08d8…08f0 Head {h00=0x0014, h01=0x0050, text=» MOVE TYPE,=D'0'«, t00=0x0005, t01=0x010e}
0x08f0…090c Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN5,=W'-1'«, t00=0x0005, t01=0x0126}
0x090c…0924 Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN0«, t00=0x0005, t01=0x0142}
0x0924…0930 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0005, t01=0x015a}
0x0930…093e Head {h00=0x000a, h01=0x0050, text=»KTPNOK«, t00=0x0005, t01=0x0166}
0x093e…0954 Head {h00=0x0012, h01=0x0050, text=» CLEAR CKFLAG «, t00=0x0005, t01=0x0174}
0x0954…0976 Head {h00=0x001e, h01=0x0050, text=» MOVE TYPE,=D'0' NOT FOUND«, t00=0x0005, t01=0x018a}
0x0976…0996 Head {h00=0x001c, h01=0x0050, text=» CMP CBIN1,CBIN0 NOT OK «, t00=0x0006, t01=0x001c}
0x0996…09a2 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0006, t01=0x003c}
0x09a2…09b0 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0006, t01=0x0048}
0x09b0…09be Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0006, t01=0x0056}
0x09be…09d2 Head {h00=0x0010, h01=0x0050, text=»RESTMK PROC «, t00=0x0006, t01=0x0064}
0x09d2…09fe Head {h00=0x0028, h01=0x0050, text=»************************************«, t00=0x0006, t01=0x0078}
0x09fe…0a08 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00a4}
0x0a08…0a36 Head {h00=0x002a, h01=0x0050, text=»* RESET MASTER INDEX IN KONTOPLAN«, t00=0x0006, t01=0x00ae}
0x0a36…0a58 Head {h00=0x001e, h01=0x0050, text=»* FOR RECORD GSWBIN4 «, t00=0x0006, t01=0x00dc}
0x0a58…0a62 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00fe}
0x0a62…0a8e Head {h00=0x0028, h01=0x0050, text=»************************************«, t00=0x0006, t01=0x0108}
0x0a8e…0aba Head {h00=0x0028, h01=0x0050, text=» MOVE GSWBIN3,GSWBIN4 FIND GROUP NO «, t00=0x0006, t01=0x0134}
0x0aba…0ad4 Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN3,CBIN2«, t00=0x0006, t01=0x0160}
0x0ad4…0b02 Head {h00=0x002a, h01=0x0050, text=» DIV GSWBIN3,CBIN3 GSWBIN3 = GROUP NO «, t00=0x0006, t01=0x017a}
0x0b02…0b10 Head {h00=0x000a, h01=0x0050, text=»RES010«, t00=0x0007, t01=0x0018}
0x0b10…0b4c Head {h00=0x0038, h01=0x0050, text=» CBE GSWBIN4,CKTLAST,RES100 LAST RECORD ? YES: JUMP «, t00=0x0007, t01=0x0026}
0x0b4c…0b7a Head {h00=0x002a, h01=0x0050, text=» MOVE GSWBIN5,GSWBIN3 LAST IN GROUP ? «, t00=0x0007, t01=0x0062}
0x0b7a…0b94 Head {h00=0x0016, h01=0x0050, text=» MUL GSWBIN5,CBIN3«, t00=0x0007, t01=0x0090}
0x0b94…0bb0 Head {h00=0x0018, h01=0x0050, text=» SUB GSWBIN5,GSWBIN4«, t00=0x0007, t01=0x00aa}
0x0bb0…0bde Head {h00=0x002a, h01=0x0050, text=» BNE RESOK FINISH IF NOT LAST IN GROUP«, t00=0x0007, t01=0x00c6}
0x0bde…0c0a Head {h00=0x0028, h01=0x0050, text=» MOVE GSWBIN5,=W'120' LAST IN GROUP «, t00=0x0007, t01=0x00f4}
0x0c0a…0c26 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD7,=D'1' «, t00=0x0007, t01=0x0120}
0x0c26…0c64 Head {h00=0x003a, h01=0x0050, text=» XCOPY GSWBCD7,CBIN1,CBIN6,CKTBUF,GSWBIN5 GET LAST NO «, t00=0x0007, t01=0x013c}
0x0c64…0c8a Head {h00=0x0022, h01=0x0050, text=» MOVE CKTINDX(GSWBIN3),GSWBCD7«, t00=0x0007, t01=0x017a}
0x0c8a…0c9a Head {h00=0x000c, h01=0x0050, text=» B RESOK«, t00=0x0008, t01=0x0010}
0x0c9a…0ca8 Head {h00=0x000a, h01=0x0050, text=»RES100«, t00=0x0008, t01=0x0020}
0x0ca8…0cb0 Head {h00=0x0004, h01=0x0050, t00=0x0008, t01=0x002e}
0x0cb0…0cd2 Head {h00=0x001e, h01=0x0050, text=» CBE CKTLAST,CBIN0,RES170 «, t00=0x0008, t01=0x0036}
0x0cd2…0d06 Head {h00=0x0030, h01=0x0050, text=» MOVE GSWBIN5,=W'120' FIND LAST USED NUMBER «, t00=0x0008, t01=0x0058}
0x0d06…0d22 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD7,=D'1' «, t00=0x0008, t01=0x008c}
0x0d22…0d30 Head {h00=0x000a, h01=0x0050, text=»RES110«, t00=0x0008, t01=0x00a8}
0x0d30…0d68 Head {h00=0x0034, h01=0x0050, text=» MATCH CKTBUF,GSWBIN5,CBIN1,CBLANKS,CBIN0,CBIN1 «, t00=0x0008, t01=0x00b6}
0x0d68…0d7a Head {h00=0x000e, h01=0x0050, text=» BE RES150«, t00=0x0008, t01=0x00ee}
0x0d7a…0dac Head {h00=0x002e, h01=0x0050, text=» XCOPY GSWBCD7,CBIN1,CBIN6,CKTBUF,GSWBIN5 «, t00=0x0008, t01=0x0100}
0x0dac…0de4 Head {h00=0x0034, h01=0x0050, text=» MOVE CKTINDX(GSWBIN3),GSWBCD7 SET MASTER INDEX «, t00=0x0008, t01=0x0132}
0x0de4…0df2 Head {h00=0x000a, h01=0x0050, text=»RES120«, t00=0x0008, t01=0x016a}
0x0df2…0e2a Head {h00=0x0034, h01=0x0050, text=» ADD GSWBIN3,CBIN1 SET REMAINING INDICES TO ZERO«, t00=0x0008, t01=0x0178}
0x0e2a…0e4a Head {h00=0x001c, h01=0x0050, text=» CBG GSWBIN3,CBIN7,RESOK«, t00=0x0009, t01=0x0020}
0x0e4a…0e6e Head {h00=0x0020, h01=0x0050, text=» MOVE CKTINDX(GSWBIN3),=D'0'«, t00=0x0009, t01=0x0040}
0x0e6e…0e80 Head {h00=0x000e, h01=0x0050, text=» B RES120 «, t00=0x0009, t01=0x0064}
0x0e80…0e8e Head {h00=0x000a, h01=0x0050, text=»RES150«, t00=0x0009, t01=0x0076}
0x0e8e…0ea8 Head {h00=0x0016, h01=0x0050, text=» SUB GSWBIN5,CBIN8«, t00=0x0009, t01=0x0084}
0x0ea8…0ebc Head {h00=0x0010, h01=0x0050, text=» BNL RES110 «, t00=0x0009, t01=0x009e}
0x0ebc…0eca Head {h00=0x000a, h01=0x0050, text=»RES170«, t00=0x0009, t01=0x00b2}
0x0eca…0ee6 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN3,CBIN0 «, t00=0x0009, t01=0x00c0}
0x0ee6…0ef8 Head {h00=0x000e, h01=0x0050, text=» B RES120 «, t00=0x0009, t01=0x00dc}
0x0ef8…0f06 Head {h00=0x000a, h01=0x0050, text=»RESOK «, t00=0x0009, t01=0x00ee}
0x0f06…0f12 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0009, t01=0x00fc}
0x0f12…0f20 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0009, t01=0x0108}
0x0f20…0f2e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x0116}
0x0f2e…0f40 Head {h00=0x000e, h01=0x0050, text=»SETMK PROC«, t00=0x0009, t01=0x0124}
0x0f40…0f64 Head {h00=0x0020, h01=0x0050, text=»****************************«, t00=0x0009, t01=0x0136}
0x0f64…0f6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x015a}
0x0f6e…0fa4 Head {h00=0x0032, h01=0x0050, text=»* INITIATE MASTER INDEX FOR 'KONTOPLAN' «, t00=0x0009, t01=0x0164}
0x0fa4…0fae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x000a}
0x0fae…0fd2 Head {h00=0x0020, h01=0x0050, text=»****************************«, t00=0x000a, t01=0x0014}
0x0fd2…0fda Head {h00=0x0004, h01=0x0050, t00=0x000a, t01=0x0038}
0x0fda…0ff6 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN4,CBIN1 «, t00=0x000a, t01=0x0040}
0x0ff6…1004 Head {h00=0x000a, h01=0x0050, text=»SET010«, t00=0x000a, t01=0x005c}
0x1004…1022 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN5,=W'128' «, t00=0x000a, t01=0x006a}
0x1022…103e Head {h00=0x0018, h01=0x0050, text=» MOVE CKTBUF,CBLANKS«, t00=0x000a, t01=0x0088}
0x103e…1074 Head {h00=0x0032, h01=0x0050, text=» PERF RAREAD,DK04,=D'4',CKTBUF,GSWBIN5,GSWBIN4«, t00=0x000a, t01=0x00a4}
0x1074…1092 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN5,=W'120' «, t00=0x000a, t01=0x00da}
0x1092…10ca Head {h00=0x0034, h01=0x0050, text=» MATCH CKTBUF,GSWBIN5,CBIN2,CBLANKS,CBIN0,CBIN2 «, t00=0x000a, t01=0x00f8}
0x10ca…10dc Head {h00=0x000e, h01=0x0050, text=» BE SET100«, t00=0x000a, t01=0x0130}
0x10dc…10f0 Head {h00=0x0010, h01=0x0050, text=» PERF RESTMK«, t00=0x000a, t01=0x0142}
0x10f0…110a Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN4,CBIN1«, t00=0x000a, t01=0x0156}
0x110a…112e Head {h00=0x0020, h01=0x0050, text=» CBNG GSWBIN4,=W'21',SET010 «, t00=0x000a, t01=0x0170}
0x112e…114a (11, 0, 400) Head {h00=0x0018, h01=0x0050, text=» MOVE CKTLAST,=W'21'«, t00=0x000b, t01=0x0004}
0x114a…115a Head {h00=0x000c, h01=0x0050, text=» B SETOK«, t00=0x000b, t01=0x0020}
0x115a…1168 Head {h00=0x000a, h01=0x0050, text=»SET100«, t00=0x000b, t01=0x0030}
0x1168…1184 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN5,CBIN0 «, t00=0x000b, t01=0x003e}
0x1184…11bc Head {h00=0x0034, h01=0x0050, text=» MATCH CKTBUF,GSWBIN5,CBIN2,CBLANKS,CBIN0,CBIN2 «, t00=0x000b, t01=0x005a}
0x11bc…11d0 Head {h00=0x0010, h01=0x0050, text=» BNE SET120 «, t00=0x000b, t01=0x0092}
0x11d0…11ea Head {h00=0x0016, h01=0x0050, text=» SUB GSWBIN4,CBIN1«, t00=0x000b, t01=0x00a6}
0x11ea…11fc Head {h00=0x000e, h01=0x0050, text=» BE SET120«, t00=0x000b, t01=0x00c0}
0x11fc…121a Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN5,=W'128' «, t00=0x000b, t01=0x00d2}
0x121a…1236 Head {h00=0x0018, h01=0x0050, text=» MOVE CKTBUF,CBLANKS«, t00=0x000b, t01=0x00f0}
0x1236…126c Head {h00=0x0032, h01=0x0050, text=» PERF RAREAD,DK04,=D'4',CKTBUF,GSWBIN5,GSWBIN4«, t00=0x000b, t01=0x010c}
0x126c…127a Head {h00=0x000a, h01=0x0050, text=»SET120«, t00=0x000b, t01=0x0142}
0x127a…1298 Head {h00=0x001a, h01=0x0050, text=» MOVE CKTLAST,GSWBIN4 «, t00=0x000b, t01=0x0150}
0x1298…12ac Head {h00=0x0010, h01=0x0050, text=» PERF RESTMK«, t00=0x000b, t01=0x016e}
0x12ac…12ba Head {h00=0x000a, h01=0x0050, text=»SETOK «, t00=0x000b, t01=0x0182}
0x12ba…12c6 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000b, t01=0x0190}
0x12c6…12d4 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000c, t01=0x000c}
0x12d4…12e0 Head {h00=0x0008, h01=0x0004, text=» END«, t00=0x000c, t01=0x001a}
0x12e0…12e4 Head {h00=0x4004, h01=0x0000}
0x12e4…12e8 00 0c 00 26 ┆ &┆
0x12e8…12f0 (13, 1, 8) 20 04 00 00 00 0d 00 04 ┆ ┆
0x12f0…1340 (14, 0, 400) 4f 44 5c 45 51 55 5c 2a 2d 44 57 46 44 30 31 5c 45 4e 44 20 4f 46 20 44 41 54 41 20 00 75 01 8c 00 12 00 50 5c 44 41 54 41 5c 30 2c 30 2c 30 2c 30 20 00 76 00 24 00 26 00 50 44 57 54 45 4f 45 5c 45 51 55 5c 2a 2d 44 57 46 44 30 31 5c 45 4e ┆OD EQU *-DWFD01 END OF DATA u P DATA 0,0,0,0 v $ & PDWTEOE EQU *-DWFD01 EN┆
0x1340…1390 44 20 4f 46 20 45 58 54 45 4e 54 20 00 76 00 3a 00 12 00 50 5c 44 41 54 41 5c 30 2c 30 2c 30 2c 30 20 00 76 00 64 00 2a 00 50 44 57 54 43 52 4e 5c 45 51 55 5c 2a 2d 44 57 46 44 30 31 5c 43 55 52 52 45 4e 54 20 52 45 43 4f 52 44 20 4e 4f 20 ┆D OF EXTENT v : P DATA 0,0,0,0 v d * PDWTCRN EQU *-DWFD01 CURRENT RECORD NO ┆
0x1390…13e0 00 76 00 7a 00 12 00 50 5c 44 41 54 41 5c 30 2c 30 2c 30 2c 30 20 00 76 00 a8 00 2e 00 50 44 57 54 44 53 53 5c 45 51 55 5c 2a 2d 44 57 46 44 30 31 5c 44 41 54 41 20 53 45 54 20 4c 41 42 45 4c 20 53 45 43 54 4f 52 20 00 76 00 be 00 12 00 50 ┆ v z P DATA 0,0,0,0 v . PDWTDSS EQU *-DWFD01 DATA SET LABEL SECTOR v P┆
0x13e0…1430 5c 44 41 54 41 5c 30 2c 30 2c 30 2c 30 20 00 76 00 f0 00 08 00 50 5c 58 49 46 00 76 01 06 00 06 00 50 2a 20 00 76 01 12 00 14 00 50 5c 49 46 54 5c 43 48 41 4e 2b 54 4f 53 53 3d 32 00 76 01 1c 00 12 00 50 5c 49 46 54 5c 4d 4d 55 50 41 47 3d ┆ DATA 0,0,0,0 v P XIF v P* v P IFT CHAN+TOSS=2 v P IFT MMUPAG=┆
0x1430…1480 31 20 00 76 01 34 00 18 00 50 5c 49 46 46 5c 44 53 4b 50 41 47 2b 53 57 50 42 4c 4b 3d 30 00 76 01 4a 00 18 00 50 44 57 54 3a 50 41 5c 45 51 55 5c 2a 2d 44 57 46 44 30 31 20 00 76 01 66 00 2a 00 50 5c 44 41 54 41 5c 30 5c 36 20 42 49 54 20 ┆1 v 4 P IFF DSKPAG+SWPBLK=0 v J PDWT:PA EQU *-DWFD01 v f * P DATA 0 6 BIT ┆
0x1480…14d0 (15, 0, 400) 50 48 59 53 49 43 41 4c 20 42 55 46 46 45 52 20 41 44 44 52 45 53 53 20 00 76 01 82 00 1c 00 50 5c 44 41 54 41 5c 30 5c 53 45 43 4f 4e 44 20 4d 4d 55 20 45 4e 54 52 59 00 77 00 20 00 06 00 50 2a 20 00 77 00 40 00 18 00 50 44 57 54 3a 4c 41 ┆PHYSICAL BUFFER ADDRESS v P DATA 0 SECOND MMU ENTRY w P* w @ PDWT:LA┆
0x14d0…1520 5c 45 51 55 5c 2a 2d 44 57 46 44 30 31 20 00 77 00 4a 00 2a 00 50 5c 44 41 54 41 5c 30 5c 31 36 20 42 49 54 20 4c 4f 47 49 43 41 4c 20 42 55 46 46 45 52 20 41 44 44 52 45 53 53 20 00 77 00 66 00 06 00 50 2a 20 00 77 00 94 00 18 00 50 44 57 ┆ EQU *-DWFD01 w J * P DATA 0 16 BIT LOGICAL BUFFER ADDRESS w f P* w PDW┆
0x1520…1570 54 3a 42 46 5c 45 51 55 5c 2a 2d 44 57 46 44 30 31 20 00 77 00 9e 00 24 00 50 5c 44 41 54 41 5c 30 5c 53 41 56 45 20 41 52 45 41 20 42 55 46 46 45 52 20 41 44 44 52 45 53 53 00 77 00 ba 00 08 00 50 5c 58 49 46 00 77 00 e2 00 06 00 50 2a 20 ┆T:BF EQU *-DWFD01 w $ P DATA 0 SAVE AREA BUFFER ADDRESS w P XIF w P* ┆
0x1570…15c0 00 77 00 ee 00 12 00 50 5c 49 46 54 5c 4d 4d 55 50 41 47 3d 31 20 00 77 00 f8 00 10 00 50 44 45 56 45 43 42 5c 45 51 55 5c 2a 00 77 01 0e 00 0c 00 50 5c 44 41 54 41 5c 30 20 00 77 01 22 00 10 00 50 5c 44 41 54 41 5c 46 44 3a 42 55 46 00 77 ┆ w P IFT MMUPAG=1 w PDEVECB EQU * w P DATA 0 w " P DATA FD:BUF w┆
0x15c0…1610 01 32 00 12 00 50 5c 44 41 54 41 5c 30 2c 30 2c 30 2c 30 20 00 77 01 46 00 06 00 50 2a 20 00 77 01 5c 00 12 00 50 5c 49 46 54 5c 44 45 56 49 4e 44 3d 32 20 00 77 01 66 00 18 00 50 46 44 3a 42 55 46 5c 52 45 53 5c 44 56 42 4c 45 4e 2b 31 20 ┆ 2 P DATA 0,0,0,0 w F P* w P IFT DEVIND=2 w f PFD:BUF RES DVBLEN+1 ┆
0x1610…1660 (16, 2, 152) 00 77 01 7c 00 08 00 50 5c 58 49 46 00 78 00 08 00 06 00 50 2a 20 00 78 00 14 00 12 00 50 5c 49 46 54 5c 4d 4d 55 50 41 47 3d 31 20 00 78 00 1e 00 12 00 50 5c 49 46 54 5c 44 45 56 49 4e 44 3d 34 20 00 78 00 34 00 10 00 50 46 44 3a 42 55 46 ┆ w | P XIF x P* x P IFT MMUPAG=1 x P IFT DEVIND=4 x 4 PFD:BUF┆
0x1660…16a8 5c 45 51 55 5c 30 00 78 00 4a 00 08 00 50 5c 58 49 46 00 78 00 5e 00 06 00 50 2a 20 00 78 00 6a 00 06 00 50 2a 20 00 78 00 74 00 06 00 50 2a 20 00 78 00 7e 00 08 00 50 5c 45 4e 44 00 78 00 88 40 04 00 00 00 78 00 94 ┆ EQU 0 x J P XIF x ^ P* x j P* x t P* x ~ P END x @ x ┆
0x16a8…16b0 (17, 1, 8) 20 04 00 00 00 79 00 04 ┆ y ┆