6502-OS/programs/spi-menu.s65

.include "spi.h65"
.include "string.h65"
.include "keypad.h65"
.include "lcd.h65"
.include "chars.h65"
.import home:absolute
.import CODE_START: absolute
.import __SPI_SIZE__

.export spi_menu
.bss
trans_bytes: .res 2   ;; used to check if screen needs to be updated
status_char: .res 1
status_str:  .res 17  ;; space for 16 + null

.code
;;********************************************************************************
;; @brief Receive code via SPI and execute it
;; @ingroup applications
;;********************************************************************************
.proc spi_menu
    stz trans_bytes
    stz trans_bytes+1
@print_menu:
    jsr lcd::clear
    Print MENU

@update_status:
    lda spi_p::status
    cmp #spi_p::STATUS::ERROR
    beq @status_ERROR
    cmp #spi_p::STATUS::DONE
    beq @status_DONE
    cmp #spi_p::STATUS::XFER
    beq @status_XFER
    cmp #spi_p::STATUS::XFER_SIZEL
    beq @status_XFER_SIZEL
    cmp #spi_p::STATUS::XFER_SIZEH
    beq @status_XFER_SIZEH
@status_UNKNOWN:
    lda #'?'
    bra @update_status_end
@status_ERROR:
    lda #'E'
    bra @update_status_end
@status_DONE:
    lda #'O'
    bra @update_status_end
@status_XFER_SIZEL:
    lda #'1'
    bra @update_status_end
@status_XFER_SIZEH:
    lda #'2'
    bra @update_status_end
@status_XFER:
    lda #'X'
@update_status_end:
    sta status_char

@print_status:
    lda #lcd::LINE4
    jsr lcd::set_position
    Strf "%x%x/%x%x|%x%x|%c",status_str,trans_bytes+1,trans_bytes,spi_p::recv_size+1,spi_p::recv_size,spi_p::buffer_size+1,spi_p::buffer_size,status_char
    PrintNC status_str
@loop:
    wai
    ; check if a byte has been transferred
@check_received:
    lda spi_p::recv_bytes
    cmp trans_bytes
    beq @read_keypad
@byte_received:
    sta trans_bytes
    lda spi_p::recv_bytes+1
    sta trans_bytes+1
    jmp @update_status
@read_keypad:
    lda kp::_DEBUG_VAL
    beq @loop
    ; TODO debug
    sta 0
    stz kp::_DEBUG_VAL
    lda 0
    cmp #'*'
    beq @return_home
    cmp #'A'
    beq @spi_begin
    cmp #'B'
    beq @spi_end
    cmp #'C'
    beq @spi_jump
    cmp #'D'
    beq @spi_jump2
    jmp @update_status  ; any other key
@spi_begin:
    lda #<CODE_START
    sta ARG0
    lda #>CODE_START
    sta ARG1
    lda #<__SPI_SIZE__
    sta ARG2
    lda #>__SPI_SIZE__
    sta ARG3
    jsr spi_p::begin_read
    jmp @print_menu
@spi_end:
    jsr spi_p::end_read
    jmp @print_menu
@spi_jump:
    jsr spi_p::end_read
    jsr lcd::clear
    Print "---START  SPI---"
    jmp CODE_START
@spi_jump2:
    jsr spi_p::end_read
    jsr lcd::clear
    Printf "  >>> %x%x >>>  ", spi_p::buffer_ptr+1, spi_p::buffer_ptr
    jmp (spi_p::buffer_ptr)
@return_home:
    jsr spi_p::end_read
    jmp home
.endproc

.rodata 
MENU:
    .byte   "A> Beg. Transfer"
    .byte   "B> Stop Transfer"
    .asciiz "C> Jump  Home <*"
    ; .asciiz "0b0p   Status: X"
BEGIN:      .asciiz "---BEGIN  SPI---"
START:      .asciiz "---START  SPI---"