URL
https://opencores.org/ocsvn/t48/t48/trunk
Subversion Repositories t48
[/] [t48/] [tags/] [rel_0_6_beta/] [sw/] [verif/] [black_box/] [psw/] [test.asm] - Rev 292
Compare with Previous | Blame | View Log
;; *******************************************************************
;; $Id: test.asm,v 1.2 2004-03-29 20:09:50 arniml Exp $
;;
;; Test several commands related to PSW.
;; *******************************************************************
INCLUDE "cpu.inc"
INCLUDE "pass_fail.inc"
ORG 0
;; Start of test
mov a, psw
anl a, #0F7H
jnz fail
dec a
mov psw, a
mov a, psw
inc a
jnz fail
mov psw, a
mov a, psw
anl a, #0F7H
jnz fail
cpl f0
jf0 ok_1
jmp fail
ok_1: mov a, psw
anl a, #~040H ; mask AC, tested separately with DA
add a, #(~028H + 1) & 0FFH
jnz fail
clr f0
jnc fail
mov a, psw
anl a, #~040H ; mask AC, tested separately with DA
add a, #(~088H + 1) & 0FFH
jnz fail
clr c
jc fail
sel rb1
mov a, psw
anl a, #~040H ; mask AC, tested separately with DA
add a, #(~018H + 1) & 0FFH
jnz fail
cpl c
jc fail
sel rb0
mov a, psw
anl a, #~040H ; mask AC, tested separately with DA
add a, #(~08H + 1) & 0FFH
jnz fail
pass: PASS
fail: FAIL