|
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: 1588 (0x634)
Notes: pts_type(SC)
Names: »DEAPPU.SC«
└─⟦5c22ed822⟧ Bits:30009675 Philips computer tape "600209"
└─⟦this⟧ »DEN10/DEAPPU.SC«
└─⟦79fbed147⟧ Bits:30009697 Philips computer tape "600414"
└─⟦this⟧ »SHBAPL/DEAPPU.SC«
└─⟦bf903a231⟧ Bits:30009665 Philips computer tape "600109"
└─⟦this⟧ »DEN10/DEAPPU.SC«
IDENT DEAPPU CE SYSTEM 80-10-29 DDUM DEDDIV PDIV ENTRY DEAPPU EXT EMPTYT EXT DEDISC EJECT INCLUDE DELITT EJECT DEAPPU PROC CBNE DEBINW3,W3,DEAPPR BGNR FIELD IF APPL =3 CALL EMPTYT,DEINPUT BNZ DEMPTY EMPTY MOVE BCDI21(W1),DEINPUT CMP BCDI21(W1),:FMTITEM ALL READY VALID BE DEAP15 YES B DEAPPR DEMPTY MOVE BIN15,W1 LOAD FIELD NO CALL EMPTYT,X.PSEU1,X.PSEU2,X.WB10,BIN15 FIELD 1 EMPTY BZ DEAP20 NOT EMPTY MOVE BCD13A,SYSV(W10) ADD BCD13A,=D'1' CMP SYSV(W10),=C'999999' BNG DEAP10 MOVE BCD13A,=C'1' DEAP10 MOVE SYSV(W10),BCD13A CON X.MOVE,X.PSEU1,X.PSEU2,X.WB10,BIN15,BCD13A MOVE DEINPUT,SYSV(W10) PERF DEDISC,W20 WRITE SYSTEM VARIABLES DEAP15 MOVE DEBINW1,W6 SET REQUESTED LENGTH MOVE DEBINW3,W1 REWRITE RET DEAP20 CON X.MOVE,DEINPUT,X.PSEU1,X.PSEU2,X.WB10,BIN15 B DEAP15 DEAPPR MOVE DEBINW3,W0 RET PEND END