|
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: 7738 (0x1e3a)
Notes: pts_type(SC)
Names: »KTPLN.SC«
└─⟦26dca8ec8⟧ Bits:30009711 Philips computer tape "RÅKON-DIVFMT"
└─⟦this⟧ »REMIT2/KTPLN.SC«
IDENT KTPLN 820527 NJ 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 MUL GSWBIN4,CBIN3 CBG GSWBIN4,CKTMAX,KTP020 RETURN, NOT FOUND DIV GSWBIN4,CBIN3 CBL CKTINDX(GSWBIN4),=D'1',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,=' ' 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,=' ' 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,=' ' PERF RAREAD,DK04,=D'4',CKTBUF,GSWBIN5,GSWBIN4 SET120 MOVE CKTLAST,GSWBIN4 PERF RESTMK SETOK RET PEND END
0x0000…001e (0, 0, 400) Head {h00=0x001a, h01=0x0050, text=» IDENT KTPLN 820527 NJ«, t00=0x0000, t01=0x0004}
0x001e…0032 Head {h00=0x0010, h01=0x000b, text=» DDUM KMD08 «, t00=0x0000, t01=0x0022}
0x0032…0040 Head {h00=0x000a, h01=0x0005, text=» PDIV «, t00=0x0000, t01=0x0036}
0x0040…0056 Head {h00=0x0012, h01=0x0050, text=» ENTRY KTPLAN «, t00=0x0000, t01=0x0044}
0x0056…006c Head {h00=0x0012, h01=0x0050, text=» ENTRY RESTMK «, t00=0x0000, t01=0x005a}
0x006c…0080 Head {h00=0x0010, h01=0x0050, text=» ENTRY SETMK«, t00=0x0000, t01=0x0070}
0x0080…0094 Head {h00=0x0010, h01=0x0050, text=» EXT RAREAD «, t00=0x0000, t01=0x0084}
0x0094…00a6 Head {h00=0x000e, h01=0x0050, text=» EXT WAITF«, t00=0x0000, t01=0x0098}
0x00a6…00be Head {h00=0x0014, h01=0x0050, text=» INCLUDE EQUATE «, t00=0x0000, t01=0x00aa}
0x00be…00cc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0000, t01=0x00c2}
0x00cc…00ea Head {h00=0x001a, h01=0x0050, text=»KTPLAN PROC KTNR,TYPE «, t00=0x0000, t01=0x00d0}
0x00ea…0122 Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x0000, t01=0x00ee}
0x0122…012c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0126}
0x012c…016a Head {h00=0x003a, h01=0x0050, text=»* PROCEDURE FOR SEARCHING A GIVEN KONTO NO -KTNR-«, t00=0x0000, t01=0x0130}
0x016a…018c Head {h00=0x001e, h01=0x0050, text=»* ON THE 'KONTOPLAN' «, t00=0x0000, t01=0x016e}
0x018c…0196 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0190}
0x0196…01d0 Head {h00=0x0036, h01=0x0050, text=»* IF FOUND - CONDITION REGISTER IS SET TO OK «, t00=0x0001, t01=0x000a}
0x01d0…0210 Head {h00=0x003c, h01=0x0050, text=»* TYPE WILL CONTAIN THE ASSOCIATED TYPE «, t00=0x0001, t01=0x0044}
0x0210…023e Head {h00=0x002a, h01=0x0050, text=»* GSWBIN4 IS RECORD NO«, t00=0x0001, t01=0x0084}
0x023e…027e Head {h00=0x003c, h01=0x0050, text=»* GSWBIN5 POINTS TO START OF FOUND NO «, t00=0x0001, t01=0x00b2}
0x027e…02b0 Head {h00=0x002e, h01=0x0050, text=»* IF NOT FOUND - GSWBIN4 IS RECORD NO«, t00=0x0001, t01=0x00f2}
0x02b0…02ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0124}
0x02ba…02ea Head {h00=0x002c, h01=0x0050, text=»*************************************** «, t00=0x0001, t01=0x012e}
0x02ea…02f2 Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x015e}
0x02f2…0328 Head {h00=0x0032, h01=0x0050, text=»* SEARCH MASTER INDEX FOR RELEVANT RECORD«, t00=0x0001, t01=0x0166}
0x0328…0330 Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x000c}
0x0330…034c Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN4,CBIN0 «, t00=0x0002, t01=0x0014}
0x034c…035a Head {h00=0x000a, h01=0x0050, text=»KTP010«, t00=0x0002, t01=0x0030}
0x035a…0374 Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN4,CBIN1«, t00=0x0002, t01=0x003e}
0x0374…038e Head {h00=0x0016, h01=0x0050, text=» MUL GSWBIN4,CBIN3«, t00=0x0002, t01=0x0058}
0x038e…03c2 Head {h00=0x0030, h01=0x0050, text=» CBG GSWBIN4,CKTMAX,KTP020 RETURN, NOT FOUND«, t00=0x0002, t01=0x0072}
0x03c2…03dc Head {h00=0x0016, h01=0x0050, text=» DIV GSWBIN4,CBIN3«, t00=0x0002, t01=0x00a6}
0x03dc…0418 Head {h00=0x0038, h01=0x0050, text=» CBL CKTINDX(GSWBIN4),=D'1',KTP020 RETURN, NOT FOUND«, t00=0x0002, t01=0x00c0}
0x0418…045a Head {h00=0x003e, h01=0x0050, text=» CBNL CKTINDX(GSWBIN4),KTNR,KTP030 KNT.NO < MASTER ?FOUND «, t00=0x0002, t01=0x00fc}
0x045a…0474 Head {h00=0x0016, h01=0x0050, text=» B KTP010 TRY NEXT«, t00=0x0002, t01=0x013e}
0x0474…048e Head {h00=0x0016, h01=0x0050, text=»KTP020 NOT FOUND«, t00=0x0002, t01=0x0158}
0x048e…04ac Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN4,CKTLAST «, t00=0x0002, t01=0x0172}
0x04ac…04d0 Head {h00=0x0020, h01=0x0050, text=» CBNE GSWBIN4,CBIN0,KTPNOK2 «, t00=0x0002, t01=0x0190}
0x04d0…04ec Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN4,CBIN1 «, t00=0x0003, t01=0x0024}
0x04ec…04fe Head {h00=0x000e, h01=0x0050, text=» B KTPNOK2«, t00=0x0003, t01=0x0040}
0x04fe…0514 Head {h00=0x0012, h01=0x0050, text=»KTP030 FOUND«, t00=0x0003, t01=0x0052}
0x0514…0544 Head {h00=0x002c, h01=0x0050, text=» MUL GSWBIN4,CBIN3 LAST RECORD IN GROUP «, t00=0x0003, t01=0x0068}
0x0544…0574 Head {h00=0x002c, h01=0x0050, text=» SUB GSWBIN4,CBIN2 FIRST RECORD IN GROUP«, t00=0x0003, t01=0x0098}
0x0574…058e Head {h00=0x0016, h01=0x0050, text=» PERF WAITF,CKFLAG«, t00=0x0003, t01=0x00c8}
0x058e…059c Head {h00=0x000a, h01=0x0050, text=»KTP110«, t00=0x0003, t01=0x00e2}
0x059c…05ba Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN5,=W'128' «, t00=0x0003, t01=0x00f0}
0x05ba…05d4 Head {h00=0x0016, h01=0x0050, text=» MOVE CKTBUF,=' ' «, t00=0x0003, t01=0x010e}
0x05d4…0616 Head {h00=0x003e, h01=0x0050, text=» PERF RAREAD,DK04,=D'4',CKTBUF,GSWBIN5,GSWBIN4 GET RECORD «, t00=0x0003, t01=0x0128}
0x0616…063c Head {h00=0x0022, h01=0x0050, text=» BNOK KTPNOK ERROR ON READING «, t00=0x0003, t01=0x016a}
0x063c…065e Head {h00=0x001e, h01=0x0050, text=»* LOOP THROUGH BUFFER«, t00=0x0003, t01=0x0190}
0x065e…067a Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN5,CBIN0 «, t00=0x0004, t01=0x0022}
0x067a…0688 Head {h00=0x000a, h01=0x0050, text=»KTP120«, t00=0x0004, t01=0x003e}
0x0688…06a4 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD7,=D'1' «, t00=0x0004, t01=0x004c}
0x06a4…06d6 Head {h00=0x002e, h01=0x0050, text=» XCOPY GSWBCD7,CBIN1,CBIN6,CKTBUF,GSWBIN5 «, t00=0x0004, t01=0x0068}
0x06d6…06fc Head {h00=0x0022, h01=0x0050, text=» CBE GSWBCD7,KTNR,KTP200 FOUND«, t00=0x0004, t01=0x009a}
0x06fc…0728 Head {h00=0x0028, h01=0x0050, text=» CBG GSWBCD7,KTNR,KTPNOK1 NOT FOUND «, t00=0x0004, t01=0x00c0}
0x0728…0750 Head {h00=0x0024, h01=0x0050, text=» ADD GSWBIN5,CBIN8 LOOK FURTHER «, t00=0x0004, t01=0x00ec}
0x0750…0784 Head {h00=0x0030, h01=0x0050, text=» CBNG GSWBIN5,=W'120',KTP120 LOOK AT NEXT NO«, t00=0x0004, t01=0x0114}
0x0784…07b2 Head {h00=0x002a, h01=0x0050, text=» ADD GSWBIN4,CBIN1 LOOK AT NEXT RECORD«, t00=0x0004, t01=0x0148}
0x07b2…07c4 Head {h00=0x000e, h01=0x0050, text=» B KTP110 «, t00=0x0004, t01=0x0176}
0x07c4…07d2 Head {h00=0x000a, h01=0x0050, text=»KTP200«, t00=0x0004, t01=0x0188}
0x07d2…07f6 Head {h00=0x0020, h01=0x0050, text=» ADD GSWBIN5,CBIN6 GET TYPE «, t00=0x0005, t01=0x0008}
0x07f6…0822 Head {h00=0x0028, h01=0x0050, text=» MOVE GSWBCD7,=D'1' INITIATE NUMBER «, t00=0x0005, t01=0x002c}
0x0822…0854 Head {h00=0x002e, h01=0x0050, text=» XCOPY GSWBCD7,CBIN5,CBIN2,CKTBUF,GSWBIN5 «, t00=0x0005, t01=0x0058}
0x0854…086e Head {h00=0x0016, h01=0x0050, text=» MOVE TYPE,GSWBCD7«, t00=0x0005, t01=0x008a}
0x086e…0888 Head {h00=0x0016, h01=0x0050, text=» SUB GSWBIN5,CBIN6«, t00=0x0005, t01=0x00a4}
0x0888…089e Head {h00=0x0012, h01=0x0050, text=» CLEAR CKFLAG «, t00=0x0005, t01=0x00be}
0x089e…08b6 Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN0«, t00=0x0005, t01=0x00d4}
0x08b6…08c2 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0005, t01=0x00ec}
0x08c2…08d2 Head {h00=0x000c, h01=0x0050, text=»KTPNOK1 «, t00=0x0005, t01=0x00f8}
0x08d2…08e8 Head {h00=0x0012, h01=0x0050, text=» CLEAR CKFLAG «, t00=0x0005, t01=0x0108}
0x08e8…08f8 Head {h00=0x000c, h01=0x0050, text=»KTPNOK2 «, t00=0x0005, t01=0x011e}
0x08f8…0910 Head {h00=0x0014, h01=0x0050, text=» MOVE TYPE,=D'0'«, t00=0x0005, t01=0x012e}
0x0910…092c Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN5,=W'-1'«, t00=0x0005, t01=0x0146}
0x092c…0944 Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN0«, t00=0x0005, t01=0x0162}
0x0944…0950 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0005, t01=0x017a}
0x0950…095e Head {h00=0x000a, h01=0x0050, text=»KTPNOK«, t00=0x0005, t01=0x0186}
0x095e…0974 (6, 0, 400) Head {h00=0x0012, h01=0x0050, text=» CLEAR CKFLAG «, t00=0x0006, t01=0x0004}
0x0974…0996 Head {h00=0x001e, h01=0x0050, text=» MOVE TYPE,=D'0' NOT FOUND«, t00=0x0006, t01=0x001a}
0x0996…09b6 Head {h00=0x001c, h01=0x0050, text=» CMP CBIN1,CBIN0 NOT OK «, t00=0x0006, t01=0x003c}
0x09b6…09c2 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0006, t01=0x005c}
0x09c2…09d0 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0006, t01=0x0068}
0x09d0…09de Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0006, t01=0x0076}
0x09de…09f2 Head {h00=0x0010, h01=0x0050, text=»RESTMK PROC «, t00=0x0006, t01=0x0084}
0x09f2…0a1e Head {h00=0x0028, h01=0x0050, text=»************************************«, t00=0x0006, t01=0x0098}
0x0a1e…0a28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00c4}
0x0a28…0a56 Head {h00=0x002a, h01=0x0050, text=»* RESET MASTER INDEX IN KONTOPLAN«, t00=0x0006, t01=0x00ce}
0x0a56…0a78 Head {h00=0x001e, h01=0x0050, text=»* FOR RECORD GSWBIN4 «, t00=0x0006, t01=0x00fc}
0x0a78…0a82 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x011e}
0x0a82…0aae Head {h00=0x0028, h01=0x0050, text=»************************************«, t00=0x0006, t01=0x0128}
0x0aae…0ab6 Head {h00=0x0004, h01=0x0050, t00=0x0006, t01=0x0154}
0x0ab6…0ae2 Head {h00=0x0028, h01=0x0050, text=» MOVE GSWBIN3,GSWBIN4 FIND GROUP NO «, t00=0x0006, t01=0x015c}
0x0ae2…0afc Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN3,CBIN2«, t00=0x0006, t01=0x0188}
0x0afc…0b2a Head {h00=0x002a, h01=0x0050, text=» DIV GSWBIN3,CBIN3 GSWBIN3 = GROUP NO «, t00=0x0007, t01=0x0012}
0x0b2a…0b38 Head {h00=0x000a, h01=0x0050, text=»RES010«, t00=0x0007, t01=0x0040}
0x0b38…0b74 Head {h00=0x0038, h01=0x0050, text=» CBE GSWBIN4,CKTLAST,RES100 LAST RECORD ? YES: JUMP «, t00=0x0007, t01=0x004e}
0x0b74…0ba2 Head {h00=0x002a, h01=0x0050, text=» MOVE GSWBIN5,GSWBIN3 LAST IN GROUP ? «, t00=0x0007, t01=0x008a}
0x0ba2…0bbc Head {h00=0x0016, h01=0x0050, text=» MUL GSWBIN5,CBIN3«, t00=0x0007, t01=0x00b8}
0x0bbc…0bd8 Head {h00=0x0018, h01=0x0050, text=» SUB GSWBIN5,GSWBIN4«, t00=0x0007, t01=0x00d2}
0x0bd8…0c06 Head {h00=0x002a, h01=0x0050, text=» BNE RESOK FINISH IF NOT LAST IN GROUP«, t00=0x0007, t01=0x00ee}
0x0c06…0c32 Head {h00=0x0028, h01=0x0050, text=» MOVE GSWBIN5,=W'120' LAST IN GROUP «, t00=0x0007, t01=0x011c}
0x0c32…0c4e Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD7,=D'1' «, t00=0x0007, t01=0x0148}
0x0c4e…0c8c Head {h00=0x003a, h01=0x0050, text=» XCOPY GSWBCD7,CBIN1,CBIN6,CKTBUF,GSWBIN5 GET LAST NO «, t00=0x0007, t01=0x0164}
0x0c8c…0cb2 Head {h00=0x0022, h01=0x0050, text=» MOVE CKTINDX(GSWBIN3),GSWBCD7«, t00=0x0008, t01=0x0012}
0x0cb2…0cc2 Head {h00=0x000c, h01=0x0050, text=» B RESOK«, t00=0x0008, t01=0x0038}
0x0cc2…0cd0 Head {h00=0x000a, h01=0x0050, text=»RES100«, t00=0x0008, t01=0x0048}
0x0cd0…0cd8 Head {h00=0x0004, h01=0x0050, t00=0x0008, t01=0x0056}
0x0cd8…0cfa Head {h00=0x001e, h01=0x0050, text=» CBE CKTLAST,CBIN0,RES170 «, t00=0x0008, t01=0x005e}
0x0cfa…0d2e Head {h00=0x0030, h01=0x0050, text=» MOVE GSWBIN5,=W'120' FIND LAST USED NUMBER «, t00=0x0008, t01=0x0080}
0x0d2e…0d4a Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD7,=D'1' «, t00=0x0008, t01=0x00b4}
0x0d4a…0d58 Head {h00=0x000a, h01=0x0050, text=»RES110«, t00=0x0008, t01=0x00d0}
0x0d58…0d90 Head {h00=0x0034, h01=0x0050, text=» MATCH CKTBUF,GSWBIN5,CBIN1,CBLANKS,CBIN0,CBIN1 «, t00=0x0008, t01=0x00de}
0x0d90…0da2 Head {h00=0x000e, h01=0x0050, text=» BE RES150«, t00=0x0008, t01=0x0116}
0x0da2…0dd4 Head {h00=0x002e, h01=0x0050, text=» XCOPY GSWBCD7,CBIN1,CBIN6,CKTBUF,GSWBIN5 «, t00=0x0008, t01=0x0128}
0x0dd4…0e0c Head {h00=0x0034, h01=0x0050, text=» MOVE CKTINDX(GSWBIN3),GSWBCD7 SET MASTER INDEX «, t00=0x0008, t01=0x015a}
0x0e0c…0e1a (9, 0, 398) Head {h00=0x000a, h01=0x0050, text=»RES120«, t00=0x0009, t01=0x0004}
0x0e1a…0e52 Head {h00=0x0034, h01=0x0050, text=» ADD GSWBIN3,CBIN1 SET REMAINING INDICES TO ZERO«, t00=0x0009, t01=0x0012}
0x0e52…0e6c Head {h00=0x0016, h01=0x0050, text=» MUL GSWBIN3,CBIN3«, t00=0x0009, t01=0x004a}
0x0e6c…0e8e Head {h00=0x001e, h01=0x0050, text=» CBG GSWBIN3,CKTMAX,RESOK «, t00=0x0009, t01=0x0064}
0x0e8e…0ea8 Head {h00=0x0016, h01=0x0050, text=» DIV GSWBIN3,CBIN3«, t00=0x0009, t01=0x0086}
0x0ea8…0ecc Head {h00=0x0020, h01=0x0050, text=» MOVE CKTINDX(GSWBIN3),=D'0'«, t00=0x0009, t01=0x00a0}
0x0ecc…0ede Head {h00=0x000e, h01=0x0050, text=» B RES120 «, t00=0x0009, t01=0x00c4}
0x0ede…0eec Head {h00=0x000a, h01=0x0050, text=»RES150«, t00=0x0009, t01=0x00d6}
0x0eec…0f06 Head {h00=0x0016, h01=0x0050, text=» SUB GSWBIN5,CBIN8«, t00=0x0009, t01=0x00e4}
0x0f06…0f1a Head {h00=0x0010, h01=0x0050, text=» BNL RES110 «, t00=0x0009, t01=0x00fe}
0x0f1a…0f28 Head {h00=0x000a, h01=0x0050, text=»RES170«, t00=0x0009, t01=0x0112}
0x0f28…0f44 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN3,CBIN0 «, t00=0x0009, t01=0x0120}
0x0f44…0f56 Head {h00=0x000e, h01=0x0050, text=» B RES120 «, t00=0x0009, t01=0x013c}
0x0f56…0f64 Head {h00=0x000a, h01=0x0050, text=»RESOK «, t00=0x0009, t01=0x014e}
0x0f64…0f70 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0009, t01=0x015c}
0x0f70…0f7e Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0009, t01=0x0168}
0x0f7e…0f8c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x0176}
0x0f8c…0f9e Head {h00=0x000e, h01=0x0050, text=»SETMK PROC«, t00=0x0009, t01=0x0184}
0x0f9e…0fc2 Head {h00=0x0020, h01=0x0050, text=»****************************«, t00=0x000a, t01=0x0008}
0x0fc2…0fcc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x002c}
0x0fcc…1002 Head {h00=0x0032, h01=0x0050, text=»* INITIATE MASTER INDEX FOR 'KONTOPLAN' «, t00=0x000a, t01=0x0036}
0x1002…100c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x006c}
0x100c…1030 Head {h00=0x0020, h01=0x0050, text=»****************************«, t00=0x000a, t01=0x0076}
0x1030…1038 Head {h00=0x0004, h01=0x0050, t00=0x000a, t01=0x009a}
0x1038…1054 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN4,CBIN1 «, t00=0x000a, t01=0x00a2}
0x1054…1062 Head {h00=0x000a, h01=0x0050, text=»SET010«, t00=0x000a, t01=0x00be}
0x1062…1080 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN5,=W'128' «, t00=0x000a, t01=0x00cc}
0x1080…109a Head {h00=0x0016, h01=0x0050, text=» MOVE CKTBUF,=' ' «, t00=0x000a, t01=0x00ea}
0x109a…10d0 Head {h00=0x0032, h01=0x0050, text=» PERF RAREAD,DK04,=D'4',CKTBUF,GSWBIN5,GSWBIN4«, t00=0x000a, t01=0x0104}
0x10d0…10ee Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN5,=W'120' «, t00=0x000a, t01=0x013a}
0x10ee…1126 Head {h00=0x0034, h01=0x0050, text=» MATCH CKTBUF,GSWBIN5,CBIN2,CBLANKS,CBIN0,CBIN2 «, t00=0x000a, t01=0x0158}
0x1126…1138 Head {h00=0x000e, h01=0x0050, text=» BE SET100«, t00=0x000a, t01=0x0190}
0x1138…114c Head {h00=0x0010, h01=0x0050, text=» PERF RESTMK«, t00=0x000b, t01=0x0012}
0x114c…1166 Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN4,CBIN1«, t00=0x000b, t01=0x0026}
0x1166…118a Head {h00=0x0020, h01=0x0050, text=» CBNG GSWBIN4,CKTMAX,SET010 «, t00=0x000b, t01=0x0040}
0x118a…11a6 Head {h00=0x0018, h01=0x0050, text=» MOVE CKTLAST,CKTMAX«, t00=0x000b, t01=0x0064}
0x11a6…11b6 Head {h00=0x000c, h01=0x0050, text=» B SETOK«, t00=0x000b, t01=0x0080}
0x11b6…11c4 Head {h00=0x000a, h01=0x0050, text=»SET100«, t00=0x000b, t01=0x0090}
0x11c4…11e0 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN5,CBIN0 «, t00=0x000b, t01=0x009e}
0x11e0…1218 Head {h00=0x0034, h01=0x0050, text=» MATCH CKTBUF,GSWBIN5,CBIN2,CBLANKS,CBIN0,CBIN2 «, t00=0x000b, t01=0x00ba}
0x1218…122c Head {h00=0x0010, h01=0x0050, text=» BNE SET120 «, t00=0x000b, t01=0x00f2}
0x122c…1246 Head {h00=0x0016, h01=0x0050, text=» SUB GSWBIN4,CBIN1«, t00=0x000b, t01=0x0106}
0x1246…1258 Head {h00=0x000e, h01=0x0050, text=» BE SET120«, t00=0x000b, t01=0x0120}
0x1258…1276 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN5,=W'128' «, t00=0x000b, t01=0x0132}
0x1276…1290 Head {h00=0x0016, h01=0x0050, text=» MOVE CKTBUF,=' ' «, t00=0x000b, t01=0x0150}
0x1290…12c6 Head {h00=0x0032, h01=0x0050, text=» PERF RAREAD,DK04,=D'4',CKTBUF,GSWBIN5,GSWBIN4«, t00=0x000b, t01=0x016a}
0x12c6…12d4 Head {h00=0x000a, h01=0x0050, text=»SET120«, t00=0x000c, t01=0x0010}
0x12d4…12f2 Head {h00=0x001a, h01=0x0050, text=» MOVE CKTLAST,GSWBIN4 «, t00=0x000c, t01=0x001e}
0x12f2…1306 Head {h00=0x0010, h01=0x0050, text=» PERF RESTMK«, t00=0x000c, t01=0x003c}
0x1306…1314 Head {h00=0x000a, h01=0x0050, text=»SETOK «, t00=0x000c, t01=0x0050}
0x1314…1320 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000c, t01=0x005e}
0x1320…132e Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000c, t01=0x006a}
0x132e…133a Head {h00=0x0008, h01=0x0004, text=» END«, t00=0x000c, t01=0x0078}
0x133a…133e Head {h00=0x4004, h01=0x0000}
0x133e…1342 00 0c 00 84 ┆ ┆
0x1342…134a (13, 1, 8) 20 04 00 00 00 0d 00 04 ┆ ┆
0x134a…139a (14, 0, 400) 00 2e 00 50 20 43 42 4e 45 20 47 53 57 42 49 4e 33 2c 43 42 49 4e 31 33 2c 52 47 52 30 33 36 20 41 52 4b 49 56 2e 4b 4e 54 2e 4e 4f 2e 20 00 3e 00 04 00 24 00 50 20 54 42 54 20 43 57 46 4c 41 47 2c 52 47 52 30 33 30 20 4e 4f 54 20 4b 4f 4c ┆ . P CBNE GSWBIN3,CBIN13,RGR036 ARKIV.KNT.NO. > $ P TBT CWFLAG,RGR030 NOT KOL┆
0x139a…13ea 44 53 54 41 52 54 00 3e 00 36 00 0a 00 50 52 47 52 30 33 36 00 3e 00 5e 00 22 00 50 5c 5c 5c 55 50 44 41 54 45 20 47 54 44 55 50 46 2c 47 54 52 45 47 46 2c 47 54 55 53 45 44 00 3e 00 6c 00 32 00 50 20 4d 4f 56 45 20 47 53 57 42 49 4e 34 2c ┆DSTART > 6 PRGR036 > ^ " P UPDATE GTDUPF,GTREGF,GTUSED > l 2 P MOVE GSWBIN4,┆
0x13ea…143a 43 46 4c 54 44 45 58 28 47 53 57 42 49 4e 33 29 20 47 53 57 42 49 4e 33 3d 46 49 45 4c 44 4e 52 00 3e 00 92 00 22 00 50 20 4d 4f 56 45 20 47 54 55 53 45 44 28 47 53 57 42 49 4e 34 29 2c 47 53 57 42 49 4e 33 20 00 3e 00 c8 00 28 00 50 20 43 ┆CFLTDEX(GSWBIN3) GSWBIN3=FIELDNR > " P MOVE GTUSED(GSWBIN4),GSWBIN3 > ( P C┆
0x143a…148a 42 4c 20 47 54 55 53 45 44 28 47 53 57 42 49 4e 34 29 2c 3d 57 27 39 30 27 2c 52 47 52 30 33 36 41 20 00 3e 00 ee 00 28 00 50 20 43 42 47 20 47 54 55 53 45 44 28 47 53 57 42 49 4e 34 29 2c 3d 57 27 39 34 27 2c 52 47 52 30 33 36 41 20 00 3e ┆BL GTUSED(GSWBIN4),=W'90',RGR036A > ( P CBG GTUSED(GSWBIN4),=W'94',RGR036A >┆
0x148a…14da 01 1a 00 0e 00 50 20 42 20 52 47 52 30 33 30 20 00 3e 01 46 00 0c 00 50 52 47 52 30 33 36 41 20 00 3e 01 58 00 22 00 50 20 4d 4f 56 45 20 47 54 44 55 50 46 28 47 53 57 42 49 4e 34 29 2c 47 53 57 53 54 52 32 30 00 3e 01 68 00 22 00 50 20 4d ┆ P B RGR030 > F PRGR036A > X " P MOVE GTDUPF(GSWBIN4),GSWSTR20 > h " P M┆
0x14da…152a (15, 0, 400) 4f 56 45 20 47 54 52 45 47 46 28 47 53 57 42 49 4e 34 29 2c 47 53 57 53 54 52 32 30 00 3e 01 8e 00 28 00 50 20 43 42 45 20 47 53 57 42 49 4e 33 2c 43 42 49 4e 39 2c 52 47 52 30 36 30 20 44 2f 4b 20 4d 41 52 4b 3f 20 00 3f 00 24 00 34 00 50 ┆OVE GTREGF(GSWBIN4),GSWSTR20 > ( P CBE GSWBIN3,CBIN9,RGR060 D/K MARK? ? $ 4 P┆
0x152a…157a 20 43 42 47 20 47 54 52 45 47 44 45 58 2c 43 42 49 4e 31 35 2c 52 47 52 30 33 36 44 20 4f 4e 4c 59 20 46 4f 52 20 54 52 41 4e 53 20 31 2d 32 39 00 3f 00 50 00 36 00 50 20 43 42 4e 45 20 47 53 57 42 49 4e 33 2c 43 42 49 4e 36 2c 52 47 52 30 ┆ CBG GTREGDEX,CBIN15,RGR036D ONLY FOR TRANS 1-29 ? P 6 P CBNE GSWBIN3,CBIN6,RGR0┆
0x157a…15ca 33 36 44 20 4f 4e 4c 59 20 46 49 45 4c 44 20 36 2c 20 43 50 52 2f 43 49 52 20 00 3f 00 88 00 18 00 50 5c 5c 5c 48 41 4e 44 4c 45 20 43 50 52 2f 43 49 52 20 4e 4f 00 3f 00 c2 00 0e 00 50 20 53 45 54 20 42 43 50 52 20 00 3f 00 de 00 2e 00 50 ┆36D ONLY FIELD 6, CPR/CIR ? P HANDLE CPR/CIR NO ? P SET BCPR ? . P┆
0x15ca…161a 20 43 42 4c 20 47 54 44 55 50 46 28 47 53 57 42 49 4e 34 29 2c 3d 44 27 31 30 30 30 30 30 30 30 27 2c 52 47 52 30 33 36 43 20 00 3f 00 f0 00 0e 00 50 20 53 45 54 20 42 4c 45 56 20 00 3f 01 22 00 30 00 50 20 43 42 47 20 47 54 44 55 50 46 28 ┆ CBL GTDUPF(GSWBIN4),=D'10000000',RGR036C ? P SET BLEV ? " 0 P CBG GTDUPF(┆
0x161a…166a 47 53 57 42 49 4e 34 29 2c 3d 44 27 33 39 30 30 30 30 30 30 30 30 27 2c 52 47 52 30 33 36 44 20 00 3f 01 34 00 10 00 50 20 43 4c 45 41 52 20 42 4c 45 56 20 00 3f 01 68 00 0e 00 50 20 42 20 52 47 52 30 33 36 44 00 3f 01 7c 00 0c 00 50 52 47 ┆GSWBIN4),=D'3900000000',RGR036D ? 4 P CLEAR BLEV ? h P B RGR036D ? | PRG┆
0x166a…16ba (16, 0, 400) 52 30 33 36 43 20 00 3f 01 8e 00 10 00 50 20 43 4c 45 41 52 20 42 43 50 52 20 00 40 00 0e 00 0c 00 50 52 47 52 30 33 36 44 20 00 40 00 22 00 1c 00 50 5c 5c 5c 45 4e 44 20 48 41 4e 44 4c 45 20 43 50 52 2f 43 49 52 20 4e 4f 00 40 00 32 00 1a ┆R036C ? P CLEAR BCPR @ PRGR036D @ " P END HANDLE CPR/CIR NO @ 2 ┆
0x16ba…170a 00 50 5c 5c 5c 43 48 45 43 4b 20 49 46 20 57 49 54 48 20 53 49 47 4e 20 00 40 00 52 00 18 00 50 20 4d 4f 56 45 20 47 53 57 42 49 4e 33 2c 43 42 49 4e 30 20 00 40 00 70 00 18 00 50 20 4d 4f 56 45 20 47 53 57 53 54 52 32 2c 3d 43 27 2d 27 20 ┆ P CHECK IF WITH SIGN @ R P MOVE GSWBIN3,CBIN0 @ p P MOVE GSWSTR2,=C'-' ┆
0x170a…175a 00 40 00 8c 00 36 00 50 20 4d 41 54 43 48 20 47 53 57 53 54 52 32 30 2c 47 53 57 42 49 4e 33 2c 43 42 49 4e 32 30 2c 47 53 57 53 54 52 32 2c 43 42 49 4e 30 2c 43 42 49 4e 31 00 40 00 a8 00 10 00 50 20 42 4e 45 20 52 47 52 30 34 30 20 00 40 ┆ @ 6 P MATCH GSWSTR20,GSWBIN3,CBIN20,GSWSTR2,CBIN0,CBIN1 @ P BNE RGR040 @┆
0x175a…17aa 00 e2 00 20 00 50 20 4d 55 4c 20 47 54 55 53 45 44 28 47 53 57 42 49 4e 34 29 2c 3d 57 27 2d 31 27 20 00 40 00 f6 00 20 00 50 20 4d 55 4c 20 47 54 44 55 50 46 28 47 53 57 42 49 4e 34 29 2c 3d 44 27 2d 31 27 20 00 40 01 1a 00 20 00 50 20 4d ┆ P MUL GTUSED(GSWBIN4),=W'-1' @ P MUL GTDUPF(GSWBIN4),=D'-1' @ P M┆
0x17aa…17fa 55 4c 20 47 54 52 45 47 46 28 47 53 57 42 49 4e 34 29 2c 3d 44 27 2d 31 27 20 00 40 01 3e 00 0e 00 50 20 42 20 52 47 52 30 33 30 20 00 40 01 62 00 0a 00 50 52 47 52 30 33 37 00 40 01 74 00 2a 00 50 20 4d 4f 56 45 20 47 53 57 42 43 44 35 2c ┆UL GTREGF(GSWBIN4),=D'-1' @ > P B RGR030 @ b PRGR037 @ t * P MOVE GSWBCD5,┆
0x17fa…184a (17, 0, 400) 47 53 57 53 54 52 32 20 43 4f 4e 56 45 52 54 20 46 49 45 4c 44 4e 42 52 00 40 01 82 00 20 00 50 20 4d 4f 56 45 20 47 53 57 42 49 4e 31 2c 47 53 57 42 43 44 35 20 54 4f 20 42 49 4e 00 41 00 20 00 10 00 50 20 53 45 54 20 54 46 45 4c 54 39 30 ┆GSWSTR2 CONVERT FIELDNBR @ P MOVE GSWBIN1,GSWBCD5 TO BIN A P SET TFELT90┆
0x184a…189a 00 41 00 44 00 18 00 50 20 53 55 42 20 47 53 57 42 49 4e 31 2c 3d 57 27 38 39 27 20 00 41 00 58 00 1e 00 50 20 43 42 47 20 47 53 57 42 49 4e 31 2c 43 42 49 4e 35 2c 52 47 52 30 33 35 41 00 41 00 74 00 3a 00 50 20 58 43 4f 50 59 20 47 54 46 ┆ A D P SUB GSWBIN1,=W'89' A X P CBG GSWBIN1,CBIN5,RGR035A A t : P XCOPY GTF┆
0x189a…18ea 45 4c 54 39 30 28 47 53 57 42 49 4e 31 29 2c 43 42 49 4e 30 2c 47 53 57 42 49 4e 33 2c 43 50 43 4b 42 55 46 2c 47 53 57 42 49 4e 34 00 41 00 96 00 0e 00 50 20 42 20 52 47 52 30 33 35 41 00 41 00 d4 00 0a 00 50 52 47 52 30 34 30 00 41 00 e6 ┆ELT90(GSWBIN1),CBIN0,GSWBIN3,CPCKBUF,GSWBIN4 A P B RGR035A A PRGR040 A ┆
0x18ea…193a 00 18 00 50 20 4d 4f 56 45 20 47 53 57 42 49 4e 33 2c 43 42 49 4e 30 20 00 41 00 f4 00 36 00 50 20 4d 41 54 43 48 20 43 42 4c 41 4e 4b 53 30 2c 47 53 57 42 49 4e 33 2c 43 42 49 4e 32 30 2c 43 42 4c 41 4e 4b 53 2c 43 42 49 4e 30 2c 43 42 49 ┆ P MOVE GSWBIN3,CBIN0 A 6 P MATCH CBLANKS0,GSWBIN3,CBIN20,CBLANKS,CBIN0,CBI┆
0x193a…198a 4e 31 00 41 01 10 00 10 00 50 20 42 4e 45 20 52 47 52 30 33 30 20 00 41 01 4a 00 20 00 50 20 4d 55 4c 20 47 54 55 53 45 44 28 47 53 57 42 49 4e 34 29 2c 3d 57 27 2d 31 27 20 00 41 01 5e 00 0e 00 50 20 42 20 52 47 52 30 33 30 20 00 41 01 82 ┆N1 A P BNE RGR030 A J P MUL GTUSED(GSWBIN4),=W'-1' A ^ P B RGR030 A ┆
0x198a…19da (18, 0, 400) 00 1a 00 50 52 47 52 30 36 30 5c 5c 5c 53 45 54 20 44 2f 4b 20 49 4e 46 4f 20 00 42 00 04 00 22 00 50 20 4d 4f 56 45 20 47 53 57 42 49 4e 33 2c 47 54 44 55 50 46 28 47 53 57 42 49 4e 34 29 20 00 42 00 22 00 20 00 50 20 50 45 52 46 49 20 47 ┆ PRGR060 SET D/K INFO B " P MOVE GSWBIN3,GTDUPF(GSWBIN4) B " P PERFI G┆
0x19da…1a2a 53 57 42 49 4e 33 2c 53 45 54 4b 52 45 2c 53 45 54 44 45 42 00 42 00 48 00 0e 00 50 20 42 20 52 47 52 30 33 30 20 00 42 00 6c 00 0a 00 50 52 47 52 31 30 30 00 42 00 7e 00 14 00 50 5c 5c 5c 45 4e 44 20 4f 46 20 52 45 43 4f 52 44 00 42 00 8c ┆SWBIN3,SETKRE,SETDEB B H P B RGR030 B l PRGR100 B ~ P END OF RECORD B ┆
0x1a2a…1a7a 00 18 00 50 20 4d 4f 56 45 20 47 53 57 53 54 52 32 2c 3d 58 27 37 46 27 00 42 00 a4 00 22 00 50 20 4d 4f 56 45 20 47 53 57 42 49 4e 36 2c 47 53 57 42 49 4e 34 20 52 45 53 54 4f 52 45 20 00 42 00 c0 00 36 00 50 20 4d 41 54 43 48 20 43 50 43 ┆ P MOVE GSWSTR2,=X'7F' B " P MOVE GSWBIN6,GSWBIN4 RESTORE B 6 P MATCH CPC┆
0x1a7a…1aca 4b 42 55 46 2c 47 53 57 42 49 4e 36 2c 47 53 57 42 49 4e 35 2c 47 53 57 53 54 52 32 2c 43 42 49 4e 30 2c 43 42 49 4e 31 00 42 00 e6 00 10 00 50 20 42 4e 45 20 52 47 52 31 31 30 20 00 42 01 20 00 10 00 50 20 53 45 54 20 43 45 4f 52 46 4c 47 ┆KBUF,GSWBIN6,GSWBIN5,GSWSTR2,CBIN0,CBIN1 B P BNE RGR110 B P SET CEORFLG┆
0x1aca…1b1a 00 42 01 34 00 0e 00 50 20 42 20 52 47 52 30 33 35 20 00 42 01 48 00 0a 00 50 52 47 52 31 31 30 00 42 01 5a 00 24 00 50 20 4d 4f 56 45 20 47 53 57 53 54 52 32 2c 3d 43 27 21 27 20 43 4f 4e 54 2e 20 52 45 43 4f 52 44 00 42 01 68 00 1a 00 50 ┆ B 4 P B RGR035 B H PRGR110 B Z $ P MOVE GSWSTR2,=C'!' CONT. RECORD B h P┆
0x1b1a…1b6a (19, 0, 400) 20 4d 4f 56 45 20 47 53 57 42 49 4e 36 2c 47 53 57 42 49 4e 34 20 00 42 01 90 00 36 00 50 20 4d 41 54 43 48 20 43 50 43 4b 42 55 46 2c 47 53 57 42 49 4e 36 2c 47 53 57 42 49 4e 35 2c 47 53 57 53 54 52 32 2c 43 42 49 4e 30 2c 43 42 49 4e 31 ┆ MOVE GSWBIN6,GSWBIN4 B 6 P MATCH CPCKBUF,GSWBIN6,GSWBIN5,GSWSTR2,CBIN0,CBIN1┆
0x1b6a…1bba 00 43 00 1e 00 10 00 50 20 42 4e 45 20 52 47 52 52 45 54 32 00 43 00 58 00 20 00 50 20 44 4c 45 54 45 20 43 50 43 4b 42 55 46 2c 43 42 49 4e 30 2c 47 53 57 42 49 4e 34 00 43 00 6c 00 1a 00 50 20 4d 4f 56 45 20 53 50 49 4e 50 55 54 2c 43 50 ┆ C P BNE RGRRET2 C X P DLETE CPCKBUF,CBIN0,GSWBIN4 C l P MOVE SPINPUT,CP┆
0x1bba…1c0a 43 4b 42 55 46 20 00 43 00 90 00 16 00 50 20 41 44 44 20 43 54 57 42 49 4e 31 2c 43 42 49 4e 31 00 43 00 ae 00 16 00 50 20 54 42 54 20 43 57 46 4c 41 47 2c 52 47 52 31 31 33 00 43 00 c8 00 20 00 50 20 41 44 44 20 43 52 45 43 4e 52 2c 43 42 ┆CKBUF C P ADD CTWBIN1,CBIN1 C P TBT CWFLAG,RGR113 C P ADD CRECNR,CB┆
0x1c0a…1c5a 49 4e 31 20 4b 4f 4c 44 53 54 41 52 54 20 00 43 00 e2 00 0a 00 50 52 47 52 31 31 33 00 43 01 06 00 16 00 50 20 41 44 44 20 47 53 57 42 43 44 32 2c 3d 44 27 31 27 00 43 01 14 00 1a 00 50 20 4d 4f 56 45 20 47 53 57 42 49 4e 31 2c 3d 57 27 31 ┆IN1 KOLDSTART C PRGR113 C P ADD GSWBCD2,=D'1' C P MOVE GSWBIN1,=W'1┆
0x1c5a…1caa 32 38 27 20 00 43 01 2e 00 32 00 50 20 4d 4f 56 45 20 47 53 57 42 49 4e 31 30 2c 43 54 57 42 49 4e 31 20 53 41 56 45 20 46 4f 52 20 44 45 4c 45 54 45 20 50 55 52 50 4f 53 45 00 43 01 4c 00 32 00 50 20 50 45 52 46 20 52 41 52 45 41 44 2c 44 ┆28' C . 2 P MOVE GSWBIN10,CTWBIN1 SAVE FOR DELETE PURPOSE C L 2 P PERF RAREAD,D┆
0x1caa…1cfa (20, 0, 400) 53 45 54 2c 24 44 4e 52 2c 43 50 43 4b 42 55 46 2c 47 53 57 42 49 4e 31 2c 43 54 57 42 49 4e 31 00 43 01 82 00 12 00 50 20 42 4e 4f 4b 20 52 47 52 52 45 54 32 20 00 44 00 28 00 14 00 50 5c 5c 5c 44 45 4c 45 54 45 20 48 45 41 44 45 52 00 44 ┆SET,$DNR,CPCKBUF,GSWBIN1,CTWBIN1 C P BNOK RGRRET2 D ( P DELETE HEADER D┆
0x1cfa…1d4a 00 3e 00 20 00 50 20 44 4c 45 54 45 20 43 50 43 4b 42 55 46 2c 43 42 49 4e 30 2c 43 42 49 4e 31 31 20 00 44 00 56 00 2a 00 50 20 4d 4f 56 45 20 47 53 57 42 49 4e 36 2c 43 42 49 4e 30 20 49 4e 53 45 52 54 20 53 41 56 45 44 20 49 4e 46 4f 20 ┆ > P DLETE CPCKBUF,CBIN0,CBIN11 D V * P MOVE GSWBIN6,CBIN0 INSERT SAVED INFO ┆
0x1d4a…1d9a 00 44 00 7a 00 16 00 50 20 4d 4f 56 45 20 47 53 57 53 54 52 32 2c 3d 27 20 27 00 44 00 a8 00 20 00 50 20 43 42 45 20 43 52 45 43 4c 47 44 2c 3d 57 27 31 32 38 27 2c 52 47 52 31 31 35 20 00 44 00 c2 00 18 00 50 20 4d 4f 56 45 20 47 53 57 53 ┆ D z P MOVE GSWSTR2,=' ' D P CBE CRECLGD,=W'128',RGR115 D P MOVE GSWS┆
0x1d9a…1dea 54 52 32 2c 3d 58 27 30 30 27 00 44 00 e6 00 0a 00 50 52 47 52 31 31 35 00 44 01 02 00 18 00 50 20 4d 4f 56 45 20 47 53 57 42 49 4e 31 2c 3d 57 27 33 35 27 00 44 01 10 00 36 00 50 20 4d 41 54 43 48 20 53 50 49 4e 50 55 54 2c 47 53 57 42 49 ┆TR2,=X'00' D PRGR115 D P MOVE GSWBIN1,=W'35' D 6 P MATCH SPINPUT,GSWBI┆
0x1dea…1e3a 4e 36 2c 47 53 57 42 49 4e 31 2c 47 53 57 53 54 52 32 2c 43 42 49 4e 30 2c 43 42 49 4e 31 00 44 01 2c 00 16 00 50 20 53 55 42 20 47 53 57 42 49 4e 36 2c 43 42 49 4e 31 00 44 01 66 00 2e 00 50 20 49 4e 53 52 54 20 43 50 43 4b 42 55 46 2c 43 ┆N6,GSWBIN1,GSWSTR2,CBIN0,CBIN1 D , P SUB GSWBIN6,CBIN1 D f . P INSRT CPCKBUF,C┆