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.1.1.1 2006-05-06 01:56:45 arniml Exp $
|
;; $Id: test.asm 179 2009-04-01 19:48:38Z arniml $
|
;;
|
;;
|
;; Checks the XOR instruction.
|
;; Checks the XOR 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 5
|
;; preload M with 5
|
aisc 0x5
|
aisc 0x5
|
x 0x0
|
x 0x0
|
;; preload A with 10
|
;; preload A with 10
|
clra
|
clra
|
aisc 0xa
|
aisc 0xa
|
;; test a10 xor m5
|
;; test a10 xor m5
|
xor
|
xor
|
x 0x0
|
x 0x0
|
clra
|
clra
|
aisc 0xf
|
aisc 0xf
|
ske
|
ske
|
jmp fail
|
jmp fail
|
|
|
;; preload M with 10
|
;; preload M with 10
|
clra
|
clra
|
aisc 0xa
|
aisc 0xa
|
x 0x0
|
x 0x0
|
;; preload A with 5
|
;; preload A with 5
|
clra
|
clra
|
aisc 0x5
|
aisc 0x5
|
;; test a5 xor m10
|
;; test a5 xor m10
|
xor
|
xor
|
x 0x0
|
x 0x0
|
clra
|
clra
|
aisc 0xf
|
aisc 0xf
|
ske
|
ske
|
jmp fail
|
jmp fail
|
|
|
;; M has 15
|
;; M has 15
|
;; preload A with 0
|
;; preload A with 0
|
clra
|
clra
|
;; test a0 xor m15
|
;; test a0 xor m15
|
xor
|
xor
|
ske
|
ske
|
jmp fail
|
jmp fail
|
|
|
;; preload M with 0
|
;; preload M with 0
|
clra
|
clra
|
x 0x0
|
x 0x0
|
;; A now has 15
|
;; A now has 15
|
;; test a15 xor m0
|
;; test a15 xor m0
|
xor
|
xor
|
x 0x0
|
x 0x0
|
clra
|
clra
|
aisc 0xf
|
aisc 0xf
|
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.