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

Subversion Repositories t48

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

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 MOVP A, @ A and MOVP3 A, @ A.
5 
        ;; *******************************************************************
6 
 
7 
        INCLUDE "cpu.inc"
8 
        INCLUDE "pass_fail.inc"
9 
 
10 
table   MACRO   data
11 
        DB      data & 0FFH
12 
        ENDM
13 
 
14 
        ORG     0
15 
 
16 
        ;; Start of test
17 
        mov     r1, #008H
18 
 
19 
loop:   mov     a, r1
20 
        dec     a
21 
        call    fetch_table1
22 
        mov     r0, a
23 
 
24 
        mov     a, r1
25 
        dec     a
26 
        call    fetch_table3
27 
 
28 
        add     a, r0
29 
        cpl     a
30 
        jnz     fail
31 
 
32 
        djnz    r1, loop
33 
 
34 
 
35 
pass:   PASS
36 
 
37 
fail:   FAIL
38 
 
39 
 
40 
        ORG     0100H
41 
 
42 
        db      0AFH
43 
        db      033H
44 
        db      0C0H
45 
        db      012H
46 
        db      055H
47 
        db      061H
48 
        db      02BH
49 
        db      0F4H
50 
fetch_table1:
51 
        movp    a, @a
52 
        ret
53 
fetch_table3:
54 
        movp3   a, @a
55 
        ret
56 
 
57 
 
58 
        ORG     0300H
59 
 
60 
        db      050H
61 
        db      0CCH
62 
        db      03FH
63 
        db      0EDH
64 
        db      0AAH
65 
        db      09EH
66 
        db      0D4H
67 
        db      00BH

powered by: WebSVN 2.1.0

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