* animtest.asm
* Test our ability to move characters around the display at will.

#include "ascii.asm"
#include "registers.asm"
#include "buffalo.asm"

	org	$2000
	jmp	main

#include "lcd.asm"
#include "keypad.asm"
glyph_table	equ	0	; No glyph table

xcoord:	rmb	1
ycoord:	rmb	1

mydel:	rmb	2

main:
	jsr	init_LCD
	ldaa	#ENT_MOD	; Entry mode: no increment
	jsr	send_cmd
	ldaa	#DISP_ONOFF|D_DISP	; No blink/cursor
	jsr	send_cmd

	jsr	init_keypad

	ldaa	#0
	ldab	#0
	staa	xcoord
	stab	ycoord

	ldx	#$ffff
	stx	mydel

loop:	ldaa	xcoord
	ldab	ycoord
	jsr	gotoxy

	ldaa	#'A	
	jsr	write_lcd

	ldx	mydel
	jsr	dloop

	ldaa	xcoord
	ldab	ycoord
	jsr	gotoxy
	ldaa	#SPACE
	jsr	write_lcd

	ldab	ycoord
	incb
	cmpb	#4
	bne	yok
	ldab	#0
	stab	ycoord
	ldaa	xcoord
	inca
	cmpa	#20
	bne	xok
	ldaa	#0
xok:	staa	xcoord
	ldd	mydel
	lsra		; shift D right
	rorb	
	std	mydel
	ldx	#mydel
	jsr	out2bsp
	jsr	outcrlf

yok:	stab	ycoord

	bra	loop