DataMuseum.dk

Presents historical artifacts from the history of:

Philips Data Systems

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Philips Data Systems

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download

⟦2922a87ca⟧ 

    Length: 4518 (0x11a6)
    Notes: pts_type(SC)
    Names: »TOSSIF.SC«

Derivation

└─⟦22f4dea89⟧ Bits:30009702 Philips computer tape "DOS_PTS_4.2_M_FL"
    └─⟦this⟧ »NJ-AMT/TOSSIF.SC« 
└─⟦d2cdd233a⟧ Bits:30009674 Philips computer tape "600204"
    └─⟦this⟧ »OD-KOM/TOSSIF.SC« 
└─⟦dab19bdd7⟧ Bits:30009677 Philips computer tape "600218"
    └─⟦this⟧ »NJ-AMT/TOSSIF.SC«

PTS(SC)

	IDENT	TOSSIF	TOSSUTILITYINTERFACE SPOOL
* 
* THIS MODULE CAN BE USED AS THE INTERFACE BETWEEN
* A CREDITPROGRAM AND THE STANDARD TOSSUTILITIY 
* MODULES.
* THE CREDITPROGRAM DOES AN EDIT INTO A STRING
* AND SUBSEQUENTLY CALLS ANY OF THE ENTRYPOINTS 
* IN THIS MODULE WITH THE FOLLOWING PARAMETERS: 
* 1. PARAMETER BLOCK (STRING LENGTH NN) 
* 2. 2 BINARY WORK ITEMS WHICH ON RETURN WILL 
*    CONTAIN THE RETURNCODE(S)
* NO CHECKING IS DONE, SO THE CALLING MODULE MUST 
* ENSURE THAT NO ERRORS ARE MADE
* 


	ENTRY	DLF
	ENTRY	CRF


	EXTRN	I:EVA0	LOAD PARAMETER FROM CREDITPROGRAM 
	EXTRN	I:RT1	RETURN TO CREDIT 
	EXTRN	CRFILE	CRF 
	EXTRN	DLFILE	DLF 




BYTE	FORM	8,8 

CALL	FORM	16=/F6A1,16 

BUF1	RES	3280 

BUF2	RES	205

REG12	DATA	0

RC	DATA	0 
RC2	DATA	0

ECB	DATA	0
	DATA	BUF2
	DATA	410 
	DATA	0 

RCODE	DATA	0
	DATA	0 
	DATA	0 

PBLK	DATA	0,0,0,0,0,0,0,0 
	DATA	0,0,0,0,0,0,0,0 
	DATA	0,0,0,0,0,0,0,0 
	DATA	0,0,0,0,0,0,0,0 
	DATA	0,0,0,0,0,0,0,0 
	DATA	0,0,0,0,0,0,0,0 
	DATA	0,0,0,0,0,0,0,0 
	DATA	0,0,0,0,0,0,0,0 



DLF	EQU	* 
	LDKL	A8,PBLK	WHERE TO STORE
	CALL	STPARA	STORE PARAMETER
	LDKL	A8,BUF1 
	ST	A8,PBLK 
	LDKL	A8,BUF2 
	ST	A8,PBLK+2 
	ST	A12,REG12	SAVE REG 12 
	LDKL	A12,PBLK
	CALL	DLFILE
	LD	A12,REG12 
	CALL	RC00	HANDOVER RETURNCODE TO USER
	ABL	RT1



CRF	EQU	* 
	LDKL	A8,PBLK	WHERE TO STORE
	CALL	STPARA	STORE PARAMETER
	LDKL	A8,BUF1 
	ST	A8,PBLK 
	LDKL	A8,BUF2 
	ST	A8,PBLK+2 
	ST	A12,REG12	SAVE REG 12 
	LDKL	A12,PBLK
	CALL	CRFILE
	LD	A12,REG12 
	CALL	RC00	HANDOVER RETURNCODE TO USER
	ABL	RT1






			STORE VOLUMENAME INTO PARABLOCK
			A9=ITEM START
			A8=PARABLK START 
			A3=LENGTH
STPARA	EQU	*
	CALL	I:EVA0	GET PARAMETERADDRESS 
	LDK	A3,63	BLOCKLENGTH
STPA10	EQU	*
	LDK	A2,1 
STPA20	EQU	*
	LCR	A1,A9
	SCR	A1,A8
	ADR	A9,A2
	ADR	A8,A2
	SUK	A3,1 
	RB(NN)	STPA20
	RTN	A14

			RETURNCODE 
RC00	EQU	*
	ST	A1,RC 
	ST	A2,RC2
	CALL	I:EVA0
	LD	A1,RC 
	STR	A1,A9
	CALL	I:EVA0
	LD	A1,RC2
	STR	A1,A9
	RTN	A14


RT1	EQU	* 
	ABL	I:RT1	RETURN TO CREDIT 


	END

Full view