URL
https://opencores.org/ocsvn/t48/t48/trunk
Subversion Repositories t48
Compare Revisions
- This comparison shows the changes necessary to convert path
/t48/tags/rel_1_1/sw/verif/black_box/djnz
- from Rev 289 to Rev 292
- ↔ Reverse comparison
Rev 289 → Rev 292
/test.asm
0,0 → 1,54
;; ******************************************************************* |
;; $Id: test.asm,v 1.1.1.1 2004-03-25 22:29:17 arniml Exp $ |
;; |
;; Test DJNZ Rr, addr |
;; ******************************************************************* |
|
INCLUDE "cpu.inc" |
INCLUDE "pass_fail.inc" |
|
ORG 0 |
|
;; Start of test |
mov r0, #003H |
mov a, #000H |
djnz r0, r0_2 |
jmp fail |
|
r0_2: djnz r0, r0_1 |
jmp fail |
r0_1: mov a, #0FFH |
djnz r0, fail |
|
|
mov r1, #000H |
mov r2, #000H |
r1_loop: |
mov a, r2 |
add a, r1 |
jnz fail |
inc r2 |
djnz r1, r1_loop |
|
mov a, r1 |
jnz fail |
|
|
mov a, #002H |
mov r3, a |
mov r4, a |
mov r5, a |
djnz r5, ok_r5 |
jmp fail |
ok_r5: djnz r4, ok_r4 |
jmp fail |
ok_r4: djnz r3, ok_r3 |
jmp fail |
|
ok_r3: djnz r3, fail |
djnz r4, fail |
djnz r5, fail |
|
pass: PASS |
|
fail: FAIL |