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 23:43:45 arniml Exp $
|
;; $Id: test.asm 179 2009-04-01 19:48:38Z arniml $
|
;;
|
;;
|
;; Checks the ASC instruction.
|
;; Checks the ASC 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 M with 0x5
|
;; preload M with 0x5
|
rmb 0x3
|
rmb 0x3
|
smb 0x2
|
smb 0x2
|
rmb 0x1
|
rmb 0x1
|
smb 0x0
|
smb 0x0
|
|
|
clra
|
clra
|
rc
|
rc
|
;; test a0 + m5 + c0
|
;; test a0 + m5 + c0
|
asc
|
asc
|
jmp ok_a0_m5_c0_carry
|
jmp ok_a0_m5_c0_carry
|
jmp fail
|
jmp fail
|
ok_a0_m5_c0_carry:
|
ok_a0_m5_c0_carry:
|
skc
|
skc
|
jmp ok_a0_m5_c0_c
|
jmp ok_a0_m5_c0_c
|
jmp fail
|
jmp fail
|
ok_a0_m5_c0_c:
|
ok_a0_m5_c0_c:
|
ske
|
ske
|
jmp fail
|
jmp fail
|
|
|
;; test a5 + m5 + c0
|
;; test a5 + m5 + c0
|
asc
|
asc
|
jmp ok_a5_m5_c0_carry
|
jmp ok_a5_m5_c0_carry
|
jmp fail
|
jmp fail
|
ok_a5_m5_c0_carry:
|
ok_a5_m5_c0_carry:
|
skc
|
skc
|
jmp ok_a5_m5_c0_c
|
jmp ok_a5_m5_c0_c
|
jmp fail
|
jmp fail
|
ok_a5_m5_c0_c:
|
ok_a5_m5_c0_c:
|
aisc 16+5 - 10
|
aisc 16+5 - 10
|
nop
|
nop
|
ske
|
ske
|
jmp fail
|
jmp fail
|
|
|
rc
|
rc
|
asc
|
asc
|
;; test a10 + m5 + c0
|
;; test a10 + m5 + c0
|
asc
|
asc
|
jmp ok_a10_m5_c0_carry
|
jmp ok_a10_m5_c0_carry
|
jmp fail
|
jmp fail
|
ok_a10_m5_c0_carry:
|
ok_a10_m5_c0_carry:
|
skc
|
skc
|
jmp ok_a10_m5_c0_c
|
jmp ok_a10_m5_c0_c
|
jmp fail
|
jmp fail
|
ok_a10_m5_c0_c:
|
ok_a10_m5_c0_c:
|
aisc 16+5 - 15
|
aisc 16+5 - 15
|
nop
|
nop
|
ske
|
ske
|
jmp fail
|
jmp fail
|
|
|
rc
|
rc
|
asc
|
asc
|
asc
|
asc
|
;; test a15 + m5 + c0
|
;; test a15 + m5 + c0
|
asc
|
asc
|
jmp fail
|
jmp fail
|
skc
|
skc
|
jmp fail
|
jmp fail
|
rc
|
rc
|
aisc 16+5 - 20
|
aisc 16+5 - 20
|
nop
|
nop
|
ske
|
ske
|
jmp fail
|
jmp fail
|
|
|
sc
|
sc
|
clra
|
clra
|
;; test a0 + m5 + c1
|
;; test a0 + m5 + c1
|
asc
|
asc
|
jmp ok_a0_m5_c1_carry
|
jmp ok_a0_m5_c1_carry
|
jmp fail
|
jmp fail
|
ok_a0_m5_c1_carry:
|
ok_a0_m5_c1_carry:
|
skc
|
skc
|
jmp ok_a0_m5_c1_c
|
jmp ok_a0_m5_c1_c
|
jmp fail
|
jmp fail
|
ok_a0_m5_c1_c:
|
ok_a0_m5_c1_c:
|
aisc 16+5 - 6
|
aisc 16+5 - 6
|
nop
|
nop
|
ske
|
ske
|
jmp fail
|
jmp fail
|
|
|
sc
|
sc
|
;; test a5 + m5 + c1
|
;; test a5 + m5 + c1
|
asc
|
asc
|
jmp ok_a5_m5_c1_carry
|
jmp ok_a5_m5_c1_carry
|
jmp fail
|
jmp fail
|
ok_a5_m5_c1_carry:
|
ok_a5_m5_c1_carry:
|
skc
|
skc
|
jmp ok_a5_m5_c1_c
|
jmp ok_a5_m5_c1_c
|
jmp fail
|
jmp fail
|
ok_a5_m5_c1_c:
|
ok_a5_m5_c1_c:
|
aisc 16+5 - 11
|
aisc 16+5 - 11
|
nop
|
nop
|
ske
|
ske
|
jmp fail
|
jmp fail
|
|
|
rc
|
rc
|
asc
|
asc
|
sc
|
sc
|
;; test a10 + m5 + c1
|
;; test a10 + m5 + c1
|
asc
|
asc
|
jmp fail
|
jmp fail
|
skc
|
skc
|
jmp fail
|
jmp fail
|
aisc 16+5 - 16
|
aisc 16+5 - 16
|
nop
|
nop
|
ske
|
ske
|
jmp fail
|
jmp fail
|
|
|
rc
|
rc
|
asc
|
asc
|
asc
|
asc
|
sc
|
sc
|
;; test a15 + m5 + c1
|
;; test a15 + m5 + c1
|
asc
|
asc
|
jmp fail
|
jmp fail
|
skc
|
skc
|
jmp fail
|
jmp fail
|
;; aisc 16+5 - 21
|
;; aisc 16+5 - 21
|
nop
|
nop
|
ske
|
ske
|
jmp fail
|
jmp fail
|
|
|
|
|
rc
|
rc
|
aisc 0xa
|
aisc 0xa
|
x 0x0
|
x 0x0
|
clra
|
clra
|
;; test a0 + m15 + c0
|
;; test a0 + m15 + c0
|
asc
|
asc
|
jmp ok_a0_m15_c0_carry
|
jmp ok_a0_m15_c0_carry
|
jmp fail
|
jmp fail
|
ok_a0_m15_c0_carry:
|
ok_a0_m15_c0_carry:
|
skc
|
skc
|
jmp ok_a0_m15_c0_c
|
jmp ok_a0_m15_c0_c
|
jmp fail
|
jmp fail
|
ok_a0_m15_c0_c:
|
ok_a0_m15_c0_c:
|
ske
|
ske
|
jmp fail
|
jmp fail
|
|
|
rc
|
rc
|
;; test a15 + m15 + c0
|
;; test a15 + m15 + c0
|
asc
|
asc
|
jmp fail
|
jmp fail
|
skc
|
skc
|
jmp fail
|
jmp fail
|
aisc 16+15 - 30
|
aisc 16+15 - 30
|
nop
|
nop
|
ske
|
ske
|
jmp fail
|
jmp fail
|
|
|
sc
|
sc
|
clra
|
clra
|
;; test a0 + m15 + c1
|
;; test a0 + m15 + c1
|
asc
|
asc
|
jmp fail
|
jmp fail
|
skc
|
skc
|
jmp fail
|
jmp fail
|
aisc 16+15 - 16
|
aisc 16+15 - 16
|
nop
|
nop
|
ske
|
ske
|
jmp fail
|
jmp fail
|
|
|
sc
|
sc
|
;; test a15 + m15 + c1
|
;; test a15 + m15 + c1
|
asc
|
asc
|
jmp fail
|
jmp fail
|
skc
|
skc
|
jmp fail
|
jmp fail
|
;; aisc 16+15 - 31
|
;; aisc 16+15 - 31
|
nop
|
nop
|
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.