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
+.testfailed:
+ db "test failed.",$0D,$0A,0
.ok:
db "OK!",$0D,$0A,0
jr puts
.done:
ret
-
+