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

⟦f396121ed⟧ 

    Length: 50006 (0xc356)
    Notes: pts_type(SC)
    Names: »DRDY02.SC«

Derivation

└─⟦928b1fd3e⟧ Bits:30009671 Philips computer tape "600131"
    └─⟦this⟧ »IMPROVE/DRDY02.SC«

PTS(SC)

	IDENT DRDY02 	REL 11.1 82-08-20 870105041110 

			=14,BLOCKING OF REQUESTS,CW NOT CLEARED IF ERR.
			=14,REL 11.1 82-04-06
			=13 ERRORCHECK IN ECHO AND END OF ECHOING CORRECTED
			REL 11.1 82-02-12
			=12 A5 DESTROYED BY TIMER, CHANGE IN RECOVERY
			REL 11.0 81-12-23
			=11 TIMING PROBLEM IN RECOVERY FOR PLASMA DISPLAYS 
			    RECOVERY IN ECHO MODE IMPLEMENTED
			REL 11.0 81-12-09
			=10 ECBRL DESTROYED BY ORDER 05 IF X:E=1 
			REL 11.0 81-09-30
			=9 ERR. FOR 6342/51 AND EMPTY BLOCK IN ORD. /05
			   CHAR. CHECK AT FAST OUTPUT. ULINE&LOWINT ON 6387
			REL 11.0 81-09-17
			= 8 ERROR FOR 6342 & 6351 IN ORDER 0B & 31 
			REL 11.0 81-09-17
			= 7 FUNCTIONS FOR VD87 IMPLEMENTED 
			REL 11.0 81-06-30
			= 6 "SUPPRESSION OF TRAILING BLANKS" REMOVED FROM BASIC WRITE
			REL 11.0 81-06-24
			= 5 SUPPRESSION OF TABULATION CORRECTED
			REL 11.0 81-05-24
			= 4 GREEK CHARACTER SET HANDLING & NEW CONDITIONS
			REL 11.0 81-04-06
			= 3 ASS. ERROR IF FAST0=1, TRASPA=1 AND WHATDY=1 
			REL 11.0 81-02-17
			= 2 ECB-ADDRESS CHECKED IF LRC-ERROR OCCURED 
			REL 11.0 81-02-13
			= 1 ECB-ADDRESS CHECKED IN ERROR-ROUTINE 
			REL 11.0 81-02-03
* 
************************************************************
* 
* 
* 
*   PHILIPS TERMINAL SYSTEM P T S 
*   DRDY02 = DRIVER VIDEO DISPLAY 
* 
* 
* 
************************************************************
* 
*   THIS DRIVER HANDLES OUTPUT TO THE VIDEO 
*   DISPLAYS PTS 6342, 6344, 6346 AND TO THE
*   DISPLAYS PTS 6351, 6385 AND 6386. 
*   THE DRIVER INCLUDES DEVICE DEPENDENT ECHO-
*   FUNCTIONS WHICH MAKES IT POSSIBLE TO USE
*   THE DISPLAY AS AN ECHO-DEVICE TO ANY KEY- 
*   BOARD.
* 
* 
*   THE FOLLOWING ORDERS ARE TREATED :
* 
*   ORDER  00   TEST STATUS 
*          05   BASIC WRITE 
*          06   STANDARD WRITE
*          0B   SET CURSOR AND WRITE
*          31   ERASE 
*          3D   START WRITE 
*          3E   STOP WRITE
* 
* 
*   NORMAL REGISTER USAGE : 
* 
*   REGISTER  A1  =  RETURN CODE
*             A2  =  OUTPUT CHARACTER 
*             A3  =  BUFFER INDEX 
*             A4  =  WORKING REGISTER 
*             A5  =  STACK BASE 
*             A6  =  DWT-ADDRESS
*             A7  =  ORDER
*             A8  =  ECB-ADDRESS
* 
* 
*   ENTRIES 
* 
* 
	ENTRY	DYAD	ADDRESS TO ADDRESSBLOCK 
* 
* 
*   EXTERNALS 
* 
* 
*   TOSS ROUTINES 
* 
	EXTRN	LENDER	I/O-REQUEST ERROR 
	EXTRN	LENDIS	END I/O-REQUEST 
	EXTRN	STABLK	START OF BLOCK
	EXTRN	OUTPUT	SEND
	EXTRN	ENDBLK	END OF BLOCK
	EXTRN	GETCHR	FETCH CHARACTER FROM ECB-BUFFER 
	EXTRN	ECHRTN	RETURN TO KEYBOARD
	EXTRN	TENDIO	END OF I/O
	EXTRN	SETIME	TIMER ROUTINE 
	EXTRN	LDISP	DISPATCH 
* 
*   DWT DISPLACEMENTS 
* 
	EXTRN	DWTCHP	CHANNEL PARAMETER WORD	=14
	EXTRN	DWTDEV	TERMINAL DEVICE STATUS
	EXTRN	DWTST	DEVICE STATUS
	EXTRN	DWTOR	ORDER
	EXTRN	DWTSB2	STACK BASE
* 
*   ECB DISPLACEMENTS 
* 
	EXTRN	ECBBA	BUFFER ADDRESS 
	EXTRN	ECBRL	REQUESTED LENGTH 
	EXTRN	ECBEL	EFFECTIVE LENGTH 
	EXTRN	ECBRC	RETURN CODE
	EXTRN	ECBCW	CONTROL WORD 
* 
************************************************************
* 
*   CONSTANTS 
* 
************************************************************
* 
*   DWT DISPLACEMENTS 
* 
DWTAP	EQU	/2	HEAD POSITION POINTER
DWTBC	EQU	/1	POSITION COUNTER 
DWTLIN	EQU	/4	LINES 
DWTPOS	EQU	/5	POSITIONS 
DWTBLC	EQU	/6	CHARACTERS IN BLOCK 
DWTTP	EQU	/8	TIMER POINTER
* 
*   CHARACTERS
* 
DUMMY	EQU	/3	DUMMY CHARACTER
BACKSP	EQU	/08	NON-DESTRUCTIVE BACKSPACE
LF	EQU	/0A	LINE FEED
HOME	EQU	/0B	CURSOR HOME
CLEHOM	EQU	/0C	CLEAR AND CURSOR HOME
CR	EQU	/0D	CARRIAGE RETURN
CURRIG	EQU	/10	CURSOR RIGHT 
SCADD	EQU	/11	SET CURSOR ADDRESS
ULSTOP	EQU	/13	UNDERLINE STOP 
FASOUT	EQU	/14	FAST OUTPUT
STILL	EQU	/18	CURSOR STEADY 
CTYCOD	EQU	/1B	SET COUNTRY CODE 
LISTOP	EQU	/1F	LOW INTENSITY STOP 
SPACE	EQU	/20	SPACE 
* 
*   RETURN CODES
* 
CCERR	EQU	/4	CODE CHECK ERROR 
* 
*   OTHER 
* 
MINBLK	EQU	6	BLOCK SIZE 
FASTNR	EQU	6	LEAST NUMBER OF CHARS TO SEND WITH FAST OUTPUT 
TIME	EQU	1
* 
************************************************************
* 
*   ADDRESS BLOCK 
* 
************************************************************
	DATA	DVBLEN	BUFFER LENGTH
	DATA	2	DEVICE INDEX
DYAD	EQU	*
	DATA	ACDY	DRIVER ACTIVATION ADDRESS
	DATA	ABDY	ABORT ROUTINE
	DATA	0	NO INTERRUPT HANDLER
	DATA	RCDY	RECOVERY ROUTINE 
	DATA	ECHODY	ECHO ROUTINE 
* 
************************************************************
* 
*   CONDITIONAL ASSEMBLY
* 
************************************************************
* 
*   IF THE CONSTANT X:A IS SET TO 1, FAST OUTPUT
*   WILL BE USED IF A NUMBER (SEE THE CONSTANT "FASTNR")
*   OF CONSECUTIVE CHARACTERS IN THE ECB-BUFFER ARE 
*   FOUND EQUAL.
* 
X:A	EQU	0 
FASTO	EQU	X:A 
* 
* 
*   BY SETTING X:B=1 THE DRIVER HANDLES OTHER DISPLAYS THAN PTS 6344
*   6346, 6385 AND 6386.
* 
X:B	EQU	0 
WHATDY	EQU	X:B
* 
* 
*    BY SETTING X:C TO 1 LOWER CASE CHAR. GENERATOR 
*    (COLUMNS 6 AND 7) CAN BE USED
X:C	EQU	1 
LOWCHA	EQU	X:C
* 
* 
*    BY MEANS OF CONDITIONAL ASSEMBLY IT IS POSSIBLE
*    TO SUPPRESS ECHOING OF END OF RECORD CHARACTER.
*    THIS IS ATTAINED BY SETTING THE CONSTANT X:G=0 
* 
X:D	EQU	0 
EORECH	EQU	X:D
* 
*   BY SETTING THE CONSTANT TRASPA = 1 IT IS

Full view