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

Subversion Repositories t48

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

Details | Compare with Previous | View Log


        ;; *******************************************************************
        ;; $Id: test.asm,v 1.4 2004-07-03 14:35:11 arniml Exp $
        ;;
        ;; Test Program Memory bank selector with interrupts.
        ;; *******************************************************************
 
        INCLUDE "cpu.inc"
        INCLUDE "pass_fail.inc"
 
        ORG     0
        jmp     start
        ORG     3
        jmp     interrupt & 07FFH
 
        ORG     7
        jmp     fail
 
        ;; Start of test
start:
        sel     mb1
        mov     r0, #000H
        en      i
poll:   jf1     goon1
        djnz    r0, poll
        jmp     fail
goon1:
 
        call    test_mb1 & 07FFH
 
pass:   PASS
 
fail:   FAIL
 
        ORG     0232H
        jmp     fail
interrupt:
        call    trick_mb
        cpl     f1
        retr
 
        ORG     0250H
trick_mb:
        ret
 
        ORG     0260H
        jmp     fail
 
 
        ORG     0A32H
        jmp     fail_hi
        jmp     fail_hi
        jmp     fail_hi
 
        ORG     0A50H
        jmp     fail_hi
 
        ORG     0A60H
test_mb1:
        ret
 
fail_hi:
        FAIL

Line No.	Rev	Author	Line
1	12	arniml	`;; *******************************************************************`
2	122	arniml	`;; $Id: test.asm,v 1.4 2004-07-03 14:35:11 arniml Exp $`
3	12	arniml	`;;`
4			`;; Test Program Memory bank selector with interrupts.`
5			`;; *******************************************************************`
6
7			`INCLUDE "cpu.inc"`
8			`INCLUDE "pass_fail.inc"`
9
10			`ORG 0`
11			`jmp start`
12			`ORG 3`
13			`jmp interrupt & 07FFH`
14
15			`ORG 7`
16			`jmp fail`
17
18			`;; Start of test`
19			`start:`
20	118	arniml	`sel mb1`
21	12	arniml	`mov r0, #000H`
22			`en i`
23	122	arniml	`poll: jf1 goon1`
24	12	arniml	`djnz r0, poll`
25			`jmp fail`
26	122	arniml	`goon1:`
27	12	arniml
28	122	arniml	`call test_mb1 & 07FFH`
29
30	12	arniml	`pass: PASS`
31
32			`fail: FAIL`
33
34	87	arniml	`ORG 0232H`
35			`jmp fail`
36	118	arniml	`interrupt:`
37			`call trick_mb`
38			`cpl f1`
39			`retr`
40	12	arniml
41	118	arniml	`ORG 0250H`
42			`trick_mb:`
43			`ret`
44	87	arniml
45	122	arniml	`ORG 0260H`
46			`jmp fail`
47
48
49	12	arniml	`ORG 0A32H`
50			`jmp fail_hi`
51	118	arniml	`jmp fail_hi`
52			`jmp fail_hi`
53	12	arniml
54	118	arniml	`ORG 0A50H`
55			`jmp fail_hi`
56	12	arniml
57	122	arniml	`ORG 0A60H`
58			`test_mb1:`
59			`ret`
60
61	12	arniml	`fail_hi:`
62			`FAIL`

Browse

Tools

Subversion Repositories t48

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