URL
https://opencores.org/ocsvn/t400/t400/trunk
Subversion Repositories t400
[/] [t400/] [tags/] [rel_1_1/] [sw/] [verif/] [black_box/] [cab_cba/] [test.asm] - Rev 176
Compare with Previous | Blame | View Log
;; *******************************************************************
;; $Id: test.asm,v 1.1.1.1 2006-05-06 01:56:45 arniml Exp $
;;
;; Checks the CAB & CBA instructions.
;;
;; the cpu type is defined on asl's command line
org 0x00
clra
;; preload data memory with mismtach values
stii 0xf
stii 0xe
stii 0xd
stii 0xc
stii 0xb
stii 0xa
stii 0x9
stii 0x8
stii 0x7
stii 0x6
stii 0x5
stii 0x4
stii 0x3
stii 0x2
stii 0x1
stii 0x0
;; test value 0
cab
x 0x0
cba
ske
jmp fail
;; test value 1
clra
aisc 0x1
nop
cab
x 0x0
cba
ske
jmp fail
;; test value 2
clra
aisc 0x2
nop
cab
x 0x0
cba
ske
jmp fail
;; test value 3
clra
aisc 0x3
nop
cab
x 0x0
cba
ske
jmp fail
;; test value 4
clra
aisc 0x4
nop
cab
x 0x0
cba
ske
jmp fail
;; test value 5
clra
aisc 0x5
nop
cab
x 0x0
cba
ske
jmp fail
;; test value 6
clra
aisc 0x6
nop
cab
x 0x0
cba
ske
jmp fail
;; test value 7
clra
aisc 0x7
nop
cab
x 0x0
cba
ske
jmp fail
;; test value 8
clra
aisc 0x8
nop
cab
x 0x0
cba
ske
jmp fail
;; test value 9
clra
aisc 0x9
nop
cab
x 0x0
cba
ske
jmp fail
;; test value 10
clra
aisc 0xa
nop
cab
x 0x0
cba
ske
jmp fail
;; test value 11
clra
aisc 0xb
nop
cab
x 0x0
cba
ske
jmp fail
;; test value 12
clra
aisc 0xc
nop
cab
x 0x0
cba
ske
jmp fail
;; test value 13
clra
aisc 0xd
nop
cab
x 0x0
cba
ske
jmp fail
;; test value 14
clra
aisc 0xe
nop
cab
x 0x0
cba
ske
jmp fail
;; test value 15
clra
aisc 0xf
nop
cab
x 0x0
cba
ske
jmp fail
jmp pass
org 0x100
include "pass_fail.asm"