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

Subversion Repositories t48

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

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 39 arniml 
        ;; *******************************************************************
2 42 arniml 
        ;; $Id: test.asm,v 1.2 2004-04-06 18:12:57 arniml Exp $
3 39 arniml 
        ;;
4 
        ;; Test XCHD A, @ Rr.
5 
        ;; *******************************************************************
6 
 
7 
        INCLUDE "cpu.inc"
8 
        INCLUDE "pass_fail.inc"
9 
 
10 
testR0R1        MACRO   pos
11 
        inc     r0
12 
        inc     r1
13 
        mov     a, @r0
14 
        cpl     a
15 42 arniml 
        add     a, #((~((pos+7) # 8) << 4) & 0F0H) | (pos & 00FH)
16 39 arniml 
        cpl     a
17 
        jnz     fail
18 
        mov     a, @r1
19 
        cpl     a
20 42 arniml 
        add     a, #((~((pos+7) # 8) << 4) & 0F0H) | (pos & 00FH)
21 39 arniml 
        cpl     a
22 
        jnz     fail
23 
        ENDM
24 
 
25 
        ORG     0
26 
 
27 
        ;; Start of test
28 
        mov     r0, #010H
29 
        mov     r1, #020H
30 42 arniml 
        mov     a, #0F0H
31 39 arniml 
        mov     @r0, a
32 
        mov     @r1, a
33 
        inc     r0
34 
        inc     r1
35 42 arniml 
        mov     a, #0E1H
36 39 arniml 
        mov     @r0, a
37 
        mov     @r1, a
38 
        inc     r0
39 
        inc     r1
40 42 arniml 
        mov     a, #0D2H
41 39 arniml 
        mov     @r0, a
42 
        mov     @r1, a
43 
        inc     r0
44 
        inc     r1
45 42 arniml 
        mov     a, #0C3H
46 39 arniml 
        mov     @r0, a
47 
        mov     @r1, a
48 
        inc     r0
49 
        inc     r1
50 42 arniml 
        mov     a, #0B4H
51 39 arniml 
        mov     @r0, a
52 
        mov     @r1, a
53 
        inc     r0
54 
        inc     r1
55 42 arniml 
        mov     a, #0A5H
56 39 arniml 
        mov     @r0, a
57 
        mov     @r1, a
58 
        inc     r0
59 
        inc     r1
60 42 arniml 
        mov     a, #096H
61 39 arniml 
        mov     @r0, a
62 
        mov     @r1, a
63 
        inc     r0
64 
        inc     r1
65 42 arniml 
        mov     a, #087H
66 39 arniml 
        mov     @r0, a
67 
        mov     @r1, a
68 
 
69 
        dec     r0
70 
        xchd    a, @r0
71 
        dec     r0
72 
        xchd    a, @r0
73 
        dec     r0
74 
        xchd    a, @r0
75 
        dec     r0
76 
        xchd    a, @r0
77 
        dec     r0
78 
        xchd    a, @r0
79 
        dec     r0
80 
        xchd    a, @r0
81 
        dec     r0
82 
        xchd    a, @r0
83 
        mov     r0, #017H
84 
        xchd    a, @r0
85 
 
86 
        mov     a, @r1
87 
        dec     r1
88 
        xchd    a, @r1
89 
        dec     r1
90 
        xchd    a, @r1
91 
        dec     r1
92 
        xchd    a, @r1
93 
        dec     r1
94 
        xchd    a, @r1
95 
        dec     r1
96 
        xchd    a, @r1
97 
        dec     r1
98 
        xchd    a, @r1
99 
        dec     r1
100 
        xchd    a, @r1
101 
        mov     r1, #027H
102 
        xchd    a, @r1
103 
 
104 
        jmp     goon
105 
 
106 
        ORG     256
107 
        ;;
108 
goon:   mov     r0, #00FH
109 
        mov     r1, #01FH
110 
        testR0R1        1
111 
        testR0R1        2
112 
        testR0R1        3
113 
        testR0R1        4
114 
        testR0R1        5
115 
        testR0R1        6
116 
        testR0R1        7
117 
        testR0R1        0
118 
 
119 
pass:   PASS
120 
 
121 
fail:   FAIL

powered by: WebSVN 2.1.0

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