Makefile

@@ -6,7 +6,7 @@ SRC_DIRS 	= programs system
 
 # VASM 		= ~/6502/vasm6502
 ASM		 	= ca65
-ASMFLAGS 	= -g --cpu 65C02 $(foreach srcdir, $(SRC_DIRS), -I $(srcdir))
+ASMFLAGS 	= --cpu 65C02 $(foreach srcdir, $(SRC_DIRS), -I $(srcdir))
 ASMDEPFLAGS	= --create-dep .dependencies
 
 LD 			= ld65

linker.conf

@@ -1,9 +1,7 @@
 MEMORY {
-    ROM: start = $8000, size = $8000, type = ro, file = %O, fill = yes;
+    ROM: start = $8000, size = $8000, file = %O, fill = yes;
-    RAM: start = $0000, size = $5fff, type = rw, file = "", fill = yes;
 }
 SEGMENTS {
-    RAM:            load = RAM, type = bss;
     CODE:           load = ROM, type = ro;
     RODATA:         load = ROM, type = ro;
     RESET_VECTOR:	load = ROM, type = ro, start = $FFFA;

main.s65

@@ -1,26 +1,6 @@
 .segment "CODE"
 .include "system/system.h65"
 
-.macro DEBUG_LED_OFF nr
-    lda IO1 + IO_RA
-.if nr = 0
-    and #%11111110
-.else
-    and #%11111101
-.endif
-    sta IO1 + IO_RA
-.endmacro
-
-.macro DEBUG_LED_ON nr
-    lda IO1 + IO_RA
-.if nr = 0
-    ora #%00000001
-.else
-    ora #%00000010
-.endif
-    sta IO1 + IO_RA
-.endmacro
-
 ;********************************************************************************    
 ; Modules
 ;********************************************************************************    
@@ -29,17 +9,13 @@
 LCD_IO = IO1
     .include "lcd.s65"
 ; Keypad Reading
-KP_IO = IO2
+KP_IO = IO1
     .include "keypad.s65"
-; SPI
-SPI_IO = IO1
-    .include "system/spi.s65"
 ; Printer
     .include "printer.s65"
 ; Digital Humidity and Temerature Sensor
     ; .include "dht.s65"
 
-
 ;********************************************************************************    
 ; Interrupts
 ;********************************************************************************    
@@ -48,52 +24,51 @@ nmi:
     jsr _lcd_char
     rti
 irq:
-    ; read IRFs, while bit 7 ist set handle interrupts
+    ; lda IFR2  todo: verify that the line below does the same thing
-    ; Print str_irq
-@irq_io1:
-    ; todo use a reserved address instead of 0
-    lda IO1+IO_IFR
-    sta 0
-    bbr7 0,@irq_io2
-    bbs2 0,@irq_spi_p  ; check SR
-@irq_io2:
     lda IO2+IO_IFR
     sta 0
-    bbr7 0,@irq_return
+    ; todo: decide wether to read keypad or dht
-    bbs4 0,@irq_keypad  ; check CB1
+    ora #%10100000
-    ; this should never be reached
+    ;  jsr lcd_char  ;TODO: Remove
-    Print str_irq_unknown
+    jsr kp_read
-    ; force reset interrupt flags
+    rti
-    lda #$ff
+    ; bbs1 0,irq_keypad
-    sta IO1 + IO_IFR
+    lda #'-'
-    sta IO2 + IO_IFR
+    jsr _lcd_char
-    bra @irq_return
+    ; bbs4 0,irq_dht
-@irq_keypad:
+    ; bbs6 0,irq_dht
-    jsr kp_read_on_irq
+    rti
-    bra irq
+irq_keypad:
-@irq_spi_p:
+    jsr kp_read
-    jsr spi_p_read
+    rti
-    bra irq
+irq_dht:
-@irq_dht:
     lda IO1 + IO_T1CL ;T1L2  ; clear interrupt flag
-    bra irq
+    ; jsr dht_irq
-@irq_return:
     rti
 
 ;********************************************************************************    
 ; Reset sequence
 ;********************************************************************************    
 reset:
-    jsr spi_p_init
+    lda #%11111111
-
+    sta IO1 + IO_DDRA
+.macro SET_DEBUG_LED_OFF
+    lda #%00000000
+    sta IO1 + IO_RANH
+.endmacro
+.macro SET_DEBUG_LED_ON
+    lda #%11111111
+    sta IO1 + IO_RANH
+.endmacro
+    ; SET_DEBUG_LED_OFF
     jsr lcd_init
 
+    ; .repeat 1000
+    ; nop
+    ; .endrepeat
+    ; SET_DEBUG_LED_ON
     jsr kp_init
-
+    ; SET_DEBUG_LED_OFF
-    lda #$ff
-    sta IO1 + IO_DDRA
-    DEBUG_LED_ON 0
-    DEBUG_LED_ON 1
 
     ; ; INIT DHT
     ; lda #%11000010  ; enable interrupt for Timer 1 and CA1 on IO2
@@ -111,27 +86,21 @@ reset:
  
 .proc return_home
     Print message_menu
+; @return_home:
+;     lda menu,x
+;     beq @return_home_done
+;     sta TO_PRINT,x
+;     jsr _lcd_char
+;     inx
+;     bra @return_home
+; @return_home_done:
+;     jsr lcd_print_clear
 .endproc
 
 .proc home
-.macro wait
+    ; SET_DEBUG_LED_ON
-wait:
+    jsr kb_read
-    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'
@@ -140,19 +109,20 @@ wait:
     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
+    beq return_home
+
+    ; .repeat 500
+    ; nop
+    ; .endrepeat
+    ; SET_DEBUG_LED_OFF
+    ; .repeat 500
+    ; nop
+    ; .endrepeat
 
     jmp home
 
-debug:
-    DEBUG_LED_OFF 0
-    jmp home
-
-
 .endproc
 
 print_1:
@@ -165,20 +135,12 @@ print_2:
 
 .segment "RODATA"
 message_1: .asciiz "   Powered by   ......6502......      ****      www.quintern.xyz"
-message_2:
+message_2: .asciiz "      Danke        fuer  eure    Aufmerksamkeit        ;)       " 
-    .byte   "   Hallo        "
-    .byte   "     Clara      "
-    .byte   "       <3       "
-    .asciiz "================"
 message_menu: 
     .byte   "<A> Printer     "
     .byte   "<B> Temperatur  "
     .byte   "<C> Text 1      "
     .asciiz "<D> Text 2      "
-str_irq:
-    .asciiz "IRQ detected!   "
-str_irq_unknown:
-    .asciiz "Unknown IRQ src!"
 
 .segment "CODE"
 ;********************************************************************************

programs/printer.s65

@@ -11,7 +11,7 @@ printer:
     lda #LCD_CMD_CLEAR
     jsr _lcd_cmd
 @printer:
-    jsr rb_keypad_read
+    jsr kb_read
     beq @printer
     cmp #'*'
     jeq return_home

system/buffer.s65

@@ -1,97 +0,0 @@
-;********************************************************************************
-; @module ringbuffer
-; @type utility
-; @details
-;   Size of the ringbuffer is RBUF_MEM_END - RBUF_MEM_START - 2, since two bytes
-;   are used by the read and write pointer
-;   The RBUF_NAME variable must be defined, the functions will then be exported
-;   as rb_<RBUF_NAME>_<function> where <function> = init, read or write
-; @requires
-;   RBUF_MEM_START: Start address of ringbuffer memory space
-;   RBUF_MEM_END: End address of ringbuffer memory space
-;   RBUF_NAME: Name of the ringbuffer
-;********************************************************************************
-
-.ifndef RBUF_MEM_START
-    .fatal "RBUF_MEM_START not defined"
-.endif
-.ifndef RBUF_MEM_END
-    .fatal "RBUF_MEM_END not defined"
-.endif
-
-; can not detect if RBUF_NAME is defined, if it is not you will get 
-; "String constant expected" Error on the line below
-.define _RBUF_NAME .concat("rb_", RBUF_NAME)
-RB_WRITE    = RBUF_MEM_START        ; write pointer, relative to RB_WRITE
-RB_READ     = RBUF_MEM_START + 1    ; read ponter, relative to RB_START
-RB_START    = RBUF_MEM_START + 2
-RB_LENGTH   = RBUF_MEM_END - RBUF_MEM_START - 2
-
-.if RB_LENGTH < 1
-    .fatal "buffer size too small, must be at least 1"
-.endif
-.if RB_LENGTH > $ff
-    .fatal "buffer size too large, must be <= $ff"
-.endif
-
-
-;********************************************************************************
-; @function Initialize the buffer
-;********************************************************************************
-.ident(.concat(_RBUF_NAME, "_init")):
-.scope
-    stz RB_WRITE
-    stz RB_READ
-    rts
-.endscope
-
-;********************************************************************************
-; @function Read a value from the buffer
-; @details
-;   If there is no value to be read, the Pz will be set
-; @returns A: value
-; @modifies: A, X
-;********************************************************************************
-.ident(.concat(_RBUF_NAME, "_read")):
-.scope
-    ldx RB_READ
-    cpx RB_WRITE
-    beq @rb_read_rts  ; if buffer empty
-    lda RB_START,x
-    inx ; increment RB_READ pointer
-    cpx #RB_LENGTH
-    beq @rb_read_jump
-    stx RB_READ 
-@rb_read_rts:
-    rts
-@rb_read_jump:
-    stz RB_READ
-    ; make sure Pz is not set
-    ldx #$01
-    rts
-.endscope
-
-;********************************************************************************
-; @function Write a value to the buffer
-; @param A: value to store
-; @modifies: X
-;********************************************************************************
-.ident(.concat(_RBUF_NAME, "_write")):
-.scope
-    ; lda kp_VALUES, x  ; load the char in a
-    ldx RB_WRITE
-    sta RB_START,x
-    inx  ; increment write pointer
-    cpx #RB_LENGTH
-    beq @rb_jump_write
-    stx RB_WRITE
-    rts
-@rb_jump_write:  ; when the end of the buffer is reached, the next keys go to the start again
-    stz RB_WRITE
-    rts
-.endscope
-
-.undefine _RBUF_NAME
-.undefine RBUF_NAME
-
-

system/keypad.s65

@@ -9,92 +9,109 @@
 ; @depends IO-W65C22N
 ;********************************************************************************
 
-
 .ifndef INCLUDE_KEYPAD
 INCLUDE_KEYPAD = 1
 .ifndef KP_IO
     .fatal "KP_IO is not defined: set it to the base address of the IO chip of the Keypad"
 .endif
 
+;********************************************************************************
+; Keypad Buffer from $202 to $2ff
+;********************************************************************************
+KB_VAR      = $00
+KB_WRITE    = $200  ; write pointer, relative to KB_WRITE
+KB_READ     = $201  ; read ponter, relative to KB_START
+KB_START    = $202
+KB_LENGTH   = $fd
 
-RBUF_MEM_START = $200
+kb_init:
-RBUF_MEM_END = $2ff
+    stz KB_WRITE
-.define RBUF_NAME "keypad"
+    stz KB_READ
-.include "buffer.s65"
+    ; write null to entire buffer
+    ldx #$00
+@kb_init_loop:
+    stz KB_START,x
+    inx
+    cpx #KB_LENGTH
+    bne @kb_init_loop
+    rts
 
-KB_VAR      = $05
+; read from keybuffer, if empty null will be read
-KB_LAST     = $06
+kb_read:
+    ldx KB_READ
+    lda KB_START,x
+    beq @kb_read_rts  ; if a buffer is null, dont increment KB_READ
+    stz KB_START,x  ; set buffer location to null
+    inx  ; increment KB_READ pointer
+    cpx #KB_LENGTH
+    beq @kb_read_jump
+    stx KB_READ 
+@kb_read_rts:
+    rts
+@kb_read_jump:
+    stz KB_READ
+    rts
 
-.proc kp_init
+; write to keybuffer
-    ; todo remove
+_kb_write:
-    stz KB_LAST
+    lda kp_VALUES, x  ; load the char in a
-    ; todo remove later
+    ldx KB_WRITE
-    lda #$ff
+    sta KB_START,x
-    sta KP_IO+IO_DDRB
+    inx  ; increment KB_WRITE pointer
-    stz KP_IO+IO_RB
+    cpx #KB_LENGTH
+    beq @kb_jump_write
+    stx KB_WRITE
+    rts
+@kb_jump_write:  ; when the end of the buffer is reached, the next keys go to the start again
+    stz KB_WRITE
+    rts
 
+kp_init:
     ; INIT KEYPAD 
     lda #%00001111; KP_IO+IO_RB 0-3 output
     sta KP_IO+IO_DDRB
     stz KP_IO+IO_RB        ; KP_IO+IO_RB 4-7 1 so keypad press can be detected
     stz KP_IO+IO_ACR
 
-    ; lda #%00010000  ; set CB1 to interrupt on pos. edge
+    lda #%10010000  ; enable interrupt for CB1 on KP_IO+IO_IO
-    lda #IO_PCR_CB1_IP_AE
-    sta KP_IO+IO_PCR
-    jsr rb_keypad_init  ; init keybuffer
-    lda #%10010000  ; enable interrupt for CB1 on KP_IO
     sta KP_IO+IO_IER
+    lda #%00010000  ; set CB1 to interrupt on pos. edge
+    sta KP_IO+IO_PCR
+    jsr kb_init  ; init keybuffer
     rts
-.endproc
 
 ;********************************************************************************
-; @function Read which key is pressed on the keypad
+; Reading the Keypad 
-; @details
-;   Checks which key is pressed and stores it in the keybuffer
-;   The value stored in the keybuffer is the offset which must be added to 
-;   kp_VALUES to retrieve the key that was pressed
 ;********************************************************************************
-.proc kp_read_on_irq
+kp_read:  ; test each "row" and check which column is 1
-    ; test each "row" and check which column is 1
     lda #%00001110
     ldx #$00
-    jsr @kp_read_column
+    jsr @kp_read_branch
     lda #%00001101
     ldx #$04
-    jsr @kp_read_column
+    jsr @kp_read_branch
     lda #%00001011
     ldx #$08
-    jsr @kp_read_column
+    jsr @kp_read_branch
     lda #%00000111
     ldx #$0c
-    jsr @kp_read_column
+    jsr @kp_read_branch
-    bra @kp_read_rts
+@kp_read_rts:
-@kp_read_column:
+    stz KP_IO+IO_RB
+    lda KP_IO+IO_RB  ; read to definetly clear the interrupt flag
+    rts
+@kp_read_branch:
     sta KP_IO+IO_RB
     lda KP_IO+IO_RB
     sta KB_VAR  ; store result in zeropage so that bbr can be used
-    bbr4 KB_VAR,@kp_write
+    bbr4 KB_VAR,_kb_write
     inx
-    bbr5 KB_VAR,@kp_write
+    bbr5 KB_VAR,_kb_write
     inx
-    bbr6 KB_VAR,@kp_write
+    bbr6 KB_VAR,_kb_write
     inx
-    bbr7 KB_VAR,@kp_write
+    bbr7 KB_VAR,_kb_write
     rts
-@kp_write:
-    ; temporary: store last keypress in KB_LAST, TODO: remove
-    lda kp_VALUES,x
-    sta KB_LAST
-    txa
-    jsr rb_keypad_write
-@kp_read_rts:
-    stz KP_IO+IO_RB
-    ; lda KP_IO+IO_RB  ; read to definetly clear the interrupt flag
-    rts
-.endproc
-
-.segment "RODATA"
 kp_VALUES:
     ; TODO change to literal
     .byte "123A", "456B", "789C", "*0#D" 

system/lcd.s65

@@ -103,7 +103,7 @@ LCD_CLEAR   = %00000000
 .proc lcd_print
     ldy #$00
 @lcd_print_loop:
-    lda (ARG0),y
+    lda ARG0,y
     beq @lcd_print_end
     jsr _lcd_char
     iny
@@ -112,10 +112,6 @@ LCD_CLEAR   = %00000000
     rts
 .endproc
 
-;********************************************************************************
-; @macro Print a null-terminated string
-; @param message: Address of the message
-;********************************************************************************
 .macro Print message
     jsr lcd_clear
     lda #.LOBYTE(message)

system/spi.s65

@@ -9,15 +9,15 @@
 
 .ifndef INCLUDE_SPI
 INCLUDE_SPI = 1
+
     .segment "CODE"
 
-
+    .struct SPI_Pins
-    .struct SPI_P_Pins
         ; VIA addresses
         DDR_a   .word   ; address of the data direction register
         R_a     .word   ; address of the register
         ; pin mask
-        SCLK_p  .byte   ; Serial Clock
+        SLK_p   .byte   ; Serial Clock
         POCI_p  .byte   ; Peripheral Out / Controller In
         PICO_p  .byte   ; Peripheral In / Controller Out
         CSB_p   .byte   ; Chip Select
@@ -26,46 +26,13 @@ INCLUDE_SPI = 1
         CPHA    .byte   ; Clock Phase
     .endstruct
     
-;********************************************************************************
-; @function Initialize the IO Adapter for SPI
-; @param ARG0-1 Address of the SPI_Pins struct
-;********************************************************************************
-.proc spi_p_init
-    ; todo USE MASKS
-    ; set Shift register to shift in under external clock on CB1
-    lda #%00001100
-    sta SPI_IO + IO_ACR
-
-    ; enable SR interrupts
-    lda #%10000100
-    sta SPI_IO + IO_IER
-    rts
-.endproc
-
-.proc spi_p_read
-    ; print received byte
-    lda SPI_IO + IO_SR
-    jsr _lcd_char
-    rts
-.endproc
-
-    
-;********************************************************************************
-; @function Read bytes
-; @param X Number of bytes to send
-; @param ARG0-1 Address of the SPI_Pins struct
-; @param ARG2-3 Address of the first byte
-;********************************************************************************
-.proc recv_data
-.endproc
 ;********************************************************************************
 ; @function Send bytes
 ; @param X Number of bytes to send
-; @param ARG0-1 Address of the SPI_Pins struct
+; @param ARG0-1 Address of the first byte
-; @param ARG2-3 Address of the first byte
+; @param ARG2-3 Address of the SPI_Pins struct
 ;********************************************************************************
-.proc send_data
+send_data:
-.endproc