X-Git-Url: http://git.joshuawise.com/fpgaboy.git/blobdiff_plain/611e4a90d4f4c5b5e2cadde0da57639bfbaca6a8..5c33c5c001049403ac33d71bfbe0115c318c1b4c:/rom.asm diff --git a/rom.asm b/rom.asm index aa070ff..512cfce 100644 --- a/rom.asm +++ b/rom.asm @@ -4,20 +4,71 @@ main: ld c, $51 ; Note that we are alive. ld a, $FF ld [c],a + + ld sp, $DFF0 + + ld hl, $DF81 + ld a, $80 + ld [hl], a - ld sp, $DFFF +; ld c, $07 +; ld a, $04 ;start timer, 4.096KHz +; ld [c], a +diqs:; ei + jr diqs ld hl, signon call puts + + + ei call memtest call insntest call waitsw + di jr main + section "fuq",HOME[$50] +irqhand: + PUSH AF + PUSH BC + PUSH DE + PUSH HL + +; ld c, $51 +; ld a, $F0 +; ld [c], a + + xor a + ld c, $0F ; ack the irq + ld [c], a + + ;ld a, $41 ; print A + ;call putc + + ld hl, $DF81 + ld a, [hl] +; ld b, 1 +; add b + ld c, $51 +; ld [c], a +; ld [hl], a + + +; ld c, $51 +; ld a, $0F +; ld [c], a + + POP HL + POP DE + POP BC + POP AF + RETI + signon: db $0D,$0A,$1B,"[1mFPGABoy Diagnostic ROM",$1B,"[0m",$0D,$0A,0 @@ -26,7 +77,7 @@ memtest: ld hl,memteststr call puts - ld hl, $C000 ; Write loop + ld hl, $C001 ; Write loop .wr: ld a,h xor l @@ -38,7 +89,7 @@ memtest: cp l jr nz, .wr - ld hl, $C000 ; Read loop + ld hl, $C001 ; Read loop .rd: ld a,h xor l @@ -103,16 +154,16 @@ puthex: ; Put two hex nibbles to the serial console. waitsw: ld hl,waitswstr call puts - + ld c, $51 - ld a, $00 + xor a ld [c],a - ld c, $51 ld b, $0 .loop1: ld a,[c] cp b + ei jr z,.loop1 .loop2: ld a,[c] @@ -121,7 +172,7 @@ waitsw: ret waitswstr: - db "Diagnostic ROM complete; flip switches to nonzero and then to zero to reset.",$0D,$0A,0 + db "Diagnostic ROM complete; flip switches to nonzero and then to zero to reset. Expect A.",$0D,$0A,0 ; Core instruction basic acceptance tests. insntest: @@ -167,6 +218,18 @@ insntest: jr .fail rst $00 .jr: + + ; Test inc16 + ld d, $12 + ld e, $FF + ld hl, .inc16fail + inc de + ld a, $13 + cp d + jr nz, .fail + ld a, $00 + cp e + jr nz, .fail ; Test CP. ld hl, .cpfail @@ -211,16 +274,18 @@ insntest: db "CP",0 .cplfail: db "CPL",0 +.inc16fail: + db "INC16",0 .testfailed: - db "test failed.",$0D,$0A,0 + db " test failed.",$0D,$0A,0 .ok: db "OK!",$0D,$0A,0 ; Serial port manipulation functions. putc: - push af ld b, 0 ld c, $50 + push af .waitport: ld a,[c] cp b @@ -233,9 +298,6 @@ puts: ld a, [hli] ld b, $00 cp b - jr z, .done + ret z call putc jr puts -.done: - ret -