Check all edge interrupts
This commit is contained in:
@@ -42,6 +42,7 @@ $(CODE_TB): $(SRCS) $(TBS) $(INIT_MEM)
|
||||
$(TARGET): $(INIT_MEM) $(SRCS)
|
||||
iverilog -g2005-sv $(FLAGS) -s $(TOP_MODULE) -o $(TARGET) $(INC) $(SRCS)
|
||||
|
||||
.PHONY: $(INIT_MEM)
|
||||
$(INIT_MEM):
|
||||
# Make kernel
|
||||
$(MAKE) -C $(REPO_TOP)/sw/kernel
|
||||
|
||||
@@ -22,12 +22,16 @@ end
|
||||
|
||||
initial begin
|
||||
u_sim_top.u_dut.int_in = 0;
|
||||
repeat (1000) @(posedge u_sim_top.r_clk_cpu);
|
||||
u_sim_top.u_dut.int_in = 1;
|
||||
repeat (2400) @(posedge u_sim_top.r_clk_cpu);
|
||||
for (int i = 0; i < 256; i++) begin
|
||||
repeat (100) @(posedge u_sim_top.r_clk_cpu);
|
||||
u_sim_top.u_dut.int_in = 1 << i;
|
||||
$display("Activiating interrupt %d", i);
|
||||
end
|
||||
end
|
||||
|
||||
initial begin
|
||||
repeat (2000) @(posedge u_sim_top.r_clk_cpu);
|
||||
repeat (40000) @(posedge u_sim_top.r_clk_cpu);
|
||||
$display("Timed out");
|
||||
$finish_and_return(-1);
|
||||
end
|
||||
|
||||
@@ -1,23 +1,70 @@
|
||||
.MACPACK generic
|
||||
|
||||
.export _init, _nmi_int, _irq_int
|
||||
|
||||
.import tmp1
|
||||
|
||||
CMD = $effc
|
||||
DAT = $effd
|
||||
|
||||
.zeropage
|
||||
finish: .res 1
|
||||
curr_irq: .res 1
|
||||
|
||||
.code
|
||||
|
||||
_nmi_int:
|
||||
_irq_int:
|
||||
; We should have triggered interrupt 1
|
||||
stz CMD
|
||||
lda DAT
|
||||
cmp curr_irq
|
||||
bne @bad
|
||||
|
||||
lda #$ff
|
||||
sta CMD
|
||||
lda #$1
|
||||
sta DAT
|
||||
|
||||
inc curr_irq
|
||||
beq @good
|
||||
cli
|
||||
rti
|
||||
|
||||
@good:
|
||||
lda #$6d
|
||||
sta $00
|
||||
sta finish
|
||||
|
||||
@bad:
|
||||
lda #$bd
|
||||
sta finish
|
||||
|
||||
_init:
|
||||
lda #$20
|
||||
sta CMD
|
||||
lda #$ff
|
||||
sta DAT
|
||||
lda #$40
|
||||
sta CMD
|
||||
lda #$ff
|
||||
sta DAT
|
||||
ldx #$ff
|
||||
txs
|
||||
ldx #$20 ; enable
|
||||
ldy #$ff
|
||||
jsr cmd_all
|
||||
ldx #$40 ; edge type
|
||||
ldy #$00
|
||||
jsr cmd_all
|
||||
stz curr_irq
|
||||
cli
|
||||
@end: bra @end
|
||||
jmp wait
|
||||
|
||||
cmd_all:
|
||||
txa
|
||||
add #$20
|
||||
sta tmp1
|
||||
loop:
|
||||
txa
|
||||
sta CMD
|
||||
tya
|
||||
sta DAT
|
||||
inx
|
||||
cpx tmp1
|
||||
blt loop
|
||||
rts
|
||||
|
||||
wait:
|
||||
bra wait
|
||||
Reference in New Issue
Block a user