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

Subversion Repositories t48

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

Details | Compare with Previous | View Log


        ;; *******************************************************************
        ;; $Id: test.asm,v 1.1 2004-05-01 11:56:57 arniml Exp $
        ;;
        ;; Test Expander port functionality.
        ;; *******************************************************************
 
        INCLUDE "cpu.inc"
        INCLUDE "pass_fail.inc"
 
        ORG     0
 
        ;; Start of test
        mov     a, #00AH
        movd    p4, a
        mov     a, #005H
        movd    p5, a
        mov     a, #00BH
        movd    p6, a
        mov     a, #000H
        movd    p7, a
 
        ;; check P4
        movd    a, p4
        orl     a, #0F5H
        inc     a
        ;jnz    fail
        mov     a, #0F5H
        orld    p4, a
        movd    a, p4
        inc     a
        ;jnz    fail
        mov     a, #0FEH
        anld    p4, a
        movd    a, p4
        add     a, #0F2H
        ;jnz    fail
 
        ;; check P5
        movd    a, p5
        orl     a, #0FAH
        inc     a
        ;jnz    fail
        mov     a, #0FAH
        orld    p5, a
        movd    a, p5
        inc     a
        ;jnz    fail
        mov     a, #0FDH
        anld    p5, a
        movd    a, p5
        add     a, #0F3H
        ;jnz    fail
 
        ;; check P6
        movd    a, p6
        orl     a, #0F4H
        inc     a
        ;jnz    fail
        mov     a, #0F4H
        orld    p6, a
        movd    a, p6
        inc     a
        ;jnz    fail
        mov     a, #0F8H
        anld    p6, a
        movd    a, p6
        add     a, #0F8H
        ;jnz    fail
 
        ;; check P7
        movd    a, p7
        orl     a, #0FFH
        inc     a
        ;jnz    fail
        mov     a, #0FFH
        orld    p7, a
        movd    a, p7
        inc     a
        ;jnz    fail
        mov     a, #0F7H
        anld    p7, a
        movd    a, p7
        add     a, #0F9H
        ;jnz    fail
 
pass:   PASS
 
fail:   FAIL

Line No.	Rev	Author	Line
1	85	arniml	`;; *******************************************************************`
2			`;; $Id: test.asm,v 1.1 2004-05-01 11:56:57 arniml Exp $`
3			`;;`
4			`;; Test Expander port functionality.`
5			`;; *******************************************************************`
6
7			`INCLUDE "cpu.inc"`
8			`INCLUDE "pass_fail.inc"`
9
10			`ORG 0`
11
12			`;; Start of test`
13			`mov a, #00AH`
14			`movd p4, a`
15			`mov a, #005H`
16			`movd p5, a`
17			`mov a, #00BH`
18			`movd p6, a`
19			`mov a, #000H`
20			`movd p7, a`
21
22			`;; check P4`
23			`movd a, p4`
24			`orl a, #0F5H`
25			`inc a`
26			`;jnz fail`
27			`mov a, #0F5H`
28			`orld p4, a`
29			`movd a, p4`
30			`inc a`
31			`;jnz fail`
32			`mov a, #0FEH`
33			`anld p4, a`
34			`movd a, p4`
35			`add a, #0F2H`
36			`;jnz fail`
37
38			`;; check P5`
39			`movd a, p5`
40			`orl a, #0FAH`
41			`inc a`
42			`;jnz fail`
43			`mov a, #0FAH`
44			`orld p5, a`
45			`movd a, p5`
46			`inc a`
47			`;jnz fail`
48			`mov a, #0FDH`
49			`anld p5, a`
50			`movd a, p5`
51			`add a, #0F3H`
52			`;jnz fail`
53
54			`;; check P6`
55			`movd a, p6`
56			`orl a, #0F4H`
57			`inc a`
58			`;jnz fail`
59			`mov a, #0F4H`
60			`orld p6, a`
61			`movd a, p6`
62			`inc a`
63			`;jnz fail`
64			`mov a, #0F8H`
65			`anld p6, a`
66			`movd a, p6`
67			`add a, #0F8H`
68			`;jnz fail`
69
70			`;; check P7`
71			`movd a, p7`
72			`orl a, #0FFH`
73			`inc a`
74			`;jnz fail`
75			`mov a, #0FFH`
76			`orld p7, a`
77			`movd a, p7`
78			`inc a`
79			`;jnz fail`
80			`mov a, #0F7H`
81			`anld p7, a`
82			`movd a, p7`
83			`add a, #0F9H`
84			`;jnz fail`
85
86			`pass: PASS`
87
88			`fail: FAIL`

Browse

Tools

Subversion Repositories t48

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