URL https://opencores.org/ocsvn/t48/t48/trunk

Subversion Repositories t48

[/] [t48/] [tags/] [rel_0_6__beta/] [sw/] [verif/] [black_box/] [psw/] [test.asm] - Blame information for rev 333

Go to most recent revision | Details | Compare with Previous | 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

Line No.	Rev	Author	Line
1	12	arniml	`;; *******************************************************************`
2	34	arniml	`;; $Id: test.asm,v 1.2 2004-03-29 20:09:50 arniml Exp $`
3	12	arniml	`;;`
4			`;; Test several commands related to PSW.`
5			`;; *******************************************************************`
6
7			`INCLUDE "cpu.inc"`
8			`INCLUDE "pass_fail.inc"`
9
10			`ORG 0`
11
12			`;; Start of test`
13			`mov a, psw`
14			`anl a, #0F7H`
15			`jnz fail`
16
17			`dec a`
18			`mov psw, a`
19			`mov a, psw`
20			`inc a`
21			`jnz fail`
22
23			`mov psw, a`
24			`mov a, psw`
25			`anl a, #0F7H`
26			`jnz fail`
27
28			`cpl f0`
29			`jf0 ok_1`
30			`jmp fail`
31			`ok_1: mov a, psw`
32	34	arniml	`anl a, #~040H ; mask AC, tested separately with DA`
33	12	arniml	`add a, #(~028H + 1) & 0FFH`
34			`jnz fail`
35
36			`clr f0`
37			`jnc fail`
38			`mov a, psw`
39	34	arniml	`anl a, #~040H ; mask AC, tested separately with DA`
40	12	arniml	`add a, #(~088H + 1) & 0FFH`
41			`jnz fail`
42
43			`clr c`
44			`jc fail`
45			`sel rb1`
46			`mov a, psw`
47	34	arniml	`anl a, #~040H ; mask AC, tested separately with DA`
48	12	arniml	`add a, #(~018H + 1) & 0FFH`
49			`jnz fail`
50
51			`cpl c`
52			`jc fail`
53			`sel rb0`
54			`mov a, psw`
55	34	arniml	`anl a, #~040H ; mask AC, tested separately with DA`
56	12	arniml	`add a, #(~08H + 1) & 0FFH`
57			`jnz fail`
58
59			`pass: PASS`
60
61			`fail: FAIL`

Browse

Tools

Subversion Repositories t48

[/] [t48/] [tags/] [rel_0_6__beta/] [sw/] [verif/] [black_box/] [psw/] [test.asm] - Blame information for rev 333