|
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