;;********************************************************************************
;; @module LCD-W164B
;; @type driver
;; @device ELECTRONIC ASSEMBLY - W164B-NLW
;; @details
;;   The LCD must be connected to a W65C22N Interface Chip:
;;     - IO.RB0-7  -> LCD.D0-7 data lines
;;     - IO.RA5    -> LCD.RS   register select
;;     - IO.RA6    -> LCD.R/W  read/write
;;     - IO.RA7    -> LCD.E    enable
;;   
;; @requires IO: Base Address of IO Chip
;; @depends IO-W65C22N
;;********************************************************************************
.ifndef INCLUDE_LCD
INCLUDE_LCD = 1

.include "system/system.h65"

.scope lcd
LCD_IO = IO1
Import lcd,init,clear,print,print_char,set_position,set_custom_char
Import lcd,_cmd,_wait_nbusy,_write_ram,_read_ram,_charcount
; PIN MASKS
E       = %10000000
RW      = %01000000
RS      = %00100000

RA_MASK = %11100000

; LCD Instructions (see datasheet for more)
CMD_CLEAR           = %00000001  ; clear display
CMD_ENTRY_MODE      = %00000110  ; auto-shift cursor
CMD_DISPLAY_ON      = %00001111  ; everything on, with blinking cursor
CMD_SHIFT_CUR_LEFT  = %00101000  ; shift the display to the left
CMD_SHIFT_DIS_LEFT  = %00111000  ; shift the display to the left
CMD_SHIFT_DIS_RIGHT = %00110000  ; shift the display to the right
CMD_SHIFT_CUR_RIGHT = %00100000  ; shift the display to the right
CMD_FUNCTION_SET    = %00111000  ; 8-bit, 4 lines, 5x7 font
CMD_SET_CG_ADDRESS  = %01000000  ; or with the address
CMD_SET_ADDRESS     = %10000000  ; or with the address
; LCD Constants
LINE1      = $00
LINE2      = $40
LINE3      = $10
LINE4      = $50

.endscope

;;********************************************************************************
;; @macro Clear the screen and print a null-terminated string
;; @param message: Address of the message or string literal
;; @details
;;  If message is  a string literal, it will be stored in rodata 
;;  and the address of this segment will be used
;;********************************************************************************
.macro Print message
    jsr lcd::clear
    .if .match(message, "")  ; message is a string literal -> store in rodata
        .pushseg
        .rodata
:       .asciiz message
        .popseg
        lda #<:-
        sta ARG0
        lda #>:-
        sta ARG1
    .else ; message is not a string
        lda #<message
        sta ARG0
        lda #>message
        sta ARG1
    .endif
    jsr lcd::print
.endmacro


;;********************************************************************************
;; @macro Print a null-terminated string
;; @param message: Address of the message or string literal
;;********************************************************************************
.macro PrintNC message
    .if .match(message, "")  ; message is a string literal -> store in rodata
        .pushseg
        .rodata
:       .asciiz message
        .popseg
        lda #<:-
        sta ARG0
        lda #>:-
        sta ARG1
    .else ; message is not a string
        lda #<message
        sta ARG0
        lda #>message
        sta ARG1
    .endif
    jsr lcd::print
.endmacro


;;********************************************************************************
;; @macro Print a null-terminated string
;; @param message: Address of the message or string literal
;;********************************************************************************
.macro lcd_SetCursor pos
    .if .match (pos, a)
    .elseif .match (pos, x)
    txa
    .elseif .match (pos, y)
    tya
    .else
    lda #pos
    .endif
    sta lcd::_charcount
    jsr lcd::_set_dd_ram_addr_from__charcount
.endmacro

;;********************************************************************************
;; @macro Print a null-terminated string
;; @param message: Address of the message or string literal
;;********************************************************************************
.macro lcd_AdvanceCursor n
    .ifblank n
    inc lcd::_charcount
    .else
    lda lcd::_charcount
    add n
    sta lcd::_charcount
    .endif
    jsr lcd::_set_dd_ram_addr_from__charcount
.endmacro


.endif  ; guard