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

Subversion Repositories t48

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

Details | Compare with Previous | View Log


        ;; *******************************************************************
        ;; $Id: test.asm,v 1.1.1.1 2004-03-25 22:29:18 arniml Exp $
        ;;
        ;; Test Timer.
        ;; *******************************************************************
 
        INCLUDE "cpu.inc"
        INCLUDE "pass_fail.inc"
 
        ORG     0
 
        ;; Start of test
        mov     a, #0F8H
        mov     t, a
 
        strt    t
        jtf     fail
 
        mov     r0, #000H
poll1:  jtf     goon1
        djnz    r0, poll1
        jmp     fail
 
goon1:  mov     a, t
        jnz     fail
        mov     r0, #000H
poll2:  mov     a, t
        add     a, #0FBH
        jz      goon2
        djnz    r0, poll2
 
goon2:  stop    tcnt
        clr     a
        mov     t, a
        strt    t
 
        mov     a, t
        jnz     fail
 
        nop
        nop
        nop
        nop
        nop
        nop
        nop
        nop
        nop
        nop
        nop
        nop
        nop
        nop
        nop
        nop
        nop
        nop
        nop
        nop
        nop
        nop
        nop
        nop
        nop
        nop
        nop
        nop
        nop
 
        mov     a, t
        dec     a
        jnz     fail
 
        nop
        nop
        nop
        nop
        nop
        nop
        nop
        nop
        nop
        nop
        nop
        nop
        nop
        nop
        nop
        nop
        nop
        nop
        nop
        nop
        nop
        nop
        nop
        nop
        nop
        nop
        nop
        nop
 
        mov     a, t
        dec     a
        dec     a
        jnz     fail
 
pass:   PASS
 
fail:   FAIL

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 Timer.`
5			`;; *******************************************************************`
6
7			`INCLUDE "cpu.inc"`
8			`INCLUDE "pass_fail.inc"`
9
10			`ORG 0`
11
12			`;; Start of test`
13			`mov a, #0F8H`
14			`mov t, a`
15
16			`strt t`
17			`jtf fail`
18
19			`mov r0, #000H`
20			`poll1: jtf goon1`
21			`djnz r0, poll1`
22			`jmp fail`
23
24			`goon1: mov a, t`
25			`jnz fail`
26			`mov r0, #000H`
27			`poll2: mov a, t`
28			`add a, #0FBH`
29			`jz goon2`
30			`djnz r0, poll2`
31
32			`goon2: stop tcnt`
33			`clr a`
34			`mov t, a`
35			`strt t`
36
37			`mov a, t`
38			`jnz fail`
39
40			`nop`
41			`nop`
42			`nop`
43			`nop`
44			`nop`
45			`nop`
46			`nop`
47			`nop`
48			`nop`
49			`nop`
50			`nop`
51			`nop`
52			`nop`
53			`nop`
54			`nop`
55			`nop`
56			`nop`
57			`nop`
58			`nop`
59			`nop`
60			`nop`
61			`nop`
62			`nop`
63			`nop`
64			`nop`
65			`nop`
66			`nop`
67			`nop`
68			`nop`
69
70			`mov a, t`
71			`dec a`
72			`jnz fail`
73
74			`nop`
75			`nop`
76			`nop`
77			`nop`
78			`nop`
79			`nop`
80			`nop`
81			`nop`
82			`nop`
83			`nop`
84			`nop`
85			`nop`
86			`nop`
87			`nop`
88			`nop`
89			`nop`
90			`nop`
91			`nop`
92			`nop`
93			`nop`
94			`nop`
95			`nop`
96			`nop`
97			`nop`
98			`nop`
99			`nop`
100			`nop`
101			`nop`
102
103			`mov a, t`
104			`dec a`
105			`dec a`
106			`jnz fail`
107
108			`pass: PASS`
109
110			`fail: FAIL`

Browse

Tools

Subversion Repositories t48

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