DataMuseum.dk

top - metrics - download

    Length: 4604 (0x11fc)
    Notes: pts_type(SC)
    Names: »C:TRA.SC«

└─⟦2a21e4bb5⟧ Bits:30009691 Philips computer tape "600408"
    └─⟦this⟧ »BDKAPP/C:TRA.SC« 

PTS(SC)

	IDENT C:TRA 	CONPAC REL=0.0 DATE= 77.10.12 
			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