6502-OS/system/lcd.h65

;********************************************************************************
; @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

;********************************************************************************
; @macro Clear the screen and print a null-terminated string
; @param message: Address of the message
;********************************************************************************
.macro Print message
    ; .out .sprintf("message is a string literal: '%s' len=%x", message, .strlen(message))
    .if .match(message, "")
    .pushseg
    .rodata
:   .asciiz message
    .popseg
    .out .sprintf("message is a string literal: '%s' len=%x", message, .strlen(message))
    jsr lcd::clear
    lda #<:-
    sta ARG0
    lda #>:-
    sta ARG1
    .else
    .out "message is a n0t string"
    jsr lcd::clear
    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
;********************************************************************************
.macro PrintNC message
    lda #<message
    sta ARG0
    lda #>message
    sta ARG1
    jsr lcd::print
.endmacro

; 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
.endif  ; guard