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

Subversion Repositories t48

[/] [t48/] [tags/] [rel_1_1/] [sw/] [verif/] [black_box/] [xch/] [ind_rr/] [test.asm] - Blame information for rev 12

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 12 arniml 
        ;; *******************************************************************
2 
        ;; $Id: test.asm,v 1.1.1.1 2004-03-25 22:29:18 arniml Exp $
3 
        ;;
4 
        ;; Test XCH 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 
        add     a, #(~(0FFH - (1 << pos)) + 1) & 0FFH
15 
        jnz     fail
16 
        mov     a, @r1
17 
        add     a, #(~(0FFH - (1 << pos)) + 1) & 0FFH
18 
        jnz     fail
19 
        ENDM
20 
 
21 
        ORG     0
22 
 
23 
        ;; Start of test
24 
        mov     r0, #010H
25 
        mov     r1, #020H
26 
        mov     a, #0FEH
27 
        mov     @r0, a
28 
        mov     @r1, a
29 
        inc     r0
30 
        inc     r1
31 
        mov     a, #0FDH
32 
        mov     @r0, a
33 
        mov     @r1, a
34 
        inc     r0
35 
        inc     r1
36 
        mov     a, #0FBH
37 
        mov     @r0, a
38 
        mov     @r1, a
39 
        inc     r0
40 
        inc     r1
41 
        mov     a, #0F7H
42 
        mov     @r0, a
43 
        mov     @r1, a
44 
        inc     r0
45 
        inc     r1
46 
        mov     a, #0EFH
47 
        mov     @r0, a
48 
        mov     @r1, a
49 
        inc     r0
50 
        inc     r1
51 
        mov     a, #0DFH
52 
        mov     @r0, a
53 
        mov     @r1, a
54 
        inc     r0
55 
        inc     r1
56 
        mov     a, #0BFH
57 
        mov     @r0, a
58 
        mov     @r1, a
59 
        inc     r0
60 
        inc     r1
61 
        mov     a, #07FH
62 
        mov     @r0, a
63 
        mov     @r1, a
64 
 
65 
        dec     r0
66 
        xch     a, @r0
67 
        dec     r0
68 
        xch     a, @r0
69 
        dec     r0
70 
        xch     a, @r0
71 
        dec     r0
72 
        xch     a, @r0
73 
        dec     r0
74 
        xch     a, @r0
75 
        dec     r0
76 
        xch     a, @r0
77 
        dec     r0
78 
        xch     a, @r0
79 
        mov     r0, #017H
80 
        xch     a, @r0
81 
 
82 
        mov     a, @r1
83 
        dec     r1
84 
        xch     a, @r1
85 
        dec     r1
86 
        xch     a, @r1
87 
        dec     r1
88 
        xch     a, @r1
89 
        dec     r1
90 
        xch     a, @r1
91 
        dec     r1
92 
        xch     a, @r1
93 
        dec     r1
94 
        xch     a, @r1
95 
        dec     r1
96 
        xch     a, @r1
97 
        mov     r1, #027H
98 
        xch     a, @r1
99 
 
100 
        jmp     goon
101 
 
102 
        ORG     256
103 
        ;;
104 
goon:   mov     r0, #00FH
105 
        mov     r1, #01FH
106 
        testR0R1        1
107 
        testR0R1        2
108 
        testR0R1        3
109 
        testR0R1        4
110 
        testR0R1        5
111 
        testR0R1        6
112 
        testR0R1        7
113 
        testR0R1        0
114 
 
115 
pass:   PASS
116 
 
117 
fail:   FAIL

powered by: WebSVN 2.1.0

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