|
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: 1562 (0x61a)
Notes: pts_type(SC)
Names: »DESTAT.SC«
└─⟦48601905a⟧ Bits:30009668 Philips computer tape "600121"
└─⟦this⟧ »S:DE/DESTAT.SC«
└─⟦5c22ed822⟧ Bits:30009675 Philips computer tape "600209"
└─⟦this⟧ »DEN10/DESTAT.SC«
└─⟦79fbed147⟧ Bits:30009697 Philips computer tape "600414"
└─⟦this⟧ »S:DE/DESTAT.SC«
└─⟦bf903a231⟧ Bits:30009665 Philips computer tape "600109"
└─⟦this⟧ »DEN10/DESTAT.SC«
└─⟦d2a299635⟧ Bits:30009698 Philips computer tape "600415"
└─⟦this⟧ »S:DE/DESTAT.SC«
IDENT DESTAT REL 10.0 80-04-11 79-05-28/DALI DDUM DEDDIV PDIV ENTRY DESTAT ENTRY DESTAU EXT TESTB EXT UPDBIN INCLUDE DELITT EJECT *********************** * * FIX THE STATUS-LINE * *********************** DESTAT PROC MOVE BCD2A,W1 TBF SOOL1,DESTUT * FIX BATCHSTATUS CALL UPDBIN,BDSTAT PERF DESTAU,BDSTAT,STR15A MOVE BCD13A,BDPOIN(W2) TBF SOOL2,DESTUT * * FIX RECORDSTATUS * CALL UPDBIN,BIN1 PERF DESTAU,BIN1,STRG10A DESTUT MOVE DEBINW4,W19 RET PEND EJECT DESTAU PROC STBIN,STSTRG MOVE STSTRG,HEX00 MOVE DEBINW2,W0 MOVE DEBINW3,W0 MOVE DEBINW4,W0 XCOPY DEBINW3,W0,W1,STBIN,W1 DES100 CALL TESTB,DEBINW3,DEBINW4 BZ DES200 COPY STSTRG,DEBINW2,W1,STATIU,DEBINW4 ADD DEBINW2,W1 DES200 ADD DEBINW4,W1 CBNE DEBINW4,W8,DES100 RET PEND END