use .res for ram variables
This commit is contained in:
parent
bc6093a881
commit
039ed9a16b
12
main.s65
12
main.s65
@ -1,5 +1,5 @@
|
|||||||
.segment "CODE"
|
.include "system/system.s65"
|
||||||
.include "system/system.h65"
|
.code
|
||||||
|
|
||||||
.macro DEBUG_LED_OFF nr
|
.macro DEBUG_LED_OFF nr
|
||||||
lda IO1 + IO::RA
|
lda IO1 + IO::RA
|
||||||
@ -44,6 +44,7 @@ SPI_IO = IO2
|
|||||||
;********************************************************************************
|
;********************************************************************************
|
||||||
; Interrupts
|
; Interrupts
|
||||||
;********************************************************************************
|
;********************************************************************************
|
||||||
|
.code
|
||||||
nmi:
|
nmi:
|
||||||
lda #'%'
|
lda #'%'
|
||||||
jsr lcd_char
|
jsr lcd_char
|
||||||
@ -145,11 +146,11 @@ print_2:
|
|||||||
PrintSlow message_2,10
|
PrintSlow message_2,10
|
||||||
jmp home
|
jmp home
|
||||||
|
|
||||||
.segment "RODATA"
|
.rodata
|
||||||
message_1: .asciiz " Powered by ......6502...... **** www.quintern.xyz"
|
message_1: .asciiz " Powered by ......6502...... **** www.quintern.xyz"
|
||||||
message_2:
|
message_2:
|
||||||
.byte " Hallo "
|
.byte " Hello "
|
||||||
.byte " Clara "
|
.byte " there "
|
||||||
.byte " <3 "
|
.byte " <3 "
|
||||||
.asciiz "================"
|
.asciiz "================"
|
||||||
message_menu:
|
message_menu:
|
||||||
@ -163,7 +164,6 @@ str_irq:
|
|||||||
str_irq_unknown:
|
str_irq_unknown:
|
||||||
.asciiz "Unknown IRQ src!"
|
.asciiz "Unknown IRQ src!"
|
||||||
|
|
||||||
.segment "CODE"
|
|
||||||
;********************************************************************************
|
;********************************************************************************
|
||||||
; reset vector
|
; reset vector
|
||||||
;********************************************************************************
|
;********************************************************************************
|
||||||
|
@ -3,7 +3,7 @@
|
|||||||
;********************************************************************************
|
;********************************************************************************
|
||||||
.ifndef INCLUDE_PRINTER
|
.ifndef INCLUDE_PRINTER
|
||||||
INCLUDE_PRINTER = 1
|
INCLUDE_PRINTER = 1
|
||||||
|
.code
|
||||||
printer:
|
printer:
|
||||||
jsr lcd_clear
|
jsr lcd_clear
|
||||||
@printer_loop:
|
@printer_loop:
|
||||||
|
@ -1,5 +1,6 @@
|
|||||||
.ifndef INCLUDE_SLEEP
|
.ifndef INCLUDE_SLEEP
|
||||||
INCLUDE_SLEEP = 1
|
INCLUDE_SLEEP = 1
|
||||||
|
.code
|
||||||
;********************************************************************************
|
;********************************************************************************
|
||||||
; @macro Sleep
|
; @macro Sleep
|
||||||
; @param time_cs: Time to sleep in centiseconds (10^-2s = 10ms)
|
; @param time_cs: Time to sleep in centiseconds (10^-2s = 10ms)
|
||||||
@ -19,15 +20,16 @@ INCLUDE_SLEEP = 1
|
|||||||
; @details
|
; @details
|
||||||
; Interrupts might change the actual time to finish
|
; Interrupts might change the actual time to finish
|
||||||
; To be exact, time_cs is in units of 0.010244s
|
; To be exact, time_cs is in units of 0.010244s
|
||||||
|
; @modifies: ARG2
|
||||||
;********************************************************************************
|
;********************************************************************************
|
||||||
.proc sleep
|
.proc sleep
|
||||||
VAR_1 = 0
|
_VAR_1 = ARG2
|
||||||
stz VAR_1
|
stz _VAR_1
|
||||||
@loop:
|
@loop:
|
||||||
.repeat 17
|
.repeat 17
|
||||||
nop ; 2 - i
|
nop ; 2 - i
|
||||||
.endrepeat
|
.endrepeat
|
||||||
inc VAR_1 ; 3 - zp
|
inc _VAR_1 ; 3 - zp
|
||||||
bne @loop ; 2/3 - r (2 if not taken, but here most of the time its 3)
|
bne @loop ; 2/3 - r (2 if not taken, but here most of the time its 3)
|
||||||
; reaching this takes 256 * (X * 2(nop) + 3(inc) + 3(bne)) - 1(last bne) cycles
|
; reaching this takes 256 * (X * 2(nop) + 3(inc) + 3(bne)) - 1(last bne) cycles
|
||||||
; with X = 17: T1 = (256×(17×2 + 3 +3) − 1) × (1/1MHz) = 0,010 239 s
|
; with X = 17: T1 = (256×(17×2 + 3 +3) − 1) × (1/1MHz) = 0,010 239 s
|
||||||
|
@ -7,10 +7,11 @@
|
|||||||
; The RBUF_NAME variable must be defined, the functions will then be exported
|
; The RBUF_NAME variable must be defined, the functions will then be exported
|
||||||
; as rb_<RBUF_NAME>_<function> where <function> = init, read or write
|
; as rb_<RBUF_NAME>_<function> where <function> = init, read or write
|
||||||
; @requires
|
; @requires
|
||||||
; RBUF_MEM_START: Start address of ringbuffer memory space
|
; RBUF_MEM_START: First address of ringbuffer memory space
|
||||||
; RBUF_MEM_END: End address of ringbuffer memory space
|
; RBUF_MEM_END: Last address of ringbuffer memory space
|
||||||
; RBUF_NAME: Name of the ringbuffer
|
; RBUF_NAME: Name of the ringbuffer
|
||||||
;********************************************************************************
|
;********************************************************************************
|
||||||
|
.code
|
||||||
|
|
||||||
.ifndef RBUF_MEM_START
|
.ifndef RBUF_MEM_START
|
||||||
.fatal "RBUF_MEM_START not defined"
|
.fatal "RBUF_MEM_START not defined"
|
||||||
|
@ -16,14 +16,17 @@ INCLUDE_KEYPAD = 1
|
|||||||
.fatal "KP_IO is not defined: set it to the base address of the IO chip of the Keypad"
|
.fatal "KP_IO is not defined: set it to the base address of the IO chip of the Keypad"
|
||||||
.endif
|
.endif
|
||||||
|
|
||||||
|
.zeropage
|
||||||
|
_KP_COLUMN: .res 1 ; for storing stuff
|
||||||
|
|
||||||
RBUF_MEM_START = $200
|
.bss ; reserve space or ringbuffer
|
||||||
RBUF_MEM_END = $208
|
KP_BUF_SIZE = 10
|
||||||
|
RBUF_MEM_START: .res KP_BUF_SIZE
|
||||||
|
RBUF_MEM_END = RBUF_MEM_START + KP_BUF_SIZE - 1
|
||||||
.define RBUF_NAME "keypad"
|
.define RBUF_NAME "keypad"
|
||||||
.include "buffer.s65"
|
.include "buffer.s65"
|
||||||
|
|
||||||
KB_VAR = $05 ; any free zp address
|
.code
|
||||||
|
|
||||||
.proc kp_init
|
.proc kp_init
|
||||||
; todo remove later and test
|
; todo remove later and test
|
||||||
lda #$ff
|
lda #$ff
|
||||||
@ -74,23 +77,23 @@ KB_VAR = $05 ; any free zp address
|
|||||||
@kp_read_column:
|
@kp_read_column:
|
||||||
sta KP_IO+IO::RB
|
sta KP_IO+IO::RB
|
||||||
lda KP_IO+IO::RB
|
lda KP_IO+IO::RB
|
||||||
sta KB_VAR ; store result in zeropage so that bbr can be used
|
sta _KP_COLUMN ; store result in zeropage so that bbr can be used
|
||||||
bbr4 KB_VAR,@kp_write
|
bbr4 _KP_COLUMN,@kp_write
|
||||||
inx
|
inx
|
||||||
bbr5 KB_VAR,@kp_write
|
bbr5 _KP_COLUMN,@kp_write
|
||||||
inx
|
inx
|
||||||
bbr6 KB_VAR,@kp_write
|
bbr6 _KP_COLUMN,@kp_write
|
||||||
inx
|
inx
|
||||||
bbr7 KB_VAR,@kp_write
|
bbr7 _KP_COLUMN,@kp_write
|
||||||
rts
|
rts
|
||||||
@kp_write:
|
@kp_write:
|
||||||
lda kp_VALUES,x
|
lda _KP_VALUES,x
|
||||||
jsr rb_keypad_write
|
jsr rb_keypad_write
|
||||||
rts
|
rts
|
||||||
.endproc
|
.endproc
|
||||||
|
|
||||||
.segment "RODATA"
|
.rodata
|
||||||
kp_VALUES:
|
_KP_VALUES:
|
||||||
; TODO change to literal
|
; TODO change to literal
|
||||||
.byte "123A", "456B", "789C", "*0#D"
|
.byte "123A", "456B", "789C", "*0#D"
|
||||||
.endif
|
.endif
|
||||||
|
@ -5,17 +5,18 @@
|
|||||||
; @depends IO-W65C22N
|
; @depends IO-W65C22N
|
||||||
;********************************************************************************
|
;********************************************************************************
|
||||||
|
|
||||||
.include "system/system.h65"
|
.include "system/system.s65"
|
||||||
|
|
||||||
.ifndef INCLUDE_SPI
|
.ifndef INCLUDE_SPI
|
||||||
INCLUDE_SPI = 1
|
INCLUDE_SPI = 1
|
||||||
.segment "CODE"
|
|
||||||
|
|
||||||
SPI_CODE_START = $3000
|
|
||||||
SPI_PAGES_WRITTEN = $2fff
|
|
||||||
SPI_BYTES_WRITTEN = $2ffe
|
|
||||||
|
|
||||||
|
|
||||||
|
.bss
|
||||||
|
SPI_PAGES_WRITTEN: .res 1
|
||||||
|
SPI_BYTES_WRITTEN: .res 1
|
||||||
|
SPI_CODE_START: .res $1000
|
||||||
|
|
||||||
|
.code
|
||||||
.struct SPI_P_Pins
|
.struct SPI_P_Pins
|
||||||
; VIA addresses
|
; VIA addresses
|
||||||
DDR_a .word ; address of the data direction register
|
DDR_a .word ; address of the data direction register
|
||||||
|
Loading…
Reference in New Issue
Block a user