URL
https://opencores.org/ocsvn/t400/t400/trunk
Subversion Repositories t400
Compare Revisions
- This comparison shows the changes necessary to convert path
/
- from Rev 22 to Rev 23
- ↔ Reverse comparison
Rev 22 → Rev 23
/trunk/sw/verif/black_box/casc/test.asm
1,5 → 1,5
;; ******************************************************************* |
;; $Id: test.asm,v 1.1.1.1 2006-05-06 01:56:45 arniml Exp $ |
;; $Id: test.asm,v 1.2 2006-05-16 07:57:23 arniml Exp $ |
;; |
;; Checks the CASC instruction. |
;; |
9,15 → 9,15
org 0x00 |
clra |
|
;; preload M0 with 0xa |
smb 0x3 |
rmb 0x2 |
smb 0x1 |
rmb 0x0 |
;; preload M0 with 0x5 |
rmb 0x3 |
smb 0x2 |
rmb 0x1 |
smb 0x0 |
|
rc |
asc 0xf |
;; test a15 + m5 + c0 |
aisc 0xf |
;; test /(a15) + m5 + c0 |
casc |
jmp ok_a15_m5_c0_carry |
jmp fail |
26,10 → 26,65
jmp ok_a15_m5_c0_c |
jmp fail |
ok_a15_m5_c0_c: |
;; expect 0x5 as result |
ske |
jmp fail |
|
sc |
clra |
aisc 0xa |
;; test /(a10) + m5 + c1 |
casc |
jmp ok_a10_m5_c1_carry |
jmp fail |
ok_a10_m5_c1_carry: |
skc |
jmp ok_a10_m5_c1_c |
jmp fail |
ok_a10_m5_c1_c: |
;; expect 0xb as result |
aisc 0xa |
nop |
ske |
jmp fail |
|
;; preload M0 with 0xa |
smb 0x3 |
rmb 0x2 |
smb 0x1 |
rmb 0x0 |
;; |
rc |
clra |
aisc 0x5 |
;; test /(a5) + m10 + c0 |
casc |
jmp fail |
skc |
jmp fail |
;; expect 0x4 as result |
aisc 0x6 |
ske |
jmp fail |
|
;; preload M0 with 0xf |
smb 0x3 |
smb 0x2 |
smb 0x1 |
smb 0x0 |
;; |
sc |
clra |
;; test /(a0) + m15 + c1 |
casc |
jmp fail |
skc |
jmp fail |
;; expect 0xf as result |
ske |
jmp fail |
|
|
jmp pass |
|
org 0x100 |