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

Subversion Repositories t48

[/] [t48/] [tags/] [rel_1_0/] [sw/] [verif/] [black_box/] [rl/] [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 RL(C) A.
        ;; *******************************************************************
 
        INCLUDE "cpu.inc"
        INCLUDE "pass_fail.inc"
 
        ORG     0
 
        ;; Start of test
        mov     a, #001H
 
        rl      a
        jb0     fail
        jb1     ok1_1
        jmp     fail
 
ok1_1:  rl      a
        jb1     fail
        jb2     ok1_2
        jmp     fail
 
ok1_2:  rl      a
        jb2     fail
        jb3     ok1_3
        jmp     fail
 
ok1_3:  rl      a
        jb3     fail
        jb4     ok1_4
        jmp     fail
 
ok1_4:  rl      a
        jb4     fail
        jb5     ok1_5
        jmp     fail
 
ok1_5:  rl      a
        jb5     fail
        jb6     ok1_6
        jmp     fail
 
ok1_6:  rl      a
        jb6     fail
        jb7     ok1_7
        jmp     fail
 
ok1_7:  rl      a
        jb7     fail
        jb0     ok2
        jmp     fail
 
 
ok2:    mov     a, #0FEH
        cpl     c
 
        rlc     a
        jb0     ok2_1
        jmp     fail
ok2_1:  jb1     fail
 
        rlc     a
        jb1     ok2_2
        jmp     fail
ok2_2:  jb2     fail
 
        rlc     a
        jb2     ok2_3
        jmp     fail
ok2_3:  jb3     fail
 
        rlc     a
        jb3     ok2_4
        jmp     fail
ok2_4:  jb4     fail
 
        rlc     a
        jb4     ok2_5
        jmp     fail
ok2_5:  jb5     fail
 
        rlc     a
        jb5     ok2_6
        jmp     fail
ok2_6:  jb6     fail
 
        rlc     a
        jb6     ok2_7
        jmp     fail
ok2_7:  jb7     fail
        jnc     fail
 
        rlc     a
        jb7     ok2_8
        jmp     fail
ok2_8:  jc      fail
 
        rlc     a
        jc      ok2_9
        jmp     fail
ok2_9:  jb0     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 RL(C) A.`
5			`;; *******************************************************************`
6
7			`INCLUDE "cpu.inc"`
8			`INCLUDE "pass_fail.inc"`
9
10			`ORG 0`
11
12			`;; Start of test`
13			`mov a, #001H`
14
15			`rl a`
16			`jb0 fail`
17			`jb1 ok1_1`
18			`jmp fail`
19
20			`ok1_1: rl a`
21			`jb1 fail`
22			`jb2 ok1_2`
23			`jmp fail`
24
25			`ok1_2: rl a`
26			`jb2 fail`
27			`jb3 ok1_3`
28			`jmp fail`
29
30			`ok1_3: rl a`
31			`jb3 fail`
32			`jb4 ok1_4`
33			`jmp fail`
34
35			`ok1_4: rl a`
36			`jb4 fail`
37			`jb5 ok1_5`
38			`jmp fail`
39
40			`ok1_5: rl a`
41			`jb5 fail`
42			`jb6 ok1_6`
43			`jmp fail`
44
45			`ok1_6: rl a`
46			`jb6 fail`
47			`jb7 ok1_7`
48			`jmp fail`
49
50			`ok1_7: rl a`
51			`jb7 fail`
52			`jb0 ok2`
53			`jmp fail`
54
55
56			`ok2: mov a, #0FEH`
57			`cpl c`
58
59			`rlc a`
60			`jb0 ok2_1`
61			`jmp fail`
62			`ok2_1: jb1 fail`
63
64			`rlc a`
65			`jb1 ok2_2`
66			`jmp fail`
67			`ok2_2: jb2 fail`
68
69			`rlc a`
70			`jb2 ok2_3`
71			`jmp fail`
72			`ok2_3: jb3 fail`
73
74			`rlc a`
75			`jb3 ok2_4`
76			`jmp fail`
77			`ok2_4: jb4 fail`
78
79			`rlc a`
80			`jb4 ok2_5`
81			`jmp fail`
82			`ok2_5: jb5 fail`
83
84			`rlc a`
85			`jb5 ok2_6`
86			`jmp fail`
87			`ok2_6: jb6 fail`
88
89			`rlc a`
90			`jb6 ok2_7`
91			`jmp fail`
92			`ok2_7: jb7 fail`
93			`jnc fail`
94
95			`rlc a`
96			`jb7 ok2_8`
97			`jmp fail`
98			`ok2_8: jc fail`
99
100			`rlc a`
101			`jc ok2_9`
102			`jmp fail`
103			`ok2_9: jb0 fail`
104
105
106			`pass: PASS`
107
108			`fail: FAIL`

Browse

Tools

Subversion Repositories t48

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