;==================================================
;  PROGRAM TITLE:	Direct Write
;
;  WRITTEN BY:		D. HUNEYCUTT
;  DATE WRITTEN:	JULY 1981
;
;  SUMMARY:
;     DWRITE puts a character directly to the console
;     device by using CP/M function calls.
;
;      *************************************
;      *	C A U T I O N		   *
;      *   CP/M VERSION 2.x ONLY!!!	   *
;      *************************************
;
;  CALL AS:
;      PROCEDURE DWRITE(CH: CHAR);EXTERNAL;


	NAME DWRITE
	ENTRY DWRITE

DWRITE:
	ENTR	D,2,0
	;
	LXI	B,06H	; CP/M DIRECT IO FUNCTION CALL
	LXI	D,0
	MOV	E,8(IX) ; PUT BYTE TO WRITE IN 'E' REG
	CALL	5	; CALL BDOS
	;
	EXIT	D,1
	;
	;
/M DIRECT IO FUNCTION CALL
	LXI	D,0
	MOV	E,8(IX) ; PUT BYTE TO WRITE IN '