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

⟦6d1a4db7a⟧ 

    Length: 4606 (0x11fe)
    Notes: pts_type(SC)
    Names: »C:TRA.SC«

Derivation

└─⟦71472ef1e⟧ Bits:30009661 Philips computer tape "600103"
    └─⟦this⟧ »BDKAPP/C:TRA.SC«

PTS(SC)

	IDENT C:TRA 	CONPAC REL=1.0 DATE= 80.04.29 
			UPDATAOE  #1 
*************************************************************** 
* 
*	CONCENTRATOR APPLICATION PACKAGE  PEAB-T
* 
*	PROGRAMMER:  PER OMAN / PAN 
* 
* 
*	C : T R A 
* 
* 
*   * 
*   THIS MODULE LOADS THE STACKBASE AND BRANCHES TO THE 
*   USER MODULE SPECIFIED IN CALLING SEQUENCE FOR 
*   CONCENTRATOR FUNCTION K:ACTA
*   * 
* 
* 
*	THIS MODULE RUNS UNDER TASK:  TRASK 
* 
* 
*	THE MODULE CONTAINS THE SUBROUTINES:
* 
*	NAME	REVDAT	VERSION 
* 
*	TRASK	75-1028 
* 
* 
* 
****************************************************************
	EJECT		IDENT C:TRA 
* 
*************************************************************** 
* 
*	ENTRY ADDRESSES 
* 
*************************************************************** 
* 
*		ENTRY	DESCRIPTION
* 
	ENTRY	TRASK	TRASK ACTIVATION 
* 
* 
*************************************************************** 
* 
*	EXTERNAL REFERENSES 
* 
*************************************************************** 
* 
*		ADDRESS	IN MODULE
* 
* 
	EXTRN	K:TTCA	C:TPL 
	EXTRN	K:TPAR 
	EXTRN	K:TACT 
* 
* 
	EJECT		IDENT C:TRA 
*******************TRASK *************************************
* 
* 
* 
*SUBROUTINE T R A S K 
* 
* 
* 
* CALL SEQUENCE:	VIA K:ACTA 
* 
*   ENTRY PARAM:	A1=ADDRESS TO TASK POOL BUFFER 
* 
*   SUBROUTINES:	 
* 
*  RETURN PARAM:	A1=PARAMETER 
*		A13=TCA ADDRESS
*		A14=STACKBASE
* 
*  RETURN METOD:	DIRECT 
* 
* 
*  STACKER NEED:	0
* 
*   LIMITATIONS:	 
* 
*  CALLING TASK:	ALL
* 
* 
*************************************************************** 
	EJECT		IDENT C:TRA 
* 
* 
*   LOAD STACKBASE AND TCA ADDRESS
* 
TRASK	EQU	* 
	LD	A13,K:TTCA,A1	LOAD TCA ADDRESS
	LD	A14,2,A13 
	ADR	A14,A13	STACKBASE
	ST	A1,-4,A13	STORE TPOOL BUFFER ADDRESS
* 
*   GET BRANCH LABEL AND PARAMETER FROM TCA AND BRANCH
* 
	LD	A2,K:TACT,A1
	LD	A1,K:TPAR,A1
	ABR	A2 
	END

Full view