.include "system/system.h65"
.org $8000  ; EEPROM Start Address

;********************************************************************************    
; Interrupts
;********************************************************************************    
nmi:
    rti
irq:
    ; lda IFR2  todo: verify that the line below does the same thing
    lda IO2+IO_IFR
    sta 0
    ; todo: decide wether to read keypad or dht
    ora #%10100000
    ;  jsr lcd_char  ;TODO: Remove
    jsr kp_read
    rti
    bbs1 0,irq_keypad
    lda #'-'
    jsr _lcd_char
    bbs4 0,irq_dht
    bbs6 0,irq_dht
    rti
irq_keypad:
    jsr kp_read
    rti
irq_dht:
    lda T1L2  ; clear interrupt flag
    jsr dht_irq
    rti

;********************************************************************************    
; Reset sequence
;********************************************************************************    
reset:
    lda #%11111111
    sta IO2 + IO_DDRA
.macro SET_DEBUG_LED_OFF
    lda #%00000000
    sta IO2 + IO_RANH
.endmacro
.macro SET_DEBUG_LED_ON
    lda #%11111111
    sta IO2 + IO_RANH
.endmacro
    SET_DEBUG_LED_OFF
    jsr lcd_init

    SET_DEBUG_LED_ON
    ; jsr kp_init

    ; INIT DHT
    lda #%11000010  ; enable interrupt for Timer 1 and CA1 on IO2
    sta IER2
    lda #%00111111  ; set Timer 1 to interrupt when loaded
    and ACR2
    sta ACR2
    lda #%00000001  ; set PCR2 bit 0 CA1 pos edge interrupt
    ora PCR2
    sta PCR2 
    stz DHT_STATUS

    ; enable interrupts
    cli
 
.proc return_home
    ldx #$00
@return_home:
    lda menu,x
    beq @return_home_done
    sta TO_PRINT,x
    inx
    bra @return_home
@return_home_done:
    jsr lcd_print_clear
.endproc

.proc home
    jsr kb_read
    beq home
    cmp #'A'
    jeq printer
    cmp #'B'
    jeq dht_request
    cmp #'C'
    beq print_1
    cmp #'D'
    beq print_2

    cmp #'*'  ; print home menu again if not visible (message 1 and 2 jmp to home)
    beq return_home

    bra home
.endproc

print_1:
    ldx #$00
@print_1:
    lda message_1,x
    sta TO_PRINT,x
    inx
    bne @print_1
    jsr lcd_print_clear
    jmp home

print_2:
    ldx #$00
@print_2:
    lda message_2,x
    sta TO_PRINT,x
    inx
    bne @print_2
    jsr lcd_print_clear
    jmp home

.rodata
message_1: .asciiz "   Powered by   ......6502......      ****      www.quintern.xyz"
message_2: .asciiz "      Danke        fuer  eure    Aufmerksamkeit        ;)       " 
menu: 
    .byte   "<A> Printer     "
    .byte   "<B> Temperatur  "
    .byte   "<C> Text 1      "
    .asciiz "<D> Text 2      "

.code
;********************************************************************************    
; Modules
;********************************************************************************    
; LCD 
    ; .include "utility.asm6502"
LCD_IO  = IO1
    .include "lcd.asm6502"
; Keypad Reading
KP_IO  = IO1
    .include "keypad.asm6502"
; Printer
    .include "printer.asm6502"
; Digital Humidity and Temerature Sensor
    .include "dht.asm6502"
;********************************************************************************
; reset vector
;********************************************************************************

.rodata
.org $fffa
    .word nmi     
    .word reset
    .word irq