ld hl, .xorhlfail
jp nz, .fail
+ ; Test JP (HL)
+ ld hl, .jphl
+ jp [hl]
+ ld hl, .jphlfail
+ jp .fail
+ rst $00
+.jphl:
+
+ ; Test JR
+ ld a, $FF
+ ld b, $00
+ cp b
+ jr nz,.jr
+ ld hl, .jrfail
+ jp .fail
+ rst $00
+.jr:
+
; Test CP.
ld hl, .cpfail
ld a, $10
db $FF
.xorhlfail:
db "XOR [HL] test failed.",$0D,$0A,0
+.jphlfail:
+ db "JP [HL] test failed.",$0D,$0A,0
+.jrfail:
+ db "JR test failed.",$0D,$0A,0
.cpfail:
db "CP test failed.",$0D,$0A,0
.cplfail: