X-Git-Url: http://git.joshuawise.com/fpgaboy.git/blobdiff_plain/9a5394d1e93d850a3610d08f44b7a83b52178b77..dadf7990cbca24581bbb3c036df717dd59bdea41:/rom.asm diff --git a/rom.asm b/rom.asm index cd3cf2d..2e98e13 100644 --- a/rom.asm +++ b/rom.asm @@ -167,6 +167,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 @@ -191,24 +203,30 @@ insntest: call puts ret .fail: + call puts + ld hl, .testfailed call puts ret .insnteststr: - db "Testing instructions... ",$0 + db "Testing instructions... ",0 .pushpopfail: - db "PUSH/POP test failed.",$0D,$0A,0 + db "PUSH/POP",0 .ff: db $FF .xorhlfail: - db "XOR [HL] test failed.",$0D,$0A,0 + db "XOR [HL]",0 .jphlfail: - db "JP [HL] test failed.",$0D,$0A,0 + db "JP [HL]",0 .jrfail: - db "JR test failed.",$0D,$0A,0 + db "JR",0 .cpfail: - db "CP test failed.",$0D,$0A,0 + db "CP",0 .cplfail: - db "CPL test failed.",$0D,$0A,0 + db "CPL",0 +.inc16fail: + db "INC16",0 +.testfailed: + db " test failed.",$0D,$0A,0 .ok: db "OK!",$0D,$0A,0 @@ -229,9 +247,6 @@ puts: ld a, [hli] ld b, $00 cp b - jr z, .done + ret z call putc jr puts -.done: - ret -