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

Subversion Repositories t48

[/] [t48/] [tags/] [rel_0_3_beta/] [sw/] [verif/] [white_box/] [p1_port_reg_conflict/] [test.asm] - Blame information for rev 292

Details | Compare with Previous | View Log


        ;; *******************************************************************
        ;; $Id: test.asm,v 1.1 2004-05-17 14:34:41 arniml Exp $
        ;;
        ;; Test P1 conflict for reading port or output register.
        ;; *******************************************************************
 
        INCLUDE "cpu.inc"
        INCLUDE "pass_fail.inc"
 
        ORG     0
 
        ;; Start of test
 
        ;; access testbench peripherals
        mov     r0, #0FFH
        mov     a, #002H
        movx    @r0, a
 
        ;; check functionality of P1 testbench peripheral
        in      a, p1
        inc     a
        jnz     fail
 
        mov     r0, #000H
        ;; extern write 00H to P1
        clr     a
        movx    @r0, a
        in      a, p1
        jnz     fail
        ;; extern write 0AAH to P1
        mov     a, #0AAH
        movx    @r0, a
        clr     a
        in      a, p1
        add     a, #056H
        jnz     fail
        ;; extern write 055H to P1
        mov     a, #055H
        movx    @r0, a
        clr     a
        in      a, p1
        add     a, #0ABH
        jnz     fail
 
        ;; reset extern P1 to 0FFH
        dec     a
        movx    @r0, a
 
        ;;
        ;; Start of real test
        ;;
 
        ;; Test ORL
 
        ;; set internal P1 to 0AAH
        mov     a, #0AAH
        outl    p1, a
        in      a, p1
        add     a, #056H
        jnz     fail
 
        ;; extern write 055H to P1
        mov     a, #055H
        movx    @r0, a
 
        in      a, p1
        jnz     fail
 
        ;; set internal P1 to 0ABH, setting P1[0] to 1
        orl     P1, #001H
        in      a, p1
        dec     a
        jnz     fail
 
        ;; reset extern P1 to 0FFH
        dec     a
        movx    @r0, a
 
        ;; compare P1 vs. 0ABH
        in      a, p1
        cpl     a
        add     a, #0ABH
        cpl     a
        jnz     fail
 
        ;; reset intern P1 to 0FFH
        dec     a
        outl    p1, a
 
        ;; set internal P1 to 055H
        mov     a, #055H
        outl    p1, a
        clr     a
        in      a, p1
        add     a, #0ABH
        jnz     fail
 
        ;; external write 0AAH to P1
        mov     a, #0AAH
        movx    @r0, a
 
        ;; set internal P1 to 054H
        anl     P1, #0FEH
 
        ;; reset extern P1 to 0FFH
        mov     a, #0FFH
        movx    @r0, a
 
        ;; compare P1 vs. 054H
        in      a, p1
        cpl     a
        add     a, #054H
        cpl     a
        jnz     fail
 
 
pass:   PASS
 
fail:   FAIL

Line No.	Rev	Author	Line
1	99	arniml	`;; *******************************************************************`
2			`;; $Id: test.asm,v 1.1 2004-05-17 14:34:41 arniml Exp $`
3			`;;`
4			`;; Test P1 conflict for reading port or output register.`
5			`;; *******************************************************************`
6
7			`INCLUDE "cpu.inc"`
8			`INCLUDE "pass_fail.inc"`
9
10			`ORG 0`
11
12			`;; Start of test`
13
14			`;; access testbench peripherals`
15			`mov r0, #0FFH`
16			`mov a, #002H`
17			`movx @r0, a`
18
19			`;; check functionality of P1 testbench peripheral`
20			`in a, p1`
21			`inc a`
22			`jnz fail`
23
24			`mov r0, #000H`
25			`;; extern write 00H to P1`
26			`clr a`
27			`movx @r0, a`
28			`in a, p1`
29			`jnz fail`
30			`;; extern write 0AAH to P1`
31			`mov a, #0AAH`
32			`movx @r0, a`
33			`clr a`
34			`in a, p1`
35			`add a, #056H`
36			`jnz fail`
37			`;; extern write 055H to P1`
38			`mov a, #055H`
39			`movx @r0, a`
40			`clr a`
41			`in a, p1`
42			`add a, #0ABH`
43			`jnz fail`
44
45			`;; reset extern P1 to 0FFH`
46			`dec a`
47			`movx @r0, a`
48
49			`;;`
50			`;; Start of real test`
51			`;;`
52
53			`;; Test ORL`
54
55			`;; set internal P1 to 0AAH`
56			`mov a, #0AAH`
57			`outl p1, a`
58			`in a, p1`
59			`add a, #056H`
60			`jnz fail`
61
62			`;; extern write 055H to P1`
63			`mov a, #055H`
64			`movx @r0, a`
65
66			`in a, p1`
67			`jnz fail`
68
69			`;; set internal P1 to 0ABH, setting P1[0] to 1`
70			`orl P1, #001H`
71			`in a, p1`
72			`dec a`
73			`jnz fail`
74
75			`;; reset extern P1 to 0FFH`
76			`dec a`
77			`movx @r0, a`
78
79			`;; compare P1 vs. 0ABH`
80			`in a, p1`
81			`cpl a`
82			`add a, #0ABH`
83			`cpl a`
84			`jnz fail`
85
86			`;; reset intern P1 to 0FFH`
87			`dec a`
88			`outl p1, a`
89
90			`;; set internal P1 to 055H`
91			`mov a, #055H`
92			`outl p1, a`
93			`clr a`
94			`in a, p1`
95			`add a, #0ABH`
96			`jnz fail`
97
98			`;; external write 0AAH to P1`
99			`mov a, #0AAH`
100			`movx @r0, a`
101
102			`;; set internal P1 to 054H`
103			`anl P1, #0FEH`
104
105			`;; reset extern P1 to 0FFH`
106			`mov a, #0FFH`
107			`movx @r0, a`
108
109			`;; compare P1 vs. 054H`
110			`in a, p1`
111			`cpl a`
112			`add a, #054H`
113			`cpl a`
114			`jnz fail`
115
116
117			`pass: PASS`
118
119			`fail: FAIL`

Browse

Tools

Subversion Repositories t48

[/] [t48/] [tags/] [rel_0_3_beta/] [sw/] [verif/] [white_box/] [p1_port_reg_conflict/] [test.asm] - Blame information for rev 292