URL
https://opencores.org/ocsvn/t400/t400/trunk
Only display areas with differences |
Details |
Blame |
View Log
Rev 176 |
Rev 179 |
;; *******************************************************************
|
;; *******************************************************************
|
;; $Id: test.asm,v 1.2 2006-05-16 07:57:23 arniml Exp $
|
;; $Id: test.asm 179 2009-04-01 19:48:38Z arniml $
|
;;
|
;;
|
;; Checks the CASC instruction.
|
;; Checks the CASC instruction.
|
;;
|
;;
|
|
|
;; the cpu type is defined on asl's command line
|
;; the cpu type is defined on asl's command line
|
|
|
org 0x00
|
org 0x00
|
clra
|
clra
|
|
|
;; preload M0 with 0x5
|
;; preload M0 with 0x5
|
rmb 0x3
|
rmb 0x3
|
smb 0x2
|
smb 0x2
|
rmb 0x1
|
rmb 0x1
|
smb 0x0
|
smb 0x0
|
|
|
rc
|
rc
|
aisc 0xf
|
aisc 0xf
|
;; test /(a15) + m5 + c0
|
;; test /(a15) + m5 + c0
|
casc
|
casc
|
jmp ok_a15_m5_c0_carry
|
jmp ok_a15_m5_c0_carry
|
jmp fail
|
jmp fail
|
ok_a15_m5_c0_carry:
|
ok_a15_m5_c0_carry:
|
skc
|
skc
|
jmp ok_a15_m5_c0_c
|
jmp ok_a15_m5_c0_c
|
jmp fail
|
jmp fail
|
ok_a15_m5_c0_c:
|
ok_a15_m5_c0_c:
|
;; expect 0x5 as result
|
;; expect 0x5 as result
|
ske
|
ske
|
jmp fail
|
jmp fail
|
|
|
sc
|
sc
|
clra
|
clra
|
aisc 0xa
|
aisc 0xa
|
;; test /(a10) + m5 + c1
|
;; test /(a10) + m5 + c1
|
casc
|
casc
|
jmp ok_a10_m5_c1_carry
|
jmp ok_a10_m5_c1_carry
|
jmp fail
|
jmp fail
|
ok_a10_m5_c1_carry:
|
ok_a10_m5_c1_carry:
|
skc
|
skc
|
jmp ok_a10_m5_c1_c
|
jmp ok_a10_m5_c1_c
|
jmp fail
|
jmp fail
|
ok_a10_m5_c1_c:
|
ok_a10_m5_c1_c:
|
;; expect 0xb as result
|
;; expect 0xb as result
|
aisc 0xa
|
aisc 0xa
|
nop
|
nop
|
ske
|
ske
|
jmp fail
|
jmp fail
|
|
|
;; preload M0 with 0xa
|
;; preload M0 with 0xa
|
smb 0x3
|
smb 0x3
|
rmb 0x2
|
rmb 0x2
|
smb 0x1
|
smb 0x1
|
rmb 0x0
|
rmb 0x0
|
;;
|
;;
|
rc
|
rc
|
clra
|
clra
|
aisc 0x5
|
aisc 0x5
|
;; test /(a5) + m10 + c0
|
;; test /(a5) + m10 + c0
|
casc
|
casc
|
jmp fail
|
jmp fail
|
skc
|
skc
|
jmp fail
|
jmp fail
|
;; expect 0x4 as result
|
;; expect 0x4 as result
|
aisc 0x6
|
aisc 0x6
|
ske
|
ske
|
jmp fail
|
jmp fail
|
|
|
;; preload M0 with 0xf
|
;; preload M0 with 0xf
|
smb 0x3
|
smb 0x3
|
smb 0x2
|
smb 0x2
|
smb 0x1
|
smb 0x1
|
smb 0x0
|
smb 0x0
|
;;
|
;;
|
sc
|
sc
|
clra
|
clra
|
;; test /(a0) + m15 + c1
|
;; test /(a0) + m15 + c1
|
casc
|
casc
|
jmp fail
|
jmp fail
|
skc
|
skc
|
jmp fail
|
jmp fail
|
;; expect 0xf as result
|
;; expect 0xf as result
|
ske
|
ske
|
jmp fail
|
jmp fail
|
|
|
|
|
jmp pass
|
jmp pass
|
|
|
org 0x100
|
org 0x100
|
include "pass_fail.asm"
|
include "pass_fail.asm"
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.