DataMuseum.dk

top - metrics - download

    Length: 4422 (0x1146)
    Notes: pts_type(SC)
    Names: »DRCD01.SC«

└─⟦efe3a1cfc⟧ Bits:30009667 Philips computer tape "600113"
    └─⟦this⟧ »TOSSWORK/DRCD01.SC« 

PTS(SC)

	IDENT DRCD01 	REL 8.2 78-09-15  870105040820 

* 
**********************************************: 
* 
*   PHILIPS TERMINAL SYSTEM PTS 
* 
*   DRCD01 = DRIVER COT ALPHA DISPLAY 
* 
* 
* 
* 
* 
* 
*********************************************** 
* 
*    THIS DRIVER HANDLES OUTPUT TO COT ALPHA DISPLAY. 
* 
*   THE COT MUST BE CONNECTED TO CPU VIA CHLT OR CHRT.
* 
* 
*    THE DRIVER CONSISTS OF THE FOLLOWING PARTS:
* 
*    A C C D :    ACTIVATION PART 
*    I H C D :    INTERRUPT HANDLER 
* 
*    R C C D :     RECOVERY ROUTINE 
* 
* 
*    THE FOLLOWING ORDERS ARE TREATED:
* 
*    ORDER 06:   WRITE
	EJECT
* 
* 
*    NORMAL REGISTER USAGE: 
* 
*    REGISTER A1: RETURN CODE 
*             A2: OUTPUT CHARACTER
*             A3: WORK REGISTER 
*             A4: WORK REGISTER 
*             A5: WORK REGISTER 
*             A6: DWT-ADDRESS 
*             A7: ORDER 
*             A8: ECB-ADDRESS 
* 
* 
*    SYSTEM ADAPTATION
* 
	EJECT
* 
* 
*********************** 
*    ENTRIES          * 
*********************** 
* 
	ENTRY	CDAD 
* 
************************************* 
*    EXTERNALS                    * 
************************************* 
	EXTRN	SAVE8	SAVE REGS
	EXTRN	TENDIO	END I/O 
	EXTRN	DISEND	PERFORM END I/O AND DISPATCH
	EXTRN	TDISP	DISPATCHER ENTRY 
	EXTRN	OUTPUT	OUTPUT CHAR.
	EXTRN	LDREG	LOAD REGISTERS AND RETURN
	EXTRN	GETCHR	GET CHARACTER 
	EXTRN	DISIOE	I/O REQUEST ERROR 
	EXTRN	DWTST	STATUS 
	EXTRN	DWTOR	ORDER
	EXTRN	ECHRTN	RETURN FROM ECHO ROUTINE
* 
* 
******************************* 
*    CONSTANTS                * 
******************************* 
* 
DWTBC	EQU	/3
* 
************************* 
*      TABLES           * 
************************* 
* 
CDAD	EQU	*
	DATA	ACCD	ACTIVATION DRIVER
	DATA	IHCD	INTERRUPT HANDLER
	DATA	RCCD	RECOVERY ROUTINE 
	DATA	ECHOCD	DEVICE DEPENDENT ECHO ROUTINE
* 
* 
* 
	EJECT
* 
* 
*[
******************************************* 
*    CONDITIONAL ASSEMBLY               * 
******************************************* 
* 
* 
* 
* 
********************************************
*    DWT-DISPLACEMENTS                     *
********************************************
* 
	EJECT
* 
*    A C C D
* 
*    ACTIVATION PART: CHECH VALIDITY OF ORDERS
*                     AND STARTS THE PROCESSING 
* 
ACCD	EQU	*
	SUK	A7,6	CORRECT ORDER ? 
	ABL(NE)	DISIOE	REQUEST ERROR 
	LDK	A3,0	START BUFFER INDEX
	LDK	A4,0 
ACCD10	EQU	*
	CF	A15,GETCHR	GET ONE CHARACTER
	LDR	A1,A1	LAST CHARACTER 
	RF(E)	ACCD20	YES 
	CWK	A2,/07 
	RF(NE)	ACCD15
	LDK	A2,4 
	SC	A2,DWTBC,A6 
	RB	ACCD10
ACCD15	EQU	*
	CF	A5,OUTPUT 
	RB	ACCD10
ACCD20	EQU	*
	LD	A2,DWTST,A6 
	ORK	A2,3 
	CF	A5,OUTPUT 
	SC	A1,DWTBC,A6	RESET RIGHT BYTE
	RF	ENDIO 
	EJECT
* 
*   I H C D 
* 
*    INTERRUPT HANDLER: PROCESS OF INTERRUPT
* 
IHCD	EQU	*
	LD	A4,DWTST,A6	STATUS
	RF(N)	EXIT 
	LDR	A1,A1	RETURN CODE
	RF(NE)	ENDIO	YES END I/O 
	ABL	LDREG
EXIT	ABL	TDISP
ENDIO	ABL	DISEND
	EJECT
* 
*    E C H O C D
* 
*    ECHOCD = DEVICE DEPENDENT ECHO SUBROUTINE
* 
ECHOCD	EQU	*
	LDR	A7,A7	EOR ?
	RF(N)	ECHO10 
	CF	A5,OUTPUT	SEND CHARACTER
ECHO10	ABL	ECHRTN 
	EJECT
* 
*    R C C D
* 
* 
RCCD	EQU	*
	CF	A15,SAVE8 
	LD	A7,DWTST,A6 
	RB(N)	EXIT 
	LDK	A1,2 
	RB	ENDIO 
* 
* 
	END