;	CP/M for M100, T102, T200
;
;	CONIN	Console In for T200 ver 3.0
;
;	By Philip Avery 3-May-09
;
;	
;	This routine switches from OptROM to Main ROM, checks the keyboard buffer, if zero - it waits.
;	Returns with the character in reg A. Switches back to OptROM.
;
;	Keyboard buffer is filled by key scan during Interrupt 7.5 process.
;
;	Requires System RAM to be present (EEB0H-FFFH)
;
;	Must be located above System ROM, ie within RAM A000H - EEAFH.
;	-------------------------------------------------------------



;	T200 System RAM
keyboard_buffer_count	.equ	0fd1eh
keyboard_buffer		.equ	0fd1fh


Conin	push	psw
	push	b
	push	d
	in	0d8h	; Turn Off Option ROM (lower 32k RAM), ie enable System ROM
	ani	0fch	; xxxxxx00
	out	0d8h
	call	4f68h	; Turn on cursor
Conin1	lda	keyboard_buffer_count
	ora	a
	jz	Conin1
	dcr	a
	sta	keyboard_buffer_count
	call	4f6dh	; Turn off cursor
	in	0d8h	; Turn On Option ROM (lower 32k RAM)
	ori	2h	; xxxxxx1x
	ani	0feh	; xxxxxx10
	out	0d8h
	pop	d
	pop	b
	pop	psw
	lda	keyboard_buffer	; Get char from start of keyboard buffer
	ret

	.END