;===================================================
;  PROGRAM TITLE:	KEYIN
;
;  WRITTEN BY:	RAYMOND E. PENLEY
;  DATE WRITTEN:	14 APRIL 1980
;			modified for Pascal/Z vers 3.0
;			8 May 1980
;
;  SUMMARY:
;	Keyin reads the Console directly. It
;	bypasses the CCP and goes to the Console
;	routine through the BIOS.
;	It will work with both CP/M ver 1.4 and ver 2.0
;
;CALL AS:
;
;	PROCEDURE KEYIN(VAR X:char); EXTERNAL;
;
;
	NAME	KEYIN
;
	ENTRY	KEYIN
;
KEYIN:
	CALL	$K2	;---Char returns in "A" reg
	POP	D	;---return addr to DE
	POP	H	;---param addr to HL
	MOV	M,A	;---Store char (HL)
	XRA	A	;---Satisfy Pascal/Z. LET A:=0
	XCHG		;---HL := DE
	PCHL		;---Done, return
;
$K2:	LHLD	1	;---BIOS address
	LXI	D,6	;---CONIN offset
	DAD	D	;---Add in offset
	PCHL		;---Continue from here
	;
;===================================================
