outch68k.lib

open source of basic interpreter of 68

*
*  outch68k.lib      send a character to the output device
*
*  This routine sends a single character, passed in the low byte of D0,
*  to the active output device.
*
*  This is the low-level SBasic output routine, used by all other print
*  functions, such as _prtstrc.  You can change this routine, if you
*  wish, to support other output devices.  Make sure, however, that
*  you retain _outch as the subroutine's name.
*
*  This routine preserves all registers.
*

*
*  This works with 332bug on Motorola's 68332 development
*  board.  Since character I/O is target platform specific,
*  you need to develop your own _outch function.
*

_outch
	movem.l	d0-d7/a0-a6,-(a7)		save regs
	move.b	d0,-(a7)		set up for 332bug
	trap	#15			332bug system call
	dc.w	$20			output char in d0 to terminal
	movem.l	(a7)+,d0-d7/a0-a6	restore regs
	rts