prttb68k.lib

open source of basic interpreter of 68

*
*  prttb68k.lib      library routine to print a tab to the output device (68xxx)
*
*  This routine simply sends a tab char to the output device, using the
*  routine outch in outch.lib.
*
*  You can make this routine fancier, if you like, by rewriting it to
*  send an appropriate number of spaces to move the output cursor to the
*  correct column.
*
*  This routine preserves all registers.
*

_prttab
	move.l	d0,-(a7)		save d0
	move.b	#$09,d0			get tab
	jsr	_outch			send it
	move.l	(a7)+,d0		restore d0
	rts