.if CODESEG = 1
.segment "CODE1" 
.endif

.export		_putchar

ECHO	=	$FFEF		; print character from A

_putchar:	
	;ORA	$80
	JMP	ECHO