URL
https://opencores.org/ocsvn/t400/t400/trunk
Subversion Repositories t400
[/] [t400/] [tags/] [rel_1_1/] [sw/] [verif/] [black_box/] [ske/] [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 SKE instruction.
;;
;; the cpu type is defined on asl's command line
org 0x00
clra
;; test 0 == 0
x 0x0
clra
ske
jmp fail
;; test 5 == 5
clra
aisc 0x5
x 0x0
ld 0x0
ske
jmp fail
;; test a == a
clra
aisc 0xa
x 0x0
ld 0x0
ske
jmp fail
;; test f == f
clra
aisc 0xf
x 0x0
ld 0x0
ske
jmp fail
;; test 0 == f
clra
ske
jmp ok_0_ne_f
jmp fail
ok_0_ne_f:
;; test f == 0
x 0x0
ske
jmp ok_f_ne_0
jmp fail
ok_f_ne_0:
jmp pass
org 0x100
include "pass_fail.asm"