DataMuseum.dk

Presents historical artifacts from the history of:

Philips Data Systems

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Philips Data Systems

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - metrics - download

⟦4ceff1ec3⟧

    Length: 4722 (0x1272)
    Notes: pts_type(SC)
    Names: »REMDUM.SC«

Derivation

└─⟦26dca8ec8⟧ Bits:30009711 Philips computer tape "RÅKON-DIVFMT"
    └─⟦this⟧ »REMIT2/REMDUM.SC« 

PTS(SC)

 IDENT REMDUM 830812 NJ 
 DDUM KMD08 
 PDIV 
 ENTRY LEVOPR 
 ENTRY LEVRD
 ENTRY VARRD
 ENTRY VARWRT 
 ENTRY IDXGET 
 ENTRY LEVDEL 
 ENTRY SETIDX 
 ENTRY LEVSPG 
 ENTRY LEVPRT 
 ENTRY LEVIN
 ENTRY TXTPRT 
 ENTRY TXTOPR 
 ENTRY TXTRD
 ENTRY REPL00 
 ENTRY SETKEY 
 ENTRY WSTRCH 
 ENTRY TRINS
 ENTRY TRGETF 
 ENTRY AD4100 
 ENTRY AD4200 
 ENTRY AD4300 
 ENTRY AD4400 
 ENTRY GENWRF 
 ENTRY FMTREM 
* 
 EXT ADMRET 
 EJECT
AD4100
* CREATE PRINTLEV 
 B ADMRET 
AD4200
* PRINT PRINTLEV
 B ADMRET 
AD4300
* CLEAN PRINTLEV
 B ADMRET 
AD4400
 B ADMRET 

GENWRF PROC DSET,$FRMT
 PFRMT $FRMT
 IB DSET,WRT10,WRT20,WRT30
WRT10 
 TBF GTGTPFLG,WRT90 
 EDWRT DSHCGP,$FRMT 
 B WRT90
WRT20 
 TBF GTLPFLG,WRT90
 EDWRT DSHCLP,$FRMT 
 B WRT90
WRT30 
 TBF GTTTPFLG,WRT90 
 EDWRT KTALLY,$FRMT 
 B WRT90
WRT90 
 RET
 PEND 


FMTREM PROC FMTDEX
 RET
 PEND 

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 


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

HexDump

0x0000…0020 (0, 0, 400)  Head {h00=0x001c, h01=0x0050, text=» IDENT REMDUM 830812 NJ «, t00=0x0000, t01=0x0004}
0x0020…0034              Head {h00=0x0010, h01=0x000b, text=» DDUM KMD08 «, t00=0x0000, t01=0x0024}
0x0034…0042              Head {h00=0x000a, h01=0x0005, text=» PDIV «, t00=0x0000, t01=0x0038}
0x0042…0058              Head {h00=0x0012, h01=0x0050, text=» ENTRY LEVOPR «, t00=0x0000, t01=0x0046}
0x0058…006c              Head {h00=0x0010, h01=0x0050, text=» ENTRY LEVRD«, t00=0x0000, t01=0x005c}
0x006c…0080              Head {h00=0x0010, h01=0x0050, text=» ENTRY VARRD«, t00=0x0000, t01=0x0070}
0x0080…0096              Head {h00=0x0012, h01=0x0050, text=» ENTRY VARWRT «, t00=0x0000, t01=0x0084}
0x0096…00ac              Head {h00=0x0012, h01=0x0050, text=» ENTRY IDXGET «, t00=0x0000, t01=0x009a}
0x00ac…00c2              Head {h00=0x0012, h01=0x0050, text=» ENTRY LEVDEL «, t00=0x0000, t01=0x00b0}
0x00c2…00d8              Head {h00=0x0012, h01=0x0050, text=» ENTRY SETIDX «, t00=0x0000, t01=0x00c6}
0x00d8…00ee              Head {h00=0x0012, h01=0x0050, text=» ENTRY LEVSPG «, t00=0x0000, t01=0x00dc}
0x00ee…0104              Head {h00=0x0012, h01=0x0050, text=» ENTRY LEVPRT «, t00=0x0000, t01=0x00f2}
0x0104…0118              Head {h00=0x0010, h01=0x0050, text=» ENTRY LEVIN«, t00=0x0000, t01=0x0108}
0x0118…012e              Head {h00=0x0012, h01=0x0050, text=» ENTRY TXTPRT «, t00=0x0000, t01=0x011c}
0x012e…0144              Head {h00=0x0012, h01=0x0050, text=» ENTRY TXTOPR «, t00=0x0000, t01=0x0132}
0x0144…0158              Head {h00=0x0010, h01=0x0050, text=» ENTRY TXTRD«, t00=0x0000, t01=0x0148}
0x0158…016e              Head {h00=0x0012, h01=0x0050, text=» ENTRY REPL00 «, t00=0x0000, t01=0x015c}
0x016e…0184              Head {h00=0x0012, h01=0x0050, text=» ENTRY SETKEY «, t00=0x0000, t01=0x0172}
0x0184…019a              Head {h00=0x0012, h01=0x0050, text=» ENTRY WSTRCH «, t00=0x0000, t01=0x0188}
0x019a…01ae              Head {h00=0x0010, h01=0x0050, text=» ENTRY TRINS«, t00=0x0001, t01=0x000e}
0x01ae…01c4              Head {h00=0x0012, h01=0x0050, text=» ENTRY TRGETF «, t00=0x0001, t01=0x0022}
0x01c4…01da              Head {h00=0x0012, h01=0x000d, text=» ENTRY AD4100 «, t00=0x0001, t01=0x0038}
0x01da…01f0              Head {h00=0x0012, h01=0x000d, text=» ENTRY AD4200 «, t00=0x0001, t01=0x004e}
0x01f0…0206              Head {h00=0x0012, h01=0x000d, text=» ENTRY AD4300 «, t00=0x0001, t01=0x0064}
0x0206…021c              Head {h00=0x0012, h01=0x0050, text=» ENTRY AD4400 «, t00=0x0001, t01=0x007a}
0x021c…0232              Head {h00=0x0012, h01=0x0050, text=» ENTRY GENWRF «, t00=0x0001, t01=0x0090}
0x0232…0248              Head {h00=0x0012, h01=0x0050, text=» ENTRY FMTREM «, t00=0x0001, t01=0x00a6}
0x0248…0252              Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0001, t01=0x00bc}
0x0252…0266              Head {h00=0x0010, h01=0x0050, text=» EXT ADMRET «, t00=0x0001, t01=0x00c6}
0x0266…0274              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0001, t01=0x00da}
0x0274…0282              Head {h00=0x000a, h01=0x0006, text=»AD4100«, t00=0x0001, t01=0x00e8}
0x0282…029c              Head {h00=0x0016, h01=0x0050, text=»* CREATE PRINTLEV «, t00=0x0001, t01=0x00f6}
0x029c…02ae              Head {h00=0x000e, h01=0x0050, text=» B ADMRET «, t00=0x0001, t01=0x0110}
0x02ae…02bc              Head {h00=0x000a, h01=0x0006, text=»AD4200«, t00=0x0001, t01=0x0122}
0x02bc…02d4              Head {h00=0x0014, h01=0x0050, text=»* PRINT PRINTLEV«, t00=0x0001, t01=0x0130}
0x02d4…02e6              Head {h00=0x000e, h01=0x0050, text=» B ADMRET «, t00=0x0001, t01=0x0148}
0x02e6…02f4              Head {h00=0x000a, h01=0x0006, text=»AD4300«, t00=0x0001, t01=0x015a}
0x02f4…030c              Head {h00=0x0014, h01=0x0050, text=»* CLEAN PRINTLEV«, t00=0x0001, t01=0x0168}
0x030c…031e              Head {h00=0x000e, h01=0x0050, text=» B ADMRET «, t00=0x0001, t01=0x0180}
0x031e…032c (2, 0, 400)  Head {h00=0x000a, h01=0x0050, text=»AD4400«, t00=0x0002, t01=0x0004}
0x032c…033e              Head {h00=0x000e, h01=0x0050, text=» B ADMRET «, t00=0x0002, t01=0x0012}
0x033e…0346              Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x0024}
0x0346…0364              Head {h00=0x001a, h01=0x0050, text=»GENWRF PROC DSET,$FRMT«, t00=0x0002, t01=0x002c}
0x0364…0378              Head {h00=0x0010, h01=0x0050, text=» PFRMT $FRMT«, t00=0x0002, t01=0x004a}
0x0378…039a              Head {h00=0x001e, h01=0x0050, text=» IB DSET,WRT10,WRT20,WRT30«, t00=0x0002, t01=0x005e}
0x039a…03a8              Head {h00=0x000a, h01=0x0050, text=»WRT10 «, t00=0x0002, t01=0x0080}
0x03a8…03c4              Head {h00=0x0018, h01=0x0050, text=» TBF GTGTPFLG,WRT90 «, t00=0x0002, t01=0x008e}
0x03c4…03e0              Head {h00=0x0018, h01=0x0050, text=» EDWRT DSHCGP,$FRMT «, t00=0x0002, t01=0x00aa}
0x03e0…03f0              Head {h00=0x000c, h01=0x0050, text=» B WRT90«, t00=0x0002, t01=0x00c6}
0x03f0…03fe              Head {h00=0x000a, h01=0x0050, text=»WRT20 «, t00=0x0002, t01=0x00d6}
0x03fe…0418              Head {h00=0x0016, h01=0x0050, text=» TBF GTLPFLG,WRT90«, t00=0x0002, t01=0x00e4}
0x0418…0434              Head {h00=0x0018, h01=0x0050, text=» EDWRT DSHCLP,$FRMT «, t00=0x0002, t01=0x00fe}
0x0434…0444              Head {h00=0x000c, h01=0x0050, text=» B WRT90«, t00=0x0002, t01=0x011a}
0x0444…0452              Head {h00=0x000a, h01=0x0050, text=»WRT30 «, t00=0x0002, t01=0x012a}
0x0452…046e              Head {h00=0x0018, h01=0x0050, text=» TBF GTTTPFLG,WRT90 «, t00=0x0002, t01=0x0138}
0x046e…048a              Head {h00=0x0018, h01=0x0050, text=» EDWRT KTALLY,$FRMT «, t00=0x0002, t01=0x0154}
0x048a…049a              Head {h00=0x000c, h01=0x0050, text=» B WRT90«, t00=0x0002, t01=0x0170}
0x049a…04a8              Head {h00=0x000a, h01=0x0050, text=»WRT90 «, t00=0x0002, t01=0x0180}
0x04a8…04b4              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0002, t01=0x018e}
0x04b4…04c2              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0003, t01=0x000a}
0x04c2…04ca              Head {h00=0x0004, h01=0x0050, t00=0x0003, t01=0x0018}
0x04ca…04d2              Head {h00=0x0004, h01=0x0050, t00=0x0003, t01=0x0020}
0x04d2…04ec              Head {h00=0x0016, h01=0x0050, text=»FMTREM PROC FMTDEX«, t00=0x0003, t01=0x0028}
0x04ec…04f8              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0003, t01=0x0042}
0x04f8…0506              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0003, t01=0x004e}
0x0506…050e              Head {h00=0x0004, h01=0x0050, t00=0x0003, t01=0x005c}
0x050e…0520              Head {h00=0x000e, h01=0x0050, text=»LEVIN PROC«, t00=0x0003, t01=0x0064}
0x0520…052c              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0003, t01=0x0076}
0x052c…053a              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0003, t01=0x0082}
0x053a…0542              Head {h00=0x0004, h01=0x0050, t00=0x0003, t01=0x0090}
0x0542…0556              Head {h00=0x0010, h01=0x000b, text=»LEVOPR PROC «, t00=0x0003, t01=0x0098}
0x0556…0562              Head {h00=0x0008, h01=0x0004, text=» RET«, t00=0x0003, t01=0x00ac}
0x0562…0570              Head {h00=0x000a, h01=0x0005, text=» PEND «, t00=0x0003, t01=0x00b8}
0x0570…0578              Head {h00=0x0004, h01=0x0050, t00=0x0003, t01=0x00c6}
0x0578…0580              Head {h00=0x0004, h01=0x0050, t00=0x0003, t01=0x00ce}
0x0580…0594              Head {h00=0x0010, h01=0x000b, text=»LEVDEL PROC «, t00=0x0003, t01=0x00d6}
0x0594…05a0              Head {h00=0x0008, h01=0x0004, text=» RET«, t00=0x0003, t01=0x00ea}
0x05a0…05ae              Head {h00=0x000a, h01=0x0005, text=» PEND «, t00=0x0003, t01=0x00f6}
0x05ae…05b6              Head {h00=0x0004, h01=0x0050, t00=0x0003, t01=0x0104}
0x05b6…05c8              Head {h00=0x000e, h01=0x0050, text=»LEVRD PROC«, t00=0x0003, t01=0x010c}
0x05c8…05d4              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0003, t01=0x011e}
0x05d4…05e2              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0003, t01=0x012a}
0x05e2…05ea              Head {h00=0x0004, h01=0x0050, t00=0x0003, t01=0x0138}
0x05ea…05fe              Head {h00=0x0010, h01=0x0050, text=»LEVWRT PROC «, t00=0x0003, t01=0x0140}
0x05fe…060a              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0003, t01=0x0154}
0x060a…0618              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0003, t01=0x0160}
0x0618…0622              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x016e}
0x0622…0636              Head {h00=0x0010, h01=0x0050, text=»LEVINT PROC «, t00=0x0003, t01=0x0178}
0x0636…0642              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0003, t01=0x018c}
0x0642…0650              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0004, t01=0x0008}
0x0650…065a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0016}
0x065a…066e              Head {h00=0x0010, h01=0x0050, text=»LEVSPG PROC «, t00=0x0004, t01=0x0020}
0x066e…067a              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0004, t01=0x0034}
0x067a…0688              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0004, t01=0x0040}
0x0688…0692              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x004e}
0x0692…06a6              Head {h00=0x0010, h01=0x0050, text=»LEVPRT PROC «, t00=0x0004, t01=0x0058}
0x06a6…06b2              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0004, t01=0x006c}
0x06b2…06c0              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0004, t01=0x0078}
0x06c0…06ca              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0086}
0x06ca…06dc              Head {h00=0x000e, h01=0x0050, text=»VARRD PROC«, t00=0x0004, t01=0x0090}
0x06dc…06e8              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0004, t01=0x00a2}
0x06e8…06f6              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0004, t01=0x00ae}
0x06f6…0700              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00bc}
0x0700…0714              Head {h00=0x0010, h01=0x000b, text=»VARWRT PROC «, t00=0x0004, t01=0x00c6}
0x0714…0720              Head {h00=0x0008, h01=0x0004, text=» RET«, t00=0x0004, t01=0x00da}
0x0720…072e              Head {h00=0x000a, h01=0x0005, text=» PEND «, t00=0x0004, t01=0x00e6}
0x072e…0738              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00f4}
0x0738…074c              Head {h00=0x0010, h01=0x000b, text=»VARINT PROC «, t00=0x0004, t01=0x00fe}
0x074c…0758              Head {h00=0x0008, h01=0x0004, text=» RET«, t00=0x0004, t01=0x0112}
0x0758…0766              Head {h00=0x000a, h01=0x0005, text=» PEND «, t00=0x0004, t01=0x011e}
0x0766…076e              Head {h00=0x0004, h01=0x0000, t00=0x0004, t01=0x012c}
0x076e…0794              Head {h00=0x0022, h01=0x001d, text=»IDXGET PROC LEVNR,INDX,LEVDEX «, t00=0x0004, t01=0x0134}
0x0794…07a0              Head {h00=0x0008, h01=0x0004, text=» RET«, t00=0x0004, t01=0x015a}
0x07a0…07ae              Head {h00=0x000a, h01=0x0005, text=» PEND «, t00=0x0004, t01=0x0166}
0x07ae…07b6              Head {h00=0x0004, h01=0x0000, t00=0x0004, t01=0x0174}
0x07b6…07ca              Head {h00=0x0010, h01=0x0050, text=»IDXINS PROC «, t00=0x0004, t01=0x017c}
0x07ca…07d6              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0004, t01=0x0190}
0x07d6…07e4              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0005, t01=0x000c}
0x07e4…07ee              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x001a}
0x07ee…0802              Head {h00=0x0010, h01=0x0050, text=»SETIDX PROC «, t00=0x0005, t01=0x0024}
0x0802…080e              Head {h00=0x0008, h01=0x0005, text=» RET«, t00=0x0005, t01=0x0038}
0x080e…081c              Head {h00=0x000a, h01=0x0005, text=» PEND «, t00=0x0005, t01=0x0044}
0x081c…0824              Head {h00=0x0004, h01=0x0050, t00=0x0005, t01=0x0052}
0x0824…0838              Head {h00=0x0010, h01=0x0050, text=»IDXDEL PROC «, t00=0x0005, t01=0x005a}
0x0838…0844              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0005, t01=0x006e}
0x0844…0852              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0005, t01=0x007a}
0x0852…085c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0088}
0x085c…0870              Head {h00=0x0010, h01=0x000b, text=»RESTIX PROC «, t00=0x0005, t01=0x0092}
0x0870…087c              Head {h00=0x0008, h01=0x0005, text=» RET«, t00=0x0005, t01=0x00a6}
0x087c…088a              Head {h00=0x000a, h01=0x0005, text=» PEND «, t00=0x0005, t01=0x00b2}
0x088a…0892              Head {h00=0x0004, h01=0x0000, t00=0x0005, t01=0x00c0}
0x0892…089a              Head {h00=0x0004, h01=0x0000, t00=0x0005, t01=0x00c8}
0x089a…08ae              Head {h00=0x0010, h01=0x000b, text=»INITIX PROC «, t00=0x0005, t01=0x00d0}
0x08ae…08ba              Head {h00=0x0008, h01=0x0004, text=» RET«, t00=0x0005, t01=0x00e4}
0x08ba…08c8              Head {h00=0x000a, h01=0x0005, text=» PEND «, t00=0x0005, t01=0x00f0}
0x08c8…08d0              Head {h00=0x0004, h01=0x0000, t00=0x0005, t01=0x00fe}
0x08d0…08d8              Head {h00=0x0004, h01=0x0000, t00=0x0005, t01=0x0106}
0x08d8…08ec              Head {h00=0x0010, h01=0x0050, text=»TXTPRT PROC «, t00=0x0005, t01=0x010e}
0x08ec…08f8              Head {h00=0x0008, h01=0x0004, text=» RET«, t00=0x0005, t01=0x0122}
0x08f8…0906              Head {h00=0x000a, h01=0x0005, text=» PEND «, t00=0x0005, t01=0x012e}
0x0906…090e              Head {h00=0x0004, h01=0x0050, t00=0x0005, t01=0x013c}
0x090e…0922              Head {h00=0x0010, h01=0x0050, text=»TXTOPR PROC «, t00=0x0005, t01=0x0144}
0x0922…092e              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0005, t01=0x0158}
0x092e…093c              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0005, t01=0x0164}
0x093c…0958              Head {h00=0x0018, h01=0x0050, text=»REPL00 PROC STRG,LEN«, t00=0x0005, t01=0x0172}
0x0958…0984              Head {h00=0x0028, h01=0x0050, text=»************************************«, t00=0x0005, t01=0x018e}
0x0984…098e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x002a}
0x098e…09ba              Head {h00=0x0028, h01=0x0050, text=»* THE PROCEDURE REPLACES HEX-ZEROES «, t00=0x0006, t01=0x0034}
0x09ba…09e2              Head {h00=0x0024, h01=0x0050, text=»* BY SPACES, IN ANY STRINGFIELD.«, t00=0x0006, t01=0x0060}
0x09e2…0a0c              Head {h00=0x0026, h01=0x0050, text=»* THIS IS ACCOMPLISHED BY FINDING «, t00=0x0006, t01=0x0088}
0x0a0c…0a32              Head {h00=0x0022, h01=0x0050, text=»* THE FIRST 00-BYTE, COMPUTING«, t00=0x0006, t01=0x00b2}
0x0a32…0a5a              Head {h00=0x0024, h01=0x0050, text=»* THE LENGTH OF THE REST OF THE «, t00=0x0006, t01=0x00d8}
0x0a5a…0a82              Head {h00=0x0024, h01=0x0050, text=»* FIELD, AND DELETING THIS REST.«, t00=0x0006, t01=0x0100}
0x0a82…0a8c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0128}
0x0a8c…0ab8              Head {h00=0x0028, h01=0x0050, text=»************************************«, t00=0x0006, t01=0x0132}
0x0ab8…0ad2              Head {h00=0x0016, h01=0x0050, text=» MOVE GSWBIN7,LEN «, t00=0x0006, t01=0x015e}
0x0ad2…0aee              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN0 «, t00=0x0006, t01=0x0178}
0x0aee…0b0a (7, 0, 398)  Head {h00=0x0018, h01=0x0050, text=» MOVE GSWSTR1,=X'00'«, t00=0x0007, t01=0x0004}
0x0b0a…0b42              Head {h00=0x0034, h01=0x0050, text=» MATCH STRG,GSWBIN1,GSWBIN7,GSWSTR1,CBIN0,CBIN1 «, t00=0x0007, t01=0x0020}
0x0b42…0b64              Head {h00=0x001e, h01=0x0050, text=» BNE REPL10 NO MATCH FOUND«, t00=0x0007, t01=0x0058}
0x0b64…0b80              Head {h00=0x0018, h01=0x0050, text=» SUB GSWBIN7,GSWBIN1«, t00=0x0007, t01=0x007a}
0x0b80…0ba4              Head {h00=0x0020, h01=0x0050, text=» DLETE STRG,GSWBIN1,GSWBIN7 «, t00=0x0007, t01=0x0096}
0x0ba4…0bbc              Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN0«, t00=0x0007, t01=0x00ba}
0x0bbc…0bc8              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0007, t01=0x00d2}
0x0bc8…0bd6              Head {h00=0x000a, h01=0x0050, text=»REPL10«, t00=0x0007, t01=0x00de}
0x0bd6…0bee              Head {h00=0x0014, h01=0x0050, text=» CMP CBIN4,CBIN0«, t00=0x0007, t01=0x00ec}
0x0bee…0bfa              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0007, t01=0x0104}
0x0bfa…0c08              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0007, t01=0x0110}
0x0c08…0c12              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x011e}
0x0c12…0c26              Head {h00=0x0010, h01=0x0050, text=»TXTUNP PROC «, t00=0x0007, t01=0x0128}
0x0c26…0c32              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0007, t01=0x013c}
0x0c32…0c40              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0007, t01=0x0148}
0x0c40…0c4a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0156}
0x0c4a…0c5e              Head {h00=0x0010, h01=0x0050, text=»TXTPAK PROC «, t00=0x0007, t01=0x0160}
0x0c5e…0c6a              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0007, t01=0x0174}
0x0c6a…0c78              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0007, t01=0x0180}
0x0c78…0c80              Head {h00=0x0004, h01=0x0050, t00=0x0007, t01=0x018e}
0x0c80…0c96              Head {h00=0x0012, h01=0x0050, text=»TXTRD PROC BIN«, t00=0x0008, t01=0x0008}
0x0c96…0ca2              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0008, t01=0x001e}
0x0ca2…0cb0              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0008, t01=0x002a}
0x0cb0…0cb8              Head {h00=0x0004, h01=0x0050, t00=0x0008, t01=0x0038}
0x0cb8…0cc0              Head {h00=0x0004, h01=0x0050, t00=0x0008, t01=0x0040}
0x0cc0…0cd6              Head {h00=0x0012, h01=0x0050, text=»TXTWR PROC BIN«, t00=0x0008, t01=0x0048}
0x0cd6…0ce2              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0008, t01=0x005e}
0x0ce2…0cf0              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0008, t01=0x006a}
0x0cf0…0cf8              Head {h00=0x0004, h01=0x0050, t00=0x0008, t01=0x0078}
0x0cf8…0d00              Head {h00=0x0004, h01=0x0050, t00=0x0008, t01=0x0080}
0x0d00…0d14              Head {h00=0x0010, h01=0x0050, text=»SETKEY PROC «, t00=0x0008, t01=0x0088}
0x0d14…0d46              Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0008, t01=0x009c}
0x0d46…0d50              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00ce}
0x0d50…0d78              Head {h00=0x0024, h01=0x0050, text=»* SETS SPKEY TO 1 IF KASSE OPEN,«, t00=0x0008, t01=0x00d8}
0x0d78…0d96              Head {h00=0x001a, h01=0x0050, text=»* ELSE SETS SPKEY TO 2«, t00=0x0008, t01=0x0100}
0x0d96…0da0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x011e}
0x0da0…0dd2              Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0008, t01=0x0128}
0x0dd2…0dec              Head {h00=0x0016, h01=0x0050, text=» MOVE SPKEY,CBIN1 «, t00=0x0008, t01=0x015a}
0x0dec…0e16              Head {h00=0x0026, h01=0x0050, text=» CBG CMASK(TTASKNR),=D'0',SETKRET «, t00=0x0008, t01=0x0174}
0x0e16…0e36              Head {h00=0x001c, h01=0x0050, text=» MOVE SPKEY,CBIN2 CLOSED«, t00=0x0009, t01=0x000e}
0x0e36…0e46              Head {h00=0x000c, h01=0x0050, text=»SETKRET «, t00=0x0009, t01=0x002e}
0x0e46…0e52              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0009, t01=0x003e}
0x0e52…0e60              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0009, t01=0x004a}
0x0e60…0e76              Head {h00=0x0012, h01=0x0050, text=»WSTRCH PROC P «, t00=0x0009, t01=0x0058}
0x0e76…0e82              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0009, t01=0x006e}
0x0e82…0e90              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0009, t01=0x007a}
0x0e90…0e98              Head {h00=0x0004, h01=0x0050, t00=0x0009, t01=0x0088}
0x0e98…0eae              Head {h00=0x0012, h01=0x0050, text=»TRINS PROC PT «, t00=0x0009, t01=0x0090}
0x0eae…0ec6              Head {h00=0x0014, h01=0x0010, text=» CMP CBIN0,CBIN0«, t00=0x0009, t01=0x00a6}
0x0ec6…0ed2              Head {h00=0x0008, h01=0x0004, text=» RET«, t00=0x0009, t01=0x00be}
0x0ed2…0ee0              Head {h00=0x000a, h01=0x0005, text=» PEND «, t00=0x0009, t01=0x00ca}
0x0ee0…0ee8              Head {h00=0x0004, h01=0x0050, t00=0x0009, t01=0x00d8}
0x0ee8…0efe              Head {h00=0x0012, h01=0x0050, text=»TRGETF PROC PT«, t00=0x0009, t01=0x00e0}
0x0efe…0f16              Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN0«, t00=0x0009, t01=0x00f6}
0x0f16…0f22              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0009, t01=0x010e}
0x0f22…0f30              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0009, t01=0x011a}
0x0f30…0f38              Head {h00=0x0004, h01=0x0050, t00=0x0009, t01=0x0128}
0x0f38…0f44              Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0009, t01=0x0130}
0x0f44…0f48              Head {h00=0x4004, h01=0x0000}
0x0f48…0f4c              00 09 01 3c                                                                                                                                                                                                                                       ┆   <┆
0x0f4c…0f54 (10, 1, 8)   20 04 00 00 00 0a 00 04                                                                                                                                                                                                                           ┆        ┆
0x0f54…0fa4 (11, 0, 398) 45 4b 53 54 52 45 47 2e 20 52 45 53 54 4f 52 45 44 20 27 20 00 0a 01 7e 00 1a 00 50 20 45 44 57 52 54 20 4b 4a 54 41 50 45 2c 49 4e 49 54 35 46 4d 54 00 0b 00 1c 00 0e 00 50 20 42 20 52 53 54 30 30 30 20 00 0b 00 3a 00 06 00 50 2a 20 00 0b   ┆EKSTREG. RESTORED '    ~   P EDWRT KJTAPE,INIT5FMT       P B RST000    :   P*   ┆
0x0fa4…0ff4              00 4c 00 1e 00 50 52 53 4f 50 30 38 5c 5c 5c 46 49 4e 49 53 48 20 52 45 53 54 4f 52 49 4e 47 20 00 0b 00 56 00 24 00 50 20 50 45 52 46 20 4c 41 4d 50 4f 46 2c 3d 57 27 32 30 34 37 27 20 4c 41 4d 50 53 20 4f 46 46 20 00 0b 00 78 00 2a 00 50   ┆ L   PRSOP08   FINISH RESTORING    V $ P PERF LAMPOF,=W'2047' LAMPS OFF    x * P┆
0x0ff4…1044              20 50 45 52 46 20 41 53 47 56 4f 4c 2c 43 42 49 4e 30 20 41 53 53 49 47 4e 20 4b 4f 4e 46 20 44 41 54 41 53 45 54 00 0b 00 a0 00 10 00 50 20 42 4e 4f 4b 20 54 31 30 31 30 20 00 0b 00 ce 00 0c 00 50 20 42 20 54 31 30 32 38 00 0b 00 e2 00 06   ┆ PERF ASGVOL,CBIN0 ASSIGN KONF DATASET       P BNOK T1010        P B T1028      ┆
0x1044…1094              00 50 2a 20 00 0b 00 f2 00 06 00 50 2a 20 00 0b 00 fc 00 06 00 50 2a 20 00 0b 01 06 00 06 00 50 2a 20 00 0b 01 10 00 06 00 50 2a 20 00 0b 01 1a 00 18 00 50 54 31 30 32 35 5c 5c 5c 4e 4f 52 4d 41 4c 20 53 54 41 52 54 00 0b 01 24 00 1e 00 50   ┆ P*        P*        P*        P*        P*        PT1025   NORMAL START   $   P┆
0x1094…10e2              20 50 45 52 46 20 43 4f 4e 46 52 44 20 52 45 41 44 20 43 4f 4e 46 44 41 54 41 00 0b 01 40 00 10 00 50 20 42 4e 4f 4b 20 54 31 30 31 30 20 00 0b 01 62 00 1c 00 50 20 43 42 4e 45 20 43 56 4f 4c 4e 4f 2c 3d 44 27 30 27 2c 54 31 30 32 38         ┆ PERF CONFRD READ CONFDATA   @   P BNOK T1010    b   P CBNE CVOLNO,=D'0',T1028┆
0x10e2…1132 (12, 0, 400) 00 0b 01 76 00 16 00 50 20 4d 4f 56 45 20 43 56 4f 4c 4e 4f 2c 3d 44 27 30 27 00 0c 00 08 00 0a 00 50 54 31 30 32 38 20 00 0c 00 22 00 1c 00 50 20 4d 4f 56 45 20 43 56 4f 4c 28 43 42 49 4e 31 29 2c 41 53 56 4f 4c 20 00 0c 00 30 00 16 00 50   ┆   v   P MOVE CVOLNO,=D'0'       PT1028    "   P MOVE CVOL(CBIN1),ASVOL    0   P┆
0x1132…1182              20 54 42 54 20 43 53 57 46 4c 41 47 2c 54 31 30 33 30 00 0c 00 50 00 2e 00 50 20 43 42 4e 4c 20 43 4b 4d 44 4e 52 2c 3d 44 27 31 27 2c 54 31 30 35 30 20 56 45 52 59 20 46 49 52 53 54 20 53 54 41 52 54 20 00 0c 00 6a 00 06 00 50 2a 20 00 0c   ┆ TBT CSWFLAG,T1030   P . P CBNL CKMDNR,=D'1',T1050 VERY FIRST START    j   P*   ┆
0x1182…11d2              00 9c 00 06 00 50 2a 20 00 0c 00 a6 00 06 00 50 2a 20 00 0c 00 b0 00 0a 00 50 54 31 30 33 30 20 00 0c 00 ba 00 0a 00 50 54 31 30 33 33 20 00 0c 00 c8 00 12 00 50 20 53 45 54 20 43 43 4f 4c 44 46 4c 47 20 00 0c 00 d6 00 12 00 50 20 53 45 54   ┆     P*        P*        PT1030        PT1033        P SET CCOLDFLG        P SET┆
0x11d2…1222              20 53 50 50 52 4f 4d 50 54 20 00 0c 00 ec 00 14 00 50 20 44 53 43 30 20 4b 45 59 42 2c 53 4b 49 42 20 00 0c 01 02 00 18 00 50 20 41 54 54 46 4d 54 20 43 53 46 52 4d 30 32 20 59 45 53 20 00 0c 01 1a 00 10 00 50 20 50 45 52 46 20 53 50 43 4c   ┆ SPPROMPT        P DSC0 KEYB,SKIB        P ATTFMT CSFRM02 YES        P PERF SPCL┆
0x1222…1272              52 4e 00 0c 01 36 00 1e 00 50 20 43 42 4e 45 20 53 50 42 49 4e 57 32 2c 43 42 49 4e 33 2c 54 31 30 33 33 20 00 0c 01 4a 00 16 00 50 20 54 42 54 20 43 53 57 46 4c 41 47 2c 54 31 30 32 30 00 0c 01 6c 00 0a 00 50 54 31 30 33 37 20 00 0c 01 86   ┆RN   6   P CBNE SPBINW2,CBIN3,T1033    J   P TBT CSWFLAG,T1020   l   PT1037     ┆

Reduced view