|
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: 4732 (0x127c)
Notes: pts_type(SC)
Names: »REMDUM.SC«
└─⟦75255755f⟧ Bits:30009693 Philips computer tape "600410"
└─⟦this⟧ »NJREMIT/REMDUM.SC«
└─⟦b6546aa17⟧ Bits:30009689 Philips computer tape "600325"
└─⟦this⟧ »REMIT2/REMDUM.SC«
IDENT REMDUM DDUM KMD08 PDIV ENTRY LEVOPR ENTRY LEVRD ENTRY VARRD ENTRY VARWRT ENTRY IDXGET ENTRY LEVDEL ENTRY SETIDX ENTRY LEVSPG ENTRY LEVPRT ENTRY CHDATO ENTRY LEVIN ENTRY XCOP ENTRY TXTPRT ENTRY TXTOPR ENTRY TXTRD ENTRY REPL00 ENTRY SETKEY ENTRY WSTRCH ENTRY TRINS ENTRY TRGETF ENTRY AD4100 ENTRY AD4200 ENTRY AD4300 * EXT ADMRET EJECT AD4100 * CREATE PRINTLEV B ADMRET AD4200 * PRINT PRINTLEV B ADMRET AD4300 * CLEAN PRINTLEV B ADMRET LEVIN PROC RET PEND LEVOPR PROC RET PEND LEVDEL PROC RET PEND LEVRD PROC RET PEND LEVWRT PROC RET PEND * LEVINT PROC RET PEND * LEVSPG PROC RET PEND * LEVPRT PROC RET PEND * VARRD PROC RET PEND * VARWRT PROC RET PEND * VARINT PROC RET PEND IDXGET PROC LEVNR,INDX,LEVDEX RET PEND IDXINS PROC RET PEND * SETIDX PROC RET PEND IDXDEL PROC RET PEND * RESTIX PROC RET PEND INITIX PROC RET PEND * CHDATO PROC ********** * * CHANGES GSWBCD6 (DDMMYY) TO * GSWBCD7 (YYMMDD) * ********** MOVE GSWBCD7,=D'1' SET SIGN PERF XCOP,GSWBCD7,=W'6',=W'1',GSWBCD6,=W'4' PERF XCOP,GSWBCD7,=W'5',=W'1',GSWBCD6,=W'5' PERF XCOP,GSWBCD7,=W'4',=W'1',GSWBCD6,=W'6' RET PEND * XCOP PROC TO,$TOPNT,$SIZE,FROM,$FROMPNT PLIT $TOPNT PLIT $SIZE PLIT $FROMPNT * * FUNCTION XCOPY: * THE PROCEDURE COPIES FROM 'FROM' STARTING AT $FROMPNT, * TO 'TO', STARTING AT $TOPNT. THE NUMBER OF BYTES * COPIED IS $SIZE * MOVE GSWBIN1,$TOPNT START OF RECEIVING FIELD MOVE GSWBIN4,$SIZE LENGTH MOVE GSWBIN5,$FROMPNT START OF SENDING FIELD XCOPY TO,GSWBIN1,GSWBIN4,FROM,GSWBIN5 RET PEND TXTPRT PROC RET PEND TXTOPR PROC RET PEND REPL00 PROC STRG,LEN ************************************ * * THE PROCEDURE REPLACES HEX-ZEROES * BY SPACES, IN ANY STRINGFIELD. * THIS IS ACCOMPLISHED BY FINDING * THE FIRST 00-BYTE, COMPUTING * THE LENGTH OF THE REST OF THE * FIELD, AND DELETING THIS REST. * ************************************ MOVE GSWBIN7,LEN MOVE GSWBIN1,CBIN0 MOVE GSWSTR1,=X'00' MATCH STRG,GSWBIN1,GSWBIN7,GSWSTR1,CBIN0,CBIN1 BNE REPL10 NO MATCH FOUND SUB GSWBIN7,GSWBIN1 DLETE STRG,GSWBIN1,GSWBIN7 CMP CBIN0,CBIN0 RET REPL10 CMP CBIN4,CBIN0 RET PEND * TXTUNP PROC RET PEND * TXTPAK PROC RET PEND TXTRD PROC BIN RET PEND TXTWR PROC BIN RET PEND SETKEY PROC ***************************************** * * SETS SPKEY TO 1 IF KASSE OPEN, * ELSE SETS SPKEY TO 2 * ***************************************** MOVE SPKEY,CBIN1 CBG CMASK(TTASKNR),=D'0',SETKRET MOVE SPKEY,CBIN2 CLOSED SETKRET RET PEND WSTRCH PROC P RET PEND TRINS PROC PT CMP CBIN0,CBIN0 RET PEND TRGETF PROC PT CMP CBIN0,CBIN0 RET PEND END
0x0000…0016 (0, 0, 398) Head {h00=0x0012, h01=0x000d, text=» IDENT REMDUM «, t00=0x0000, t01=0x0004}
0x0016…002a Head {h00=0x0010, h01=0x000b, text=» DDUM KMD08 «, t00=0x0000, t01=0x001a}
0x002a…0038 Head {h00=0x000a, h01=0x0005, text=» PDIV «, t00=0x0000, t01=0x002e}
0x0038…004e Head {h00=0x0012, h01=0x0050, text=» ENTRY LEVOPR «, t00=0x0000, t01=0x003c}
0x004e…0062 Head {h00=0x0010, h01=0x0050, text=» ENTRY LEVRD«, t00=0x0000, t01=0x0052}
0x0062…0076 Head {h00=0x0010, h01=0x0050, text=» ENTRY VARRD«, t00=0x0000, t01=0x0066}
0x0076…008c Head {h00=0x0012, h01=0x0050, text=» ENTRY VARWRT «, t00=0x0000, t01=0x007a}
0x008c…00a2 Head {h00=0x0012, h01=0x0050, text=» ENTRY IDXGET «, t00=0x0000, t01=0x0090}
0x00a2…00b8 Head {h00=0x0012, h01=0x0050, text=» ENTRY LEVDEL «, t00=0x0000, t01=0x00a6}
0x00b8…00ce Head {h00=0x0012, h01=0x0050, text=» ENTRY SETIDX «, t00=0x0000, t01=0x00bc}
0x00ce…00e4 Head {h00=0x0012, h01=0x0050, text=» ENTRY LEVSPG «, t00=0x0000, t01=0x00d2}
0x00e4…00fa Head {h00=0x0012, h01=0x0050, text=» ENTRY LEVPRT «, t00=0x0000, t01=0x00e8}
0x00fa…0110 Head {h00=0x0012, h01=0x0050, text=» ENTRY CHDATO «, t00=0x0000, t01=0x00fe}
0x0110…0124 Head {h00=0x0010, h01=0x0050, text=» ENTRY LEVIN«, t00=0x0000, t01=0x0114}
0x0124…0138 Head {h00=0x0010, h01=0x0050, text=» ENTRY XCOP «, t00=0x0000, t01=0x0128}
0x0138…014e Head {h00=0x0012, h01=0x0050, text=» ENTRY TXTPRT «, t00=0x0000, t01=0x013c}
0x014e…0164 Head {h00=0x0012, h01=0x0050, text=» ENTRY TXTOPR «, t00=0x0000, t01=0x0152}
0x0164…0178 Head {h00=0x0010, h01=0x0050, text=» ENTRY TXTRD«, t00=0x0000, t01=0x0168}
0x0178…018e Head {h00=0x0012, h01=0x0050, text=» ENTRY REPL00 «, t00=0x0000, t01=0x017c}
0x018e…01a4 (1, 0, 400) Head {h00=0x0012, h01=0x0050, text=» ENTRY SETKEY «, t00=0x0001, t01=0x0004}
0x01a4…01ba Head {h00=0x0012, h01=0x0050, text=» ENTRY WSTRCH «, t00=0x0001, t01=0x001a}
0x01ba…01ce Head {h00=0x0010, h01=0x0050, text=» ENTRY TRINS«, t00=0x0001, t01=0x0030}
0x01ce…01e4 Head {h00=0x0012, h01=0x0050, text=» ENTRY TRGETF «, t00=0x0001, t01=0x0044}
0x01e4…01fa Head {h00=0x0012, h01=0x000d, text=» ENTRY AD4100 «, t00=0x0001, t01=0x005a}
0x01fa…0210 Head {h00=0x0012, h01=0x000d, text=» ENTRY AD4200 «, t00=0x0001, t01=0x0070}
0x0210…0226 Head {h00=0x0012, h01=0x000d, text=» ENTRY AD4300 «, t00=0x0001, t01=0x0086}
0x0226…0230 Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0001, t01=0x009c}
0x0230…0244 Head {h00=0x0010, h01=0x0050, text=» EXT ADMRET «, t00=0x0001, t01=0x00a6}
0x0244…0252 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0001, t01=0x00ba}
0x0252…0260 Head {h00=0x000a, h01=0x0006, text=»AD4100«, t00=0x0001, t01=0x00c8}
0x0260…027a Head {h00=0x0016, h01=0x0050, text=»* CREATE PRINTLEV «, t00=0x0001, t01=0x00d6}
0x027a…028c Head {h00=0x000e, h01=0x0050, text=» B ADMRET «, t00=0x0001, t01=0x00f0}
0x028c…029a Head {h00=0x000a, h01=0x0006, text=»AD4200«, t00=0x0001, t01=0x0102}
0x029a…02b2 Head {h00=0x0014, h01=0x0050, text=»* PRINT PRINTLEV«, t00=0x0001, t01=0x0110}
0x02b2…02c4 Head {h00=0x000e, h01=0x0050, text=» B ADMRET «, t00=0x0001, t01=0x0128}
0x02c4…02d2 Head {h00=0x000a, h01=0x0006, text=»AD4300«, t00=0x0001, t01=0x013a}
0x02d2…02ea Head {h00=0x0014, h01=0x0050, text=»* CLEAN PRINTLEV«, t00=0x0001, t01=0x0148}
0x02ea…02fc Head {h00=0x000e, h01=0x0050, text=» B ADMRET «, t00=0x0001, t01=0x0160}
0x02fc…0304 Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x0172}
0x0304…0316 Head {h00=0x000e, h01=0x0050, text=»LEVIN PROC«, t00=0x0001, t01=0x017a}
0x0316…0322 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0001, t01=0x018c}
0x0322…0330 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0002, t01=0x0008}
0x0330…0338 Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x0016}
0x0338…034c Head {h00=0x0010, h01=0x000b, text=»LEVOPR PROC «, t00=0x0002, t01=0x001e}
0x034c…0358 Head {h00=0x0008, h01=0x0004, text=» RET«, t00=0x0002, t01=0x0032}
0x0358…0366 Head {h00=0x000a, h01=0x0005, text=» PEND «, t00=0x0002, t01=0x003e}
0x0366…036e Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x004c}
0x036e…0376 Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x0054}
0x0376…038a Head {h00=0x0010, h01=0x000b, text=»LEVDEL PROC «, t00=0x0002, t01=0x005c}
0x038a…0396 Head {h00=0x0008, h01=0x0004, text=» RET«, t00=0x0002, t01=0x0070}
0x0396…03a4 Head {h00=0x000a, h01=0x0005, text=» PEND «, t00=0x0002, t01=0x007c}
0x03a4…03ac Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x008a}
0x03ac…03be Head {h00=0x000e, h01=0x0050, text=»LEVRD PROC«, t00=0x0002, t01=0x0092}
0x03be…03ca Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0002, t01=0x00a4}
0x03ca…03d8 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0002, t01=0x00b0}
0x03d8…03e0 Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x00be}
0x03e0…03f4 Head {h00=0x0010, h01=0x0050, text=»LEVWRT PROC «, t00=0x0002, t01=0x00c6}
0x03f4…0400 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0002, t01=0x00da}
0x0400…040e Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0002, t01=0x00e6}
0x040e…0418 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00f4}
0x0418…042c Head {h00=0x0010, h01=0x0050, text=»LEVINT PROC «, t00=0x0002, t01=0x00fe}
0x042c…0438 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0002, t01=0x0112}
0x0438…0446 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0002, t01=0x011e}
0x0446…0450 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x012c}
0x0450…0464 Head {h00=0x0010, h01=0x0050, text=»LEVSPG PROC «, t00=0x0002, t01=0x0136}
0x0464…0470 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0002, t01=0x014a}
0x0470…047e Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0002, t01=0x0156}
0x047e…0488 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0164}
0x0488…049c Head {h00=0x0010, h01=0x0050, text=»LEVPRT PROC «, t00=0x0002, t01=0x016e}
0x049c…04a8 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0002, t01=0x0182}
0x04a8…04b6 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0002, t01=0x018e}
0x04b6…04c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x000c}
0x04c0…04d2 Head {h00=0x000e, h01=0x0050, text=»VARRD PROC«, t00=0x0003, t01=0x0016}
0x04d2…04de Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0003, t01=0x0028}
0x04de…04ec Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0003, t01=0x0034}
0x04ec…04f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0042}
0x04f6…050a Head {h00=0x0010, h01=0x000b, text=»VARWRT PROC «, t00=0x0003, t01=0x004c}
0x050a…0516 Head {h00=0x0008, h01=0x0004, text=» RET«, t00=0x0003, t01=0x0060}
0x0516…0524 Head {h00=0x000a, h01=0x0005, text=» PEND «, t00=0x0003, t01=0x006c}
0x0524…052e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x007a}
0x052e…0542 Head {h00=0x0010, h01=0x000b, text=»VARINT PROC «, t00=0x0003, t01=0x0084}
0x0542…054e Head {h00=0x0008, h01=0x0004, text=» RET«, t00=0x0003, t01=0x0098}
0x054e…055c Head {h00=0x000a, h01=0x0005, text=» PEND «, t00=0x0003, t01=0x00a4}
0x055c…0564 Head {h00=0x0004, h01=0x0000, t00=0x0003, t01=0x00b2}
0x0564…058a Head {h00=0x0022, h01=0x001d, text=»IDXGET PROC LEVNR,INDX,LEVDEX «, t00=0x0003, t01=0x00ba}
0x058a…0596 Head {h00=0x0008, h01=0x0004, text=» RET«, t00=0x0003, t01=0x00e0}
0x0596…05a4 Head {h00=0x000a, h01=0x0005, text=» PEND «, t00=0x0003, t01=0x00ec}
0x05a4…05ac Head {h00=0x0004, h01=0x0000, t00=0x0003, t01=0x00fa}
0x05ac…05c0 Head {h00=0x0010, h01=0x0050, text=»IDXINS PROC «, t00=0x0003, t01=0x0102}
0x05c0…05cc Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0003, t01=0x0116}
0x05cc…05da Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0003, t01=0x0122}
0x05da…05e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0130}
0x05e4…05f8 Head {h00=0x0010, h01=0x0050, text=»SETIDX PROC «, t00=0x0003, t01=0x013a}
0x05f8…0604 Head {h00=0x0008, h01=0x0005, text=» RET«, t00=0x0003, t01=0x014e}
0x0604…0612 Head {h00=0x000a, h01=0x0005, text=» PEND «, t00=0x0003, t01=0x015a}
0x0612…061a Head {h00=0x0004, h01=0x0050, t00=0x0003, t01=0x0168}
0x061a…062e Head {h00=0x0010, h01=0x0050, text=»IDXDEL PROC «, t00=0x0003, t01=0x0170}
0x062e…063a Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0003, t01=0x0184}
0x063a…0648 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0003, t01=0x0190}
0x0648…0652 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x000e}
0x0652…0666 Head {h00=0x0010, h01=0x000b, text=»RESTIX PROC «, t00=0x0004, t01=0x0018}
0x0666…0672 Head {h00=0x0008, h01=0x0005, text=» RET«, t00=0x0004, t01=0x002c}
0x0672…0680 Head {h00=0x000a, h01=0x0005, text=» PEND «, t00=0x0004, t01=0x0038}
0x0680…0688 Head {h00=0x0004, h01=0x0000, t00=0x0004, t01=0x0046}
0x0688…0690 Head {h00=0x0004, h01=0x0000, t00=0x0004, t01=0x004e}
0x0690…06a4 Head {h00=0x0010, h01=0x000b, text=»INITIX PROC «, t00=0x0004, t01=0x0056}
0x06a4…06b0 Head {h00=0x0008, h01=0x0004, text=» RET«, t00=0x0004, t01=0x006a}
0x06b0…06be Head {h00=0x000a, h01=0x0005, text=» PEND «, t00=0x0004, t01=0x0076}
0x06be…06c6 Head {h00=0x0004, h01=0x0000, t00=0x0004, t01=0x0084}
0x06c6…06d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x008c}
0x06d0…06d8 Head {h00=0x0004, h01=0x0050, t00=0x0004, t01=0x0096}
0x06d8…06ec Head {h00=0x0010, h01=0x0050, text=»CHDATO PROC «, t00=0x0004, t01=0x009e}
0x06ec…06fe Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0004, t01=0x00b2}
0x06fe…0708 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00c4}
0x0708…0732 Head {h00=0x0026, h01=0x0050, text=»* CHANGES GSWBCD6 (DDMMYY) TO«, t00=0x0004, t01=0x00ce}
0x0732…0752 Head {h00=0x001c, h01=0x0050, text=»* GSWBCD7 (YYMMDD) «, t00=0x0004, t01=0x00f8}
0x0752…075c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0118}
0x075c…076e Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0004, t01=0x0122}
0x076e…0792 Head {h00=0x0020, h01=0x0050, text=» MOVE GSWBCD7,=D'1' SET SIGN«, t00=0x0004, t01=0x0134}
0x0792…07c6 Head {h00=0x0030, h01=0x0050, text=» PERF XCOP,GSWBCD7,=W'6',=W'1',GSWBCD6,=W'4'«, t00=0x0004, t01=0x0158}
0x07c6…07fa Head {h00=0x0030, h01=0x0050, text=» PERF XCOP,GSWBCD7,=W'5',=W'1',GSWBCD6,=W'5'«, t00=0x0004, t01=0x018c}
0x07fa…082e Head {h00=0x0030, h01=0x0050, text=» PERF XCOP,GSWBCD7,=W'4',=W'1',GSWBCD6,=W'6'«, t00=0x0005, t01=0x0030}
0x082e…083a Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0005, t01=0x0064}
0x083a…0848 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0005, t01=0x0070}
0x0848…0852 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x007e}
0x0852…0882 Head {h00=0x002c, h01=0x0050, text=»XCOP PROC TO,$TOPNT,$SIZE,FROM,$FROMPNT «, t00=0x0005, t01=0x0088}
0x0882…0896 Head {h00=0x0010, h01=0x0050, text=» PLIT $TOPNT«, t00=0x0005, t01=0x00b8}
0x0896…08aa Head {h00=0x0010, h01=0x0050, text=» PLIT $SIZE «, t00=0x0005, t01=0x00cc}
0x08aa…08c0 Head {h00=0x0012, h01=0x0050, text=» PLIT $FROMPNT«, t00=0x0005, t01=0x00e0}
0x08c0…08ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00f6}
0x08ca…08e8 Head {h00=0x001a, h01=0x0050, text=»* FUNCTION XCOPY:«, t00=0x0005, t01=0x0100}
0x08e8…092c Head {h00=0x0040, h01=0x0050, text=»* THE PROCEDURE COPIES FROM 'FROM' STARTING AT $FROMPNT,«, t00=0x0005, t01=0x011e}
0x092c…096a Head {h00=0x003a, h01=0x0050, text=»* TO 'TO', STARTING AT $TOPNT. THE NUMBER OF BYTES«, t00=0x0005, t01=0x0162}
0x096a…0988 Head {h00=0x001a, h01=0x0050, text=»* COPIED IS $SIZE «, t00=0x0006, t01=0x0010}
0x0988…0992 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x002e}
0x0992…09c8 Head {h00=0x0032, h01=0x0050, text=» MOVE GSWBIN1,$TOPNT START OF RECEIVING FIELD «, t00=0x0006, t01=0x0038}
0x09c8…09ea Head {h00=0x001e, h01=0x0050, text=» MOVE GSWBIN4,$SIZE LENGTH«, t00=0x0006, t01=0x006e}
0x09ea…0a20 Head {h00=0x0032, h01=0x0050, text=» MOVE GSWBIN5,$FROMPNT START OF SENDING FIELD «, t00=0x0006, t01=0x0090}
0x0a20…0a4e Head {h00=0x002a, h01=0x0050, text=» XCOPY TO,GSWBIN1,GSWBIN4,FROM,GSWBIN5«, t00=0x0006, t01=0x00c6}
0x0a4e…0a5a Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0006, t01=0x00f4}
0x0a5a…0a68 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0006, t01=0x0100}
0x0a68…0a70 Head {h00=0x0004, h01=0x0000, t00=0x0006, t01=0x010e}
0x0a70…0a84 Head {h00=0x0010, h01=0x0050, text=»TXTPRT PROC «, t00=0x0006, t01=0x0116}
0x0a84…0a90 Head {h00=0x0008, h01=0x0004, text=» RET«, t00=0x0006, t01=0x012a}
0x0a90…0a9e Head {h00=0x000a, h01=0x0005, text=» PEND «, t00=0x0006, t01=0x0136}
0x0a9e…0aa6 Head {h00=0x0004, h01=0x0050, t00=0x0006, t01=0x0144}
0x0aa6…0aba Head {h00=0x0010, h01=0x0050, text=»TXTOPR PROC «, t00=0x0006, t01=0x014c}
0x0aba…0ac6 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0006, t01=0x0160}
0x0ac6…0ad4 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0006, t01=0x016c}
0x0ad4…0af0 Head {h00=0x0018, h01=0x0050, text=»REPL00 PROC STRG,LEN«, t00=0x0006, t01=0x017a}
0x0af0…0b1c Head {h00=0x0028, h01=0x0050, text=»************************************«, t00=0x0007, t01=0x0008}
0x0b1c…0b26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0034}
0x0b26…0b52 Head {h00=0x0028, h01=0x0050, text=»* THE PROCEDURE REPLACES HEX-ZEROES «, t00=0x0007, t01=0x003e}
0x0b52…0b7a Head {h00=0x0024, h01=0x0050, text=»* BY SPACES, IN ANY STRINGFIELD.«, t00=0x0007, t01=0x006a}
0x0b7a…0ba4 Head {h00=0x0026, h01=0x0050, text=»* THIS IS ACCOMPLISHED BY FINDING «, t00=0x0007, t01=0x0092}
0x0ba4…0bca Head {h00=0x0022, h01=0x0050, text=»* THE FIRST 00-BYTE, COMPUTING«, t00=0x0007, t01=0x00bc}
0x0bca…0bf2 Head {h00=0x0024, h01=0x0050, text=»* THE LENGTH OF THE REST OF THE «, t00=0x0007, t01=0x00e2}
0x0bf2…0c1a Head {h00=0x0024, h01=0x0050, text=»* FIELD, AND DELETING THIS REST.«, t00=0x0007, t01=0x010a}
0x0c1a…0c24 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0132}
0x0c24…0c50 Head {h00=0x0028, h01=0x0050, text=»************************************«, t00=0x0007, t01=0x013c}
0x0c50…0c6a Head {h00=0x0016, h01=0x0050, text=» MOVE GSWBIN7,LEN «, t00=0x0007, t01=0x0168}
0x0c6a…0c86 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN0 «, t00=0x0007, t01=0x0182}
0x0c86…0ca2 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWSTR1,=X'00'«, t00=0x0008, t01=0x000e}
0x0ca2…0cda Head {h00=0x0034, h01=0x0050, text=» MATCH STRG,GSWBIN1,GSWBIN7,GSWSTR1,CBIN0,CBIN1 «, t00=0x0008, t01=0x002a}
0x0cda…0cfc Head {h00=0x001e, h01=0x0050, text=» BNE REPL10 NO MATCH FOUND«, t00=0x0008, t01=0x0062}
0x0cfc…0d18 Head {h00=0x0018, h01=0x0050, text=» SUB GSWBIN7,GSWBIN1«, t00=0x0008, t01=0x0084}
0x0d18…0d3c Head {h00=0x0020, h01=0x0050, text=» DLETE STRG,GSWBIN1,GSWBIN7 «, t00=0x0008, t01=0x00a0}
0x0d3c…0d54 Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN0«, t00=0x0008, t01=0x00c4}
0x0d54…0d60 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0008, t01=0x00dc}
0x0d60…0d6e Head {h00=0x000a, h01=0x0050, text=»REPL10«, t00=0x0008, t01=0x00e8}
0x0d6e…0d86 Head {h00=0x0014, h01=0x0050, text=» CMP CBIN4,CBIN0«, t00=0x0008, t01=0x00f6}
0x0d86…0d92 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0008, t01=0x010e}
0x0d92…0da0 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0008, t01=0x011a}
0x0da0…0daa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0128}
0x0daa…0dbe Head {h00=0x0010, h01=0x0050, text=»TXTUNP PROC «, t00=0x0008, t01=0x0132}
0x0dbe…0dca Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0008, t01=0x0146}
0x0dca…0dd8 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0008, t01=0x0152}
0x0dd8…0de2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0160}
0x0de2…0df6 Head {h00=0x0010, h01=0x0050, text=»TXTPAK PROC «, t00=0x0008, t01=0x016a}
0x0df6…0e02 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0008, t01=0x017e}
0x0e02…0e10 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0008, t01=0x018a}
0x0e10…0e18 Head {h00=0x0004, h01=0x0050, t00=0x0009, t01=0x0008}
0x0e18…0e2e Head {h00=0x0012, h01=0x0050, text=»TXTRD PROC BIN«, t00=0x0009, t01=0x0010}
0x0e2e…0e3a Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0009, t01=0x0026}
0x0e3a…0e48 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0009, t01=0x0032}
0x0e48…0e50 Head {h00=0x0004, h01=0x0050, t00=0x0009, t01=0x0040}
0x0e50…0e58 Head {h00=0x0004, h01=0x0050, t00=0x0009, t01=0x0048}
0x0e58…0e6e Head {h00=0x0012, h01=0x0050, text=»TXTWR PROC BIN«, t00=0x0009, t01=0x0050}
0x0e6e…0e7a Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0009, t01=0x0066}
0x0e7a…0e88 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0009, t01=0x0072}
0x0e88…0e90 Head {h00=0x0004, h01=0x0050, t00=0x0009, t01=0x0080}
0x0e90…0e98 Head {h00=0x0004, h01=0x0050, t00=0x0009, t01=0x0088}
0x0e98…0eac Head {h00=0x0010, h01=0x0050, text=»SETKEY PROC «, t00=0x0009, t01=0x0090}
0x0eac…0ede Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0009, t01=0x00a4}
0x0ede…0ee8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00d6}
0x0ee8…0f10 Head {h00=0x0024, h01=0x0050, text=»* SETS SPKEY TO 1 IF KASSE OPEN,«, t00=0x0009, t01=0x00e0}
0x0f10…0f2e Head {h00=0x001a, h01=0x0050, text=»* ELSE SETS SPKEY TO 2«, t00=0x0009, t01=0x0108}
0x0f2e…0f38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0126}
0x0f38…0f6a Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0009, t01=0x0130}
0x0f6a…0f84 Head {h00=0x0016, h01=0x0050, text=» MOVE SPKEY,CBIN1 «, t00=0x0009, t01=0x0162}
0x0f84…0fae Head {h00=0x0026, h01=0x0050, text=» CBG CMASK(TTASKNR),=D'0',SETKRET «, t00=0x0009, t01=0x017c}
0x0fae…0fce Head {h00=0x001c, h01=0x0050, text=» MOVE SPKEY,CBIN2 CLOSED«, t00=0x000a, t01=0x0016}
0x0fce…0fde Head {h00=0x000c, h01=0x0050, text=»SETKRET «, t00=0x000a, t01=0x0036}
0x0fde…0fea Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000a, t01=0x0046}
0x0fea…0ff8 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000a, t01=0x0052}
0x0ff8…100e Head {h00=0x0012, h01=0x0050, text=»WSTRCH PROC P «, t00=0x000a, t01=0x0060}
0x100e…101a Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000a, t01=0x0076}
0x101a…1028 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000a, t01=0x0082}
0x1028…1030 Head {h00=0x0004, h01=0x0050, t00=0x000a, t01=0x0090}
0x1030…1046 Head {h00=0x0012, h01=0x0050, text=»TRINS PROC PT «, t00=0x000a, t01=0x0098}
0x1046…105e Head {h00=0x0014, h01=0x0010, text=» CMP CBIN0,CBIN0«, t00=0x000a, t01=0x00ae}
0x105e…106a Head {h00=0x0008, h01=0x0004, text=» RET«, t00=0x000a, t01=0x00c6}
0x106a…1078 Head {h00=0x000a, h01=0x0005, text=» PEND «, t00=0x000a, t01=0x00d2}
0x1078…1080 Head {h00=0x0004, h01=0x0050, t00=0x000a, t01=0x00e0}
0x1080…1096 Head {h00=0x0012, h01=0x0050, text=»TRGETF PROC PT«, t00=0x000a, t01=0x00e8}
0x1096…10ae Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN0«, t00=0x000a, t01=0x00fe}
0x10ae…10ba Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000a, t01=0x0116}
0x10ba…10c8 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000a, t01=0x0122}
0x10c8…10d0 Head {h00=0x0004, h01=0x0050, t00=0x000a, t01=0x0130}
0x10d0…10dc Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x000a, t01=0x0138}
0x10dc…10e0 Head {h00=0x4004, h01=0x0000}
0x10e0…10e4 00 0a 01 44 ┆ D┆
0x10e4…10ec (11, 1, 8) 20 04 00 00 00 0b 00 04 ┆ ┆
0x10ec…113c (12, 0, 400) 00 06 00 50 2a 20 00 1c 00 04 00 38 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 1c 00 0e 00 10 00 50 44 41 54 43 48 5c ┆ P* 8 P*************************************************** PDATCH ┆
0x113c…118c 50 52 4f 43 5c 20 00 1c 00 4a 00 16 00 50 20 4d 4f 56 45 20 57 4f 52 4b 36 2c 43 44 45 43 31 20 00 1c 00 5e 00 16 00 50 20 4d 4f 56 45 20 57 4f 52 4b 31 2c 49 4e 42 55 46 20 00 1c 00 78 00 1e 00 50 20 43 42 4c 20 57 46 49 45 4c 44 2c 3d 57 ┆PROC J P MOVE WORK6,CDEC1 ^ P MOVE WORK1,INBUF x P CBL WFIELD,=W┆
0x118c…11dc 27 34 39 27 2c 44 41 54 43 48 30 35 00 1c 00 92 00 26 00 50 20 4d 55 4c 20 57 4f 52 4b 31 2c 43 44 45 43 31 30 30 20 41 44 4a 55 53 54 20 46 4f 52 20 54 45 53 54 00 1c 00 b4 00 0c 00 50 44 41 54 43 48 30 35 20 00 1c 00 de 00 14 00 50 20 4d ┆'49',DATCH05 & P MUL WORK1,CDEC100 ADJUST FOR TEST PDATCH05 P M┆
0x11dc…122c 4f 56 45 20 50 32 2c 43 42 49 4e 31 30 20 00 1c 00 ee 00 24 00 50 20 43 4f 50 59 20 57 4f 52 4b 36 2c 43 42 49 4e 32 2c 43 42 49 4e 32 2c 57 4f 52 4b 31 2c 50 32 00 1c 01 06 00 20 00 50 20 43 42 20 47 54 2c 57 4f 52 4b 36 2c 3d 44 27 31 32 ┆OVE P2,CBIN10 $ P COPY WORK6,CBIN2,CBIN2,WORK1,P2 P CB GT,WORK6,=D'12┆
0x122c…127c 27 2c 44 41 54 43 48 31 30 20 00 1c 01 2e 00 1e 00 50 20 43 42 20 4c 54 2c 57 4f 52 4b 36 2c 43 44 45 43 31 2c 44 41 54 43 48 31 30 00 1c 01 52 00 12 00 50 20 53 55 42 20 50 32 2c 43 42 49 4e 32 20 00 1c 01 74 00 24 00 50 20 43 4f 50 59 20 ┆',DATCH10 . P CB LT,WORK6,CDEC1,DATCH10 R P SUB P2,CBIN2 t $ P COPY ┆