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/xchd
- from Rev 289 to Rev 292
- ↔ Reverse comparison
Rev 289 → Rev 292
/test.asm
0,0 → 1,121
;; ******************************************************************* |
;; $Id: test.asm,v 1.2 2004-04-06 18:12:57 arniml Exp $ |
;; |
;; Test XCHD A, @ Rr. |
;; ******************************************************************* |
|
INCLUDE "cpu.inc" |
INCLUDE "pass_fail.inc" |
|
testR0R1 MACRO pos |
inc r0 |
inc r1 |
mov a, @r0 |
cpl a |
add a, #((~((pos+7) # 8) << 4) & 0F0H) | (pos & 00FH) |
cpl a |
jnz fail |
mov a, @r1 |
cpl a |
add a, #((~((pos+7) # 8) << 4) & 0F0H) | (pos & 00FH) |
cpl a |
jnz fail |
ENDM |
|
ORG 0 |
|
;; Start of test |
mov r0, #010H |
mov r1, #020H |
mov a, #0F0H |
mov @r0, a |
mov @r1, a |
inc r0 |
inc r1 |
mov a, #0E1H |
mov @r0, a |
mov @r1, a |
inc r0 |
inc r1 |
mov a, #0D2H |
mov @r0, a |
mov @r1, a |
inc r0 |
inc r1 |
mov a, #0C3H |
mov @r0, a |
mov @r1, a |
inc r0 |
inc r1 |
mov a, #0B4H |
mov @r0, a |
mov @r1, a |
inc r0 |
inc r1 |
mov a, #0A5H |
mov @r0, a |
mov @r1, a |
inc r0 |
inc r1 |
mov a, #096H |
mov @r0, a |
mov @r1, a |
inc r0 |
inc r1 |
mov a, #087H |
mov @r0, a |
mov @r1, a |
|
dec r0 |
xchd a, @r0 |
dec r0 |
xchd a, @r0 |
dec r0 |
xchd a, @r0 |
dec r0 |
xchd a, @r0 |
dec r0 |
xchd a, @r0 |
dec r0 |
xchd a, @r0 |
dec r0 |
xchd a, @r0 |
mov r0, #017H |
xchd a, @r0 |
|
mov a, @r1 |
dec r1 |
xchd a, @r1 |
dec r1 |
xchd a, @r1 |
dec r1 |
xchd a, @r1 |
dec r1 |
xchd a, @r1 |
dec r1 |
xchd a, @r1 |
dec r1 |
xchd a, @r1 |
dec r1 |
xchd a, @r1 |
mov r1, #027H |
xchd a, @r1 |
|
jmp goon |
|
ORG 256 |
;; |
goon: mov r0, #00FH |
mov r1, #01FH |
testR0R1 1 |
testR0R1 2 |
testR0R1 3 |
testR0R1 4 |
testR0R1 5 |
testR0R1 6 |
testR0R1 7 |
testR0R1 0 |
|
pass: PASS |
|
fail: FAIL |