cleanup
This commit is contained in:
matthias@rpi
parent
7214f1fe6f
commit
a63bd562d1
@ -1,4 +1,4 @@
|
||||
../rom.bin: main.asm6502 system/system.asm6502 system/io_W65C22.asm6502 utility.asm6502 /usr/share/cc65/asminc/longbranch.mac system/lcd.asm6502 utility.asm6502 system/keypad.asm6502 programs/printer.asm6502 programs/dht.asm6502
|
||||
.build/test.o: test.s65 system/system.h65 system/io_W65C22.h65 utility.h65 /usr/share/cc65/asminc/longbranch.mac
|
||||
|
||||
main.asm6502 system/system.asm6502 system/io_W65C22.asm6502 utility.asm6502 /usr/share/cc65/asminc/longbranch.mac system/lcd.asm6502 utility.asm6502 system/keypad.asm6502 programs/printer.asm6502 programs/dht.asm6502:
|
||||
test.s65 system/system.h65 system/io_W65C22.h65 utility.h65 /usr/share/cc65/asminc/longbranch.mac:
|
||||
|
||||
|
||||
1
.gitignore
vendored
1
.gitignore
vendored
@ -1,2 +1,3 @@
|
||||
**.bin
|
||||
**.o
|
||||
.build
|
||||
|
||||
23
Makefile
23
Makefile
@ -1,5 +1,4 @@
|
||||
ROM = ../rom.bin
|
||||
MAIN = main.asm6502
|
||||
|
||||
BUILD_DIR = .build
|
||||
|
||||
@ -17,12 +16,24 @@ LDFLAGS = -C linker.conf
|
||||
|
||||
-include .dependencies
|
||||
|
||||
$(BUILD_DIR):
|
||||
mkdir $@
|
||||
|
||||
default: $(ROM)
|
||||
$(ROM):
|
||||
$(ASM) $(ASMFLAGS) $(ASMDEPFLAGS) $(MAIN) -o $@
|
||||
|
||||
$(ROM): $(BUILD_DIR)/main.o
|
||||
$(LD) $(LDFLAGS) $< -o $@
|
||||
|
||||
$(BUILD_DIR)/%.o: %.s65 $(BUILD_DIR)
|
||||
$(ASM) $(ASMFLAGS) $(ASMDEPFLAGS) $< -o $@
|
||||
|
||||
.PHONY = test
|
||||
test:
|
||||
test: ../test.bin
|
||||
../test.bin: $(BUILD_DIR)/test.o
|
||||
# $(VASM) -dotdir -opt-branch -wdc02 -chklabels test.asm6502
|
||||
$(ASM) $(ASMFLAGS) test.asm6502 -o test.o
|
||||
$(LD) $(LDFLAGS) test.o -o test.bin
|
||||
# $(ASM) $(ASMFLAGS) test.asm6502 -o test.o
|
||||
$(LD) $(LDFLAGS) $(BUILD_DIR)/test.o -o ../test.bin
|
||||
|
||||
clean:
|
||||
rm -r $(BUILD_DIR)
|
||||
rm $(ROM)
|
||||
|
||||
155
dht.s65
155
dht.s65
@ -1,155 +0,0 @@
|
||||
;********************************************************************************
|
||||
; @module SPI
|
||||
; @type driver
|
||||
; @details
|
||||
; @depends IO-W65C22N
|
||||
;********************************************************************************
|
||||
|
||||
;TODO EVERYTHING
|
||||
DHT_REQUEST_L = $00
|
||||
DHT_REQUEST_H = %01010000 ; = 20480 PHI2 pulses = 20,5 ms at 1 MHz
|
||||
|
||||
DHT_RECV_H = %10011100
|
||||
DHT_RECV_L = %01000000 ; = 40000 PHI2 = 40ms
|
||||
|
||||
; Status Variables, Used to determine what is sent by temp module
|
||||
DHT_STATUS = $400
|
||||
DHT_NONE = 0
|
||||
DHT_WAIT_REQ = 1
|
||||
DHT_WAIT_RESP = 2
|
||||
DHT_RECV = 3
|
||||
DHT_DONE = 4
|
||||
|
||||
DHT_BIT = $401
|
||||
DHT_BIT_ROT = $402
|
||||
|
||||
|
||||
DHT_VALUES = $405 ;
|
||||
DHT_OFFSET = $403
|
||||
DHT_OFF_RH_HIGH = 0 ; offsets to DHT_VALUES
|
||||
DHT_OFF_RH_LOW = 1
|
||||
DHT_OFF_T_HIGH = 2
|
||||
DHT_OFF_T_LOW = 3
|
||||
DHT_OFF_CHECKSUM = 4
|
||||
DHT_OFF_DONE = 5
|
||||
|
||||
|
||||
message_dht: .asciiz "DHT-Request gesendet."
|
||||
dht_wait:
|
||||
ldx #$00
|
||||
dht_wait_:
|
||||
lda message_dht,x
|
||||
sta TO_PRINT,x
|
||||
inx
|
||||
bne dht_wait_
|
||||
jsr lcd_print_clear
|
||||
dht_wait_loop: ; check after every interrpt if dht program is done and then return home
|
||||
lda #'.'
|
||||
jsr _lcd_char
|
||||
wai
|
||||
lda DHT_STATUS
|
||||
cmp #DHT_DONE
|
||||
bne dht_wait_loop
|
||||
|
||||
dht_exit:
|
||||
jsr kb_read
|
||||
cmp #'*'
|
||||
jeq home
|
||||
bra dht_exit
|
||||
jmp return_home
|
||||
|
||||
dht_request: ; send request to sensor
|
||||
sei
|
||||
|
||||
lda #%00000001 ; set PA1-0 to output 0
|
||||
ora DDRA1
|
||||
sta DDRA1
|
||||
lda #(LCD_CLEAR | $00)
|
||||
sta PA1
|
||||
|
||||
; start timer
|
||||
lda #DHT_REQUEST_L
|
||||
sta T1L1
|
||||
lda #DHT_REQUEST_H
|
||||
sta T1H1
|
||||
|
||||
lda #DHT_WAIT_REQ
|
||||
sta DHT_STATUS
|
||||
|
||||
cli
|
||||
jmp dht_wait
|
||||
|
||||
|
||||
dht_request_end:
|
||||
lda #%10000010
|
||||
sta IER2 ; enable Interrupt for CA1
|
||||
lda #%11111110
|
||||
and DDRA1
|
||||
sta DDRA1 ; set PA1-0 to input
|
||||
|
||||
lda #DHT_WAIT_RESP
|
||||
|
||||
|
||||
|
||||
dht_response: ; receive response from sensor
|
||||
lda #DHT_RECV
|
||||
sta DHT_STATUS
|
||||
stz DHT_OFFSET
|
||||
lda #7
|
||||
sta DHT_BIT
|
||||
|
||||
dht_recv:
|
||||
; start timer
|
||||
lda #DHT_RECV_L
|
||||
sta T1L1
|
||||
lda #DHT_RECV_H
|
||||
sta T1H1
|
||||
rts
|
||||
|
||||
dht_recv_read:
|
||||
; read PA2
|
||||
lda PA2
|
||||
and #%00000001
|
||||
ldx DHT_BIT
|
||||
beq dht_recv_end
|
||||
dht_recv_rot:
|
||||
rol
|
||||
dex
|
||||
bne dht_recv_rot
|
||||
dht_recv_end:
|
||||
ldy DHT_OFFSET
|
||||
ora DHT_VALUES,y
|
||||
sta DHT_VALUES,y
|
||||
; determine if 8 bits are done
|
||||
ldx DHT_BIT
|
||||
beq dht_recv_next
|
||||
rts
|
||||
dht_recv_next:
|
||||
lda #7
|
||||
sta DHT_BIT
|
||||
inc DHT_OFFSET
|
||||
cmp DHT_OFF_DONE
|
||||
beq dht_display
|
||||
rts
|
||||
|
||||
dht_display:
|
||||
ldx #0
|
||||
dht_display_:
|
||||
lda DHT_VALUES,x
|
||||
sta TO_PRINT,x
|
||||
inx
|
||||
cpx #5
|
||||
bne dht_display_
|
||||
jsr lcd_print_clear
|
||||
rts
|
||||
|
||||
dht_irq:
|
||||
lda DHT_STATUS
|
||||
cmp #DHT_WAIT_REQ
|
||||
beq dht_request_end
|
||||
cmp #DHT_WAIT_RESP
|
||||
beq dht_response
|
||||
cmp #DHT_RECV
|
||||
beq dht_recv
|
||||
rts
|
||||
|
||||
@ -3,5 +3,6 @@ MEMORY {
|
||||
}
|
||||
SEGMENTS {
|
||||
CODE: load = ROM, type = ro;
|
||||
RODATA: load = ROM, type = ro;
|
||||
RESET_VECTOR: load = ROM, type = ro, start = $FFFA;
|
||||
}
|
||||
|
||||
66
main.s65
66
main.s65
@ -1,10 +1,12 @@
|
||||
.segment "CODE"
|
||||
.include "system/system.h65"
|
||||
.org $8000 ; EEPROM Start Address
|
||||
|
||||
;********************************************************************************
|
||||
; Interrupts
|
||||
;********************************************************************************
|
||||
nmi:
|
||||
lda #'%'
|
||||
jsr _lcd_char
|
||||
rti
|
||||
irq:
|
||||
; lda IFR2 todo: verify that the line below does the same thing
|
||||
@ -15,18 +17,18 @@ irq:
|
||||
; jsr lcd_char ;TODO: Remove
|
||||
jsr kp_read
|
||||
rti
|
||||
bbs1 0,irq_keypad
|
||||
; bbs1 0,irq_keypad
|
||||
lda #'-'
|
||||
jsr _lcd_char
|
||||
bbs4 0,irq_dht
|
||||
bbs6 0,irq_dht
|
||||
; 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
|
||||
lda IO1 + IO_T1CL ;T1L2 ; clear interrupt flag
|
||||
; jsr dht_irq
|
||||
rti
|
||||
|
||||
;********************************************************************************
|
||||
@ -34,31 +36,35 @@ irq_dht:
|
||||
;********************************************************************************
|
||||
reset:
|
||||
lda #%11111111
|
||||
sta IO2 + IO_DDRA
|
||||
sta IO1 + IO_DDRA
|
||||
.macro SET_DEBUG_LED_OFF
|
||||
lda #%00000000
|
||||
sta IO2 + IO_RANH
|
||||
sta IO1 + IO_RANH
|
||||
.endmacro
|
||||
.macro SET_DEBUG_LED_ON
|
||||
lda #%11111111
|
||||
sta IO2 + IO_RANH
|
||||
sta IO1 + IO_RANH
|
||||
.endmacro
|
||||
SET_DEBUG_LED_OFF
|
||||
jsr lcd_init
|
||||
|
||||
SET_DEBUG_LED_ON
|
||||
.repeat 1000
|
||||
nop
|
||||
.endrepeat
|
||||
SET_DEBUG_LED_OFF
|
||||
; 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
|
||||
; ; 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
|
||||
@ -81,7 +87,7 @@ reset:
|
||||
cmp #'A'
|
||||
jeq printer
|
||||
cmp #'B'
|
||||
jeq dht_request
|
||||
; jeq dht_request
|
||||
cmp #'C'
|
||||
beq print_1
|
||||
cmp #'D'
|
||||
@ -113,7 +119,7 @@ print_2:
|
||||
jsr lcd_print_clear
|
||||
jmp home
|
||||
|
||||
.rodata
|
||||
.segment "RODATA"
|
||||
message_1: .asciiz " Powered by ......6502...... **** www.quintern.xyz"
|
||||
message_2: .asciiz " Danke fuer eure Aufmerksamkeit ;) "
|
||||
menu:
|
||||
@ -122,27 +128,25 @@ menu:
|
||||
.byte "<C> Text 1 "
|
||||
.asciiz "<D> Text 2 "
|
||||
|
||||
.code
|
||||
.segment "CODE"
|
||||
;********************************************************************************
|
||||
; Modules
|
||||
;********************************************************************************
|
||||
; LCD
|
||||
; .include "utility.asm6502"
|
||||
LCD_IO = IO1
|
||||
.include "lcd.asm6502"
|
||||
LCD_IO = IO1
|
||||
.include "lcd.s65"
|
||||
; Keypad Reading
|
||||
KP_IO = IO1
|
||||
.include "keypad.asm6502"
|
||||
KP_IO = IO1
|
||||
.include "keypad.s65"
|
||||
; Printer
|
||||
.include "printer.asm6502"
|
||||
.include "printer.s65"
|
||||
; Digital Humidity and Temerature Sensor
|
||||
.include "dht.asm6502"
|
||||
; .include "dht.s65"
|
||||
;********************************************************************************
|
||||
; reset vector
|
||||
;********************************************************************************
|
||||
|
||||
.rodata
|
||||
.org $fffa
|
||||
.segment "RESET_VECTOR"
|
||||
.word nmi
|
||||
.word reset
|
||||
.word irq
|
||||
|
||||
@ -1,3 +1,11 @@
|
||||
;********************************************************************************
|
||||
; @module SPI
|
||||
; @type driver
|
||||
; @details
|
||||
; @depends IO-W65C22N
|
||||
;********************************************************************************
|
||||
|
||||
;TODO EVERYTHING
|
||||
DHT_REQUEST_L = $00
|
||||
DHT_REQUEST_H = %01010000 ; = 20480 PHI2 pulses = 20,5 ms at 1 MHz
|
||||
|
||||
@ -5,25 +13,25 @@ DHT_RECV_H = %10011100
|
||||
DHT_RECV_L = %01000000 ; = 40000 PHI2 = 40ms
|
||||
|
||||
; Status Variables, Used to determine what is sent by temp module
|
||||
DHT_STATUS = $400
|
||||
DHT_NONE = 0
|
||||
DHT_WAIT_REQ = 1
|
||||
DHT_WAIT_RESP = 2
|
||||
DHT_RECV = 3
|
||||
DHT_DONE = 4
|
||||
DHT_STATUS = $400
|
||||
DHT_NONE = 0
|
||||
DHT_WAIT_REQ = 1
|
||||
DHT_WAIT_RESP = 2
|
||||
DHT_RECV = 3
|
||||
DHT_DONE = 4
|
||||
|
||||
DHT_BIT = $401
|
||||
DHT_BIT_ROT = $402
|
||||
DHT_BIT = $401
|
||||
DHT_BIT_ROT = $402
|
||||
|
||||
|
||||
DHT_VALUES = $405 ;
|
||||
DHT_OFFSET = $403
|
||||
DHT_VALUES = $405 ;
|
||||
DHT_OFFSET = $403
|
||||
DHT_OFF_RH_HIGH = 0 ; offsets to DHT_VALUES
|
||||
DHT_OFF_RH_LOW = 1
|
||||
DHT_OFF_T_HIGH = 2
|
||||
DHT_OFF_T_LOW = 3
|
||||
DHT_OFF_RH_LOW = 1
|
||||
DHT_OFF_T_HIGH = 2
|
||||
DHT_OFF_T_LOW = 3
|
||||
DHT_OFF_CHECKSUM = 4
|
||||
DHT_OFF_DONE = 5
|
||||
DHT_OFF_DONE = 5
|
||||
|
||||
|
||||
message_dht: .asciiz "DHT-Request gesendet."
|
||||
@ -54,16 +62,16 @@ dht_request: ; send request to sensor
|
||||
sei
|
||||
|
||||
lda #%00000001 ; set PA1-0 to output 0
|
||||
ora DDRA1
|
||||
sta DDRA1
|
||||
ora IO2 + IO_DDRA
|
||||
sta IO2 + IO_DDRA
|
||||
lda #(LCD_CLEAR | $00)
|
||||
sta PA1
|
||||
sta IO2 + IO_RA
|
||||
|
||||
; start timer
|
||||
lda #DHT_REQUEST_L
|
||||
sta T1L1
|
||||
sta IO2 + IO_T1CL
|
||||
lda #DHT_REQUEST_H
|
||||
sta T1H1
|
||||
sta IO2 + IO_T1CH
|
||||
|
||||
lda #DHT_WAIT_REQ
|
||||
sta DHT_STATUS
|
||||
@ -74,10 +82,10 @@ dht_request: ; send request to sensor
|
||||
|
||||
dht_request_end:
|
||||
lda #%10000010
|
||||
sta IER2 ; enable Interrupt for CA1
|
||||
sta IO2 + IO_IER ; enable Interrupt for CA1
|
||||
lda #%11111110
|
||||
and DDRA1
|
||||
sta DDRA1 ; set PA1-0 to input
|
||||
and IO2 + IO_DDRA
|
||||
sta IO2 + IO_DDRA ; set PA1-0 to input
|
||||
|
||||
lda #DHT_WAIT_RESP
|
||||
|
||||
@ -93,14 +101,14 @@ dht_response: ; receive response from sensor
|
||||
dht_recv:
|
||||
; start timer
|
||||
lda #DHT_RECV_L
|
||||
sta T1L1
|
||||
sta IO2 + IO_T1CL
|
||||
lda #DHT_RECV_H
|
||||
sta T1H1
|
||||
sta IO2 + IO_T1CH
|
||||
rts
|
||||
|
||||
dht_recv_read:
|
||||
; read PA2
|
||||
lda PA2
|
||||
lda IO2 + IO_RA
|
||||
and #%00000001
|
||||
ldx DHT_BIT
|
||||
beq dht_recv_end
|
||||
|
||||
@ -14,6 +14,3 @@ After assembling it, the binary is loaded onto the EEPROM using [my *eeprom.py*
|
||||
- Ringbuffer for pressed keys.
|
||||
|
||||
> It's not much, but it's honest work.
|
||||
|
||||
## Debug-Utility (with Raspberry Pi 4)
|
||||
`monitor.py` is a python program to monitor the address-bus, data-bus and the read-write pin of the computer. It prints the current address and data in binary and hexadecimal on each clock cycle.
|
||||
|
||||
@ -9,41 +9,100 @@
|
||||
INCLUDE_IOW65C22 = 1
|
||||
|
||||
; IO-CHIPS OFFSETS FOR PINS FROM BASE ADDRESS
|
||||
IO_RB = $0
|
||||
IO_RA = $1
|
||||
IO_DDRB = $2
|
||||
IO_DDRA = $3
|
||||
IO_T1CL = $4
|
||||
IO_RB = $0 ; Register B (ORB/IRB)
|
||||
IO_RA = $1 ; Register A (ORA/IRA)
|
||||
IO_DDRB = $2 ; Data Direction Register B
|
||||
IO_DDRA = $3 ; Data Direction Register A
|
||||
IO_T1CL = $4 ; Timer 1 Counter Low/High
|
||||
IO_T1CH = $5
|
||||
IO_T1LL = $6
|
||||
IO_T1LL = $6 ; Timer 1 Latch Low/High
|
||||
IO_T1LH = $7
|
||||
IO_T2CL = $8
|
||||
IO_T2CL = $8 ; Timer 2 Counter Low/High
|
||||
IO_T2CH = $9
|
||||
IO_SR = $a
|
||||
IO_ACR = $b
|
||||
IO_PCR = $c
|
||||
IO_IFR = $d
|
||||
IO_IER = $e
|
||||
IO_SR = $a ; Shift Register
|
||||
IO_ACR = $b ; Auxiliary Control Register
|
||||
; ACR Masks
|
||||
IO_ACR_MASK_PA = %00000001 ;
|
||||
IO_ACR_MASK_PB = %00000010 ;
|
||||
IO_ACR_MASK_SR = %00011100 ;
|
||||
IO_ACR_MASK_T2 = %00100000 ;
|
||||
IO_ACR_MASK_T1 = %11000000 ;
|
||||
; SR Modes
|
||||
IO_ACR_SR_DISABLE = %00000000 ; Disabled
|
||||
IO_ACR_SR_SIN_T2 = %00000100 ; Shift in under control of T2
|
||||
IO_ACR_SR_SIN_PHI2 = %00001000 ; Shift in under control of PHI2
|
||||
IO_ACR_SR_SIN_PHIE = %00001100 ; Shift in under control of external clock
|
||||
IO_ACR_SR_SOUT_FREE_T2 = %00010000 ; Shift out free running at T2 rate
|
||||
IO_ACR_SR_SOUT_T2 = %00010100 ; Shift out under control of T2
|
||||
IO_ACR_SR_SOUT_PHI2 = %00011000 ; Shift out under control of PHI2
|
||||
IO_ACR_SR_SOUT_PHIE = %00011100 ; Shift out under control of external clock
|
||||
; T1 Modes
|
||||
IO_ACR_T1_IRQ_LOAD = %00000000 ; Timed interrupt each time T1 is loaded
|
||||
IO_ACR_T1_IRQ_CONT = %01000000 ; Continuous interrupts
|
||||
IO_ACR_T1_IRQ_LOAD_PB7 = %10000000 ; Timed interrupt each time T1 is loaded - PB7 One Shot output
|
||||
IO_ACR_T1_IRQ_CONT_PB7 = %11000000 ; Continuous interrupts - PB7 Square wave output
|
||||
IO_PCR = $c ; Peripheral Control Register
|
||||
; PCR Masks
|
||||
IO_PCR_MASK_CA1 = %00000001 ;
|
||||
IO_PCR_MASK_CA2 = %00001110 ;
|
||||
IO_PCR_MASK_CB1 = %00010000 ;
|
||||
IO_PCR_MASK_CB2 = %11100000 ;
|
||||
; CA1 Modes
|
||||
IO_PCR_CA1_IN_AE = %00000000 ; Input-negative active edge
|
||||
IO_PCR_CA1_IP_AE = %00000001 ; Input-positive active edge
|
||||
; CA2 Modes
|
||||
IO_PCR_CA2_IN_AE = %00000000 ; Input-negative active edge
|
||||
IO_PCR_CA2_IN_AE_IRQ_IND= %00000010 ; Independent interrupt input-negative edge
|
||||
IO_PCR_CA2_IP_AE = %00000100 ; Input-positive active edge
|
||||
IO_PCR_CA2_IP_AE_IRQ_IND= %00000110 ; Independent interrupt input-positive edge
|
||||
IO_PCR_CA2_IN_HANDSHAKE = %00001000 ; Handshake output
|
||||
IO_PCR_CA2_IN_PULSE_OUT = %00001010 ; Pulse output
|
||||
IO_PCR_CA2_IN_LOW_OUT = %00001100 ; Low output
|
||||
IO_PCR_CA2_IN_HIGH_OUT = %00001110 ; High output
|
||||
; CB1 Modes
|
||||
IO_PCR_CB1_IN_AE = %00000000 ; Input-negative active edge
|
||||
IO_PCR_CB1_IP_AE = %00010000 ; Input-positive active edge
|
||||
; CB2 Modes
|
||||
IO_PCR_CB2_IN_AE = %00000000 ; Input-negative active edge
|
||||
IO_PCR_CB2_IN_AE_IRQ_IND= %00100000 ; Independent interrupt input-negative edge
|
||||
IO_PCR_CB2_IP_AE = %01000000 ; Input-positive active edge
|
||||
IO_PCR_CB2_IP_AE_IRQ_IND= %01100000 ; Independent interrupt input-positive edge
|
||||
IO_PCR_CB2_IN_HANDSHAKE = %10000000 ; Handshake output
|
||||
IO_PCR_CB2_IN_PULSE_OUT = %10100000 ; Pulse output
|
||||
IO_PCR_CB2_IN_LOW_OUT = %11000000 ; Low output
|
||||
IO_PCR_CB2_IN_HIGH_OUT = %11100000 ; High output
|
||||
|
||||
IO_IFR = $d ; Interrupt Flag Register
|
||||
; IFR bits
|
||||
IO_IFR_CA2 = 0
|
||||
IO_IFR_CA1 = 1
|
||||
IO_IFR_SR = 2
|
||||
IO_IFR_CB2 = 3
|
||||
IO_IFR_CB1 = 4
|
||||
IO_IFR_T2 = 5
|
||||
IO_IFR_T1 = 6
|
||||
IO_IFR_IRQ = 7
|
||||
IO_IER = $e ; Interrupt Enable Register
|
||||
IO_RANH = $f ; no handshake
|
||||
|
||||
; TODO: leave?
|
||||
.struct VIA_Pins
|
||||
RB .byte ; $0
|
||||
RA .byte ; $1
|
||||
DDRB .byte ; $2
|
||||
DDRA .byte ; $3
|
||||
T1CL .byte ; $4
|
||||
T1CH .byte ; $5
|
||||
T1LL .byte ; $6
|
||||
T1LH .byte ; $7
|
||||
T2CL .byte ; $8
|
||||
T2CH .byte ; $9
|
||||
SR .byte ; $a
|
||||
ACR .byte ; $b
|
||||
PCR .byte ; $c
|
||||
IFR .byte ; $d
|
||||
IER .byte ; $e
|
||||
RANH .byte ; $f ; no handshake
|
||||
.endstruct
|
||||
; .struct VIA_Pins
|
||||
; RB .byte ; $0
|
||||
; RA .byte ; $1
|
||||
; DDRB .byte ; $2
|
||||
; DDRA .byte ; $3
|
||||
; T1CL .byte ; $4
|
||||
; T1CH .byte ; $5
|
||||
; T1LL .byte ; $6
|
||||
; T1LH .byte ; $7
|
||||
; T2CL .byte ; $8
|
||||
; T2CH .byte ; $9
|
||||
; SR .byte ; $a
|
||||
; ACR .byte ; $b
|
||||
; PCR .byte ; $c
|
||||
; IFR .byte ; $d
|
||||
; IER .byte ; $e
|
||||
; RANH .byte ; $f ; no handshake
|
||||
; .endstruct
|
||||
.endif
|
||||
|
||||
|
||||
@ -22,7 +22,7 @@
|
||||
.error "IO-W65C22 module is not included"
|
||||
.endif
|
||||
|
||||
.include "utility.asm6502"
|
||||
.include "utility.h65"
|
||||
|
||||
|
||||
; RAM VARIABLES
|
||||
|
||||
@ -40,8 +40,8 @@ ARG13 = $1d
|
||||
ARG14 = $1e
|
||||
ARG15 = $1f
|
||||
|
||||
.include "io_W65C22.asm6502"
|
||||
.include "utility.asm6502"
|
||||
.include "io_W65C22.h65"
|
||||
.include "utility.h65"
|
||||
|
||||
; RETURN VALUE
|
||||
; in a
|
||||
@ -50,29 +50,29 @@ IO1 = $6000
|
||||
IO2 = $7000
|
||||
|
||||
; struct method
|
||||
.org $6000
|
||||
VIA1: .tag VIA_Pins
|
||||
.org $7000
|
||||
VIA2: .tag VIA_Pins
|
||||
; .org $6000
|
||||
; VIA1: .tag VIA_Pins
|
||||
; .org $7000
|
||||
; VIA2: .tag VIA_Pins
|
||||
|
||||
; IO-1
|
||||
PB1 = $6000
|
||||
PA1 = $6001
|
||||
DDRB1 = $6002
|
||||
DDRA1 = $6003
|
||||
T1L1 = $6004
|
||||
T1H1 = $6005
|
||||
; IO-2
|
||||
PB2 = $7000
|
||||
PA2 = $7001
|
||||
DDRB2 = $7002
|
||||
DDRA2 = $7003
|
||||
T1L2 = $7004
|
||||
T1H2 = $7005
|
||||
ACR2 = $700b
|
||||
PCR2 = $700c
|
||||
IFR2 = $700d
|
||||
IER2 = $700e
|
||||
; ; IO-1
|
||||
; PB1 = $6000
|
||||
; PA1 = $6001
|
||||
; DDRB1 = $6002
|
||||
; DDRA1 = $6003
|
||||
; T1L1 = $6004
|
||||
; T1H1 = $6005
|
||||
; ; IO-2
|
||||
; PB2 = $7000
|
||||
; PA2 = $7001
|
||||
; DDRB2 = $7002
|
||||
; DDRA2 = $7003
|
||||
; T1L2 = $7004
|
||||
; T1H2 = $7005
|
||||
; ACR2 = $700b
|
||||
; PCR2 = $700c
|
||||
; IFR2 = $700d
|
||||
; IER2 = $700e
|
||||
|
||||
|
||||
.endif ; include guard
|
||||
|
||||
41
test.s65
41
test.s65
@ -1,4 +1,4 @@
|
||||
.include "system/system.asm6502"
|
||||
.include "system/system.h65"
|
||||
.segment "CODE"
|
||||
|
||||
;********************************************************************************
|
||||
@ -7,23 +7,8 @@
|
||||
nmi:
|
||||
rti
|
||||
irq:
|
||||
nop
|
||||
nop
|
||||
nop
|
||||
nop
|
||||
|
||||
nop
|
||||
nop
|
||||
nop
|
||||
nop
|
||||
|
||||
nop
|
||||
nop
|
||||
nop
|
||||
nop
|
||||
|
||||
nop
|
||||
nop
|
||||
.repeat 20
|
||||
.endrepeat
|
||||
rti
|
||||
|
||||
;********************************************************************************
|
||||
@ -34,17 +19,29 @@ reset:
|
||||
; setup io2 bank a 1-3
|
||||
lda #%11111111
|
||||
sta IO1 + IO_DDRA
|
||||
sta IO1 + IO_DDRB
|
||||
|
||||
@loop:
|
||||
lda #%00000000
|
||||
sta IO1 + IO_RANH
|
||||
sta IO1 + IO_RA
|
||||
.repeat 3
|
||||
nop
|
||||
nop
|
||||
.endrepeat
|
||||
lda #%11111111
|
||||
sta IO1 + IO_RANH
|
||||
sta IO1 + IO_RA
|
||||
.repeat 15
|
||||
nop
|
||||
.endrepeat
|
||||
|
||||
lda #%00000000
|
||||
sta IO1 + IO_RB
|
||||
.repeat 5
|
||||
nop
|
||||
nop
|
||||
.endrepeat
|
||||
lda #%11111111
|
||||
sta IO1 + IO_RB
|
||||
.repeat 10
|
||||
nop
|
||||
.endrepeat
|
||||
bra @loop
|
||||
|
||||
|
||||
Loading…
Reference in New Issue
Block a user