X-Git-Url: http://git.joshuawise.com/fpgaboy.git/blobdiff_plain/537e1f833b8eba858c06053ea6006ea608b9a5cc..fe3dc8909a6c72ce4208cb5b8b64bc6b2f8cebd6:/diag.asm diff --git a/diag.asm b/diag.asm index ff70e07..e3afaa4 100644 --- a/diag.asm +++ b/diag.asm @@ -1,13 +1,29 @@ - SECTION "a",HOME + section "end",HOME[1024] + nop + + SECTION "a",HOME[$00] + +start: jp main + + section "vbl",HOME[$40] + jp vbl + + section "lcdc",HOME[$48] + jp lcdc + + section "tmro",HOME[$50] + jp tmro main: ld a, $FF - ld [$FF51],a - + ld c, $51 + ld [c], a + ld sp, $DFF0 ld a, $04 ;start timer, 4.096KHz - ld [$FF07], a + ld c, $07 + ld [c], a ld hl, $DF81 xor a @@ -32,15 +48,29 @@ main: signon: db $0D,$0A,$1B,"[1mFPGABoy Diagnostic ROM",$1B,"[0m",$0D,$0A,0 - section "fuq",HOME[$100] -irqhand: +vbl: +lcdc: + PUSH AF + PUSH BC + + xor a + ld c, $0F + ld [c], a + + POP BC + POP AF + + reti + +tmro: PUSH AF PUSH BC PUSH DE PUSH HL xor a - ld [$FF0F], a + ld c, $0F + ld [c], a ld hl, $DF82 ld a, [hld] @@ -51,7 +81,8 @@ irqhand: .noprint: inc [hl] ld a, [hl] - ld [$FF51], a + ld c, $51 + ld [c], a POP HL POP DE @@ -233,20 +264,25 @@ insntest: ; Test DI/EI delay di - ld hl, .difail + ld hl, .dinocausefail ld c, $0F ; First, wait until an interrupt happens... .wait: ld a, [c] + and $04 cp 0 jr z, .wait ei ; Now make sure that an IRQ didn't happen on EI/DI di ld a, [c] + and $04 cp 0 jr z, .fail + ld hl, .dicausefail ei ; Make sure that an IRQ does happen on EI/NOP/DI nop + nop di ld a, [c] + and $04 cp 0 jr nz, .fail ei @@ -278,8 +314,10 @@ insntest: db "CPL",0 .inc16fail: db "INC16",0 -.difail: - db "DI/EI delay",0 +.dinocausefail: + db "DI/EI does not cause interrupt",0 +.dicausefail: + db "DI/NOP/EI cause interrupt",0 .testfailed: db " test failed.",$0D,$0A,0 .ok: @@ -303,3 +341,4 @@ puts: ret z call putc jr puts +