getchar:
*	jsr getin
	beq -
	rts