|
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: 7924 (0x1ef4)
Notes: pts_type(SC)
Names: »REMPRT.SC«
└─⟦26dca8ec8⟧ Bits:30009711 Philips computer tape "RÅKON-DIVFMT"
└─⟦this⟧ »REMIT2/REMPRT.SC«
IDENT REMPRT 820823 NJ DDUM KMD08 PDIV ENTRY AD4100 ENTRY AD4200 ENTRY AD4300 EXT ADMRET EXT SPCLRA EXT CHDATO EXT BDTSCA EXT BDTPRT EXT BDTDEL EXT YYMMDD EJECT AD4100 * CREATE PRINTLEV TBT CAD41FLG,AD41EX OCCUPIED? SET CAD41FLG NO, RESERVE ALL FILES TBF CBUDTFLG,AD41END SET SPPROMPT ATTFMT ADM41FRM PERF SPCLRA CBNE SPBINW2,CBIN3,AD41END ADD TRANSACTIONS TO PRINTLEV CBL GTPRTTIL,=D'1',ADM4120 SET CADVIS MOVE GTBSUM1,=D'0' MOVE GTBSUM2,=D'0' MOVE GTBSUM3,=D'0' TBT GTGTPFLG,ADM4125 TBT GTLPFLG,ADM4125 B AD41RET ADM4120 TBF GTTTPFLG,AD41RET ADM4125 CBNL GTLEVNR,=D'19',ADM4130 MOVE GTLEVNR,=D'19' 1. LEVNR ADM4130 PERF YYMMDD,GTPRTDAT MOVE GTPRTDAT,GSWBCD7 PERF BDTSCA AD41RET CLEAR CADVIS MOVE GTBSUM1,=D'0' MOVE GTBSUM2,=D'0' MOVE GTBSUM3,=D'0' AD41END CLEAR CAD41FLG AD41EX B ADMRET EJECT AD4200 * PRINT PRINTLEV TBF CBUDTFLG,AD42RET TBT GTGTPFLG,ADM4210 TBT GTLPFLG,ADM4210 B AD42RET ADM4210 CLEAR CKRESP SET SPPROMPT ATTFMT ADM42FRM PERF SPCLRA CBNE SPBINW2,CBIN3,AD42RET CLEAR CBDTGIR CBNE GTPRTTIL,=D'2',ADM4222 SET CBDTGIR ADM4222 CBNL GTPRTFRA,=D'1',ADM4225 MOVE GTPRTFRA,=D'10000000000' ADM4225 MOVE GTLEVNR,GTPRTTIL CBL GTLEVNR,=D'6',ADM4230 SUB GTLEVNR,=D'5' ADM4230 MOVE GTPRTTIL,GTLEVNR MOVE GTBSUM1,=D'0' MOVE GTBSUM2,=D'0' MOVE GTBSUM3,=D'0' PERF BDTPRT,CBIN1 CHECK/GIRO BNOK AD42RET MOVE GSWSTR20,='SAMLERLISTE ' ATTFMT ADM42FM2 PERF SPCLRA CBNE SPBINW2,CBIN3,AD42RET MOVE GTLEVNR,GTPRTTIL MOVE GTBSUM1,=D'0' MOVE GTBSUM2,=D'0' MOVE GTBSUM3,=D'0' PERF BDTPRT,CBIN2 BNOK AD42RET MOVE GSWSTR20,='SPECIFIKATION ' ATTFMT ADM42FM2 PERF SPCLRA CBNE SPBINW2,CBIN3,AD42RET MOVE GTLEVNR,GTPRTTIL SET CKRESP ADD GTLEVNR,=D'10' POINT TO SPECIFICATIONS MOVE GTBSUM1,=D'0' MOVE GTBSUM2,=D'0' MOVE GTBSUM3,=D'0' PERF BDTPRT,CBIN3 KREDIT SPECIFICATIONS CLEAR CKRESP * AD42RET CLEAR CBDTGIR B ADMRET EJECT AD4300 * CLEAN PRINTLEV TBF CBUDTFLG,AD43END TBT CAD41FLG,AD43END SET CAD41FLG SET SPPROMPT ATTFMT ADM43FRM PERF SPCLRA CBNE SPBINW2,CBIN3,AD43RET MOVE GTLEVNR,GTPRTFRA CBL GTLEVNR,=D'6',ADM4320 SUB GTLEVNR,=D'5' ADM4320 PERF BDTDEL BNOK AD43RET MOVE GTLEVNR,GTPRTFRA CBL GTLEVNR,=D'6',ADM4330 SUB GTLEVNR,=D'5' ADM4330 ADD GTLEVNR,=D'10' PERF BDTDEL DELETE CREDIT SPECIFICATIONS * AD43RET CLEAR CAD41FLG AD43END B ADMRET EJECT ********** * * FORMATS * ********** * ADM41FRM FRMT FSL FCOPY ='DAN ' FCOPY ='PRINT' FCOPY ='FIL' FILLR ' ',1 FCOPY ='BUNDTREMITTERING' FNL FCOPY ='VAL' FILLR X'5C',1 FILLR 'R',1 FCOPY ='DATO' FLINK ADM4X1 FNL FCOPY ='BFO' FKI 25,MINL=1,MAXL=1,NUM,ME FMEL 'X',GTPRTFRA FNL FCOPY ='ADVI' FCOPY ='SLISTE' FCOPY =' (0-1)' FKI 25,MINL=1,MAXL=1,NUM,ME FMEL 'X',GTPRTTIL FNL FCOPY ='FRA LEV. ' FCOPY ='NR' FKI 20,MINL=7,MAXL=10,NUM,SCHK=7 FMEL 'XXXXXXXXXX',GTLEVNR FMEND * ADM42FRM FRMT FSL FCOPY ='PRINT' FCOPY ='RUTINE ' FCOPY ='BUNDTREMITTERING' FNL FCOPY ='UDSKRIFT ' FCOPY ='DATO' FLINK ADM4X1 FNL FCOPY ='BFO' FKI 25,MINL=1,MAXL=1,NUM,ME FMEL 'X',GTPRTTIL FNL FCOPY ='FRA LEV. ' FCOPY ='NR' FKI 20,MINL=7,MAXL=10,NUM,SCHK=7 FMEL 'XXXXXXXXXX',GTPRTFRA FMEND * ADM42FM2 FRMT FSL FCOPY GSWSTR20 FNL FKI 1 FMEL 'B',TSWBCD2 FMEND * ADM43FRM FRMT FSL FCOPY ='SLET ' FCOPY ='RUTINE ' FCOPY ='BUNDTREMITTERING' FNL FCOPY ='BFO' FKI 25,MINL=1,MAXL=1,NUM,ME FMEL 'X',GTPRTFRA FMEND * ADM4X1 FRMT FKI 20,MINL=6,MAXL=6,NUM,SCHK=2,REWRT,ME FMEL 'XXVXXVXX',GTPRTDAT FMEND * * END
0x0000…0020 (0, 0, 400) Head {h00=0x001c, h01=0x0050, text=» IDENT REMPRT 820823 NJ «, t00=0x0000, t01=0x0004}
0x0020…0034 Head {h00=0x0010, h01=0x0050, text=» DDUM KMD08 «, t00=0x0000, t01=0x0024}
0x0034…0042 Head {h00=0x000a, h01=0x0050, text=» PDIV «, t00=0x0000, t01=0x0038}
0x0042…0058 Head {h00=0x0012, h01=0x0050, text=» ENTRY AD4100 «, t00=0x0000, t01=0x0046}
0x0058…006e Head {h00=0x0012, h01=0x0050, text=» ENTRY AD4200 «, t00=0x0000, t01=0x005c}
0x006e…0084 Head {h00=0x0012, h01=0x0050, text=» ENTRY AD4300 «, t00=0x0000, t01=0x0072}
0x0084…0098 Head {h00=0x0010, h01=0x0050, text=» EXT ADMRET «, t00=0x0000, t01=0x0088}
0x0098…00ac Head {h00=0x0010, h01=0x0050, text=» EXT SPCLRA «, t00=0x0000, t01=0x009c}
0x00ac…00c0 Head {h00=0x0010, h01=0x0050, text=» EXT CHDATO «, t00=0x0000, t01=0x00b0}
0x00c0…00d4 Head {h00=0x0010, h01=0x0050, text=» EXT BDTSCA «, t00=0x0000, t01=0x00c4}
0x00d4…00e8 Head {h00=0x0010, h01=0x0050, text=» EXT BDTPRT «, t00=0x0000, t01=0x00d8}
0x00e8…00fc Head {h00=0x0010, h01=0x0050, text=» EXT BDTDEL «, t00=0x0000, t01=0x00ec}
0x00fc…0110 Head {h00=0x0010, h01=0x0050, text=» EXT YYMMDD «, t00=0x0000, t01=0x0100}
0x0110…011e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0000, t01=0x0114}
0x011e…012c Head {h00=0x000a, h01=0x0050, text=»AD4100«, t00=0x0000, t01=0x0122}
0x012c…0146 Head {h00=0x0016, h01=0x0050, text=»* CREATE PRINTLEV «, t00=0x0000, t01=0x0130}
0x0146…016c Head {h00=0x0022, h01=0x0050, text=» TBT CAD41FLG,AD41EX OCCUPIED?«, t00=0x0000, t01=0x014a}
0x016c…0198 Head {h00=0x0028, h01=0x0050, text=» SET CAD41FLG NO, RESERVE ALL FILES «, t00=0x0000, t01=0x0170}
0x0198…01b6 Head {h00=0x001a, h01=0x0050, text=» TBF CBUDTFLG,AD41END «, t00=0x0001, t01=0x000c}
0x01b6…01cc Head {h00=0x0012, h01=0x0050, text=» SET SPPROMPT «, t00=0x0001, t01=0x002a}
0x01cc…01e4 Head {h00=0x0014, h01=0x0050, text=» ATTFMT ADM41FRM«, t00=0x0001, t01=0x0040}
0x01e4…01f8 Head {h00=0x0010, h01=0x0050, text=» PERF SPCLRA«, t00=0x0001, t01=0x0058}
0x01f8…021c Head {h00=0x0020, h01=0x0050, text=» CBNE SPBINW2,CBIN3,AD41END «, t00=0x0001, t01=0x006c}
0x021c…0244 Head {h00=0x0024, h01=0x0050, text=» ADD TRANSACTIONS TO PRINTLEV «, t00=0x0001, t01=0x0090}
0x0244…0268 Head {h00=0x0020, h01=0x0050, text=» CBL GTPRTTIL,=D'1',ADM4120 «, t00=0x0001, t01=0x00b8}
0x0268…027c Head {h00=0x0010, h01=0x0050, text=» SET CADVIS «, t00=0x0001, t01=0x00dc}
0x027c…0298 Head {h00=0x0018, h01=0x0050, text=» MOVE GTBSUM1,=D'0' «, t00=0x0001, t01=0x00f0}
0x0298…02b4 Head {h00=0x0018, h01=0x0050, text=» MOVE GTBSUM2,=D'0' «, t00=0x0001, t01=0x010c}
0x02b4…02d0 Head {h00=0x0018, h01=0x0050, text=» MOVE GTBSUM3,=D'0' «, t00=0x0001, t01=0x0128}
0x02d0…02ee Head {h00=0x001a, h01=0x0050, text=» TBT GTGTPFLG,ADM4125 «, t00=0x0001, t01=0x0144}
0x02ee…030a Head {h00=0x0018, h01=0x0050, text=» TBT GTLPFLG,ADM4125«, t00=0x0001, t01=0x0162}
0x030a…031c Head {h00=0x000e, h01=0x0050, text=» B AD41RET«, t00=0x0001, t01=0x017e}
0x031c…032c Head {h00=0x000c, h01=0x0050, text=»ADM4120 «, t00=0x0001, t01=0x0190}
0x032c…034a Head {h00=0x001a, h01=0x0050, text=» TBF GTTTPFLG,AD41RET «, t00=0x0002, t01=0x0010}
0x034a…035a Head {h00=0x000c, h01=0x0050, text=»ADM4125 «, t00=0x0002, t01=0x002e}
0x035a…037e Head {h00=0x0020, h01=0x0050, text=» CBNL GTLEVNR,=D'19',ADM4130«, t00=0x0002, t01=0x003e}
0x037e…03a4 Head {h00=0x0022, h01=0x0050, text=» MOVE GTLEVNR,=D'19' 1. LEVNR «, t00=0x0002, t01=0x0062}
0x03a4…03b4 Head {h00=0x000c, h01=0x0050, text=»ADM4130 «, t00=0x0002, t01=0x0088}
0x03b4…03d2 Head {h00=0x001a, h01=0x0050, text=» PERF YYMMDD,GTPRTDAT «, t00=0x0002, t01=0x0098}
0x03d2…03f0 Head {h00=0x001a, h01=0x0050, text=» MOVE GTPRTDAT,GSWBCD7«, t00=0x0002, t01=0x00b6}
0x03f0…0404 Head {h00=0x0010, h01=0x0050, text=» PERF BDTSCA«, t00=0x0002, t01=0x00d4}
0x0404…0414 Head {h00=0x000c, h01=0x0050, text=»AD41RET «, t00=0x0002, t01=0x00e8}
0x0414…042a Head {h00=0x0012, h01=0x0050, text=» CLEAR CADVIS «, t00=0x0002, t01=0x00f8}
0x042a…0446 Head {h00=0x0018, h01=0x0050, text=» MOVE GTBSUM1,=D'0' «, t00=0x0002, t01=0x010e}
0x0446…0462 Head {h00=0x0018, h01=0x0050, text=» MOVE GTBSUM2,=D'0' «, t00=0x0002, t01=0x012a}
0x0462…047e Head {h00=0x0018, h01=0x0050, text=» MOVE GTBSUM3,=D'0' «, t00=0x0002, t01=0x0146}
0x047e…048e Head {h00=0x000c, h01=0x0050, text=»AD41END «, t00=0x0002, t01=0x0162}
0x048e…04a6 Head {h00=0x0014, h01=0x0050, text=» CLEAR CAD41FLG «, t00=0x0002, t01=0x0172}
0x04a6…04be Head {h00=0x0014, h01=0x0050, text=»AD41EX B ADMRET «, t00=0x0002, t01=0x018a}
0x04be…04cc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0003, t01=0x0012}
0x04cc…04da Head {h00=0x000a, h01=0x0050, text=»AD4200«, t00=0x0003, t01=0x0020}
0x04da…04f2 Head {h00=0x0014, h01=0x0050, text=»* PRINT PRINTLEV«, t00=0x0003, t01=0x002e}
0x04f2…0510 Head {h00=0x001a, h01=0x0050, text=» TBF CBUDTFLG,AD42RET «, t00=0x0003, t01=0x0046}
0x0510…052e Head {h00=0x001a, h01=0x0050, text=» TBT GTGTPFLG,ADM4210 «, t00=0x0003, t01=0x0064}
0x052e…054a Head {h00=0x0018, h01=0x0050, text=» TBT GTLPFLG,ADM4210«, t00=0x0003, t01=0x0082}
0x054a…055c Head {h00=0x000e, h01=0x0050, text=» B AD42RET«, t00=0x0003, t01=0x009e}
0x055c…056c Head {h00=0x000c, h01=0x0050, text=»ADM4210 «, t00=0x0003, t01=0x00b0}
0x056c…0582 Head {h00=0x0012, h01=0x0050, text=» CLEAR CKRESP «, t00=0x0003, t01=0x00c0}
0x0582…0598 Head {h00=0x0012, h01=0x0050, text=» SET SPPROMPT «, t00=0x0003, t01=0x00d6}
0x0598…05b0 Head {h00=0x0014, h01=0x0050, text=» ATTFMT ADM42FRM«, t00=0x0003, t01=0x00ec}
0x05b0…05c4 Head {h00=0x0010, h01=0x0050, text=» PERF SPCLRA«, t00=0x0003, t01=0x0104}
0x05c4…05e8 Head {h00=0x0020, h01=0x0050, text=» CBNE SPBINW2,CBIN3,AD42RET «, t00=0x0003, t01=0x0118}
0x05e8…05fe Head {h00=0x0012, h01=0x0050, text=» CLEAR CBDTGIR«, t00=0x0003, t01=0x013c}
0x05fe…0622 Head {h00=0x0020, h01=0x0050, text=» CBNE GTPRTTIL,=D'2',ADM4222«, t00=0x0003, t01=0x0152}
0x0622…0636 Head {h00=0x0010, h01=0x0050, text=» SET CBDTGIR«, t00=0x0003, t01=0x0176}
0x0636…0646 Head {h00=0x000c, h01=0x0050, text=»ADM4222 «, t00=0x0003, t01=0x018a}
0x0646…066a Head {h00=0x0020, h01=0x0050, text=» CBNL GTPRTFRA,=D'1',ADM4225«, t00=0x0004, t01=0x000a}
0x066a…0690 Head {h00=0x0022, h01=0x0050, text=» MOVE GTPRTFRA,=D'10000000000'«, t00=0x0004, t01=0x002e}
0x0690…06a0 Head {h00=0x000c, h01=0x0050, text=»ADM4225 «, t00=0x0004, t01=0x0054}
0x06a0…06be Head {h00=0x001a, h01=0x0050, text=» MOVE GTLEVNR,GTPRTTIL«, t00=0x0004, t01=0x0064}
0x06be…06e0 Head {h00=0x001e, h01=0x0050, text=» CBL GTLEVNR,=D'6',ADM4230«, t00=0x0004, t01=0x0082}
0x06e0…06fa Head {h00=0x0016, h01=0x0050, text=» SUB GTLEVNR,=D'5'«, t00=0x0004, t01=0x00a4}
0x06fa…070a Head {h00=0x000c, h01=0x0050, text=»ADM4230 «, t00=0x0004, t01=0x00be}
0x070a…0728 Head {h00=0x001a, h01=0x0050, text=» MOVE GTPRTTIL,GTLEVNR«, t00=0x0004, t01=0x00ce}
0x0728…0744 Head {h00=0x0018, h01=0x0050, text=» MOVE GTBSUM1,=D'0' «, t00=0x0004, t01=0x00ec}
0x0744…0760 Head {h00=0x0018, h01=0x0050, text=» MOVE GTBSUM2,=D'0' «, t00=0x0004, t01=0x0108}
0x0760…077c Head {h00=0x0018, h01=0x0050, text=» MOVE GTBSUM3,=D'0' «, t00=0x0004, t01=0x0124}
0x077c…07a2 Head {h00=0x0022, h01=0x0050, text=» PERF BDTPRT,CBIN1 CHECK/GIRO «, t00=0x0004, t01=0x0140}
0x07a2…07b8 Head {h00=0x0012, h01=0x0050, text=» BNOK AD42RET «, t00=0x0004, t01=0x0166}
0x07b8…07de Head {h00=0x0022, h01=0x0050, text=» MOVE GSWSTR20,='SAMLERLISTE '«, t00=0x0004, t01=0x017c}
0x07de…07f6 Head {h00=0x0014, h01=0x0050, text=» ATTFMT ADM42FM2«, t00=0x0005, t01=0x0012}
0x07f6…080a Head {h00=0x0010, h01=0x0050, text=» PERF SPCLRA«, t00=0x0005, t01=0x002a}
0x080a…082e Head {h00=0x0020, h01=0x0050, text=» CBNE SPBINW2,CBIN3,AD42RET «, t00=0x0005, t01=0x003e}
0x082e…084c Head {h00=0x001a, h01=0x0050, text=» MOVE GTLEVNR,GTPRTTIL«, t00=0x0005, t01=0x0062}
0x084c…0868 Head {h00=0x0018, h01=0x0050, text=» MOVE GTBSUM1,=D'0' «, t00=0x0005, t01=0x0080}
0x0868…0884 Head {h00=0x0018, h01=0x0050, text=» MOVE GTBSUM2,=D'0' «, t00=0x0005, t01=0x009c}
0x0884…08a0 Head {h00=0x0018, h01=0x0050, text=» MOVE GTBSUM3,=D'0' «, t00=0x0005, t01=0x00b8}
0x08a0…08ba Head {h00=0x0016, h01=0x0050, text=» PERF BDTPRT,CBIN2«, t00=0x0005, t01=0x00d4}
0x08ba…08d0 Head {h00=0x0012, h01=0x0050, text=» BNOK AD42RET «, t00=0x0005, t01=0x00ee}
0x08d0…08f8 Head {h00=0x0024, h01=0x0050, text=» MOVE GSWSTR20,='SPECIFIKATION '«, t00=0x0005, t01=0x0104}
0x08f8…0910 Head {h00=0x0014, h01=0x0050, text=» ATTFMT ADM42FM2«, t00=0x0005, t01=0x012c}
0x0910…0924 Head {h00=0x0010, h01=0x0050, text=» PERF SPCLRA«, t00=0x0005, t01=0x0144}
0x0924…0948 Head {h00=0x0020, h01=0x0050, text=» CBNE SPBINW2,CBIN3,AD42RET «, t00=0x0005, t01=0x0158}
0x0948…0966 Head {h00=0x001a, h01=0x0050, text=» MOVE GTLEVNR,GTPRTTIL«, t00=0x0005, t01=0x017c}
0x0966…097a Head {h00=0x0010, h01=0x0050, text=» SET CKRESP «, t00=0x0006, t01=0x000a}
0x097a…09ae Head {h00=0x0030, h01=0x0050, text=» ADD GTLEVNR,=D'10' POINT TO SPECIFICATIONS «, t00=0x0006, t01=0x001e}
0x09ae…09ca Head {h00=0x0018, h01=0x0050, text=» MOVE GTBSUM1,=D'0' «, t00=0x0006, t01=0x0052}
0x09ca…09e6 Head {h00=0x0018, h01=0x0050, text=» MOVE GTBSUM2,=D'0' «, t00=0x0006, t01=0x006e}
0x09e6…0a02 Head {h00=0x0018, h01=0x0050, text=» MOVE GTBSUM3,=D'0' «, t00=0x0006, t01=0x008a}
0x0a02…0a32 Head {h00=0x002c, h01=0x0050, text=» PERF BDTPRT,CBIN3 KREDIT SPECIFICATIONS«, t00=0x0006, t01=0x00a6}
0x0a32…0a48 Head {h00=0x0012, h01=0x0050, text=» CLEAR CKRESP «, t00=0x0006, t01=0x00d6}
0x0a48…0a52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00ec}
0x0a52…0a62 Head {h00=0x000c, h01=0x0050, text=»AD42RET «, t00=0x0006, t01=0x00f6}
0x0a62…0a78 Head {h00=0x0012, h01=0x0050, text=» CLEAR CBDTGIR«, t00=0x0006, t01=0x0106}
0x0a78…0a8a Head {h00=0x000e, h01=0x0050, text=» B ADMRET «, t00=0x0006, t01=0x011c}
0x0a8a…0a98 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0006, t01=0x012e}
0x0a98…0aa6 Head {h00=0x000a, h01=0x0050, text=»AD4300«, t00=0x0006, t01=0x013c}
0x0aa6…0abe Head {h00=0x0014, h01=0x0050, text=»* CLEAN PRINTLEV«, t00=0x0006, t01=0x014a}
0x0abe…0adc Head {h00=0x001a, h01=0x0050, text=» TBF CBUDTFLG,AD43END «, t00=0x0006, t01=0x0162}
0x0adc…0afa Head {h00=0x001a, h01=0x0050, text=» TBT CAD41FLG,AD43END «, t00=0x0006, t01=0x0180}
0x0afa…0b10 Head {h00=0x0012, h01=0x0050, text=» SET CAD41FLG «, t00=0x0007, t01=0x000e}
0x0b10…0b26 Head {h00=0x0012, h01=0x0050, text=» SET SPPROMPT «, t00=0x0007, t01=0x0024}
0x0b26…0b3e Head {h00=0x0014, h01=0x0050, text=» ATTFMT ADM43FRM«, t00=0x0007, t01=0x003a}
0x0b3e…0b52 Head {h00=0x0010, h01=0x0050, text=» PERF SPCLRA«, t00=0x0007, t01=0x0052}
0x0b52…0b76 Head {h00=0x0020, h01=0x0050, text=» CBNE SPBINW2,CBIN3,AD43RET «, t00=0x0007, t01=0x0066}
0x0b76…0b94 Head {h00=0x001a, h01=0x0050, text=» MOVE GTLEVNR,GTPRTFRA«, t00=0x0007, t01=0x008a}
0x0b94…0bb6 Head {h00=0x001e, h01=0x0050, text=» CBL GTLEVNR,=D'6',ADM4320«, t00=0x0007, t01=0x00a8}
0x0bb6…0bd0 Head {h00=0x0016, h01=0x0050, text=» SUB GTLEVNR,=D'5'«, t00=0x0007, t01=0x00ca}
0x0bd0…0be0 Head {h00=0x000c, h01=0x0050, text=»ADM4320 «, t00=0x0007, t01=0x00e4}
0x0be0…0bf4 Head {h00=0x0010, h01=0x0050, text=» PERF BDTDEL«, t00=0x0007, t01=0x00f4}
0x0bf4…0c0a Head {h00=0x0012, h01=0x0050, text=» BNOK AD43RET «, t00=0x0007, t01=0x0108}
0x0c0a…0c28 Head {h00=0x001a, h01=0x0050, text=» MOVE GTLEVNR,GTPRTFRA«, t00=0x0007, t01=0x011e}
0x0c28…0c4a Head {h00=0x001e, h01=0x0050, text=» CBL GTLEVNR,=D'6',ADM4330«, t00=0x0007, t01=0x013c}
0x0c4a…0c64 Head {h00=0x0016, h01=0x0050, text=» SUB GTLEVNR,=D'5'«, t00=0x0007, t01=0x015e}
0x0c64…0c74 Head {h00=0x000c, h01=0x0050, text=»ADM4330 «, t00=0x0007, t01=0x0178}
0x0c74…0c90 Head {h00=0x0018, h01=0x0050, text=» ADD GTLEVNR,=D'10' «, t00=0x0007, t01=0x0188}
0x0c90…0cc2 Head {h00=0x002e, h01=0x0050, text=» PERF BDTDEL DELETE CREDIT SPECIFICATIONS «, t00=0x0008, t01=0x0014}
0x0cc2…0ccc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0046}
0x0ccc…0cdc Head {h00=0x000c, h01=0x0050, text=»AD43RET «, t00=0x0008, t01=0x0050}
0x0cdc…0cf4 Head {h00=0x0014, h01=0x0050, text=» CLEAR CAD41FLG «, t00=0x0008, t01=0x0060}
0x0cf4…0d04 Head {h00=0x000c, h01=0x0050, text=»AD43END «, t00=0x0008, t01=0x0078}
0x0d04…0d16 Head {h00=0x000e, h01=0x0050, text=» B ADMRET «, t00=0x0008, t01=0x0088}
0x0d16…0d24 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x009a}
0x0d24…0d36 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0008, t01=0x00a8}
0x0d36…0d40 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00ba}
0x0d40…0d56 Head {h00=0x0012, h01=0x0050, text=»* FORMATS «, t00=0x0008, t01=0x00c4}
0x0d56…0d60 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00da}
0x0d60…0d72 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0008, t01=0x00e4}
0x0d72…0d7c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00f6}
0x0d7c…0d92 Head {h00=0x0012, h01=0x0050, text=»ADM41FRM FRMT «, t00=0x0008, t01=0x0100}
0x0d92…0d9e Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x0008, t01=0x0116}
0x0d9e…0db4 Head {h00=0x0012, h01=0x0050, text=» FCOPY ='DAN '«, t00=0x0008, t01=0x0122}
0x0db4…0dcc Head {h00=0x0014, h01=0x0050, text=» FCOPY ='PRINT' «, t00=0x0008, t01=0x0138}
0x0dcc…0de2 Head {h00=0x0012, h01=0x0050, text=» FCOPY ='FIL' «, t00=0x0008, t01=0x0150}
0x0de2…0df6 Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',1«, t00=0x0008, t01=0x0166}
0x0df6…0e18 Head {h00=0x001e, h01=0x0050, text=» FCOPY ='BUNDTREMITTERING'«, t00=0x0008, t01=0x017a}
0x0e18…0e24 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0009, t01=0x000c}
0x0e24…0e3a Head {h00=0x0012, h01=0x0050, text=» FCOPY ='VAL' «, t00=0x0009, t01=0x0018}
0x0e3a…0e50 Head {h00=0x0012, h01=0x0050, text=» FILLR X'5C',1«, t00=0x0009, t01=0x002e}
0x0e50…0e64 Head {h00=0x0010, h01=0x0050, text=» FILLR 'R',1«, t00=0x0009, t01=0x0044}
0x0e64…0e7a Head {h00=0x0012, h01=0x0050, text=» FCOPY ='DATO'«, t00=0x0009, t01=0x0058}
0x0e7a…0e90 Head {h00=0x0012, h01=0x0050, text=» FLINK ADM4X1 «, t00=0x0009, t01=0x006e}
0x0e90…0e9c Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0009, t01=0x0084}
0x0e9c…0eb2 Head {h00=0x0012, h01=0x0050, text=» FCOPY ='BFO' «, t00=0x0009, t01=0x0090}
0x0eb2…0ed6 Head {h00=0x0020, h01=0x0050, text=» FKI 25,MINL=1,MAXL=1,NUM,ME«, t00=0x0009, t01=0x00a6}
0x0ed6…0ef0 Head {h00=0x0016, h01=0x0050, text=» FMEL 'X',GTPRTFRA«, t00=0x0009, t01=0x00ca}
0x0ef0…0efc Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0009, t01=0x00e4}
0x0efc…0f12 Head {h00=0x0012, h01=0x0050, text=» FCOPY ='ADVI'«, t00=0x0009, t01=0x00f0}
0x0f12…0f2a Head {h00=0x0014, h01=0x0050, text=» FCOPY ='SLISTE'«, t00=0x0009, t01=0x0106}
0x0f2a…0f42 Head {h00=0x0014, h01=0x0050, text=» FCOPY =' (0-1)'«, t00=0x0009, t01=0x011e}
0x0f42…0f66 Head {h00=0x0020, h01=0x0050, text=» FKI 25,MINL=1,MAXL=1,NUM,ME«, t00=0x0009, t01=0x0136}
0x0f66…0f80 Head {h00=0x0016, h01=0x0050, text=» FMEL 'X',GTPRTTIL«, t00=0x0009, t01=0x015a}
0x0f80…0f8c Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0009, t01=0x0174}
0x0f8c…0fa8 Head {h00=0x0018, h01=0x0050, text=» FCOPY ='FRA LEV. ' «, t00=0x0009, t01=0x0180}
0x0fa8…0fbc Head {h00=0x0010, h01=0x0050, text=» FCOPY ='NR'«, t00=0x000a, t01=0x000c}
0x0fbc…0fe6 Head {h00=0x0026, h01=0x0050, text=» FKI 20,MINL=7,MAXL=10,NUM,SCHK=7 «, t00=0x000a, t01=0x0020}
0x0fe6…1008 Head {h00=0x001e, h01=0x0050, text=» FMEL 'XXXXXXXXXX',GTLEVNR«, t00=0x000a, t01=0x004a}
0x1008…1016 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x000a, t01=0x006c}
0x1016…1020 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x007a}
0x1020…1036 Head {h00=0x0012, h01=0x0050, text=»ADM42FRM FRMT «, t00=0x000a, t01=0x0084}
0x1036…1042 Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x000a, t01=0x009a}
0x1042…105a Head {h00=0x0014, h01=0x0050, text=» FCOPY ='PRINT' «, t00=0x000a, t01=0x00a6}
0x105a…1074 Head {h00=0x0016, h01=0x0050, text=» FCOPY ='RUTINE ' «, t00=0x000a, t01=0x00be}
0x1074…1096 Head {h00=0x001e, h01=0x0050, text=» FCOPY ='BUNDTREMITTERING'«, t00=0x000a, t01=0x00d8}
0x1096…10a2 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x000a, t01=0x00fa}
0x10a2…10be Head {h00=0x0018, h01=0x0050, text=» FCOPY ='UDSKRIFT ' «, t00=0x000a, t01=0x0106}
0x10be…10d4 Head {h00=0x0012, h01=0x0050, text=» FCOPY ='DATO'«, t00=0x000a, t01=0x0122}
0x10d4…10ea Head {h00=0x0012, h01=0x0050, text=» FLINK ADM4X1 «, t00=0x000a, t01=0x0138}
0x10ea…10f6 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x000a, t01=0x014e}
0x10f6…110c Head {h00=0x0012, h01=0x0050, text=» FCOPY ='BFO' «, t00=0x000a, t01=0x015a}
0x110c…1130 Head {h00=0x0020, h01=0x0050, text=» FKI 25,MINL=1,MAXL=1,NUM,ME«, t00=0x000a, t01=0x0170}
0x1130…114a (11, 0, 400) Head {h00=0x0016, h01=0x0050, text=» FMEL 'X',GTPRTTIL«, t00=0x000b, t01=0x0004}
0x114a…1156 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x000b, t01=0x001e}
0x1156…1172 Head {h00=0x0018, h01=0x0050, text=» FCOPY ='FRA LEV. ' «, t00=0x000b, t01=0x002a}
0x1172…1186 Head {h00=0x0010, h01=0x0050, text=» FCOPY ='NR'«, t00=0x000b, t01=0x0046}
0x1186…11b0 Head {h00=0x0026, h01=0x0050, text=» FKI 20,MINL=7,MAXL=10,NUM,SCHK=7 «, t00=0x000b, t01=0x005a}
0x11b0…11d4 Head {h00=0x0020, h01=0x0050, text=» FMEL 'XXXXXXXXXX',GTPRTFRA «, t00=0x000b, t01=0x0084}
0x11d4…11e2 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x000b, t01=0x00a8}
0x11e2…11ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00b6}
0x11ec…1202 Head {h00=0x0012, h01=0x0050, text=»ADM42FM2 FRMT «, t00=0x000b, t01=0x00c0}
0x1202…120e Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x000b, t01=0x00d6}
0x120e…1226 Head {h00=0x0014, h01=0x0050, text=» FCOPY GSWSTR20 «, t00=0x000b, t01=0x00e2}
0x1226…1232 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x000b, t01=0x00fa}
0x1232…1240 Head {h00=0x000a, h01=0x0050, text=» FKI 1«, t00=0x000b, t01=0x0106}
0x1240…125a Head {h00=0x0016, h01=0x0050, text=» FMEL 'B',TSWBCD2 «, t00=0x000b, t01=0x0114}
0x125a…1268 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x000b, t01=0x012e}
0x1268…1272 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x013c}
0x1272…1288 Head {h00=0x0012, h01=0x0050, text=»ADM43FRM FRMT «, t00=0x000b, t01=0x0146}
0x1288…1294 Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x000b, t01=0x015c}
0x1294…12ac Head {h00=0x0014, h01=0x0050, text=» FCOPY ='SLET ' «, t00=0x000b, t01=0x0168}
0x12ac…12c6 Head {h00=0x0016, h01=0x0050, text=» FCOPY ='RUTINE ' «, t00=0x000b, t01=0x0180}
0x12c6…12e8 Head {h00=0x001e, h01=0x0050, text=» FCOPY ='BUNDTREMITTERING'«, t00=0x000c, t01=0x000a}
0x12e8…12f4 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x000c, t01=0x002c}
0x12f4…130a Head {h00=0x0012, h01=0x0050, text=» FCOPY ='BFO' «, t00=0x000c, t01=0x0038}
0x130a…132e Head {h00=0x0020, h01=0x0050, text=» FKI 25,MINL=1,MAXL=1,NUM,ME«, t00=0x000c, t01=0x004e}
0x132e…1348 Head {h00=0x0016, h01=0x0050, text=» FMEL 'X',GTPRTFRA«, t00=0x000c, t01=0x0072}
0x1348…1356 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x000c, t01=0x008c}
0x1356…1360 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x009a}
0x1360…1374 Head {h00=0x0010, h01=0x0050, text=»ADM4X1 FRMT «, t00=0x000c, t01=0x00a4}
0x1374…13a6 Head {h00=0x002e, h01=0x0050, text=» FKI 20,MINL=6,MAXL=6,NUM,SCHK=2,REWRT,ME «, t00=0x000c, t01=0x00b8}
0x13a6…13c8 Head {h00=0x001e, h01=0x0050, text=» FMEL 'XXVXXVXX',GTPRTDAT «, t00=0x000c, t01=0x00ea}
0x13c8…13d6 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x000c, t01=0x010c}
0x13d6…13e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x011a}
0x13e0…13ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0124}
0x13ea…13f6 Head {h00=0x0008, h01=0x0004, text=» END«, t00=0x000c, t01=0x012e}
0x13f6…13fa Head {h00=0x4004, h01=0x0000}
0x13fa…13fe 00 0c 01 3a ┆ :┆
0x13fe…1406 (13, 1, 8) 20 04 00 00 00 0d 00 04 ┆ ┆
0x1406…1456 (14, 0, 398) 45 20 47 54 57 42 43 44 31 2c 3d 44 27 35 31 27 00 25 01 8c 00 20 00 50 20 4d 4f 56 45 20 47 53 57 53 54 52 39 2c 3d 43 27 44 49 53 43 46 45 4a 4c 20 27 20 00 26 00 18 00 10 00 50 20 50 45 52 46 20 53 50 45 52 52 20 00 26 00 3c 00 0e 00 50 ┆E GTWBCD1,=D'51' % P MOVE GSWSTR9,=C'DISCFEJL ' & P PERF SPERR & < P┆
0x1456…14a6 20 42 20 58 49 4e 53 34 30 30 00 26 00 50 00 1c 00 50 58 49 4e 53 33 31 30 5c 5c 5c 49 4e 53 45 52 54 20 4e 45 57 20 4c 45 56 00 26 00 62 00 18 00 50 20 4d 4f 56 45 20 47 53 57 42 49 4e 35 2c 3d 57 27 34 38 27 00 26 00 82 00 18 00 50 20 4d ┆ B XINS400 & P PXINS310 INSERT NEW LEV & b P MOVE GSWBIN5,=W'48' & P M┆
0x14a6…14f6 4f 56 45 20 47 53 57 42 49 4e 31 2c 3d 57 27 34 37 27 00 26 00 9e 00 0c 00 50 58 49 4e 53 33 32 30 20 00 26 00 ba 00 38 00 50 20 4d 4f 56 45 20 43 4d 45 4d 49 58 28 47 53 57 42 49 4e 35 29 2c 43 4d 45 4d 49 58 28 47 53 57 42 49 4e 31 29 20 ┆OVE GSWBIN1,=W'47' & PXINS320 & 8 P MOVE CMEMIX(GSWBIN5),CMEMIX(GSWBIN1) ┆
0x14f6…1546 53 48 49 46 54 20 54 4f 20 52 49 47 48 54 00 26 00 ca 00 2a 00 50 20 4d 4f 56 45 20 43 4d 45 4d 50 54 28 47 53 57 42 49 4e 35 29 2c 43 4d 45 4d 50 54 28 47 53 57 42 49 4e 31 29 20 00 26 01 06 00 30 00 50 20 43 42 45 20 47 53 57 42 49 4e 31 ┆SHIFT TO RIGHT & * P MOVE CMEMPT(GSWBIN5),CMEMPT(GSWBIN1) & 0 P CBE GSWBIN1┆
0x1546…1594 2c 47 53 57 42 49 4e 34 2c 58 49 4e 53 33 33 30 20 4d 4f 52 45 20 54 4f 20 53 48 49 46 54 3f 20 00 26 01 34 00 26 00 50 20 53 55 42 20 47 53 57 42 49 4e 35 2c 43 42 49 4e 31 20 59 45 53 2c 20 50 4c 45 41 53 45 20 44 4f 20 00 26 01 68 ┆,GSWBIN4,XINS330 MORE TO SHIFT? & 4 & P SUB GSWBIN5,CBIN1 YES, PLEASE DO & h┆
0x1594…15e4 (15, 0, 400) 00 16 00 50 20 53 55 42 20 47 53 57 42 49 4e 31 2c 43 42 49 4e 31 00 27 00 04 00 10 00 50 20 42 50 20 58 49 4e 53 33 32 30 20 00 27 00 1e 00 0e 00 50 20 42 20 58 49 4e 53 34 30 30 00 27 00 32 00 0c 00 50 58 49 4e 53 33 33 30 20 00 27 00 44 ┆ P SUB GSWBIN1,CBIN1 ' P BP XINS320 ' P B XINS400 ' 2 PXINS330 ' D┆
0x15e4…1634 00 2e 00 50 20 4d 4f 56 45 20 43 4d 45 4d 49 58 28 47 53 57 42 49 4e 34 29 2c 47 54 4c 45 56 4e 52 20 49 4e 53 45 52 54 20 4c 45 56 4e 52 00 27 00 54 00 2e 00 50 20 58 43 4f 50 59 20 47 53 57 42 49 4e 37 2c 43 42 49 4e 30 2c 43 42 49 4e 32 ┆ . P MOVE CMEMIX(GSWBIN4),GTLEVNR INSERT LEVNR ' T . P XCOPY GSWBIN7,CBIN0,CBIN2┆
0x1634…1684 2c 47 54 52 45 4d 42 55 46 2c 43 42 49 4e 35 20 00 27 00 86 00 22 00 50 20 4d 4f 56 45 20 43 4d 45 4d 50 54 28 47 53 57 42 49 4e 34 29 2c 47 53 57 42 49 4e 37 20 00 27 00 b8 00 24 00 50 2a 20 4d 41 4b 45 20 4c 41 53 54 20 49 4e 44 45 58 52 ┆,GTREMBUF,CBIN5 ' " P MOVE CMEMPT(GSWBIN4),GSWBIN7 ' $ P* MAKE LAST INDEXR┆
0x1684…16d4 45 43 20 55 4e 41 56 41 49 4c 41 42 4c 45 00 27 00 de 00 26 00 50 20 4d 4f 56 45 20 47 54 52 45 4d 42 55 46 2c 3d 58 27 39 39 39 39 39 39 39 39 39 39 30 30 30 30 27 20 00 27 01 06 00 2c 00 50 20 50 45 52 46 20 52 41 57 52 49 54 2c 44 4b 30 ┆EC UNAVAILABLE ' & P MOVE GTREMBUF,=X'99999999990000' ' , P PERF RAWRIT,DK0┆
0x16d4…1724 37 2c 3d 44 27 37 27 2c 47 54 52 45 4d 42 55 46 2c 43 49 58 4c 41 53 54 00 27 01 30 00 12 00 50 20 42 4e 4f 4b 20 58 49 4e 53 34 30 30 20 00 27 01 60 00 16 00 50 20 53 55 42 20 43 49 58 4c 41 53 54 2c 43 42 49 4e 31 00 27 01 76 00 14 00 50 ┆7,=D'7',GTREMBUF,CIXLAST ' 0 P BNOK XINS400 ' ` P SUB CIXLAST,CBIN1 ' v P┆
0x1724…1774 (16, 0, 400) 2a 20 42 41 43 4b 55 50 20 43 4d 45 4d 49 58 20 00 27 01 90 00 18 00 50 20 4d 4f 56 45 20 47 53 57 42 49 4e 34 2c 3d 57 27 34 38 27 00 28 00 18 00 0c 00 50 58 49 4e 53 33 34 30 20 00 28 00 34 00 22 00 50 20 4d 4f 56 45 20 47 53 57 42 43 44 ┆* BACKUP CMEMIX ' P MOVE GSWBIN4,=W'48' ( PXINS340 ( 4 " P MOVE GSWBCD┆
0x1774…17c4 36 2c 43 4d 45 4d 49 58 28 47 53 57 42 49 4e 34 29 20 00 28 00 44 00 2e 00 50 20 58 43 4f 50 59 20 47 54 52 45 4d 42 55 46 2c 43 42 49 4e 30 2c 43 42 49 4e 35 2c 47 53 57 42 43 44 36 2c 43 42 49 4e 32 20 00 28 00 6a 00 22 00 50 20 4d 4f 56 ┆6,CMEMIX(GSWBIN4) ( D . P XCOPY GTREMBUF,CBIN0,CBIN5,GSWBCD6,CBIN2 ( j " P MOV┆
0x17c4…1814 45 20 47 53 57 42 49 4e 31 2c 43 4d 45 4d 50 54 28 47 53 57 42 49 4e 34 29 20 00 28 00 9c 00 2e 00 50 20 58 43 4f 50 59 20 47 54 52 45 4d 42 55 46 2c 43 42 49 4e 35 2c 43 42 49 4e 32 2c 47 53 57 42 49 4e 31 2c 43 42 49 4e 30 20 00 28 00 c2 ┆E GSWBIN1,CMEMPT(GSWBIN4) ( . P XCOPY GTREMBUF,CBIN5,CBIN2,GSWBIN1,CBIN0 ( ┆
0x1814…1864 00 2e 00 50 20 50 45 52 46 20 52 41 57 52 49 54 2c 44 4b 31 37 2c 3d 44 27 31 37 27 2c 47 54 52 45 4d 42 55 46 2c 47 53 57 42 49 4e 34 20 00 28 00 f4 00 16 00 50 20 53 55 42 20 47 53 57 42 49 4e 34 2c 43 42 49 4e 31 00 28 01 26 00 10 00 50 ┆ . P PERF RAWRIT,DK17,=D'17',GTREMBUF,GSWBIN4 ( P SUB GSWBIN4,CBIN1 ( & P┆
0x1864…18b4 20 42 50 20 58 49 4e 53 33 34 30 20 00 28 01 40 00 14 00 50 20 43 4d 50 20 43 42 49 4e 30 2c 43 42 49 4e 30 00 28 01 54 00 08 00 50 20 52 45 54 00 28 01 6c 00 0c 00 50 58 49 4e 53 34 30 30 20 00 28 01 78 00 14 00 50 20 43 4d 50 20 43 42 49 ┆ BP XINS340 ( @ P CMP CBIN0,CBIN0 ( T P RET ( l PXINS400 ( x P CMP CBI┆
0x18b4…1904 (17, 0, 400) 4e 31 2c 43 42 49 4e 30 00 28 01 88 00 08 00 50 20 52 45 54 00 29 00 10 00 0a 00 50 20 50 45 4e 44 20 00 29 00 1c 00 0a 00 50 20 45 4a 45 43 54 00 29 00 2a 00 12 00 50 44 49 56 52 55 54 20 50 52 4f 43 20 50 20 00 29 00 38 00 2a 00 50 20 49 ┆N1,CBIN0 ( P RET ) P PEND ) P EJECT ) * PDIVRUT PROC P ) 8 * P I┆
0x1904…1954 42 20 50 2c 44 49 56 30 31 30 2c 44 49 56 30 32 30 2c 44 49 56 30 33 30 2c 44 49 56 30 34 30 2c 5c 5c 43 20 00 29 00 4e 00 28 00 50 5c 5c 44 49 56 30 35 30 2c 44 49 56 30 36 30 2c 44 49 56 30 37 30 2c 44 49 56 30 38 30 2c 44 49 56 30 39 30 ┆B P,DIV010,DIV020,DIV030,DIV040, C ) N ( P DIV050,DIV060,DIV070,DIV080,DIV090┆
0x1954…19a4 00 29 00 7c 00 0e 00 50 20 42 20 44 49 56 52 45 58 20 00 29 00 a8 00 0a 00 50 44 49 56 30 33 30 00 29 00 ba 00 0a 00 50 44 49 56 30 34 30 00 29 00 c8 00 0a 00 50 44 49 56 30 35 30 00 29 00 d6 00 0a 00 50 44 49 56 30 36 30 00 29 00 e4 00 0a ┆ ) | P B DIVREX ) PDIV030 ) PDIV040 ) PDIV050 ) PDIV060 ) ┆
0x19a4…19f4 00 50 44 49 56 30 37 30 00 29 00 f2 00 0a 00 50 44 49 56 30 38 30 00 29 01 00 00 0a 00 50 44 49 56 30 39 30 00 29 01 0e 00 0a 00 50 44 49 56 52 45 58 00 29 01 1c 00 08 00 50 20 52 45 54 00 29 01 2a 00 04 00 50 00 29 01 36 00 04 00 50 00 29 ┆ PDIV070 ) PDIV080 ) PDIV090 ) PDIVREX ) P RET ) * P ) 6 P )┆
0x19f4…1a44 01 3e 00 0a 00 50 44 49 56 30 31 30 00 29 01 46 00 2a 00 50 2a 20 54 48 49 53 20 49 53 20 54 48 45 20 4c 59 4e 47 42 59 20 56 45 52 53 49 4f 4e 20 4f 46 20 47 45 54 4e 58 54 00 29 01 54 00 2e 00 50 20 43 42 4c 20 47 54 4c 45 56 4e 52 2c 3d ┆ > PDIV010 ) F * P* THIS IS THE LYNGBY VERSION OF GETNXT ) T . P CBL GTLEVNR,=┆
0x1a44…1a94 (18, 0, 400) 44 27 31 35 27 2c 44 49 56 30 31 35 20 41 4c 57 41 59 53 20 49 4e 20 46 49 4c 45 20 00 29 01 82 00 36 00 50 20 50 45 52 46 20 4d 45 4d 49 58 31 2c 47 54 4c 45 56 4e 52 2c 47 53 57 42 49 4e 34 2c 47 53 57 42 49 4e 35 20 43 55 52 52 45 4e 54 ┆D'15',DIV015 ALWAYS IN FILE ) 6 P PERF MEMIX1,GTLEVNR,GSWBIN4,GSWBIN5 CURRENT┆
0x1a94…1ae4 20 4c 45 56 4e 52 00 2a 00 24 00 1a 00 50 20 4d 4f 56 45 20 47 53 57 42 49 4e 34 2c 47 53 57 42 49 4e 39 20 00 2a 00 5e 00 2c 00 50 20 43 42 45 20 47 53 57 42 49 4e 39 2c 3d 57 27 2d 31 27 2c 44 49 56 30 31 35 20 45 4e 44 20 4f 46 20 41 52 ┆ LEVNR * $ P MOVE GSWBIN4,GSWBIN9 * ^ , P CBE GSWBIN9,=W'-1',DIV015 END OF AR┆
0x1ae4…1b34 52 41 59 3f 00 2a 00 7c 00 28 00 50 20 43 42 4c 20 47 54 4c 45 56 4e 52 2c 43 4d 45 4d 49 58 28 47 53 57 42 49 4e 34 29 2c 44 49 56 30 31 31 20 00 2a 00 ac 00 16 00 50 20 41 44 44 20 47 53 57 42 49 4e 34 2c 43 42 49 4e 31 00 2a 00 d8 00 0a ┆RAY? * | ( P CBL GTLEVNR,CMEMIX(GSWBIN4),DIV011 * P ADD GSWBIN4,CBIN1 * ┆
0x1b34…1b84 00 50 44 49 56 30 31 31 00 2a 00 f2 00 34 00 50 20 4d 4f 56 45 20 47 53 57 42 43 44 36 2c 43 4d 45 4d 49 58 28 47 53 57 42 49 4e 34 29 20 4e 45 58 54 20 49 4e 20 53 4c 41 56 45 41 52 52 41 59 00 2a 01 00 00 2e 00 50 20 4d 4f 56 45 20 47 53 ┆ PDIV011 * 4 P MOVE GSWBCD6,CMEMIX(GSWBIN4) NEXT IN SLAVEARRAY * . P MOVE GS┆
0x1b84…1bd4 57 42 49 4e 38 2c 43 4d 45 4d 50 54 28 47 53 57 42 49 4e 34 29 20 4e 45 58 54 20 50 4f 49 4e 54 45 52 00 2a 01 38 00 30 00 50 20 41 44 44 20 47 54 4c 45 56 4e 52 2c 3d 44 27 31 27 20 50 52 45 56 45 4e 54 20 45 58 49 54 20 54 48 52 55 20 4d ┆WBIN8,CMEMPT(GSWBIN4) NEXT POINTER * 8 0 P ADD GTLEVNR,=D'1' PREVENT EXIT THRU M┆
0x1bd4…1c24 (19, 0, 400) 45 4d 49 58 31 20 00 2a 01 6a 00 34 00 50 20 50 45 52 46 20 49 44 58 47 45 54 2c 47 54 4c 45 56 4e 52 2c 47 53 57 42 49 4e 34 2c 47 53 57 42 49 4e 35 20 52 45 54 55 52 4e 20 4e 45 58 54 00 2b 00 0e 00 18 00 50 20 4d 4f 56 45 20 47 53 57 42 ┆EMIX1 * j 4 P PERF IDXGET,GTLEVNR,GSWBIN4,GSWBIN5 RETURN NEXT + P MOVE GSWB┆
0x1c24…1c74 49 4e 31 2c 43 42 49 4e 37 20 00 2b 00 46 00 18 00 50 20 4d 4f 56 45 20 47 54 52 45 4d 42 55 46 2c 3d 27 20 20 27 00 2b 00 62 00 34 00 50 20 50 45 52 46 20 52 41 52 45 41 44 2c 44 4b 30 37 2c 3d 44 27 37 27 2c 47 54 52 45 4d 42 55 46 2c 47 ┆IN1,CBIN7 + F P MOVE GTREMBUF,=' ' + b 4 P PERF RAREAD,DK07,=D'7',GTREMBUF,G┆
0x1c74…1cc4 53 57 42 49 4e 31 2c 47 53 57 42 49 4e 34 00 2b 00 7e 00 18 00 50 20 4d 4f 56 45 20 47 54 4c 45 56 4e 52 2c 3d 44 27 31 27 20 00 2b 00 b6 00 2e 00 50 20 58 43 4f 50 59 20 47 54 4c 45 56 4e 52 2c 43 42 49 4e 31 2c 43 42 49 4e 35 2c 47 54 52 ┆SWBIN1,GSWBIN4 + ~ P MOVE GTLEVNR,=D'1' + . P XCOPY GTLEVNR,CBIN1,CBIN5,GTR┆
0x1cc4…1d14 45 4d 42 55 46 2c 43 42 49 4e 30 20 00 2b 00 d2 00 36 00 50 20 43 42 47 20 47 53 57 42 43 44 36 2c 47 54 4c 45 56 4e 52 2c 44 49 56 30 31 33 20 4e 45 58 54 20 57 41 53 20 49 4e 20 49 4e 44 45 58 46 49 4c 45 20 00 2b 01 04 00 2e 00 50 20 4d ┆EMBUF,CBIN0 + 6 P CBG GSWBCD6,GTLEVNR,DIV013 NEXT WAS IN INDEXFILE + . P M┆
0x1d14…1d64 4f 56 45 20 47 54 4c 45 56 4e 52 2c 47 53 57 42 43 44 36 20 53 4f 20 57 45 20 48 41 56 45 20 46 49 4e 49 53 48 45 44 20 00 2b 01 3e 00 20 00 50 20 4d 4f 56 45 20 47 53 57 42 49 4e 34 2c 3d 57 27 2d 31 27 20 41 4c 52 45 41 44 59 00 2b 01 70 ┆OVE GTLEVNR,GSWBCD6 SO WE HAVE FINISHED + > P MOVE GSWBIN4,=W'-1' ALREADY + p┆
0x1d64…1db4 (20, 0, 400) 00 1a 00 50 20 4d 4f 56 45 20 47 53 57 42 49 4e 35 2c 47 53 57 42 49 4e 38 20 00 2c 00 04 00 0a 00 50 44 49 56 30 31 33 00 2c 00 22 00 14 00 50 20 43 4d 50 20 43 42 49 4e 30 2c 43 42 49 4e 30 00 2c 00 30 00 08 00 50 20 52 45 54 00 2c 00 48 ┆ P MOVE GSWBIN5,GSWBIN8 , PDIV013 , " P CMP CBIN0,CBIN0 , 0 P RET , H┆
0x1db4…1e04 00 0a 00 50 44 49 56 30 31 35 00 2c 00 54 00 34 00 50 20 50 45 52 46 20 49 44 58 47 45 54 2c 47 54 4c 45 56 4e 52 2c 47 53 57 42 49 4e 34 2c 47 53 57 42 49 4e 35 20 52 45 54 55 52 4e 20 4e 45 58 54 00 2c 00 62 00 16 00 50 20 41 44 44 20 47 ┆ PDIV015 , T 4 P PERF IDXGET,GTLEVNR,GSWBIN4,GSWBIN5 RETURN NEXT , b P ADD G┆
0x1e04…1e54 53 57 42 49 4e 34 2c 43 42 49 4e 31 00 2c 00 9a 00 18 00 50 20 4d 4f 56 45 20 47 53 57 42 49 4e 31 2c 43 42 49 4e 37 20 00 2c 00 b4 00 18 00 50 20 4d 4f 56 45 20 47 54 52 45 4d 42 55 46 2c 3d 27 20 20 27 00 2c 00 d0 00 34 00 50 20 50 45 52 ┆SWBIN4,CBIN1 , P MOVE GSWBIN1,CBIN7 , P MOVE GTREMBUF,=' ' , 4 P PER┆
0x1e54…1ea4 46 20 52 41 52 45 41 44 2c 44 4b 30 37 2c 3d 44 27 37 27 2c 47 54 52 45 4d 42 55 46 2c 47 53 57 42 49 4e 31 2c 47 53 57 42 49 4e 34 00 2c 00 ec 00 18 00 50 20 4d 4f 56 45 20 47 54 4c 45 56 4e 52 2c 3d 44 27 31 27 20 00 2c 01 24 00 2e 00 50 ┆F RAREAD,DK07,=D'7',GTREMBUF,GSWBIN1,GSWBIN4 , P MOVE GTLEVNR,=D'1' , $ . P┆
0x1ea4…1ef4 20 58 43 4f 50 59 20 47 54 4c 45 56 4e 52 2c 43 42 49 4e 31 2c 43 42 49 4e 35 2c 47 54 52 45 4d 42 55 46 2c 43 42 49 4e 30 20 00 2c 01 40 00 26 00 50 20 43 42 45 20 47 54 4c 45 56 4e 52 2c 3d 44 27 39 39 39 39 39 39 39 39 39 39 27 2c 44 49 ┆ XCOPY GTLEVNR,CBIN1,CBIN5,GTREMBUF,CBIN0 , @ & P CBE GTLEVNR,=D'9999999999',DI┆