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

Subversion Repositories t400

[/] [t400/] [trunk/] [sw/] [verif/] [int/] [sequence/] [test.asm] - Blame information for rev 179

Details | Compare with Previous | View Log


        ;; *******************************************************************
        ;; $Id: test.asm 179 2009-04-01 19:48:38Z arniml $
        ;;
        ;; Checks interrupt on a sequence of "transfer of control"
        ;; instructions.
        ;;
 
        ;; the cpu type is defined on asl's command line
 
        include "int_macros.inc"
 
        org     0x00
        clra
 
        int_flag_clear
        lei     0x02
        jp      int_mark
 
        org     0x030
int_mark:
        nop
        nop
int_instr:
        jmp     +
+       jp      +
+       jsrp    jsrp_target
        jsr     jsrp_target
        lqid
        nop
ret_instr:
        jmp     +
        org     0x040
+       int_flag_check
        jmp     pass
 
 
        org     0x080
jsrp_target:
        ret
 
 
 
        ;; *******************************************************************
        ;; Interrupt routine
        ;;
        org     0x0fd
        jmp     fail
int_routine:
        nop
        save_a_m_c
        int_flag_set
        check_sa        ret_instr
        restore_c_m_a
        ret
 
 
        org     0x200
        include "int_pass_fail.asm"

Line No.	Rev	Author	Line
1	100	arniml	`;; *******************************************************************`
2	179	arniml	`;; $Id: test.asm 179 2009-04-01 19:48:38Z arniml $`
3	100	arniml	`;;`
4			`;; Checks interrupt on a sequence of "transfer of control"`
5			`;; instructions.`
6			`;;`
7
8			`;; the cpu type is defined on asl's command line`
9
10			`include "int_macros.inc"`
11
12			`org 0x00`
13			`clra`
14
15			`int_flag_clear`
16			`lei 0x02`
17			`jp int_mark`
18
19			`org 0x030`
20			`int_mark:`
21			`nop`
22			`nop`
23			`int_instr:`
24			`jmp +`
25			`+ jp +`
26			`+ jsrp jsrp_target`
27			`jsr jsrp_target`
28			`lqid`
29			`nop`
30			`ret_instr:`
31			`jmp +`
32			`org 0x040`
33			`+ int_flag_check`
34			`jmp pass`
35
36
37			`org 0x080`
38			`jsrp_target:`
39			`ret`
40
41
42
43			`;; *******************************************************************`
44			`;; Interrupt routine`
45			`;;`
46			`org 0x0fd`
47			`jmp fail`
48			`int_routine:`
49			`nop`
50			`save_a_m_c`
51			`int_flag_set`
52			`check_sa ret_instr`
53			`restore_c_m_a`
54			`ret`
55
56
57			`org 0x200`
58			`include "int_pass_fail.asm"`

Browse

Tools

Subversion Repositories t400

[/] [t400/] [trunk/] [sw/] [verif/] [int/] [sequence/] [test.asm] - Blame information for rev 179