|
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: 4732 (0x127c)
Notes: pts_type(SC)
Names: »REMDUM.SC«
└─⟦75255755f⟧ Bits:30009693 Philips computer tape "600410"
└─⟦this⟧ »NJREMIT/REMDUM.SC«
└─⟦b6546aa17⟧ Bits:30009689 Philips computer tape "600325"
└─⟦this⟧ »REMIT2/REMDUM.SC«
IDENT REMDUM DDUM KMD08 PDIV ENTRY LEVOPR ENTRY LEVRD ENTRY VARRD ENTRY VARWRT ENTRY IDXGET ENTRY LEVDEL ENTRY SETIDX ENTRY LEVSPG ENTRY LEVPRT ENTRY CHDATO ENTRY LEVIN ENTRY XCOP ENTRY TXTPRT ENTRY TXTOPR ENTRY TXTRD ENTRY REPL00 ENTRY SETKEY ENTRY WSTRCH ENTRY TRINS ENTRY TRGETF ENTRY AD4100 ENTRY AD4200 ENTRY AD4300 * EXT ADMRET EJECT AD4100 * CREATE PRINTLEV B ADMRET AD4200 * PRINT PRINTLEV B ADMRET AD4300 * CLEAN PRINTLEV B ADMRET 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 * CHDATO PROC ********** * * CHANGES GSWBCD6 (DDMMYY) TO * GSWBCD7 (YYMMDD) * ********** MOVE GSWBCD7,=D'1' SET SIGN PERF XCOP,GSWBCD7,=W'6',=W'1',GSWBCD6,=W'4' PERF XCOP,GSWBCD7,=W'5',=W'1',GSWBCD6,=W'5' PERF XCOP,GSWBCD7,=W'4',=W'1',GSWBCD6,=W'6' RET PEND * XCOP PROC TO,$TOPNT,$SIZE,FROM,$FROMPNT PLIT $TOPNT PLIT $SIZE PLIT $FROMPNT * * FUNCTION XCOPY: * THE PROCEDURE COPIES FROM 'FROM' STARTING AT $FROMPNT, * TO 'TO', STARTING AT $TOPNT. THE NUMBER OF BYTES * COPIED IS $SIZE * MOVE GSWBIN1,$TOPNT START OF RECEIVING FIELD MOVE GSWBIN4,$SIZE LENGTH MOVE GSWBIN5,$FROMPNT START OF SENDING FIELD XCOPY TO,GSWBIN1,GSWBIN4,FROM,GSWBIN5 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