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

⟦e5af55876⟧ 

    Length: 3754 (0xeaa)
    Notes: pts_type(SC)
    Names: »C:FUB.SC«

Derivation

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

PTS(SC)

	IDENT C:FUB 	CONPAC REL=1.0 DATE= 80.04.29 
			UPDATE #2
*************************************************************** 
* 
*	CONCENTRATOR APPLICATION PACKAGE  PEAB-T
* 
*	PROGRAMMER:  PER OMAN / PAN 
* 
* 
*	C : F U B 
* 
* 
*   * 
*   THIS MODULE CONTAINS THE CONCENTRATOR FUNCTIONS HANDLING
*   TRASK ACTIVATION AND EXIT 
* 
* - K:ACTA ACTIVATE TRASK FROM TRASK POOL 
* 
* - K:RETA  RELEASE TASK TO TASK POOL 
*   * 
* 
* 
* 
* 
*	THE MODULE CONTAINS THE SUBROUTINES:
* 
*	NAME	REVDAT	VERSION 
* 
*	K:ACTA	75-11-11 
*	K:RETA	76-02-12 
* 
****************************************************************
	EJECT		IDENT C:FUB 
* 
* 
*	ENTRY ADDRESSES 
* 
*************************************************************** 
* 
*		ENTRY	DESCRIPTION
* 
	ENTRY	K:ACTA	ACTIVATE TRASK FROM POOL
	ENTRY	K:RETA	RELEASE TASK
* 
* 
*	EXTERNAL REFERENSES 
* 
*************************************************************** 
* 
*		ADDRESS	IN MODULE
* 
	EXTRN	K:TACT	TPOOL 
	EXTRN	K:TPAR 
	EXTRN	TRASK
* 
* 
* 
	EJECT		IDENT C:FUB 
******************* K : A C T A ************************************* 
* 
* 
* 
*SUBROUTINE  K : A C T A
*ACTIVATES TASK FROM TASK P0OL
* 
* 
* 
* CALL SEQUENCE:	CF    A14,K:ACTA 
*		DATA  POOL,PROGR 
* 
*   ENTRY PARAM:	A1 = PARAMETER TRANSFERED TO STARTED PROGRAM 
*		POOL = NAME OF TASK POOL 
*		PROGR = NAME OF PROGRAM TO BE STARTED
* 
*   SUBROUTINES:	NONE 
* 
*  RETURN PARAM:	NONE 
* 
*  RETURN METOD:	DIRECT 
* 
*  CHANGED REGS:	A1-A3,A5,A7-A8 
* 
*  STACKER NEED:	0
* 
*   LIMITATIONS:	 
* 
*  CALLING TASK:	ANY
* 
* 
*************************************************************** 
	EJECT		IDENT C:FUB 
* 
* 
* 
K:ACTA	EQU	*
	ADKL	A14,4 
	LDR*	A2,A14
	LDR*	A3,A2 
	LD	A5,2,A2 
	ADK	A2,4 
	ST	A3,ACT100 
	LDK	A7,1 
	LKM
	DATA	-7
ACT100	DATA	0 
	LDR*	A7,A8 
	ST	A5,K:TACT,A8
	ST	A1,K:TPAR,A8
	LDR	A1,A8
	LKM
	DATA	-4,TRASK
	ABR A2 
	EJECT		IDENT C:FUB 
******************* K : R E T A ************************************* 
* 
* 
* 
*SUBROUTINE  K : R E T A
*RELEASES TASK BELONGING TO TASK POOL 
* 
* 
* 
* CALL SEQUENCE:	CF   A14,K:RETA
*		DATA TPOOL 
* 
*   ENTRY PARAM:	TPOOL = TASK POOL NAME 
* 
*   SUBROUTINES:	NONE 
* 
*  RETURN PARAM:	NO RETURN
* 
*   LIMITATIONS:	ONLY THE RUNNING TASK CAN BE RELEASED
* 
*  CALLING TASK:	ANY TASK BELONGING TO A TASK POOL
* 
* 
*************************************************************** 
	EJECT		IDENT C:FUB 
*		K : R E T A
* 
*   RELEASE TPOOL BUFFER
* 
K:RETA	EQU	*
	LD	A8,-4,A13	GET TPOOL BUF ADDRESS 
	ADKL	A14,4 
	LDR*	A1,A14
	LDR*	A1,A1	GET TPOOL NAME
	ST	A1,RETA10 
	LKM
	DATA	-8
RETA10	DATA	0	TPOOL ADDRESS 
* 
*   EXIT TASK 
* 
	LKM
	DATA	3 
	END

Full view