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

Subversion Repositories t48

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

Details | Compare with Previous | View Log


        ;; *******************************************************************
        ;; $Id: test.asm,v 1.2 2004-03-26 22:37:12 arniml Exp $
        ;;
        ;; Test JNZ instruction.
        ;; *******************************************************************
 
        INCLUDE "cpu.inc"
        INCLUDE "pass_fail.inc"
 
        ORG     0
 
        ;; Start of test
        mov     a, #000H
        jnz     fail
 
        mov     a, #001H
        jnz     ok_01
        jmp     fail
 
ok_01:  mov     a, #002H
        jnz     ok_02
        jmp     fail
 
ok_02:  mov     a, #004H
        jnz     ok_04
        jmp     fail
 
ok_04:  mov     a, #008H
        jnz     ok_08
        jmp     fail
 
ok_08:  mov     a, #010H
        jnz     ok_10
        jmp     fail
 
ok_10:  mov     a, #020H
        jnz     ok_20
        jmp     fail
 
ok_20:  mov     a, #040H
        jnz     ok_40
        jmp     fail
 
ok_40:  mov     a, #080H
        jnz     pass
 
fail:   FAIL
 
pass:   PASS

Line No.	Rev	Author	Line
1	12	arniml	`;; *******************************************************************`
2	18	arniml	`;; $Id: test.asm,v 1.2 2004-03-26 22:37:12 arniml Exp $`
3	12	arniml	`;;`
4			`;; Test JNZ instruction.`
5			`;; *******************************************************************`
6
7			`INCLUDE "cpu.inc"`
8			`INCLUDE "pass_fail.inc"`
9
10			`ORG 0`
11
12			`;; Start of test`
13	18	arniml	`mov a, #000H`
14	12	arniml	`jnz fail`
15
16	18	arniml	`mov a, #001H`
17	12	arniml	`jnz ok_01`
18			`jmp fail`
19
20	18	arniml	`ok_01: mov a, #002H`
21	12	arniml	`jnz ok_02`
22			`jmp fail`
23
24	18	arniml	`ok_02: mov a, #004H`
25	12	arniml	`jnz ok_04`
26			`jmp fail`
27
28	18	arniml	`ok_04: mov a, #008H`
29	12	arniml	`jnz ok_08`
30			`jmp fail`
31
32	18	arniml	`ok_08: mov a, #010H`
33	12	arniml	`jnz ok_10`
34			`jmp fail`
35
36	18	arniml	`ok_10: mov a, #020H`
37	12	arniml	`jnz ok_20`
38			`jmp fail`
39
40	18	arniml	`ok_20: mov a, #040H`
41	12	arniml	`jnz ok_40`
42			`jmp fail`
43
44	18	arniml	`ok_40: mov a, #080H`
45	12	arniml	`jnz pass`
46
47			`fail: FAIL`
48
49			`pass: PASS`

Browse

Tools

Subversion Repositories t48

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