|
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: 4716 (0x126c)
Notes: pts_type(SC)
Names: »REMSUB.SC«
└─⟦75255755f⟧ Bits:30009693 Philips computer tape "600410"
└─⟦this⟧ »NJREMIT/REMSUB.SC«
└─⟦b6546aa17⟧ Bits:30009689 Philips computer tape "600325"
└─⟦this⟧ »REMIT2/REMSUB.SC«
IDENT REMSUB DDUM KMD08 PDIV ENTRY FMOD ENTRY FSOLVE ENTRY NEWLIN EXT GENWRF ENTRY PRTADJ EXT SPCLRA ENTRY KBTEST EXT ABORT EXT XCOP EXT SPLIN8 INCLUDE EQUATE EJECT FMOD PROC T,S * THE PROCEDURE MODIFIES A STRING, CONTAINING * FORMAT CONTROL CHARACTERS. * A TEXT TO BE REPLACED HAS TO BE SPECIFIED AS * FOLLOWS: * FTEXT X'<LENGTH> (LENGTH I HEX NOTATION) * THE PROCEDURE WILL DELETE THE UNUSABLE LENGTH (01) * AND INSERT DATA FROM THE SPECIFIED STRING, WITH * THE LENGTH THAT WAS SPECIFIED IN THE FORMAT AS DATA * THE INSERTED DATA WILL NOW LOOK LIKE A FTEXT * SET LENGTH = EDITBUF-1DVS. 731 MOVE GSWBIN6,=W'731' MOVE GSWBIN7,T TEXTNR MOVE GSWBIN8,CBIN0 MOVE GSWSTR1,=X'C3' IDENT FOR FTEXT FMOD10 MATCH EDITBUF,GSWBIN8,GSWBIN6,GSWSTR1,CBIN0,CBIN1 ADD GSWBIN8,CBIN1 LENGTH (01 OR NN) MOVE GSWBIN6,=W'731' SUB GSWBIN6,GSWBIN8 COMPUTE NEW LENGTH FOR MATCH SUB GSWBIN7,CBIN1 BNZ FMOD10 REPEAT UNTIL FOUND XCOPY GSWBIN7,CBIN1,CBIN1,EDITBUF,GSWBIN8 CBNE GSWBIN7,CBIN1,FMOD95 DLETE EDITBUF,GSWBIN8,CBIN1 AND DELETE IT XCOPY GSWBIN7,CBIN1,CBIN1,EDITBUF,GSWBIN8 ADD GSWBIN8,CBIN1 INSRT EDITBUF,GSWBIN8,GSWBIN7,S,CBIN0 INSERT ITEM CMP CBIN0,CBIN0 B FMOD99 FMOD95 CMP CBIN0,CBIN1 FMOD99 RET PEND EJECT FSOLVE PROC * THE PROCEDURE SOLVES UNEDITED TEXT FROM * BUNDTCHECK AND BUNDTGIRO. * UNSOLVED TEXTS ARE IDENTIFIED BY X'C301XX' MOVE GSWBIN7,=W'731' MOVE SPINPUT,=' ' MOVE GSWSTR2,=X'C301' MOVE GSWBIN8,CBIN0 FSOLV10 MATCH EDITBUF,GSWBIN8,GSWBIN7,GSWSTR2,CBIN0,CBIN2 BNOK FSOLV90 NO MORE LEFT FSOLV15 ADD GSWBIN8,CBIN1 DLETE EDITBUF,GSWBIN8,CBIN1 MOVE GSWBIN7,CBIN0 XCOPY GSWBIN7,CBIN1,CBIN1,EDITBUF,GSWBIN8 ADD GSWBIN8,CBIN1 INSRT EDITBUF,GSWBIN8,GSWBIN7,SPINPUT,CBIN0 MOVE GSWBIN7,=W'731' SUB GSWBIN7,GSWBIN8 B FSOLV10 FSOLV90 RET PEND * * * NEWLIN PROC P MOVE GSWBIN5,P NEWL10 PERF GENWRF,GTHCDEV,FNEWLIN SUB GSWBIN5,CBIN1 CBG GSWBIN5,CBIN0,NEWL10 RET PEND EJECT PRTADJ PROC * THE PROCEDURE ASKS IF THE FORMULAR * HAS BEEN ADJESTED CORRECTLY, AND * SETS THE CONDITION REGISTER ACCORDINGLY. PRT010 SET SPPROMPT ATTFMT FRMADJ PERF SPCLRA IB SPBINW2,PRT010,PRT020,PRT030,PRT040 B PRT010 PRT020 MAK CMP CBIN1,CBIN0 B PRT090 PRT030 ENTER CMP CBIN0,CBIN0 B PRT090 PRT040 CREDIT CMP CBIN0,CBIN1 PRT090 RET PEND EJECT KBTEST PROC * THE PROCEDURE SENSES THE KEYBOARD. * IF THE MAK-KEY HAS BEEN DEPRESSED, THE COND.REG * WILL BE SET TO ZERO, IN ORDER TO ENABLE THE CALLING * MODULE TO STOP THE LISTING (OR FOR ANY OTHER PURPOSE) PERF SPLIN8,CBIN0,CBIN0 TESTIO KEYB BOK KBT10 CALL ABORT,KEYB B KBT20 KBT10 WAIT KEYB CBNE SPBINW2,CBIN6,KBT20 CMP CBIN0,CBIN0 B KBT99 KBT20 CMP CBIN0,CBIN1 KBT99 RET PEND EJECT FRMADJ FRMT FSL FTEXT ='PAPIRINDSTILLING OK ?' FNL FKI 1,MAXL=1 FMEL 'X',GSWBCD1 FMEND FNEWLIN FRMT FNL FMEND END
0x0000…0016 (0, 0, 400) Head {h00=0x0012, h01=0x000d, text=» IDENT REMSUB «, t00=0x0000, t01=0x0004}
0x0016…002a Head {h00=0x0010, h01=0x0050, text=» DDUM KMD08 «, t00=0x0000, t01=0x001a}
0x002a…0038 Head {h00=0x000a, h01=0x0005, text=» PDIV «, t00=0x0000, t01=0x002e}
0x0038…004c Head {h00=0x0010, h01=0x000b, text=» ENTRY FMOD «, t00=0x0000, t01=0x003c}
0x004c…0062 Head {h00=0x0012, h01=0x000d, text=» ENTRY FSOLVE «, t00=0x0000, t01=0x0050}
0x0062…0078 Head {h00=0x0012, h01=0x000d, text=» ENTRY NEWLIN «, t00=0x0000, t01=0x0066}
0x0078…008c Head {h00=0x0010, h01=0x000b, text=» EXT GENWRF «, t00=0x0000, t01=0x007c}
0x008c…00a2 Head {h00=0x0012, h01=0x000d, text=» ENTRY PRTADJ «, t00=0x0000, t01=0x0090}
0x00a2…00b6 Head {h00=0x0010, h01=0x000b, text=» EXT SPCLRA «, t00=0x0000, t01=0x00a6}
0x00b6…00cc Head {h00=0x0012, h01=0x000d, text=» ENTRY KBTEST «, t00=0x0000, t01=0x00ba}
0x00cc…00de Head {h00=0x000e, h01=0x000a, text=» EXT ABORT«, t00=0x0000, t01=0x00d0}
0x00de…00f0 Head {h00=0x000e, h01=0x0050, text=» EXT XCOP «, t00=0x0000, t01=0x00e2}
0x00f0…0104 Head {h00=0x0010, h01=0x000b, text=» EXT SPLIN8 «, t00=0x0000, t01=0x00f4}
0x0104…011c Head {h00=0x0014, h01=0x000f, text=» INCLUDE EQUATE «, t00=0x0000, t01=0x0108}
0x011c…0124 Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0120}
0x0124…0132 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0000, t01=0x0128}
0x0132…0148 Head {h00=0x0012, h01=0x0050, text=»FMOD PROC T,S «, t00=0x0000, t01=0x0136}
0x0148…017e Head {h00=0x0032, h01=0x0050, text=»* THE PROCEDURE MODIFIES A STRING, CONTAINING «, t00=0x0000, t01=0x014c}
0x017e…01a2 Head {h00=0x0020, h01=0x0050, text=»* FORMAT CONTROL CHARACTERS.«, t00=0x0000, t01=0x0182}
0x01a2…01d8 Head {h00=0x0032, h01=0x0050, text=»* A TEXT TO BE REPLACED HAS TO BE SPECIFIED AS«, t00=0x0001, t01=0x0016}
0x01d8…01ea Head {h00=0x000e, h01=0x0050, text=»* FOLLOWS:«, t00=0x0001, t01=0x004c}
0x01ea…021e Head {h00=0x0030, h01=0x0050, text=»* FTEXT X'<LENGTH> (LENGTH I HEX NOTATION) «, t00=0x0001, t01=0x005e}
0x021e…025a Head {h00=0x0038, h01=0x0050, text=»* THE PROCEDURE WILL DELETE THE UNUSABLE LENGTH (01)«, t00=0x0001, t01=0x0092}
0x025a…0294 Head {h00=0x0036, h01=0x0050, text=»* AND INSERT DATA FROM THE SPECIFIED STRING, WITH «, t00=0x0001, t01=0x00ce}
0x0294…02d2 Head {h00=0x003a, h01=0x0050, text=»* THE LENGTH THAT WAS SPECIFIED IN THE FORMAT AS DATA «, t00=0x0001, t01=0x0108}
0x02d2…0308 Head {h00=0x0032, h01=0x0050, text=»* THE INSERTED DATA WILL NOW LOOK LIKE A FTEXT«, t00=0x0001, t01=0x0146}
0x0308…0332 Head {h00=0x0026, h01=0x0050, text=»* SET LENGTH = EDITBUF-1DVS. 731 «, t00=0x0001, t01=0x017c}
0x0332…0350 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN6,=W'731' «, t00=0x0002, t01=0x0016}
0x0350…036e Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN7,T TEXTNR«, t00=0x0002, t01=0x0034}
0x036e…038a Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN8,CBIN0 «, t00=0x0002, t01=0x0052}
0x038a…03b6 Head {h00=0x0028, h01=0x0050, text=» MOVE GSWSTR1,=X'C3' IDENT FOR FTEXT«, t00=0x0002, t01=0x006e}
0x03b6…03c4 Head {h00=0x000a, h01=0x0050, text=»FMOD10«, t00=0x0002, t01=0x009a}
0x03c4…03fe Head {h00=0x0036, h01=0x0050, text=» MATCH EDITBUF,GSWBIN8,GSWBIN6,GSWSTR1,CBIN0,CBIN1«, t00=0x0002, t01=0x00a8}
0x03fe…042a Head {h00=0x0028, h01=0x0050, text=» ADD GSWBIN8,CBIN1 LENGTH (01 OR NN)«, t00=0x0002, t01=0x00e2}
0x042a…0448 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN6,=W'731' «, t00=0x0002, t01=0x010e}
0x0448…0482 Head {h00=0x0036, h01=0x0050, text=» SUB GSWBIN6,GSWBIN8 COMPUTE NEW LENGTH FOR MATCH «, t00=0x0002, t01=0x012c}
0x0482…049c Head {h00=0x0016, h01=0x0050, text=» SUB GSWBIN7,CBIN1«, t00=0x0002, t01=0x0166}
0x049c…04c2 Head {h00=0x0022, h01=0x0050, text=» BNZ FMOD10 REPEAT UNTIL FOUND«, t00=0x0002, t01=0x0180}
0x04c2…04f4 Head {h00=0x002e, h01=0x0050, text=» XCOPY GSWBIN7,CBIN1,CBIN1,EDITBUF,GSWBIN8«, t00=0x0003, t01=0x0016}
0x04f4…0516 Head {h00=0x001e, h01=0x0050, text=» CBNE GSWBIN7,CBIN1,FMOD95«, t00=0x0003, t01=0x0048}
0x0516…0548 Head {h00=0x002e, h01=0x0050, text=» DLETE EDITBUF,GSWBIN8,CBIN1 AND DELETE IT«, t00=0x0003, t01=0x006a}
0x0548…057a Head {h00=0x002e, h01=0x0050, text=» XCOPY GSWBIN7,CBIN1,CBIN1,EDITBUF,GSWBIN8«, t00=0x0003, t01=0x009c}
0x057a…0594 Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN8,CBIN1«, t00=0x0003, t01=0x00ce}
0x0594…05ce Head {h00=0x0036, h01=0x0050, text=» INSRT EDITBUF,GSWBIN8,GSWBIN7,S,CBIN0 INSERT ITEM«, t00=0x0003, t01=0x00e8}
0x05ce…05e6 Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN0«, t00=0x0003, t01=0x0122}
0x05e6…05f8 Head {h00=0x000e, h01=0x0050, text=» B FMOD99 «, t00=0x0003, t01=0x013a}
0x05f8…0606 Head {h00=0x000a, h01=0x0050, text=»FMOD95«, t00=0x0003, t01=0x014c}
0x0606…061e Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN1«, t00=0x0003, t01=0x015a}
0x061e…062c Head {h00=0x000a, h01=0x0050, text=»FMOD99«, t00=0x0003, t01=0x0172}
0x062c…0638 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0003, t01=0x0180}
0x0638…0646 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0003, t01=0x018c}
0x0646…0654 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x000a}
0x0654…0668 Head {h00=0x0010, h01=0x0050, text=»FSOLVE PROC «, t00=0x0004, t01=0x0018}
0x0668…069a Head {h00=0x002e, h01=0x0050, text=»* THE PROCEDURE SOLVES UNEDITED TEXT FROM «, t00=0x0004, t01=0x002c}
0x069a…06be Head {h00=0x0020, h01=0x0050, text=»* BUNDTCHECK AND BUNDTGIRO. «, t00=0x0004, t01=0x005e}
0x06be…06f2 Head {h00=0x0030, h01=0x0050, text=»* UNSOLVED TEXTS ARE IDENTIFIED BY X'C301XX'«, t00=0x0004, t01=0x0082}
0x06f2…0710 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN7,=W'731' «, t00=0x0004, t01=0x00b6}
0x0710…072a Head {h00=0x0016, h01=0x0050, text=» MOVE SPINPUT,=' '«, t00=0x0004, t01=0x00d4}
0x072a…0748 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWSTR2,=X'C301'«, t00=0x0004, t01=0x00ee}
0x0748…0764 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN8,CBIN0 «, t00=0x0004, t01=0x010c}
0x0764…0774 Head {h00=0x000c, h01=0x0050, text=»FSOLV10 «, t00=0x0004, t01=0x0128}
0x0774…07ae Head {h00=0x0036, h01=0x0050, text=» MATCH EDITBUF,GSWBIN8,GSWBIN7,GSWSTR2,CBIN0,CBIN2«, t00=0x0004, t01=0x0138}
0x07ae…07d0 Head {h00=0x001e, h01=0x0050, text=» BNOK FSOLV90 NO MORE LEFT«, t00=0x0004, t01=0x0172}
0x07d0…07e0 (5, 0, 398) Head {h00=0x000c, h01=0x0050, text=»FSOLV15 «, t00=0x0005, t01=0x0004}
0x07e0…07fa Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN8,CBIN1«, t00=0x0005, t01=0x0014}
0x07fa…081e Head {h00=0x0020, h01=0x0050, text=» DLETE EDITBUF,GSWBIN8,CBIN1«, t00=0x0005, t01=0x002e}
0x081e…083a Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN7,CBIN0«, t00=0x0005, t01=0x0052}
0x083a…086c Head {h00=0x002e, h01=0x0050, text=» XCOPY GSWBIN7,CBIN1,CBIN1,EDITBUF,GSWBIN8«, t00=0x0005, t01=0x006e}
0x086c…0886 Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN8,CBIN1«, t00=0x0005, t01=0x00a0}
0x0886…08ba Head {h00=0x0030, h01=0x0050, text=» INSRT EDITBUF,GSWBIN8,GSWBIN7,SPINPUT,CBIN0«, t00=0x0005, t01=0x00ba}
0x08ba…08d8 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN7,=W'731' «, t00=0x0005, t01=0x00ee}
0x08d8…08f4 Head {h00=0x0018, h01=0x0050, text=» SUB GSWBIN7,GSWBIN8«, t00=0x0005, t01=0x010c}
0x08f4…0906 Head {h00=0x000e, h01=0x0050, text=» B FSOLV10«, t00=0x0005, t01=0x0128}
0x0906…0916 Head {h00=0x000c, h01=0x0050, text=»FSOLV90 «, t00=0x0005, t01=0x013a}
0x0916…0922 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0005, t01=0x014a}
0x0922…0930 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0005, t01=0x0156}
0x0930…0938 Head {h00=0x0004, h01=0x0050, t00=0x0005, t01=0x0164}
0x0938…0942 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x016c}
0x0942…094c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0176}
0x094c…0956 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0180}
0x0956…095e Head {h00=0x0004, h01=0x0050, t00=0x0005, t01=0x018a}
0x095e…0974 (6, 0, 400) Head {h00=0x0012, h01=0x0050, text=»NEWLIN PROC P «, t00=0x0006, t01=0x0004}
0x0974…098c Head {h00=0x0014, h01=0x0050, text=» MOVE GSWBIN5,P «, t00=0x0006, t01=0x001a}
0x098c…099a Head {h00=0x000a, h01=0x0050, text=»NEWL10«, t00=0x0006, t01=0x0032}
0x099a…09be Head {h00=0x0020, h01=0x0050, text=» PERF GENWRF,GTHCDEV,FNEWLIN«, t00=0x0006, t01=0x0040}
0x09be…09d8 Head {h00=0x0016, h01=0x0050, text=» SUB GSWBIN5,CBIN1«, t00=0x0006, t01=0x0064}
0x09d8…09fa Head {h00=0x001e, h01=0x0050, text=» CBG GSWBIN5,CBIN0,NEWL10 «, t00=0x0006, t01=0x007e}
0x09fa…0a06 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0006, t01=0x00a0}
0x0a06…0a14 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0006, t01=0x00ac}
0x0a14…0a22 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0006, t01=0x00ba}
0x0a22…0a36 Head {h00=0x0010, h01=0x0050, text=»PRTADJ PROC «, t00=0x0006, t01=0x00c8}
0x0a36…0a62 Head {h00=0x0028, h01=0x0050, text=»* THE PROCEDURE ASKS IF THE FORMULAR«, t00=0x0006, t01=0x00dc}
0x0a62…0a8c Head {h00=0x0026, h01=0x0050, text=»* HAS BEEN ADJESTED CORRECTLY, AND«, t00=0x0006, t01=0x0108}
0x0a8c…0abe Head {h00=0x002e, h01=0x0050, text=»* SETS THE CONDITION REGISTER ACCORDINGLY.«, t00=0x0006, t01=0x0132}
0x0abe…0acc Head {h00=0x000a, h01=0x0050, text=»PRT010«, t00=0x0006, t01=0x0164}
0x0acc…0ae2 Head {h00=0x0012, h01=0x0050, text=» SET SPPROMPT «, t00=0x0006, t01=0x0172}
0x0ae2…0af8 Head {h00=0x0012, h01=0x0050, text=» ATTFMT FRMADJ«, t00=0x0006, t01=0x0188}
0x0af8…0b0c Head {h00=0x0010, h01=0x0050, text=» PERF SPCLRA«, t00=0x0007, t01=0x000e}
0x0b0c…0b3c Head {h00=0x002c, h01=0x0050, text=» IB SPBINW2,PRT010,PRT020,PRT030,PRT040 «, t00=0x0007, t01=0x0022}
0x0b3c…0b4e Head {h00=0x000e, h01=0x0050, text=» B PRT010 «, t00=0x0007, t01=0x0052}
0x0b4e…0b62 Head {h00=0x0010, h01=0x0050, text=»PRT020 MAK«, t00=0x0007, t01=0x0064}
0x0b62…0b7a Head {h00=0x0014, h01=0x0050, text=» CMP CBIN1,CBIN0«, t00=0x0007, t01=0x0078}
0x0b7a…0b8c Head {h00=0x000e, h01=0x0050, text=» B PRT090 «, t00=0x0007, t01=0x0090}
0x0b8c…0ba4 Head {h00=0x0014, h01=0x0050, text=»PRT030 ENTER «, t00=0x0007, t01=0x00a2}
0x0ba4…0bbc Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN0«, t00=0x0007, t01=0x00ba}
0x0bbc…0bce Head {h00=0x000e, h01=0x0050, text=» B PRT090 «, t00=0x0007, t01=0x00d2}
0x0bce…0be6 Head {h00=0x0014, h01=0x0050, text=»PRT040 CREDIT «, t00=0x0007, t01=0x00e4}
0x0be6…0bfe Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN1«, t00=0x0007, t01=0x00fc}
0x0bfe…0c0c Head {h00=0x000a, h01=0x0050, text=»PRT090«, t00=0x0007, t01=0x0114}
0x0c0c…0c18 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0007, t01=0x0122}
0x0c18…0c26 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0007, t01=0x012e}
0x0c26…0c34 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x013c}
0x0c34…0c48 Head {h00=0x0010, h01=0x0050, text=»KBTEST PROC «, t00=0x0007, t01=0x014a}
0x0c48…0c74 Head {h00=0x0028, h01=0x0050, text=»* THE PROCEDURE SENSES THE KEYBOARD.«, t00=0x0007, t01=0x015e}
0x0c74…0cae Head {h00=0x0036, h01=0x0050, text=»* IF THE MAK-KEY HAS BEEN DEPRESSED, THE COND.REG «, t00=0x0007, t01=0x018a}
0x0cae…0cec Head {h00=0x003a, h01=0x0050, text=»* WILL BE SET TO ZERO, IN ORDER TO ENABLE THE CALLING «, t00=0x0008, t01=0x0034}
0x0cec…0d2c Head {h00=0x003c, h01=0x0050, text=»* MODULE TO STOP THE LISTING (OR FOR ANY OTHER PURPOSE) «, t00=0x0008, t01=0x0072}
0x0d2c…0d4c Head {h00=0x001c, h01=0x0050, text=» PERF SPLIN8,CBIN0,CBIN0«, t00=0x0008, t01=0x00b2}
0x0d4c…0d60 Head {h00=0x0010, h01=0x0050, text=» TESTIO KEYB«, t00=0x0008, t01=0x00d2}
0x0d60…0d72 Head {h00=0x000e, h01=0x0050, text=» BOK KBT10«, t00=0x0008, t01=0x00e6}
0x0d72…0d8a Head {h00=0x0014, h01=0x0050, text=» CALL ABORT,KEYB«, t00=0x0008, t01=0x00f8}
0x0d8a…0d9a Head {h00=0x000c, h01=0x0050, text=» B KBT20«, t00=0x0008, t01=0x0110}
0x0d9a…0da8 Head {h00=0x000a, h01=0x0050, text=»KBT10 «, t00=0x0008, t01=0x0120}
0x0da8…0dba Head {h00=0x000e, h01=0x0050, text=» WAIT KEYB«, t00=0x0008, t01=0x012e}
0x0dba…0ddc Head {h00=0x001e, h01=0x0050, text=» CBNE SPBINW2,CBIN6,KBT20 «, t00=0x0008, t01=0x0140}
0x0ddc…0df4 Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN0«, t00=0x0008, t01=0x0162}
0x0df4…0e04 Head {h00=0x000c, h01=0x0050, text=» B KBT99«, t00=0x0008, t01=0x017a}
0x0e04…0e12 Head {h00=0x000a, h01=0x0050, text=»KBT20 «, t00=0x0008, t01=0x018a}
0x0e12…0e2a Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN1«, t00=0x0009, t01=0x0008}
0x0e2a…0e38 Head {h00=0x000a, h01=0x0050, text=»KBT99 «, t00=0x0009, t01=0x0020}
0x0e38…0e44 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0009, t01=0x002e}
0x0e44…0e52 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0009, t01=0x003a}
0x0e52…0e60 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x0048}
0x0e60…0e74 Head {h00=0x0010, h01=0x0050, text=»FRMADJ FRMT «, t00=0x0009, t01=0x0056}
0x0e74…0e80 Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x0009, t01=0x006a}
0x0e80…0ea8 Head {h00=0x0024, h01=0x0050, text=» FTEXT ='PAPIRINDSTILLING OK ?' «, t00=0x0009, t01=0x0076}
0x0ea8…0eb4 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0009, t01=0x009e}
0x0eb4…0eca Head {h00=0x0012, h01=0x0050, text=» FKI 1,MAXL=1 «, t00=0x0009, t01=0x00aa}
0x0eca…0ee4 Head {h00=0x0016, h01=0x0050, text=» FMEL 'X',GSWBCD1 «, t00=0x0009, t01=0x00c0}
0x0ee4…0ef2 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0009, t01=0x00da}
0x0ef2…0efa Head {h00=0x0004, h01=0x0050, t00=0x0009, t01=0x00e8}
0x0efa…0f02 Head {h00=0x0004, h01=0x0050, t00=0x0009, t01=0x00f0}
0x0f02…0f16 Head {h00=0x0010, h01=0x0050, text=»FNEWLIN FRMT«, t00=0x0009, t01=0x00f8}
0x0f16…0f22 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0009, t01=0x010c}
0x0f22…0f30 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0009, t01=0x0118}
0x0f30…0f3c Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0009, t01=0x0126}
0x0f3c…0f40 Head {h00=0x4004, h01=0x0000}
0x0f40…0f44 00 09 01 32 ┆ 2┆
0x0f44…0f4c (10, 1, 8) 20 04 00 00 00 0a 00 04 ┆ ┆
0x0f4c…0f9c (11, 0, 400) 44 27 36 27 2c 41 44 4d 34 32 33 30 00 02 01 82 00 16 00 50 20 53 55 42 20 47 54 4c 45 56 4e 52 2c 3d 44 27 35 27 00 03 00 14 00 0c 00 50 41 44 4d 34 32 33 30 20 00 03 00 2e 00 18 00 50 20 4d 4f 56 45 20 43 42 44 54 53 55 4d 31 2c 3d 44 27 ┆D'6',ADM4230 P SUB GTLEVNR,=D'5' PADM4230 . P MOVE CBDTSUM1,=D'┆
0x0f9c…0fec 30 27 00 03 00 3e 00 18 00 50 20 4d 4f 56 45 20 43 42 44 54 53 55 4d 32 2c 3d 44 27 30 27 00 03 00 5a 00 18 00 50 20 4d 4f 56 45 20 43 42 44 54 53 55 4d 33 2c 3d 44 27 30 27 00 03 00 76 00 22 00 50 20 50 45 52 46 20 42 44 54 50 52 54 2c 43 ┆0' > P MOVE CBDTSUM2,=D'0' Z P MOVE CBDTSUM3,=D'0' v " P PERF BDTPRT,C┆
0x0fec…103c 42 49 4e 31 20 43 48 45 43 4b 2f 47 49 52 4f 20 00 03 00 92 00 12 00 50 20 42 4e 4f 4b 20 41 44 34 32 52 45 54 20 00 03 00 b8 00 14 00 50 20 41 54 54 46 4d 54 20 41 44 4d 34 32 46 4d 32 00 03 00 ce 00 10 00 50 20 50 45 52 46 20 53 50 43 4c ┆BIN1 CHECK/GIRO P BNOK AD42RET P ATTFMT ADM42FM2 P PERF SPCL┆
0x103c…108c 52 41 00 03 00 e6 00 28 00 50 20 49 42 20 53 50 42 49 4e 57 32 2c 41 44 34 32 52 45 54 2c 41 44 34 32 52 45 54 2c 41 44 4d 34 32 34 30 20 00 03 00 fa 00 0e 00 50 20 42 20 41 44 34 32 52 45 54 00 03 01 26 00 0c 00 50 41 44 4d 34 32 34 30 20 ┆RA ( P IB SPBINW2,AD42RET,AD42RET,ADM4240 P B AD42RET & PADM4240 ┆
0x108c…10dc 00 03 01 38 00 1a 00 50 20 4d 4f 56 45 20 47 54 4c 45 56 4e 52 2c 47 54 50 52 54 54 49 4c 00 03 01 48 00 1e 00 50 20 43 42 4c 20 47 54 4c 45 56 4e 52 2c 3d 44 27 36 27 2c 41 44 4d 34 32 34 31 00 03 01 66 00 16 00 50 20 53 55 42 20 47 54 4c ┆ 8 P MOVE GTLEVNR,GTPRTTIL H P CBL GTLEVNR,=D'6',ADM4241 f P SUB GTL┆
0x10dc…112c (12, 0, 400) 45 56 4e 52 2c 3d 44 27 35 27 00 03 01 88 00 0c 00 50 41 44 4d 34 32 34 31 20 00 04 00 12 00 18 00 50 20 4d 4f 56 45 20 43 42 44 54 53 55 4d 31 2c 3d 44 27 30 27 00 04 00 22 00 18 00 50 20 4d 4f 56 45 20 43 42 44 54 53 55 4d 32 2c 3d 44 27 ┆EVNR,=D'5' PADM4241 P MOVE CBDTSUM1,=D'0' " P MOVE CBDTSUM2,=D'┆
0x112c…117c 30 27 00 04 00 3e 00 18 00 50 20 4d 4f 56 45 20 43 42 44 54 53 55 4d 33 2c 3d 44 27 30 27 00 04 00 5a 00 16 00 50 20 50 45 52 46 20 42 44 54 50 52 54 2c 43 42 49 4e 32 00 04 00 76 00 12 00 50 20 42 4e 4f 4b 20 41 44 34 32 52 45 54 20 00 04 ┆0' > P MOVE CBDTSUM3,=D'0' Z P PERF BDTPRT,CBIN2 v P BNOK AD42RET ┆
0x117c…11cc 00 90 00 14 00 50 20 41 54 54 46 4d 54 20 41 44 4d 34 32 46 4d 33 00 04 00 a6 00 10 00 50 20 50 45 52 46 20 53 50 43 4c 52 41 00 04 00 be 00 28 00 50 20 49 42 20 53 50 42 49 4e 57 32 2c 41 44 34 32 52 45 54 2c 41 44 34 32 52 45 54 2c 41 44 ┆ P ATTFMT ADM42FM3 P PERF SPCLRA ( P IB SPBINW2,AD42RET,AD42RET,AD┆
0x11cc…121c 4d 34 32 35 30 20 00 04 00 d2 00 0e 00 50 20 42 20 41 44 34 32 52 45 54 00 04 00 fe 00 0c 00 50 41 44 4d 34 32 35 30 20 00 04 01 10 00 1a 00 50 20 4d 4f 56 45 20 47 54 4c 45 56 4e 52 2c 47 54 50 52 54 54 49 4c 00 04 01 20 00 1e 00 50 20 43 ┆M4250 P B AD42RET PADM4250 P MOVE GTLEVNR,GTPRTTIL P C┆
0x121c…126c 42 4c 20 47 54 4c 45 56 4e 52 2c 3d 44 27 36 27 2c 41 44 4d 34 32 35 31 00 04 01 3e 00 16 00 50 20 53 55 42 20 47 54 4c 45 56 4e 52 2c 3d 44 27 35 27 00 04 01 60 00 0c 00 50 41 44 4d 34 32 35 31 20 00 04 01 7a 00 10 00 50 20 53 45 54 20 43 ┆BL GTLEVNR,=D'6',ADM4251 > P SUB GTLEVNR,=D'5' ` PADM4251 z P SET C┆