diff options
| author | Astrid Smith | 2010-11-15 23:32:59 -0800 |
|---|---|---|
| committer | Astrid Smith | 2010-11-15 23:32:59 -0800 |
| commit | 24a3ab6a80292c00eef036b520add092f9d952ff (patch) | |
| tree | c49424c7d1f72d89771d0e4a0a1c5bc8a89c197b /testbenches/mine.testbench.z80 | |
| parent | 2c14dd161513f3715bacd8f70b1decfab80338be (diff) | |
Pattern rule for testbenches added
Diffstat (limited to 'testbenches/mine.testbench.z80')
| -rw-r--r-- | testbenches/mine.testbench.z80 | 57 |
1 files changed, 57 insertions, 0 deletions
diff --git a/testbenches/mine.testbench.z80 b/testbenches/mine.testbench.z80 new file mode 100644 index 0000000..57c6998 --- /dev/null +++ b/testbenches/mine.testbench.z80 @@ -0,0 +1,57 @@ +;;; -*- asm -*- +;;; + +.ORG 4000h + + call cond_jr_no ;cd + halt ;76 + +inc8: + ld bc,data8 ;01 + ;; BC should have &data8 + ld a,(bc) ;0a + inc a ;3c + ld (bc),a ;02 + halt + +dec8: + ld a,0a5h ;3e + dec a ;3d + ret ;c9 + + ;; Test jump-not-taken of JR [C,NC,Z] +cond_jr_no: + ld a,01h ;3e 01 + cp a ;bf + jr nz,wrong ;20 07 + + ccf ;3f + jr c,wrong ;38 + + scf ;37 + jr nc,wrong ;30 + ret ;c9 + +wrong: + jp wrong + + ;; Test jump-taken of JR [C,NC,Z] +cond_jr_yes: + ld a,01h ;3e 01 + ld b,02h ;06 02 + cp b ;b8 + jr nz,right1 ;20 + jp wrong +right1: scf ;37 + jr c,right2 ;38 + jp wrong +right2: ccf ;3f + jr nc,right3 ;30 + jp wrong +right3: ret ;c9 + + +data8: + .db 0a5h +data16: + .dw data8 |