|
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: 4716 (0x126c)
Notes: pts_type(SC)
Names: »REMSUB.SC«
└─⟦75255755f⟧ Bits:30009693 Philips computer tape "600410"
└─⟦this⟧ »NJREMIT/REMSUB.SC«
└─⟦b6546aa17⟧ Bits:30009689 Philips computer tape "600325"
└─⟦this⟧ »REMIT2/REMSUB.SC«
IDENT REMSUB DDUM KMD08 PDIV ENTRY FMOD ENTRY FSOLVE ENTRY NEWLIN EXT GENWRF ENTRY PRTADJ EXT SPCLRA ENTRY KBTEST EXT ABORT EXT XCOP EXT SPLIN8 INCLUDE EQUATE EJECT FMOD PROC T,S * THE PROCEDURE MODIFIES A STRING, CONTAINING * FORMAT CONTROL CHARACTERS. * A TEXT TO BE REPLACED HAS TO BE SPECIFIED AS * FOLLOWS: * FTEXT X'<LENGTH> (LENGTH I HEX NOTATION) * THE PROCEDURE WILL DELETE THE UNUSABLE LENGTH (01) * AND INSERT DATA FROM THE SPECIFIED STRING, WITH * THE LENGTH THAT WAS SPECIFIED IN THE FORMAT AS DATA * THE INSERTED DATA WILL NOW LOOK LIKE A FTEXT * SET LENGTH = EDITBUF-1DVS. 731 MOVE GSWBIN6,=W'731' MOVE GSWBIN7,T TEXTNR MOVE GSWBIN8,CBIN0 MOVE GSWSTR1,=X'C3' IDENT FOR FTEXT FMOD10 MATCH EDITBUF,GSWBIN8,GSWBIN6,GSWSTR1,CBIN0,CBIN1 ADD GSWBIN8,CBIN1 LENGTH (01 OR NN) MOVE GSWBIN6,=W'731' SUB GSWBIN6,GSWBIN8 COMPUTE NEW LENGTH FOR MATCH SUB GSWBIN7,CBIN1 BNZ FMOD10 REPEAT UNTIL FOUND XCOPY GSWBIN7,CBIN1,CBIN1,EDITBUF,GSWBIN8 CBNE GSWBIN7,CBIN1,FMOD95 DLETE EDITBUF,GSWBIN8,CBIN1 AND DELETE IT XCOPY GSWBIN7,CBIN1,CBIN1,EDITBUF,GSWBIN8 ADD GSWBIN8,CBIN1 INSRT EDITBUF,GSWBIN8,GSWBIN7,S,CBIN0 INSERT ITEM CMP CBIN0,CBIN0 B FMOD99 FMOD95 CMP CBIN0,CBIN1 FMOD99 RET PEND EJECT FSOLVE PROC * THE PROCEDURE SOLVES UNEDITED TEXT FROM * BUNDTCHECK AND BUNDTGIRO. * UNSOLVED TEXTS ARE IDENTIFIED BY X'C301XX' MOVE GSWBIN7,=W'731' MOVE SPINPUT,=' ' MOVE GSWSTR2,=X'C301' MOVE GSWBIN8,CBIN0 FSOLV10 MATCH EDITBUF,GSWBIN8,GSWBIN7,GSWSTR2,CBIN0,CBIN2 BNOK FSOLV90 NO MORE LEFT FSOLV15 ADD GSWBIN8,CBIN1 DLETE EDITBUF,GSWBIN8,CBIN1 MOVE GSWBIN7,CBIN0 XCOPY GSWBIN7,CBIN1,CBIN1,EDITBUF,GSWBIN8 ADD GSWBIN8,CBIN1 INSRT EDITBUF,GSWBIN8,GSWBIN7,SPINPUT,CBIN0 MOVE GSWBIN7,=W'731' SUB GSWBIN7,GSWBIN8 B FSOLV10 FSOLV90 RET PEND * * * NEWLIN PROC P MOVE GSWBIN5,P NEWL10 PERF GENWRF,GTHCDEV,FNEWLIN SUB GSWBIN5,CBIN1 CBG GSWBIN5,CBIN0,NEWL10 RET PEND EJECT PRTADJ PROC * THE PROCEDURE ASKS IF THE FORMULAR * HAS BEEN ADJESTED CORRECTLY, AND * SETS THE CONDITION REGISTER ACCORDINGLY. PRT010 SET SPPROMPT ATTFMT FRMADJ PERF SPCLRA IB SPBINW2,PRT010,PRT020,PRT030,PRT040 B PRT010 PRT020 MAK CMP CBIN1,CBIN0 B PRT090 PRT030 ENTER CMP CBIN0,CBIN0 B PRT090 PRT040 CREDIT CMP CBIN0,CBIN1 PRT090 RET PEND EJECT KBTEST PROC * THE PROCEDURE SENSES THE KEYBOARD. * IF THE MAK-KEY HAS BEEN DEPRESSED, THE COND.REG * WILL BE SET TO ZERO, IN ORDER TO ENABLE THE CALLING * MODULE TO STOP THE LISTING (OR FOR ANY OTHER PURPOSE) PERF SPLIN8,CBIN0,CBIN0 TESTIO KEYB BOK KBT10 CALL ABORT,KEYB B KBT20 KBT10 WAIT KEYB CBNE SPBINW2,CBIN6,KBT20 CMP CBIN0,CBIN0 B KBT99 KBT20 CMP CBIN0,CBIN1 KBT99 RET PEND EJECT FRMADJ FRMT FSL FTEXT ='PAPIRINDSTILLING OK ?' FNL FKI 1,MAXL=1 FMEL 'X',GSWBCD1 FMEND FNEWLIN FRMT FNL FMEND END