linker.conf

@@ -1,12 +1,8 @@
 MEMORY {
-    RAM_ZP: start = $0000, size = $100,  type = rw, file = "", fill = yes;
-    RAM:    start = $0100, size = $5eff, type = rw, file = "", fill = yes;
-    VIA1:   start = $6000, size = $600f, type = rw, file = "", fill = yes;
-    VIA2:   start = $7000, size = $700f, type = rw, file = "", fill = yes;
     ROM: start = $8000, size = $8000, type = ro, file = %O, fill = yes;
+    RAM: start = $0000, size = $5fff, type = rw, file = "", fill = yes;
 }
 SEGMENTS {
-    ZP:             load = RAM_ZP,  type = bss, start = $0;
     RAM:            load = RAM, type = bss;
     CODE:           load = ROM, type = ro;
     RODATA:         load = ROM, type = ro;

main.s65

@@ -27,16 +27,15 @@
 ; LCD 
     ; .include "utility.asm6502"
 LCD_IO = IO1
-    .include "system/lcd.s65"
+    .include "lcd.s65"
 ; Keypad Reading
 KP_IO = IO2
-    .include "system/keypad.s65"
+    .include "keypad.s65"
 ; SPI
-SPI_IO = IO2
+SPI_IO = IO1
     .include "system/spi.s65"
 ; Printer
-    .include "programs/printer.s65"
+    .include "printer.s65"
-    .include "programs/print_slow.s65"
 ; Digital Humidity and Temerature Sensor
     ; .include "dht.s65"
 
@@ -49,20 +48,20 @@ nmi:
     jsr lcd_char
     rti
 irq:
-IRQ_VAR = 0
     ; read IRFs, while bit 7 ist set handle interrupts
+    ; Print str_irq
 @irq_io1:
-    lda SPI_IO+IO::IFR
+    ; todo use a reserved address instead of 0
-    sta IRQ_VAR
+    lda IO1+IO::IFR
-    bbr7 IRQ_VAR,@irq_io2
+    sta 0
-    bbs2 IRQ_VAR,@irq_spi_p  ; check SR
+    bbr7 0,@irq_io2
+    bbs2 0,@irq_spi_p  ; check SR
 @irq_io2:
-    ; lda IO2+IO::IFR
+    lda IO2+IO::IFR
-    ; sta IRQ_VAR
+    sta 0
-    ; bbr7 IRQ_VAR,@irq_return
+    bbr7 0,@irq_return
-    ; bbs4 IRQ_VAR,@irq_keypad  ; check CB1
+    bbs4 0,@irq_keypad  ; check CB1
     ; this should never be reached
-    jsr lcd_clear
     Print str_irq_unknown
     ; force reset interrupt flags
     lda #$ff
@@ -87,7 +86,7 @@ IRQ_VAR = 0
 reset:
     jsr lcd_init
 
-    ; jsr kp_init
+    jsr kp_init
 
     jsr spi_p_init
 
@@ -115,34 +114,53 @@ reset:
 .endproc
 
 .proc home
-    jsr rb_keypad_read
+.macro wait
+wait:
+    stz 1
+    stz 2
+    .repeat 2
+    nop
+    .endrepeat
+    inc 1
+    bne wait
+    inc 2
+    bne wait
+.endmacro
+
+    ; jsr rb_keypad_read
+    lda KB_LAST
     beq home
+    stz KB_LAST
     ; beq home
     cmp #'A'
     jeq printer
     cmp #'B'
-    jeq SPI_CODE_START
     ; jeq dht_request
     cmp #'C'
     jeq print_1
     cmp #'D'
     jeq print_2
+    cmp '4'
+    bra debug
 
     cmp #'*'  ; print home menu again if not visible (message 1 and 2 jmp to home)
     jeq return_home
 
     jmp home
+
+debug:
+    DEBUG_LED_ON 0
+    jmp home
+
+
 .endproc
 
-
 print_1:
-    jsr lcd_clear
+    Print message_1
-    PrintSlow message_1,10
     jmp home
 
 print_2:
-    jsr lcd_clear
+    Print message_2
-    PrintSlow message_2,10
     jmp home
 
 .segment "RODATA"
@@ -154,8 +172,7 @@ message_2:
     .asciiz "================"
 message_menu: 
     .byte   "<A> Printer     "
-    ; .byte   "<B> Temperatur  "
+    .byte   "<B> Temperatur  "
-    .byte   "<B> Run from SPI"
     .byte   "<C> Text 1      "
     .asciiz "<D> Text 2      "
 str_irq:

programs/print_slow.s65

@@ -1,46 +0,0 @@
-
-.ifndef INCLUDE_PRINT_SLOW
-INCLUDE_PRINT_SLOW = 1
-
-.include "programs/sleep.s65"
-.include "system/lcd.s65"
-
-
-;********************************************************************************
-; @function Print a null-terminated string
-; @param ARG0-1: Address of the string to print
-; @param x: time to sleep in centiseconds
-;********************************************************************************
-.proc print_slow
-    ldy #$00
-@print_loop:
-    lda (ARG0),y
-    beq @print_end
-    phx
-    jsr sleep
-    plx
-    jsr lcd_char
-    iny
-    bra @print_loop
-@print_end:
-    rts
-.endproc
-
-;********************************************************************************
-; @macro Print a null-terminated string
-; @param message: Address of the message
-; @param time_cs: time to sleep in centiseconds
-;********************************************************************************
-.macro PrintSlow message,time_cs
-    jsr lcd_clear
-    lda #.LOBYTE(message)
-    sta ARG0
-    lda #.HIBYTE(message)
-    sta ARG1
-    phx
-    ldx #time_cs
-    jsr print_slow
-    plx
-.endmacro
-
-.endif  ; guard

programs/printer.s65

@@ -13,4 +13,4 @@ printer:
     jeq return_home
     jsr lcd_char
     bra @printer_loop
-.endif  ; guard
+.endif

programs/sleep.s65

@@ -1,41 +0,0 @@
-.ifndef INCLUDE_SLEEP
-INCLUDE_SLEEP = 1
-;********************************************************************************
-; @macro Sleep
-; @param time_cs: Time to sleep in centiseconds (10^-2s = 10ms)
-; @details
-;   Interrupts might change the actual time to finish
-;********************************************************************************
-.macro Sleep time_cs
-    phx
-    ldx #time_cs
-    jsr sleep
-    plx
-.endmacro
-
-;********************************************************************************
-; @function sleep
-; @param x: Time to sleep in centiseconds (10^-2s = 10ms)
-; @details
-;   Interrupts might change the actual time to finish
-;   To be exact, time_cs is in units of 0.010244s
-;********************************************************************************
-.proc sleep
-VAR_1 = 0
-    stz VAR_1
-@loop:
-    .repeat 17
-    nop             ; 2 - i
-    .endrepeat
-    inc VAR_1       ; 3 - zp
-    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
-    ; with X = 17: T1 = (256×(17×2 + 3 +3) − 1) × (1/1MHz) = 0,010 239 s
-    dex             ; 2 - i
-    bne @loop       ; 2/3 - r 
-    ; with T1 = for running through VAR_1, one iteration takes 
-    ; T1 + (2(dex) + 3(bne))  × (1/1MHz) = 0,010 244 s
-    rts
-    ; so T = N * 0,010 244 s - (1(last bne) + 4(jsr) + 6(rts)) * (1/1MHz)
-.endproc
-.endif  ; guard

system/buffer.s65

@@ -58,6 +58,7 @@ RB_LENGTH   = RBUF_MEM_END - RBUF_MEM_START - 2
     cpx RB_WRITE
     beq @rb_read_rts  ; if buffer empty
     lda RB_START,x
+    Inc_buf_ptr RB_READ
     inx ; increment RB_READ pointer, not using macro bec. of unknown Pz
     cpx #RB_LENGTH
     beq @read_wrap
@@ -88,17 +89,16 @@ RB_LENGTH   = RBUF_MEM_END - RBUF_MEM_START - 2
     stx RB_WRITE
 @check_buf_full:  ; increment read if buffer is full
     cpx RB_READ
-    beq @read_inc
+    beq read_inc
     rts
 @write_wrap:  ; ptr == RB_LENGTH -> ptr = 0
     stz RB_WRITE
-    ldx #0
     bra @check_buf_full
 @read_inc:
     ldx RB_READ
     inx
     cpx #RB_LENGTH
-    beq @read_wrap
+    beq read_wrap
     stx RB_READ
     rts
 @read_wrap:  ; ptr == RB_LENGTH -> ptr = 0

system/keypad.s65

@@ -18,7 +18,7 @@ INCLUDE_KEYPAD = 1
 
 
 RBUF_MEM_START = $200
-RBUF_MEM_END = $208
+RBUF_MEM_END = $2ff
 .define RBUF_NAME "keypad"
 .include "buffer.s65"
 
@@ -61,15 +61,16 @@ KB_VAR      = $05  ; any free zp address
     ldx #$00
     jsr @kp_read_column
     lda #%00001101
-    ldx #$08
+    ldx #$04
     jsr @kp_read_column
     lda #%00001011
-    ldx #$04
+    ldx #$08
     jsr @kp_read_column
     lda #%00000111
     ldx #$0c
     jsr @kp_read_column
     stz KP_IO+IO::RB  ; todo why all zero?
+    ; lda KP_IO+IO::RB  ; read to definetly clear the interrupt flag
     rts
 @kp_read_column:
     sta KP_IO+IO::RB

system/lcd.s65

@@ -13,8 +13,6 @@
 ; @optparam LCD_MEM: Memory address for a runtime variable. Default = $300
 ; @depends IO-W65C22N
 ;********************************************************************************
-.ifndef INCLUDE_LCD
-INCLUDE_LCD = 1
 
     .ifndef LCD_IO
     .fatal "LCD_IO is not defined: set it to the base address of the IO chip of the LCD"
@@ -230,4 +228,3 @@ LCD_CLEAR   = %00000000
     jsr _lcd_cmd
     rts
 .endproc
-.endif

system/ram.s65

@@ -1,31 +0,0 @@
-
-
-.segment "ZP"
-    .org 0
-    .byte NULL
-    .org $10
-    .byte ARG0
-    .byte ARG1
-    .byte ARG2
-    .byte ARG3
-    .byte ARG4
-    .byte ARG5
-    .byte ARG6
-    .byte ARG7
-    .byte ARG8
-    .byte ARG9
-    .byte ARG10
-    .byte ARG11
-    .byte ARG12
-    .byte ARG13
-    .byte ARG14
-    .byte ARG15
-
-
-
-.segment "RAM"
-
-.segment "SPI"
-    .byte SPI_BYTES_WRITTEN
-    .byte SPI_PAGES_WRITTEN
-    .byte

system/spi.s65

@@ -9,14 +9,10 @@
 
 .ifndef INCLUDE_SPI
 INCLUDE_SPI = 1
-.segment "CODE"
+    .segment "CODE"
-
-SPI_CODE_START = $3000
-SPI_PAGES_WRITTEN = $2fff
-SPI_BYTES_WRITTEN = $2ffe
 
 
-.struct SPI_P_Pins
+    .struct SPI_P_Pins
         ; VIA addresses
         DDR_a   .word   ; address of the data direction register
         R_a     .word   ; address of the register
@@ -28,15 +24,13 @@ SPI_BYTES_WRITTEN = $2ffe
         ; settings
         CPOL    .byte   ; Clock Polarity
         CPHA    .byte   ; Clock Phase
-.endstruct
+    .endstruct
 
 ;********************************************************************************
 ; @function Initialize the IO Adapter for SPI
 ; @param ARG0-1 Address of the SPI_Pins struct
 ;********************************************************************************
 .proc spi_p_init
-    stz SPI_PAGES_WRITTEN
-    stz SPI_BYTES_WRITTEN
     ; todo USE MASKS
     ; set Shift register to shift in under external clock on CB1
     lda #IO::ACR::SR_SIN_PHIE
@@ -45,16 +39,13 @@ SPI_BYTES_WRITTEN = $2ffe
     ; enable SR interrupts
     lda #(IO::IRQ::IRQ | IO::IRQ::SR)
     sta SPI_IO + IO::IER
-    DEBUG_LED_ON 1
     rts
 .endproc
 
 .proc spi_p_read
-    DEBUG_LED_ON 0
     ; print received byte
     lda SPI_IO + IO::SR
     jsr lcd_char
-    inc SPI_BYTES_WRITTEN
     rts
 .endproc
 

utility.h65

@@ -20,6 +20,7 @@ INCLUDE_UTILITY = 1
     eor original
     sta original
 .endmacro
+.endif
 
 
 ;_n_genlabel .set 0
@@ -30,5 +31,3 @@ INCLUDE_UTILITY = 1
 ;    .ident(.sprintf("generated_label%04X", _n_genlabel))
 ;    _n_genlabel .set _n_genlabel + 1
 ;.endmacro
-
-.endif