AUSAM/source/mac/mac/s2.6800

		title	"Test sample 2"
;
;	Sample heathkit m6800 program #2
;
;		Turn all displays off and on.
;		Displays hex value at disp+1
;
;		Uses monitor subroutines redis,
;				outch, outhex.
;
redis		equ	0xfcbc
outch		equ	0xfe3a
outhex		equ	0xfe28
;
digadd		equ	0xf0
;
;
start
		jsr	redis			; first displ address.
;
clear
		clr	a
		jsr	outch			; turn all segs off
		ldx	digadd			; next display
		cpx	#0xc10f			; last display yet ?
		bne	clear
		bsr	hold
		jsr	redis			; first disp address.
;
disp
		lda	a,#0x08			; hex value to display
;
out
		jsr	outhex			; output char
		ldx	digadd			; next display
		cpx	#0xc10f			; last display yet ?
		bne	out
		bsr	hold
		bra	start			; do again
;
hold
		ldx	#0xff00			; time to wait
;
wait
		dex
		bne	wait			; time out yet ?
		rts
;
		end