URL
https://opencores.org/ocsvn/t400/t400/trunk
Subversion Repositories t400
[/] [t400/] [tags/] [rel_1_1/] [sw/] [verif/] [black_box/] [asc/] [test.asm] - Rev 172
Go to most recent revision | Compare with Previous | Blame | View Log
;; *******************************************************************
;; $Id: test.asm,v 1.2 2006-05-16 23:43:45 arniml Exp $
;;
;; Checks the ASC instruction.
;;
;; the cpu type is defined on asl's command line
org 0x00
clra
;; preload M with 0x5
rmb 0x3
smb 0x2
rmb 0x1
smb 0x0
clra
rc
;; test a0 + m5 + c0
asc
jmp ok_a0_m5_c0_carry
jmp fail
ok_a0_m5_c0_carry:
skc
jmp ok_a0_m5_c0_c
jmp fail
ok_a0_m5_c0_c:
ske
jmp fail
;; test a5 + m5 + c0
asc
jmp ok_a5_m5_c0_carry
jmp fail
ok_a5_m5_c0_carry:
skc
jmp ok_a5_m5_c0_c
jmp fail
ok_a5_m5_c0_c:
aisc 16+5 - 10
nop
ske
jmp fail
rc
asc
;; test a10 + m5 + c0
asc
jmp ok_a10_m5_c0_carry
jmp fail
ok_a10_m5_c0_carry:
skc
jmp ok_a10_m5_c0_c
jmp fail
ok_a10_m5_c0_c:
aisc 16+5 - 15
nop
ske
jmp fail
rc
asc
asc
;; test a15 + m5 + c0
asc
jmp fail
skc
jmp fail
rc
aisc 16+5 - 20
nop
ske
jmp fail
sc
clra
;; test a0 + m5 + c1
asc
jmp ok_a0_m5_c1_carry
jmp fail
ok_a0_m5_c1_carry:
skc
jmp ok_a0_m5_c1_c
jmp fail
ok_a0_m5_c1_c:
aisc 16+5 - 6
nop
ske
jmp fail
sc
;; test a5 + m5 + c1
asc
jmp ok_a5_m5_c1_carry
jmp fail
ok_a5_m5_c1_carry:
skc
jmp ok_a5_m5_c1_c
jmp fail
ok_a5_m5_c1_c:
aisc 16+5 - 11
nop
ske
jmp fail
rc
asc
sc
;; test a10 + m5 + c1
asc
jmp fail
skc
jmp fail
aisc 16+5 - 16
nop
ske
jmp fail
rc
asc
asc
sc
;; test a15 + m5 + c1
asc
jmp fail
skc
jmp fail
;; aisc 16+5 - 21
nop
ske
jmp fail
rc
aisc 0xa
x 0x0
clra
;; test a0 + m15 + c0
asc
jmp ok_a0_m15_c0_carry
jmp fail
ok_a0_m15_c0_carry:
skc
jmp ok_a0_m15_c0_c
jmp fail
ok_a0_m15_c0_c:
ske
jmp fail
rc
;; test a15 + m15 + c0
asc
jmp fail
skc
jmp fail
aisc 16+15 - 30
nop
ske
jmp fail
sc
clra
;; test a0 + m15 + c1
asc
jmp fail
skc
jmp fail
aisc 16+15 - 16
nop
ske
jmp fail
sc
;; test a15 + m15 + c1
asc
jmp fail
skc
jmp fail
;; aisc 16+15 - 31
nop
ske
jmp fail
jmp pass
org 0x100
include "pass_fail.asm"
Go to most recent revision | Compare with Previous | Blame | View Log