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

Subversion Repositories t48

[/] [t48/] [tags/] [rel_1_1/] [sw/] [verif/] [black_box/] [orld/] [test.asm] - Blame information for rev 292

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 246 arniml 
        ;; *******************************************************************
2 
        ;; $Id: test.asm,v 1.1 2006-07-11 23:42:19 arniml Exp $
3 
        ;;
4 
        ;; Test ORLD.
5 
        ;; *******************************************************************
6 
 
7 
        INCLUDE "cpu.inc"
8 
        INCLUDE "pass_fail.inc"
9 
 
10 
        ORG     0
11 
 
12 
        ;; Start of test
13 
 
14 
        ;; port 4
15 
        mov     a, #000h
16 
        movd    p4, a
17 
        mov     a, #001h
18 
        orld    p4, a
19 
        cpl     a
20 
        movd    a, p6
21 
        xrl     a, #001h
22 
        jnz     fail
23 
        movd    a, p4
24 
        xrl     a, #001h
25 
        jnz     fail
26 
 
27 
        mov     a, #00eh
28 
        orld    p4, a
29 
        movd    a, p6
30 
        xrl     a, #00fh
31 
        jnz     fail
32 
        movd    a, p4
33 
        xrl     a, #00fh
34 
        jnz     fail
35 
 
36 
        ;; port 5
37 
        mov     a, #000h
38 
        movd    p5, a
39 
        mov     a, #006h
40 
        orld    p5, a
41 
        cpl     a
42 
        movd    a, p7
43 
        xrl     a, #006h
44 
        jnz     fail
45 
        movd    a, p5
46 
        xrl     a, #006h
47 
        jnz     fail
48 
 
49 
        mov     a, #003h
50 
        orld    p5, a
51 
        movd    a, p7
52 
        xrl     a, #007h
53 
        jnz     fail
54 
        movd    a, p5
55 
        xrl     a, #007h
56 
        jnz     fail
57 
 
58 
        ;; port 6
59 
        mov     a, #000h
60 
        movd    p6, a
61 
        mov     a, #009h
62 
        orld    p6, a
63 
        cpl     a
64 
        movd    a, p4
65 
        xrl     a, #009h
66 
        jnz     fail
67 
        movd    a, p6
68 
        xrl     a, #009h
69 
        jnz     fail
70 
 
71 
        mov     a, #006h
72 
        orld    p6, a
73 
        movd    a, p4
74 
        xrl     a, #00fh
75 
        jnz     fail
76 
        movd    a, p6
77 
        xrl     a, #00fh
78 
        jnz     fail
79 
        jmp     pass
80 
 
81 
        ;; port 7
82 
        mov     a, #000h
83 
        movd    p7, a
84 
        mov     a, #004h
85 
        orld    p7, a
86 
        cpl     a
87 
        movd    a, p5
88 
        xrl     a, #004h
89 
        jnz     fail
90 
        movd    a, p7
91 
        xrl     a, #004h
92 
        jnz     fail
93 
 
94 
        mov     a, #00ah
95 
        orld    p7, a
96 
        movd    a, p5
97 
        xrl     a, #00eh
98 
        jnz     fail
99 
        movd    a, p7
100 
        xrl     a, #00eh
101 
        jnz     fail
102 
 
103 
 
104 
        jmp     pass
105 
 
106 
        jmp     fail
107 
pass:   PASS
108 
 
109 
fail:   FAIL

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.