test_rom.asm

; Test script

#include "layouts/subeater.asm"


; Allocate a string buffer

#bank ram
string_buffer: #res 256


; Main program
#bank program

reset:

  jsr lcd_init          ; Init LCD display
  jsr event_init        ; Init event module

  lda #2                ; Wait 20 ms
  jsr event_sleep        ; for the ROM write protection to fade out

  wrw #0x0000 r0        ; Load 0 in word r0

  .main:                ; Main program

  wrw r0 a0             ; Copy value in word r0 to first argument
  wrw #string_buffer a2 ; Load string buffer as destination
  jsr to_base10         ; Convert to decimal

  wrw #string_buffer a0 ; Load string buffer address as source
  wrw #rom_data a2      ; Load rom data address as destination
  jsr rom_write         ; Write to rom

  jsr lcd_clear         ; Clear LCD
  jsr lcd_print_str     ; Print string buffer to LCD
  lda #":"              ; Load a separator
  jsr lcd_print_char    ; Print the separator

  wrw #rom_data a0      ; Load rom data address as argument
  jsr lcd_print_str     ; Print rom data
  lda #":"              ; Load a separator
  jsr lcd_print_char    ; Print the separator

  inw r0                ; Increment word in r0
  lda #5                ; Load 5 * 10 ms
  jsr event_sleep       ; Sleep for 50 seconds
  jmp .main             ; Loop over

; Interrupt

nmi:
  rti

irq:
  jsr event_irq
  rti

; Libraries

#include "libraries/lcd.asm"
#include "libraries/rom.asm"
#include "libraries/event.asm"
#include "libraries/decimal.asm"

; Reserve data
#align 256 * 8  ; Next page
rom_data:       ; Reserve a page
#res 256