|
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: 4622 (0x120e)
Notes: pts_type(SC)
Names: »TSUTL1.SC«
└─⟦5c22ed822⟧ Bits:30009675 Philips computer tape "600209"
└─⟦this⟧ »TOOL/TSUTL1.SC«
└─⟦bf903a231⟧ Bits:30009665 Philips computer tape "600109"
└─⟦this⟧ »TOOL/TSUTL1.SC«
IDENT TSUTL1 80-07-04/HEJA CDD NYTT 800225 C.EKERT * * STANDARD 'CREDIT' INTERFACE TO TOSS UTLITY PACKAGE * ENTRY TSUTL1 * * EXTRN CRFILE EXTRN DLFILE EXTRN COPVOL EXTRN I:EVA0 EXTRN I:EVA1 EXTRN I:RT1 * * EJECT * * UTLTB EQU * DATA 'CRF',CRFILE DATA 'DLF',DLFILE DATA 'CDD',COPVOL DATA /FFFF * * EJECT * * * CALL TSUTL1,'UTL',PBLOCK,BUF1,BUF2,RNCD * * TSUTL1 EQU * * * PICK UP UTILITY INDEX FOR REQUESTED UTILITY * CF A14,I:EVA1 * LDKL A7,UTLTB LOOP1 EQU * LCR A8,A7 CC A8,0,A9 RF(NZ) NEXT LC A8,1,A7 CC A8,1,A9 RF(NZ) NEXT LC A8,2,A7 CC A8,2,A9 RF(NZ) NEXT LD A7,4,A7 * UTIL. ADDR. NOW IN A7 * * SET UP PARAMETERBLOCK * CF A14,I:EVA0 LDR A8,A9 CF A14,I:EVA0 STR A9,A8 CF A14,I:EVA0 ST A9,2,A8 * * UTILITYINDEX IN A7 * PARAMETERBLOCKADDRESS IN A8 * CALL TOSS UTILITY * MS 14,SAVER * SAVE REGS. LDR A12,A8 * PAR.BLOCK ADDR. TO A12 CFR A14,A7 * CALL UTIL. * * RETURN CODE FROM UTIL IN A1 * ST A1,SAVER+14 SAVE RETURNCODE ML 14,SAVER RESTORE REGS. RETURN EQU * CF A14,I:EVA0 STR A8,A9 ABL I:RT1 * RETURN TO 'CREDIT' NEXT EQU * ADK A7,6 LDR* A8,A7 CWK A8,X'FFFF' RB(Z) RETURN RB LOOP1 SAVER RES 14 * SAVE AREA. END