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

Subversion Repositories t48

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

Go to most recent revision | Details | Compare with Previous | View Log


        ;; *******************************************************************
        ;; $Id: test.asm,v 1.2 2004-05-16 16:25:46 arniml Exp $
        ;;
        ;; Test Counter.
        ;; *******************************************************************
 
        INCLUDE "cpu.inc"
        INCLUDE "pass_fail.inc"
 
        ORG     0
 
        ;; Start of test
        mov     a, #0FEH
        mov     t, a
 
        strt    cnt
        jtf     fail
 
        ;; apply falling edge on T1
        anl     P1, #0FDH
        jtf     fail
        mov     a, t
        cpl     a
        add     a, #0FFH
        cpl     a
        jnz     fail
 
        ;; apply rising edge on T1
        orl     P1, #002H
        jtf     fail
 
        ;; apply falling edge on T1
        anl     P1, #0FDH
        jtf     goon
        jmp     fail
goon:   jtf     fail
        mov     a, t
        jnz     fail
 
        ;; apply rising edge on T1
        orl     P1, #002H
        jtf     fail
 
        ;; apply falling edge on T1
        anl     P1, #0FDH
        jtf     fail
        mov     a, t
        dec     a
        jnz     fail
 
        ;; check inactivity of counter
        stop    tcnt
        mov     a, #0FFH
        mov     t, a
 
        ;; apply rising edge on T1
        orl     P1, #002H
        jtf     fail
        ;; apply falling edge on T1
        anl     P1, #0FDH
        jtf     fail
        ;; apply rising edge on T1
        orl     P1, #002H
        jtf     fail
        ;; apply falling edge on T1
        anl     P1, #0FDH
        jtf     fail
 
        strt    cnt
        ;; apply rising edge on T1
        orl     P1, #002H
        jtf     fail
        ;; apply falling edge on T1
        anl     P1, #0FDH
        jtf     goon2
        jmp     fail
 
goon2:
 
pass:   PASS
 
fail:   FAIL

Line No.	Rev	Author	Line
1	90	arniml	`;; *******************************************************************`
2	95	arniml	`;; $Id: test.asm,v 1.2 2004-05-16 16:25:46 arniml Exp $`
3	90	arniml	`;;`
4			`;; Test Counter.`
5			`;; *******************************************************************`
6
7			`INCLUDE "cpu.inc"`
8			`INCLUDE "pass_fail.inc"`
9
10			`ORG 0`
11
12			`;; Start of test`
13			`mov a, #0FEH`
14			`mov t, a`
15
16			`strt cnt`
17			`jtf fail`
18
19			`;; apply falling edge on T1`
20			`anl P1, #0FDH`
21			`jtf fail`
22			`mov a, t`
23			`cpl a`
24			`add a, #0FFH`
25			`cpl a`
26			`jnz fail`
27
28			`;; apply rising edge on T1`
29			`orl P1, #002H`
30			`jtf fail`
31
32			`;; apply falling edge on T1`
33			`anl P1, #0FDH`
34			`jtf goon`
35			`jmp fail`
36	95	arniml	`goon: jtf fail`
37			`mov a, t`
38	90	arniml	`jnz fail`
39
40			`;; apply rising edge on T1`
41			`orl P1, #002H`
42			`jtf fail`
43
44			`;; apply falling edge on T1`
45			`anl P1, #0FDH`
46			`jtf fail`
47			`mov a, t`
48			`dec a`
49			`jnz fail`
50
51	95	arniml	`;; check inactivity of counter`
52			`stop tcnt`
53			`mov a, #0FFH`
54			`mov t, a`
55
56			`;; apply rising edge on T1`
57			`orl P1, #002H`
58			`jtf fail`
59			`;; apply falling edge on T1`
60			`anl P1, #0FDH`
61			`jtf fail`
62			`;; apply rising edge on T1`
63			`orl P1, #002H`
64			`jtf fail`
65			`;; apply falling edge on T1`
66			`anl P1, #0FDH`
67			`jtf fail`
68
69			`strt cnt`
70			`;; apply rising edge on T1`
71			`orl P1, #002H`
72			`jtf fail`
73			`;; apply falling edge on T1`
74			`anl P1, #0FDH`
75			`jtf goon2`
76			`jmp fail`
77
78			`goon2:`
79
80	90	arniml	`pass: PASS`
81
82			`fail: FAIL`

Browse

Tools

Subversion Repositories t48

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