;
call InitLCD ; initialize LCD subsystem |B0
PutLCD cmd,Home ; set ddram addr to 'home' |B0
;
; "entry mode set"
;
PutLCD cmd,CursInc|ShftOff
;
; "display on/off control"
;
PutLCD cmd,DispOn|CursOn|BlnkOff
PutLCD cmd,DispOff
PutLCD cmd,DispOn|CursOff
;
PutLCD cmd,cgram+0 ; cgram addr + 0 (char '0') |B0
PutLCD dat,b'00100' ; upload char 0 "Up Arrow" |B0
PutLCD dat,b'01110' ; |B0
PutLCD dat,b'11111' ; |B0
PutLCD dat,b'00100' ; |B0
PutLCD dat,b'00100' ; |B0
PutLCD dat,b'00100' ; |B0
PutLCD dat,b'00100' ; |B0
PutLCD dat,b'00000' ; |B0
PutLCD cmd,cgram+8 ; cgram addr + 8 (char '1') |B0
PutLCD dat,b'00100' ; upload char 1 "Dn Arrow" |B0
PutLCD dat,b'00100' ; |B0
PutLCD dat,b'00100' ; |B0
PutLCD dat,b'00100' ; |B0
PutLCD dat,b'11111' ; |B0
PutLCD dat,b'01110' ; |B0
PutLCD dat,b'00100' ; |B0
PutLCD dat,b'00000' ; |B0
;
PutLCD cmd,line1 ; ddram line 1, htab 0 |B0
PutLCD dat,0 ; the <up> arror char |B0
PutLCD cmd,line1+3 ; ddram line 1, htab 3 |B0
PutLCD str,"K8LH Clock"
PutLCD cmd,line2 ; ddram line 2, htab 0 |B0
PutLCD dat,1 ; the <dn> arrow char |B0
PutLCD cmd,line2+4 ; ddram line 2, htab 4 |B0
PutLCD str,"HH:MM:SS"