From: Joshua Wise Date: Sat, 5 Apr 2008 04:56:08 +0000 (-0400) Subject: Test interrupts. They work! X-Git-Url: http://git.joshuawise.com/fpgaboy.git/commitdiff_plain/318331120b0bd48a06902e70a63b4f536a85de5f?hp=f8db64484a25b6970acb75b35188efd7089e572a Test interrupts. They work! --- diff --git a/FPGABoy.ise b/FPGABoy.ise index 3562e29..7ef4156 100644 Binary files a/FPGABoy.ise and b/FPGABoy.ise differ diff --git a/rom.asm b/rom.asm index 7994d3e..437f01e 100644 --- a/rom.asm +++ b/rom.asm @@ -9,15 +9,38 @@ main: ld hl, signon call puts + + ld c, $07 + ld a, $04 ;start timer, 4.096KHz + ld [c], a + ei call memtest call insntest call waitsw + di jr main + section "fuq",HOME[$100] +irqhand: + PUSH AF + PUSH BC + PUSH DE + PUSH HL + xor a + ld c, $0F ; ack the irq + ld [c], a + ld a, $41 ; print A + call putc + POP HL + POP DE + POP BC + POP AF + RETI + signon: db $0D,$0A,$1B,"[1mFPGABoy Diagnostic ROM",$1B,"[0m",$0D,$0A,0 @@ -103,23 +126,13 @@ puthex: ; Put two hex nibbles to the serial console. waitsw: ld hl,waitswstr call puts - - ld c, $07 - ld a, $04 ;start timer, 4.096KHz - ld [c], a - + ld c, $51 - ld a, $00 + xor a ld [c],a - ld e, a - -.loop1: - push bc - call testa - pop bc - ld c, $51 ld b, $0 +.loop1: ld a,[c] cp b jr z,.loop1 @@ -132,23 +145,6 @@ waitsw: waitswstr: db "Diagnostic ROM complete; flip switches to nonzero and then to zero to reset. Expect A.",$0D,$0A,0 -testa: - ld c, $0F - ld a, [c] - ld b, $00 - cp b - ret z - xor a - ld [c], a - ld a, $41 - call putc - ld a, 1 - add e - ld c, $51 - ld [c], a - ld e, a - ret - ; Core instruction basic acceptance tests. insntest: ld hl, .insnteststr