DataMuseum.dk

top - metrics - download

    Length: 4540 (0x11bc)
    Notes: pts_type(SC)
    Names: »SUPAPP.SC«

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

PTS(SC)

	IDENT SUPAPP 	CONPAC REL=0.0 DATE= 77.10.12
*************************************************************** 
* 
*	U S E R  MODULE OF CONCENTRATOR APPLICATION  PEAB-T 
* 
*	PROGRAMMER:  JES
* 
* 
*	S U P A P P 
* 
* 
*   * 
*   THIS MODULE HANDLES SUPERVISORY MESSAGES RECEIVED 
*   FROM TRUNK LINE BY DCCC.
*   THE CC READ BUFFER SHOULD BE RELEASED AS SOON AS
*   POSSIBLE BY CALLING K:RCCB
*   * 
* 
*	THE MODULE RUNS UNDER TASK: TRASK  (FROM POOL TPSUP)
* 
*	ACTIVATED BY: DCCC
* 
* 
* 
* 
* 
*	THE MODULE CONTAINS THE SUBROUTINES:
* 
*	NAME	REVDAT	VERSION 
* 
* 
* 
* 
* 
*************************************************************** 
	EJECT
* 
* 
*	ENTRY ADDRESSES 
* 
*************************************************************** 
* 
*		ENTRY	DESCRIPTION
* 
	ENTRY	SUPAPP 
	EJECT
* 
* 
*	EXTERNAL REFERENSES 
* 
*************************************************************** 
* 
*		ADDRESS	IN MODULE
* 
* 
	EXTRN	K:RCCB	K:CCH 
	EXTRN	K:RETA	C:FUB 
	EXTRN	TPSUP	C:TPL
* 
* 
*	EQUATES 
* 
* 
INPBL	EQU	-4	INDEX TO INPUT BUFFER LENGTH 
* 
	EJECT
************************************************************
* 
*   S U P A P P 
* 
************************************************************
SUPAPP	EQU	*	ACTIVATION POINT 
* 
* 
*   TAKE CARE OF SUPERVISORY MESSAGE
* 
* 
*   A1 = BUFFER POINTER 
* 
* 
	LD	A2,INPBL,A1	GET LENGTH
* 
* 
*   RELEASE BUFFER
*   A1 = BUFFER POINTER 
* 
* 
	CF	A14,K:RCCB
* 
*   EXIT
* 
	CF	A14,K:RETA
	DATA	TPSUP 
* 
	END