URL
https://opencores.org/ocsvn/t400/t400/trunk
Subversion Repositories t400
[/] [t400/] [tags/] [rel_1_1/] [sw/] [verif/] [black_box/] [xor/] [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 XOR instruction.
;;
;; the cpu type is defined on asl's command line
org 0x00
clra
;; preload M with 5
aisc 0x5
x 0x0
;; preload A with 10
clra
aisc 0xa
;; test a10 xor m5
xor
x 0x0
clra
aisc 0xf
ske
jmp fail
;; preload M with 10
clra
aisc 0xa
x 0x0
;; preload A with 5
clra
aisc 0x5
;; test a5 xor m10
xor
x 0x0
clra
aisc 0xf
ske
jmp fail
;; M has 15
;; preload A with 0
clra
;; test a0 xor m15
xor
ske
jmp fail
;; preload M with 0
clra
x 0x0
;; A now has 15
;; test a15 xor m0
xor
x 0x0
clra
aisc 0xf
ske
jmp fail
jmp pass
org 0x100
include "pass_fail.asm"