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

Subversion Repositories t48

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

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:17 arniml Exp $
3 
        ;;
4 
        ;; Test ANL 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, #(1 << pos)
14 
        anl     a, @r0
15 
        jnz     fail
16 
        mov     a, #0FFH
17 
        anl     a, @r0
18 
        add     a, #(~(0FFH - (1 << pos)) + 1) & 0FFH
19 
        jnz     fail
20 
        mov     a, #(1 << pos)
21 
        anl     a, @r1
22 
        jnz     fail
23 
        mov     a, #0FFH
24 
        anl     a, @r1
25 
        add     a, #(~(0FFH - (1 << pos)) + 1) & 0FFH
26 
        jnz     fail
27 
        ENDM
28 
 
29 
        ORG     0
30 
 
31 
        ;; Start of test
32 
        mov     r0, #010H
33 
        mov     r1, #020H
34 
        mov     a, #0FEH
35 
        mov     @r0, a
36 
        mov     @r1, a
37 
        inc     r0
38 
        inc     r1
39 
        mov     a, #0FDH
40 
        mov     @r0, a
41 
        mov     @r1, a
42 
        inc     r0
43 
        inc     r1
44 
        mov     a, #0FBH
45 
        mov     @r0, a
46 
        mov     @r1, a
47 
        inc     r0
48 
        inc     r1
49 
        mov     a, #0F7H
50 
        mov     @r0, a
51 
        mov     @r1, a
52 
        inc     r0
53 
        inc     r1
54 
        mov     a, #0EFH
55 
        mov     @r0, a
56 
        mov     @r1, a
57 
        inc     r0
58 
        inc     r1
59 
        mov     a, #0DFH
60 
        mov     @r0, a
61 
        mov     @r1, a
62 
        inc     r0
63 
        inc     r1
64 
        mov     a, #0BFH
65 
        mov     @r0, a
66 
        mov     @r1, a
67 
        inc     r0
68 
        inc     r1
69 
        mov     a, #07FH
70 
        mov     @r0, a
71 
        mov     @r1, a
72 
 
73 
        jmp     goon
74 
 
75 
        ORG     256
76 
        ;;
77 
goon:   mov     r0, #00FH
78 
        mov     r1, #01FH
79 
        testR0R1        0
80 
        testR0R1        1
81 
        testR0R1        2
82 
        testR0R1        3
83 
        testR0R1        4
84 
        testR0R1        5
85 
        testR0R1        6
86 
        testR0R1        7
87 
 
88 
pass:   PASS
89 
 
90 
fail:   FAIL

powered by: WebSVN 2.1.0

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