|
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: 4722 (0x1272)
Notes: pts_type(SC)
Names: »REMDUM.SC«
└─⟦26dca8ec8⟧ Bits:30009711 Philips computer tape "RÅKON-DIVFMT"
└─⟦this⟧ »REMIT2/REMDUM.SC«
IDENT REMDUM 830812 NJ DDUM KMD08 PDIV ENTRY LEVOPR ENTRY LEVRD ENTRY VARRD ENTRY VARWRT ENTRY IDXGET ENTRY LEVDEL ENTRY SETIDX ENTRY LEVSPG ENTRY LEVPRT ENTRY LEVIN ENTRY TXTPRT ENTRY TXTOPR ENTRY TXTRD ENTRY REPL00 ENTRY SETKEY ENTRY WSTRCH ENTRY TRINS ENTRY TRGETF ENTRY AD4100 ENTRY AD4200 ENTRY AD4300 ENTRY AD4400 ENTRY GENWRF ENTRY FMTREM * EXT ADMRET EJECT AD4100 * CREATE PRINTLEV B ADMRET AD4200 * PRINT PRINTLEV B ADMRET AD4300 * CLEAN PRINTLEV B ADMRET AD4400 B ADMRET GENWRF PROC DSET,$FRMT PFRMT $FRMT IB DSET,WRT10,WRT20,WRT30 WRT10 TBF GTGTPFLG,WRT90 EDWRT DSHCGP,$FRMT B WRT90 WRT20 TBF GTLPFLG,WRT90 EDWRT DSHCLP,$FRMT B WRT90 WRT30 TBF GTTTPFLG,WRT90 EDWRT KTALLY,$FRMT B WRT90 WRT90 RET PEND FMTREM PROC FMTDEX RET PEND LEVIN PROC RET PEND LEVOPR PROC RET PEND LEVDEL PROC RET PEND LEVRD PROC RET PEND LEVWRT PROC RET PEND * LEVINT PROC RET PEND * LEVSPG PROC RET PEND * LEVPRT PROC RET PEND * VARRD PROC RET PEND * VARWRT PROC RET PEND * VARINT PROC RET PEND IDXGET PROC LEVNR,INDX,LEVDEX RET PEND IDXINS PROC RET PEND * SETIDX PROC RET PEND IDXDEL PROC RET PEND * RESTIX PROC RET PEND INITIX PROC RET PEND TXTPRT PROC RET PEND TXTOPR PROC RET PEND REPL00 PROC STRG,LEN ************************************ * * THE PROCEDURE REPLACES HEX-ZEROES * BY SPACES, IN ANY STRINGFIELD. * THIS IS ACCOMPLISHED BY FINDING * THE FIRST 00-BYTE, COMPUTING * THE LENGTH OF THE REST OF THE * FIELD, AND DELETING THIS REST. * ************************************ MOVE GSWBIN7,LEN MOVE GSWBIN1,CBIN0 MOVE GSWSTR1,=X'00' MATCH STRG,GSWBIN1,GSWBIN7,GSWSTR1,CBIN0,CBIN1 BNE REPL10 NO MATCH FOUND SUB GSWBIN7,GSWBIN1 DLETE STRG,GSWBIN1,GSWBIN7 CMP CBIN0,CBIN0 RET REPL10 CMP CBIN4,CBIN0 RET PEND * TXTUNP PROC RET PEND * TXTPAK PROC RET PEND TXTRD PROC BIN RET PEND TXTWR PROC BIN RET PEND SETKEY PROC ***************************************** * * SETS SPKEY TO 1 IF KASSE OPEN, * ELSE SETS SPKEY TO 2 * ***************************************** MOVE SPKEY,CBIN1 CBG CMASK(TTASKNR),=D'0',SETKRET MOVE SPKEY,CBIN2 CLOSED SETKRET RET PEND WSTRCH PROC P RET PEND TRINS PROC PT CMP CBIN0,CBIN0 RET PEND TRGETF PROC PT CMP CBIN0,CBIN0 RET PEND END