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

Subversion Repositories t48

[/] [t48/] [tags/] [rel_1_1/] [sw/] [verif/] [black_box/] [add/] [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:16 arniml Exp $
3 
        ;;
4 
        ;; Test ADD A, Rr without carry, RB0 and RB1.
5 
        ;; *******************************************************************
6 
 
7 
        INCLUDE "cpu.inc"
8 
        INCLUDE "pass_fail.inc"
9 
 
10 
        ORG     0
11 
 
12 
        ;; Start of test
13 
        ;; fill RB0
14 
        call    fill
15 
 
16 
        ;; check RB0
17 
        sel     rb0
18 
        call    check
19 
 
20 
        ;; fill RB1
21 
        sel     rb1
22 
        call    fill
23 
        sel     rb0
24 
 
25 
        ;; clear RB0
26 
        mov     r0, #007H
27 
        clr     a
28 
clr_loop:
29 
        mov     @r0, a
30 
        djnz    r0, clr_loop
31 
 
32 
        ;; check RB1
33 
        sel     rb1
34 
        call    check
35 
 
36 
        ;; check RB0 for all 0
37 
        mov     r0, #000H
38 
        mov     r1, #008H
39 
chk0_loop:
40 
        mov     a, @r0
41 
        jnz     fail
42 
        inc     r0
43 
        djnz    r1, chk0_loop
44 
 
45 
pass:   PASS
46 
 
47 
fail:   FAIL
48 
 
49 
 
50 
        ORG     0300H
51 
fill:   mov     a, #0FEH
52 
        mov     r0, a
53 
        mov     a, #0FDH
54 
        mov     r1, a
55 
        mov     a, #0FBH
56 
        mov     r2, a
57 
        mov     a, #0F7H
58 
        mov     r3, a
59 
        mov     a, #0EFH
60 
        mov     r4, a
61 
        mov     a, #0DFH
62 
        mov     r5, a
63 
        mov     a, #0BFH
64 
        mov     r6, a
65 
        mov     a, #07FH
66 
        mov     r7, a
67 
        ret
68 
 
69 
 
70 
check:  mov     a, #002H
71 
        add     a, r0
72 
        jnz     fail_p3
73 
 
74 
        mov     a, #003H
75 
        add     a, r1
76 
        jnz     fail_p3
77 
 
78 
        mov     a, #005H
79 
        add     a, r2
80 
        jnz     fail_p3
81 
 
82 
        mov     a, #009H
83 
        add     a, r3
84 
        jnz     fail_p3
85 
 
86 
        mov     a, #011H
87 
        add     a, r4
88 
        jnz     fail_p3
89 
 
90 
        mov     a, #021H
91 
        add     a, r5
92 
        jnz     fail_p3
93 
 
94 
        mov     a, #041H
95 
        add     a, r6
96 
        jnz     fail_p3
97 
 
98 
        mov     a, #081H
99 
        add     a, r7
100 
        jnz     fail_p3
101 
 
102 
        ret
103 
 
104 
 
105 
fail_p3:
106 
        FAIL

powered by: WebSVN 2.1.0

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