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

Subversion Repositories t48

[/] [t48/] [tags/] [rel_0_6__beta/] [sw/] [verif/] [black_box/] [djnz/] [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:17 arniml Exp $
3 
        ;;
4 
        ;; Test DJNZ Rr, addr
5 
        ;; *******************************************************************
6 
 
7 
        INCLUDE "cpu.inc"
8 
        INCLUDE "pass_fail.inc"
9 
 
10 
        ORG     0
11 
 
12 
        ;; Start of test
13 
        mov     r0, #003H
14 
        mov     a, #000H
15 
        djnz    r0, r0_2
16 
        jmp     fail
17 
 
18 
r0_2:   djnz    r0, r0_1
19 
        jmp     fail
20 
r0_1:   mov     a, #0FFH
21 
        djnz    r0, fail
22 
 
23 
 
24 
        mov     r1, #000H
25 
        mov     r2, #000H
26 
r1_loop:
27 
        mov     a, r2
28 
        add     a, r1
29 
        jnz     fail
30 
        inc     r2
31 
        djnz    r1, r1_loop
32 
 
33 
        mov     a, r1
34 
        jnz     fail
35 
 
36 
 
37 
        mov     a, #002H
38 
        mov     r3, a
39 
        mov     r4, a
40 
        mov     r5, a
41 
        djnz    r5, ok_r5
42 
        jmp     fail
43 
ok_r5:  djnz    r4, ok_r4
44 
        jmp     fail
45 
ok_r4:  djnz    r3, ok_r3
46 
        jmp     fail
47 
 
48 
ok_r3:  djnz    r3, fail
49 
        djnz    r4, fail
50 
        djnz    r5, fail
51 
 
52 
pass:   PASS
53 
 
54 
fail:   FAIL

powered by: WebSVN 2.1.0

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