**********************************************************
* Een voorbeeld voor het aansturen van het LCD-display.  *
**********************************************************

regbas		equ	$1000
portc		equ	$03
ddrc		equ	$07
bit0		equ	%00000001

		org	$fffe
		fdb	start		; init RESET vector

		org 	$c000

start		ldab	#lcd_init	; LCD eenmalig initialiseren 
		jsr	lcd
		ldx	#regbas
		bclr	ddrc,x,bit0	; PC0 is input

karakter	ldab	#'a'		; een karakter naar het display
		jsr	lcd
		jsr	wachtPC0	; toggle PC0 om verder te gaan


regel1		ldab	#lcd_string	; een regel naar het display
		ldx     #Tekst1		; het start-adres van de tekst-regel
		jsr	lcd		; deze regel afsluiten met het ASCII
		     			; "end of text"-karakter
		jsr	wachtPC0	; toggle PC0 om verder te gaan


regel2		ldab	#lcd_string
		ldx     #Tekst2
		jsr	lcd
		jmp	*		; einde voorbeeld

wachtPC0	ldx	#regbas		
wachtop1	brclr   portc,x,bit0,wachtop1	; wacht tot PC0 hoog is
wachtop0	brset   portc,x,bit0,wachtop0	; wacht tot PC0 laag is
		rts

Tekst1		fcc	'Hallo'         ; fcc=form constant character
		fcb	EOT		; "end of text"-karakter om
		                        ; het einde van de string te markeren
Tekst2		fcb	$0D,$0D 	; $0D Carriage Return=CR=cursor naar 
                                        ; naar het begin van de regel
		fcc	'Technische'
		fcb     $0D
		fcc     'Hogeschool Rijswijk'
		fcb	EOT


$include	'simlcd.inc'		include-file voor de THR simulator
*$include	'lcd.inc'		include-file voor de EVM-kast