|
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: 4702 (0x125e)
Notes: pts_type(SC)
Names: »DENT03.SC«
└─⟦48601905a⟧ Bits:30009668 Philips computer tape "600121"
└─⟦this⟧ »S:DE/DENT03.SC«
└─⟦5c22ed822⟧ Bits:30009675 Philips computer tape "600209"
└─⟦this⟧ »DEN10/DENT03.SC«
└─⟦79fbed147⟧ Bits:30009697 Philips computer tape "600414"
└─⟦this⟧ »S:DE/DENT03.SC«
└─⟦bf903a231⟧ Bits:30009665 Philips computer tape "600109"
└─⟦this⟧ »DEN10/DENT03.SC«
└─⟦d2a299635⟧ Bits:30009698 Philips computer tape "600415"
└─⟦this⟧ »S:DE/DENT03.SC«
IDENT DENT03 REL 10.0 80-04-11 80-01-21/DALI DDUM DEDDIV PDIV ENTRY DEFORC HANDLE FORCEKEY ENTRY DEVERI EXT TESTB EXT FORCED EXT FMOVE EXT DESTAT EXT DERROR EXT MASK EXT DELOCK INCLUDE DELITT EJECT ************************* * THIS ROUTINE HANDLE THE * FORCE KEY AND PUT ???? * INTO THE FORCED ITEM. ************************* DEFORC PROC KFORCE SET DBOFOR HANDLE FORCED FIELD TSTCTL 0 LOOK IF ALPHA BZ KFOR10 JUMP IF BCD MOVE DEINPUT,='?' MOVE :FMTITEM,DEINPUT B KFOR31 KFOR10 GETCTL 1,DEBINW4 GET MAXL ADD DEBINW4,W2 CALL TESTB,DEBINW4,W15 LOOK IF ODD NUMBER CHARACTERS KEYED IN BZ KFOR20 JUMP IF EVEN MOVE DEINPUT,=X'0AAA' B KFOR30 KFOR20 MOVE DEINPUT,=X'0FAA' KFOR30 DIV DEBINW4,W2 XCOPY :FMTITEM,W0,DEBINW4,DEINPUT,W0 KFOR31 GETABX DEBINW4 DISPLAY 1,DEBINW4,DEBINW4 MOVE DEBINW2,W3 SIMULATE EOI-KEY RET PEND EJECT ********************* *THIS ROUTINE HANDLE *THE KEYVERIFICATION ********************* DEVERI PROC CLEAR DOOL1 VALID PRESSED OFF KVER00 MOVE BIN10,W0 MOVE BIN9,W0 CALL FORCED,:FMTITEM BOK KVER01 XCOPY DEINPUT,W0,W1,W1,W1 B KVER20 KVER01 MOVE DEINPUT,HEX00 TSTCTL 0 LOOK IF ALPHA BZ KVER02 JUMP IF BCD MOVE BIN9,W0 EDSUB DEINPUT,BIN9,FORMK CBNE BIN9,W0,KVER10 JUMP IF NOT EMPTY B KTKEY2 GET NEXT FIELD KVER02 MOVE DEINPUT,:FMTITEM MOVE BIN8,=W'80' =W'80' CBNE :FMTITEM,=D'0',KVER03 COPY DEINPUT,W0,W1,VALSTR,W15 + SIGN KVER03 MATCH DEINPUT,BIN9,BIN8,HEX00,W0,W1 SUB BIN9,W1 BP KVER05 KTKEY2 MOVE DEBINW4,W1 GET NEXT FIELD RET KVER05 ADD BIN10,W1 KVER10 SETCUR CLEAR DOOL1 VALID PRESSED ? BNZ KVER20 YES CALL FMOVE,STRG10A,FDOTS ADD BIN9,W128 XCOPY STRG10A,W5,W1,BIN9,W1 EDWRT DEDSSCRN,STRG10A KVER20 MOVE DEBINW1,W1 NUMBER OF CHAR MOVE BIN9,BIN10 POS IN BUFFER KI .NE,DEDSDYKB,STR1A,DEKTABK,DEBINW1,DEBINW2 PERF DELOCK,W1,DEBINW2 IB DEBINW3,EVERIF,KVER70,KVER75 IB DEBINW2,KVER40,KVER40,KVER50 C KVER65,KVER35,KCOPY SUB DEBINW2,W6 MOVE DEBINW4,W0 RET KVER35 PERF DESTAT MOVE DEBINW1,W0 PERF DERROR,DEKTABS B ERRP20 KVER40 MOVE STR1A,=C'+' B KVER55 KVER50 MOVE STR1A,=C'-' KVER55 TSTCTL 0 LOOK IF ALPHA BZ KVER60 JUMP IF BCD CBG DEBINW2,W2,KVER75 KVER60 MATCH DEINPUT,BIN9,W1,HEX00,W0,W1 BNOK KVER75 TSTCTL 0 LOOK IF ALPHA BNZ KVER63 JUMP IF ALPHA MOVE BIN12,W0 MATCH DEINPUT,BIN12,W1,STR1A,W0,W1 BNOK KVER75 KVER63 UPDFLD 0,DEINPUT B KTKEY2 KVER65 SET DOOL1 VALID PRESSED ON TSTCTL 0 LOOK IF ALPHA BNZ KVER68 YES! DLETE DEINPUT,W0,W1 KVER68 CALL FMOVE,STRG10A,FORMD SETCUR EDWRT DEDSSCRN,STRG10A B KVER00 * * NOK. NOTICE THAT INCORRECT LENGTH IS OKEY * KVER70 XSTAT DEDSDYKB,DEBINW3 CALL MASK,DEBINW3,W8 BZ KVER75 MATCH DEINPUT,BIN9,W1,STR1A,W0,W1 BOK KVER80 JUMP IF OKAY KVER75 EDWRT DEDSSCRN,BELL B KVER20 KVER80 EDWRT DEDSSCRN,FORMV ADD BIN10,W1 TSTCTL 3 LOOK IF NEOI BZ KVER20 NO! GETCTL 1,BIN9 GET MAX.LENGTH CBL BIN10,BIN9,KVER20 MACL NO REACHED TSTCTL 0 LOOK IF ALPHA BNZ KVER63 JUMP IF ALPHA CBE BIN10,BIN9,KVER20 B KVER63 FIELD COMPLETE EVERIF MOVE DEBINW4,W2 RET KCOPY MOVE DEBINW4,W3 RET ERRP20 MOVE DEBINW4,W4 RET PEND EJECT FORMK FRMT FCOPY :FMTITEM FMEND FORMV FRMT FSL FCOPY STR1A FMEND BELL FRMT FSL FILLR X'07',1 FMEND FDOTS FRMT FSL FTEXT =X'142E' FILLR X'2E',1 FMEND FORMD FRMT FSL FCOPY DEINPUT FMEND END
0x0000…0028 (0, 0, 398) Head {h00=0x0024, h01=0x0050, text=» IDENT DENT03 REL 10.0 80-04-11 «, t00=0x0000, t01=0x0004}
0x0028…0040 Head {h00=0x0014, h01=0x0050, text=» 80-01-21/DALI«, t00=0x0000, t01=0x002c}
0x0040…0054 Head {h00=0x0010, h01=0x000c, text=» DDUM DEDDIV«, t00=0x0000, t01=0x0044}
0x0054…0062 Head {h00=0x000a, h01=0x0005, text=» PDIV «, t00=0x0000, t01=0x0058}
0x0062…0088 Head {h00=0x0022, h01=0x001d, text=» ENTRY DEFORC HANDLE FORCEKEY «, t00=0x0000, t01=0x0066}
0x0088…009e Head {h00=0x0012, h01=0x0050, text=» ENTRY DEVERI «, t00=0x0000, t01=0x008c}
0x009e…00b0 Head {h00=0x000e, h01=0x0050, text=» EXT TESTB«, t00=0x0000, t01=0x00a2}
0x00b0…00c4 Head {h00=0x0010, h01=0x0050, text=» EXT FORCED «, t00=0x0000, t01=0x00b4}
0x00c4…00d6 Head {h00=0x000e, h01=0x0050, text=» EXT FMOVE«, t00=0x0000, t01=0x00c8}
0x00d6…00ea Head {h00=0x0010, h01=0x0050, text=» EXT DESTAT «, t00=0x0000, t01=0x00da}
0x00ea…00fe Head {h00=0x0010, h01=0x0050, text=» EXT DERROR «, t00=0x0000, t01=0x00ee}
0x00fe…0110 Head {h00=0x000e, h01=0x0050, text=» EXT MASK «, t00=0x0000, t01=0x0102}
0x0110…0124 Head {h00=0x0010, h01=0x0050, text=» EXT DELOCK «, t00=0x0000, t01=0x0114}
0x0124…013c Head {h00=0x0014, h01=0x000f, text=» INCLUDE DELITT «, t00=0x0000, t01=0x0128}
0x013c…014a Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0000, t01=0x0140}
0x014a…016c Head {h00=0x001e, h01=0x0019, text=»************************* «, t00=0x0000, t01=0x014e}
0x016c…018e Head {h00=0x001e, h01=0x001a, text=»* THIS ROUTINE HANDLE THE «, t00=0x0000, t01=0x0170}
0x018e…01ae (1, 0, 400) Head {h00=0x001c, h01=0x0018, text=»* FORCE KEY AND PUT ????«, t00=0x0001, t01=0x0004}
0x01ae…01ce Head {h00=0x001c, h01=0x0017, text=»* INTO THE FORCED ITEM. «, t00=0x0001, t01=0x0024}
0x01ce…01f0 Head {h00=0x001e, h01=0x0019, text=»************************* «, t00=0x0001, t01=0x0044}
0x01f0…0204 Head {h00=0x0010, h01=0x000b, text=»DEFORC PROC «, t00=0x0001, t01=0x0066}
0x0204…0232 Head {h00=0x002a, h01=0x0050, text=»KFORCE SET DBOFOR HANDLE FORCED FIELD «, t00=0x0001, t01=0x007a}
0x0232…0252 Head {h00=0x001c, h01=0x0050, text=» TSTCTL 0 LOOK IF ALPHA «, t00=0x0001, t01=0x00a8}
0x0252…0270 Head {h00=0x001a, h01=0x0050, text=» BZ KFOR10 JUMP IF BCD«, t00=0x0001, t01=0x00c8}
0x0270…028a Head {h00=0x0016, h01=0x0050, text=» MOVE DEINPUT,='?'«, t00=0x0001, t01=0x00e6}
0x028a…02a8 Head {h00=0x001a, h01=0x0050, text=» MOVE :FMTITEM,DEINPUT«, t00=0x0001, t01=0x0100}
0x02a8…02ba Head {h00=0x000e, h01=0x0050, text=» B KFOR31 «, t00=0x0001, t01=0x011e}
0x02ba…02e2 Head {h00=0x0024, h01=0x0050, text=»KFOR10 GETCTL 1,DEBINW4 GET MAXL«, t00=0x0001, t01=0x0130}
0x02e2…02fa Head {h00=0x0014, h01=0x0050, text=» ADD DEBINW4,W2 «, t00=0x0001, t01=0x0158}
0x02fa…032c Head {h00=0x002e, h01=0x0050, text=» CALL TESTB,DEBINW4,W15 LOOK IF ODD NUMBER«, t00=0x0001, t01=0x0170}
0x032c…034a Head {h00=0x001a, h01=0x0050, text=» CHARACTERS KEYED IN«, t00=0x0002, t01=0x0012}
0x034a…036a Head {h00=0x001c, h01=0x0050, text=» BZ KFOR20 JUMP IF EVEN «, t00=0x0002, t01=0x0030}
0x036a…0388 Head {h00=0x001a, h01=0x0050, text=» MOVE DEINPUT,=X'0AAA'«, t00=0x0002, t01=0x0050}
0x0388…039a Head {h00=0x000e, h01=0x0050, text=» B KFOR30 «, t00=0x0002, t01=0x006e}
0x039a…03be Head {h00=0x0020, h01=0x0050, text=»KFOR20 MOVE DEINPUT,=X'0FAA'«, t00=0x0002, t01=0x0080}
0x03be…03dc Head {h00=0x001a, h01=0x0050, text=»KFOR30 DIV DEBINW4,W2 «, t00=0x0002, t01=0x00a4}
0x03dc…040a Head {h00=0x002a, h01=0x0050, text=» XCOPY :FMTITEM,W0,DEBINW4,DEINPUT,W0 «, t00=0x0002, t01=0x00c2}
0x040a…0418 Head {h00=0x000a, h01=0x0050, text=»KFOR31«, t00=0x0002, t01=0x00f0}
0x0418…0430 Head {h00=0x0014, h01=0x0050, text=» GETABX DEBINW4 «, t00=0x0002, t01=0x00fe}
0x0430…0452 Head {h00=0x001e, h01=0x0050, text=» DISPLAY 1,DEBINW4,DEBINW4«, t00=0x0002, t01=0x0116}
0x0452…047c Head {h00=0x0026, h01=0x0050, text=» MOVE DEBINW2,W3 SIMULATE EOI-KEY «, t00=0x0002, t01=0x0138}
0x047c…0488 Head {h00=0x0008, h01=0x0004, text=» RET«, t00=0x0002, t01=0x0162}
0x0488…0496 Head {h00=0x000a, h01=0x0005, text=» PEND «, t00=0x0002, t01=0x016e}
0x0496…04a4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x017c}
0x04a4…04c2 Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0002, t01=0x018a}
0x04c2…04de Head {h00=0x0018, h01=0x0050, text=»*THIS ROUTINE HANDLE«, t00=0x0003, t01=0x0018}
0x04de…04fa Head {h00=0x0018, h01=0x0050, text=»*THE KEYVERIFICATION«, t00=0x0003, t01=0x0034}
0x04fa…0518 Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0003, t01=0x0050}
0x0518…052c Head {h00=0x0010, h01=0x0050, text=»DEVERI PROC «, t00=0x0003, t01=0x006e}
0x052c…0552 Head {h00=0x0022, h01=0x0050, text=» CLEAR DOOL1 VALID PRESSED OFF«, t00=0x0003, t01=0x0082}
0x0552…0560 Head {h00=0x000a, h01=0x0050, text=»KVER00«, t00=0x0003, t01=0x00a8}
0x0560…0576 Head {h00=0x0012, h01=0x0050, text=» MOVE BIN10,W0«, t00=0x0003, t01=0x00b6}
0x0576…058c Head {h00=0x0012, h01=0x0050, text=» MOVE BIN9,W0 «, t00=0x0003, t01=0x00cc}
0x058c…05aa Head {h00=0x001a, h01=0x0050, text=» CALL FORCED,:FMTITEM «, t00=0x0003, t01=0x00e2}
0x05aa…05be Head {h00=0x0010, h01=0x0050, text=» BOK KVER01 «, t00=0x0003, t01=0x0100}
0x05be…05e0 Head {h00=0x001e, h01=0x0050, text=» XCOPY DEINPUT,W0,W1,W1,W1«, t00=0x0003, t01=0x0114}
0x05e0…05f2 Head {h00=0x000e, h01=0x0050, text=» B KVER20 «, t00=0x0003, t01=0x0136}
0x05f2…0600 Head {h00=0x000a, h01=0x0050, text=»KVER01«, t00=0x0003, t01=0x0148}
0x0600…061c Head {h00=0x0018, h01=0x0050, text=» MOVE DEINPUT,HEX00 «, t00=0x0003, t01=0x0156}
0x061c…063c Head {h00=0x001c, h01=0x0050, text=» TSTCTL 0 LOOK IF ALPHA «, t00=0x0003, t01=0x0172}
0x063c…065a (4, 0, 400) Head {h00=0x001a, h01=0x0050, text=» BZ KVER02 JUMP IF BCD«, t00=0x0004, t01=0x0004}
0x065a…0670 Head {h00=0x0012, h01=0x0050, text=» MOVE BIN9,W0 «, t00=0x0004, t01=0x0022}
0x0670…0692 Head {h00=0x001e, h01=0x0050, text=» EDSUB DEINPUT,BIN9,FORMK «, t00=0x0004, t01=0x0038}
0x0692…06c0 Head {h00=0x002a, h01=0x0050, text=» CBNE BIN9,W0,KVER10 JUMP IF NOT EMPTY«, t00=0x0004, t01=0x005a}
0x06c0…06e0 Head {h00=0x001c, h01=0x0050, text=» B KTKEY2 GET NEXT FIELD«, t00=0x0004, t01=0x0088}
0x06e0…06ee Head {h00=0x000a, h01=0x0050, text=»KVER02«, t00=0x0004, t01=0x00a8}
0x06ee…070c Head {h00=0x001a, h01=0x0050, text=» MOVE DEINPUT,:FMTITEM«, t00=0x0004, t01=0x00b6}
0x070c…072c Head {h00=0x001c, h01=0x0050, text=» MOVE BIN8,=W'80' =W'80'«, t00=0x0004, t01=0x00d4}
0x072c…0750 Head {h00=0x0020, h01=0x0050, text=» CBNE :FMTITEM,=D'0',KVER03 «, t00=0x0004, t01=0x00f4}
0x0750…077e Head {h00=0x002a, h01=0x0050, text=» COPY DEINPUT,W0,W1,VALSTR,W15 + SIGN «, t00=0x0004, t01=0x0118}
0x077e…078c Head {h00=0x000a, h01=0x0050, text=»KVER03«, t00=0x0004, t01=0x0146}
0x078c…07b8 Head {h00=0x0028, h01=0x0050, text=» MATCH DEINPUT,BIN9,BIN8,HEX00,W0,W1«, t00=0x0004, t01=0x0154}
0x07b8…07cc Head {h00=0x0010, h01=0x0050, text=» SUB BIN9,W1«, t00=0x0004, t01=0x0180}
0x07cc…07de (5, 0, 400) Head {h00=0x000e, h01=0x0050, text=» BP KVER05«, t00=0x0005, t01=0x0004}
0x07de…07ec Head {h00=0x000a, h01=0x0050, text=»KTKEY2«, t00=0x0005, t01=0x0016}
0x07ec…0814 Head {h00=0x0024, h01=0x0050, text=» MOVE DEBINW4,W1 GET NEXT FIELD «, t00=0x0005, t01=0x0024}
0x0814…0820 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0005, t01=0x004c}
0x0820…082e Head {h00=0x000a, h01=0x0050, text=»KVER05«, t00=0x0005, t01=0x0058}
0x082e…0844 Head {h00=0x0012, h01=0x0050, text=» ADD BIN10,W1 «, t00=0x0005, t01=0x0066}
0x0844…0852 Head {h00=0x000a, h01=0x0050, text=»KVER10«, t00=0x0005, t01=0x007c}
0x0852…0862 Head {h00=0x000c, h01=0x0050, text=» SETCUR «, t00=0x0005, t01=0x008a}
0x0862…0886 Head {h00=0x0020, h01=0x0050, text=» CLEAR DOOL1 VALID PRESSED ?«, t00=0x0005, t01=0x009a}
0x0886…089e Head {h00=0x0014, h01=0x0050, text=» BNZ KVER20 YES «, t00=0x0005, t01=0x00be}
0x089e…08c0 Head {h00=0x001e, h01=0x0050, text=» CALL FMOVE,STRG10A,FDOTS «, t00=0x0005, t01=0x00d6}
0x08c0…08d6 Head {h00=0x0012, h01=0x0050, text=» ADD BIN9,W128«, t00=0x0005, t01=0x00f8}
0x08d6…08fa Head {h00=0x0020, h01=0x0050, text=» XCOPY STRG10A,W5,W1,BIN9,W1«, t00=0x0005, t01=0x010e}
0x08fa…091a Head {h00=0x001c, h01=0x0050, text=» EDWRT DEDSSCRN,STRG10A «, t00=0x0005, t01=0x0132}
0x091a…0928 Head {h00=0x000a, h01=0x0050, text=»KVER20«, t00=0x0005, t01=0x0152}
0x0928…0950 Head {h00=0x0024, h01=0x0050, text=» MOVE DEBINW1,W1 NUMBER OF CHAR «, t00=0x0005, t01=0x0160}
0x0950…0976 Head {h00=0x0022, h01=0x0050, text=» MOVE BIN9,BIN10 POS IN BUFFER«, t00=0x0005, t01=0x0188}
0x0976…09ac Head {h00=0x0032, h01=0x0050, text=» KI .NE,DEDSDYKB,STR1A,DEKTABK,DEBINW1,DEBINW2«, t00=0x0006, t01=0x001e}
0x09ac…09cc Head {h00=0x001c, h01=0x0050, text=» PERF DELOCK,W1,DEBINW2 «, t00=0x0006, t01=0x0054}
0x09cc…09f4 Head {h00=0x0024, h01=0x0050, text=» IB DEBINW3,EVERIF,KVER70,KVER75«, t00=0x0006, t01=0x0074}
0x09f4…0a20 Head {h00=0x0028, h01=0x0050, text=» IB DEBINW2,KVER40,KVER40,KVER50 C «, t00=0x0006, t01=0x009c}
0x0a20…0a3e Head {h00=0x001a, h01=0x0050, text=» KVER65,KVER35,KCOPY «, t00=0x0006, t01=0x00c8}
0x0a3e…0a56 Head {h00=0x0014, h01=0x0050, text=» SUB DEBINW2,W6 «, t00=0x0006, t01=0x00e6}
0x0a56…0a6e Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW4,W0«, t00=0x0006, t01=0x00fe}
0x0a6e…0a7a Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0006, t01=0x0116}
0x0a7a…0a88 Head {h00=0x000a, h01=0x0050, text=»KVER35«, t00=0x0006, t01=0x0122}
0x0a88…0a9c Head {h00=0x0010, h01=0x0050, text=» PERF DESTAT«, t00=0x0006, t01=0x0130}
0x0a9c…0ab4 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW1,W0«, t00=0x0006, t01=0x0144}
0x0ab4…0ad0 Head {h00=0x0018, h01=0x0050, text=» PERF DERROR,DEKTABS«, t00=0x0006, t01=0x015c}
0x0ad0…0ae2 Head {h00=0x000e, h01=0x0050, text=» B ERRP20 «, t00=0x0006, t01=0x0178}
0x0ae2…0af0 Head {h00=0x000a, h01=0x0050, text=»KVER40«, t00=0x0006, t01=0x018a}
0x0af0…0b0a Head {h00=0x0016, h01=0x0050, text=» MOVE STR1A,=C'+' «, t00=0x0007, t01=0x0008}
0x0b0a…0b1c Head {h00=0x000e, h01=0x0050, text=» B KVER55 «, t00=0x0007, t01=0x0022}
0x0b1c…0b2a Head {h00=0x000a, h01=0x0050, text=»KVER50«, t00=0x0007, t01=0x0034}
0x0b2a…0b44 Head {h00=0x0016, h01=0x0050, text=» MOVE STR1A,=C'-' «, t00=0x0007, t01=0x0042}
0x0b44…0b52 Head {h00=0x000a, h01=0x0050, text=»KVER55«, t00=0x0007, t01=0x005c}
0x0b52…0b72 Head {h00=0x001c, h01=0x0050, text=» TSTCTL 0 LOOK IF ALPHA «, t00=0x0007, t01=0x006a}
0x0b72…0b90 Head {h00=0x001a, h01=0x0050, text=» BZ KVER60 JUMP IF BCD«, t00=0x0007, t01=0x008a}
0x0b90…0bae Head {h00=0x001a, h01=0x0050, text=» CBG DEBINW2,W2,KVER75«, t00=0x0007, t01=0x00a8}
0x0bae…0bbc Head {h00=0x000a, h01=0x0050, text=»KVER60«, t00=0x0007, t01=0x00c6}
0x0bbc…0be6 Head {h00=0x0026, h01=0x0050, text=» MATCH DEINPUT,BIN9,W1,HEX00,W0,W1«, t00=0x0007, t01=0x00d4}
0x0be6…0bfa Head {h00=0x0010, h01=0x0050, text=» BNOK KVER75«, t00=0x0007, t01=0x00fe}
0x0bfa…0c1a Head {h00=0x001c, h01=0x0050, text=» TSTCTL 0 LOOK IF ALPHA «, t00=0x0007, t01=0x0112}
0x0c1a…0c3c Head {h00=0x001e, h01=0x0050, text=» BNZ KVER63 JUMP IF ALPHA «, t00=0x0007, t01=0x0132}
0x0c3c…0c52 Head {h00=0x0012, h01=0x0050, text=» MOVE BIN12,W0«, t00=0x0007, t01=0x0154}
0x0c52…0c7e Head {h00=0x0028, h01=0x0050, text=» MATCH DEINPUT,BIN12,W1,STR1A,W0,W1 «, t00=0x0007, t01=0x016a}
0x0c7e…0c92 Head {h00=0x0010, h01=0x0050, text=» BNOK KVER75«, t00=0x0008, t01=0x0008}
0x0c92…0ca0 Head {h00=0x000a, h01=0x0050, text=»KVER63«, t00=0x0008, t01=0x001c}
0x0ca0…0cba Head {h00=0x0016, h01=0x0050, text=» UPDFLD 0,DEINPUT «, t00=0x0008, t01=0x002a}
0x0cba…0ccc Head {h00=0x000e, h01=0x0050, text=» B KTKEY2 «, t00=0x0008, t01=0x0044}
0x0ccc…0cda Head {h00=0x000a, h01=0x0050, text=»KVER65«, t00=0x0008, t01=0x0056}
0x0cda…0cfe Head {h00=0x0020, h01=0x0050, text=» SET DOOL1 VALID PRESSED ON «, t00=0x0008, t01=0x0064}
0x0cfe…0d1e Head {h00=0x001c, h01=0x0050, text=» TSTCTL 0 LOOK IF ALPHA «, t00=0x0008, t01=0x0088}
0x0d1e…0d36 Head {h00=0x0014, h01=0x0050, text=» BNZ KVER68 YES!«, t00=0x0008, t01=0x00a8}
0x0d36…0d52 Head {h00=0x0018, h01=0x0050, text=» DLETE DEINPUT,W0,W1«, t00=0x0008, t01=0x00c0}
0x0d52…0d60 Head {h00=0x000a, h01=0x0050, text=»KVER68«, t00=0x0008, t01=0x00dc}
0x0d60…0d82 Head {h00=0x001e, h01=0x0050, text=» CALL FMOVE,STRG10A,FORMD «, t00=0x0008, t01=0x00ea}
0x0d82…0d92 Head {h00=0x000c, h01=0x0050, text=» SETCUR «, t00=0x0008, t01=0x010c}
0x0d92…0db2 Head {h00=0x001c, h01=0x0050, text=» EDWRT DEDSSCRN,STRG10A «, t00=0x0008, t01=0x011c}
0x0db2…0dc4 Head {h00=0x000e, h01=0x0050, text=» B KVER00 «, t00=0x0008, t01=0x013c}
0x0dc4…0dce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x014e}
0x0dce…0e02 Head {h00=0x0030, h01=0x0050, text=»* NOK. NOTICE THAT INCORRECT LENGTH IS OKEY «, t00=0x0008, t01=0x0158}
0x0e02…0e0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x018c}
0x0e0c…0e1a Head {h00=0x000a, h01=0x0050, text=»KVER70«, t00=0x0009, t01=0x0008}
0x0e1a…0e3a Head {h00=0x001c, h01=0x0050, text=» XSTAT DEDSDYKB,DEBINW3 «, t00=0x0009, t01=0x0016}
0x0e3a…0e58 Head {h00=0x001a, h01=0x0050, text=» CALL MASK,DEBINW3,W8 «, t00=0x0009, t01=0x0036}
0x0e58…0e6a Head {h00=0x000e, h01=0x0050, text=» BZ KVER75«, t00=0x0009, t01=0x0054}
0x0e6a…0e94 Head {h00=0x0026, h01=0x0050, text=» MATCH DEINPUT,BIN9,W1,STR1A,W0,W1«, t00=0x0009, t01=0x0066}
0x0e94…0eb4 Head {h00=0x001c, h01=0x0050, text=» BOK KVER80 JUMP IF OKAY«, t00=0x0009, t01=0x0090}
0x0eb4…0ec2 Head {h00=0x000a, h01=0x0050, text=»KVER75«, t00=0x0009, t01=0x00b0}
0x0ec2…0ede Head {h00=0x0018, h01=0x0050, text=» EDWRT DEDSSCRN,BELL«, t00=0x0009, t01=0x00be}
0x0ede…0ef0 Head {h00=0x000e, h01=0x0050, text=» B KVER20 «, t00=0x0009, t01=0x00da}
0x0ef0…0efe Head {h00=0x000a, h01=0x0050, text=»KVER80«, t00=0x0009, t01=0x00ec}
0x0efe…0f1c Head {h00=0x001a, h01=0x0050, text=» EDWRT DEDSSCRN,FORMV «, t00=0x0009, t01=0x00fa}
0x0f1c…0f32 Head {h00=0x0012, h01=0x0050, text=» ADD BIN10,W1 «, t00=0x0009, t01=0x0118}
0x0f32…0f50 Head {h00=0x001a, h01=0x0050, text=» TSTCTL 3 LOOK IF NEOI«, t00=0x0009, t01=0x012e}
0x0f50…0f66 Head {h00=0x0012, h01=0x0050, text=» BZ KVER20 NO!«, t00=0x0009, t01=0x014c}
0x0f66…0f8c Head {h00=0x0022, h01=0x0050, text=» GETCTL 1,BIN9 GET MAX.LENGTH «, t00=0x0009, t01=0x0162}
0x0f8c…0fba Head {h00=0x002a, h01=0x0050, text=» CBL BIN10,BIN9,KVER20 MACL NO REACHED«, t00=0x0009, t01=0x0188}
0x0fba…0fda Head {h00=0x001c, h01=0x0050, text=» TSTCTL 0 LOOK IF ALPHA «, t00=0x000a, t01=0x0026}
0x0fda…0ffc Head {h00=0x001e, h01=0x0050, text=» BNZ KVER63 JUMP IF ALPHA «, t00=0x000a, t01=0x0046}
0x0ffc…101a Head {h00=0x001a, h01=0x0050, text=» CBE BIN10,BIN9,KVER20«, t00=0x000a, t01=0x0068}
0x101a…103a Head {h00=0x001c, h01=0x0050, text=» B KVER63 FIELD COMPLETE«, t00=0x000a, t01=0x0086}
0x103a…1048 Head {h00=0x000a, h01=0x0050, text=»EVERIF«, t00=0x000a, t01=0x00a6}
0x1048…1060 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW4,W2«, t00=0x000a, t01=0x00b4}
0x1060…106c Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000a, t01=0x00cc}
0x106c…107a Head {h00=0x000a, h01=0x0050, text=»KCOPY «, t00=0x000a, t01=0x00d8}
0x107a…1092 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW4,W3«, t00=0x000a, t01=0x00e6}
0x1092…109e Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000a, t01=0x00fe}
0x109e…10ac Head {h00=0x000a, h01=0x0050, text=»ERRP20«, t00=0x000a, t01=0x010a}
0x10ac…10c4 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW4,W4«, t00=0x000a, t01=0x0118}
0x10c4…10d0 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000a, t01=0x0130}
0x10d0…10de Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000a, t01=0x013c}
0x10de…10ec Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x014a}
0x10ec…10fe Head {h00=0x000e, h01=0x0050, text=»FORMK FRMT«, t00=0x000a, t01=0x0158}
0x10fe…1116 Head {h00=0x0014, h01=0x0050, text=» FCOPY :FMTITEM «, t00=0x000a, t01=0x016a}
0x1116…1124 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x000a, t01=0x0182}
0x1124…1136 Head {h00=0x000e, h01=0x0050, text=»FORMV FRMT«, t00=0x000a, t01=0x0190}
0x1136…1142 Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x000b, t01=0x0012}
0x1142…1156 Head {h00=0x0010, h01=0x0050, text=» FCOPY STR1A«, t00=0x000b, t01=0x001e}
0x1156…1164 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x000b, t01=0x0032}
0x1164…1176 Head {h00=0x000e, h01=0x0050, text=»BELL FRMT «, t00=0x000b, t01=0x0040}
0x1176…1182 Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x000b, t01=0x0052}
0x1182…1198 Head {h00=0x0012, h01=0x0050, text=» FILLR X'07',1«, t00=0x000b, t01=0x005e}
0x1198…11a6 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x000b, t01=0x0074}
0x11a6…11b8 Head {h00=0x000e, h01=0x0050, text=»FDOTS FRMT«, t00=0x000b, t01=0x0082}
0x11b8…11c4 Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x000b, t01=0x0094}
0x11c4…11dc Head {h00=0x0014, h01=0x0050, text=» FTEXT =X'142E' «, t00=0x000b, t01=0x00a0}
0x11dc…11f2 Head {h00=0x0012, h01=0x0050, text=» FILLR X'2E',1«, t00=0x000b, t01=0x00b8}
0x11f2…1200 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x000b, t01=0x00ce}
0x1200…1212 Head {h00=0x000e, h01=0x0050, text=»FORMD FRMT«, t00=0x000b, t01=0x00dc}
0x1212…121e Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x000b, t01=0x00ee}
0x121e…1234 Head {h00=0x0012, h01=0x0050, text=» FCOPY DEINPUT«, t00=0x000b, t01=0x00fa}
0x1234…1242 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x000b, t01=0x0110}
0x1242…124e Head {h00=0x0008, h01=0x0004, text=» END«, t00=0x000b, t01=0x011e}
0x124e…1252 Head {h00=0x4004, h01=0x0000}
0x1252…1256 00 0b 01 2a ┆ *┆
0x1256…125e (12, 1, 8) 20 04 00 00 00 0c 00 04 ┆ ┆