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

Subversion Repositories t400

[/] [t400/] [trunk/] [sw/] [verif/] [int/] [jid/] [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 JID.
        ;;
 
        ;; the cpu type is defined on asl's command line
 
        include "int_macros.inc"
 
        org     0x00
        clra
 
        int_flag_clear
        lei     0x02
 
        ;; prepare JID
        clra
        x       0
        clra
        aisc    0x4
 
        jp      int_mark
 
        org     0x030
int_mark:
        nop
        nop
int_instr:
        jid
 
 
        ;; -------------------------------------------------------------------
        ;; JID table
        ;;
        org     0x040
        db      0x060
 
 
        org     0x05e
        jmp     fail
        org     0x060
        nop
ret_instr:
        int_flag_check
        jmp     pass
 
 
        ;; *******************************************************************
        ;; 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	95	arniml	`;; *******************************************************************`
2	179	arniml	`;; $Id: test.asm 179 2009-04-01 19:48:38Z arniml $`
3	95	arniml	`;;`
4			`;; Checks interrupt on JID.`
5			`;;`
6
7			`;; the cpu type is defined on asl's command line`
8
9			`include "int_macros.inc"`
10
11			`org 0x00`
12			`clra`
13
14			`int_flag_clear`
15			`lei 0x02`
16
17			`;; prepare JID`
18			`clra`
19			`x 0`
20			`clra`
21			`aisc 0x4`
22
23			`jp int_mark`
24
25			`org 0x030`
26			`int_mark:`
27			`nop`
28			`nop`
29			`int_instr:`
30			`jid`
31
32
33			`;; -------------------------------------------------------------------`
34			`;; JID table`
35			`;;`
36			`org 0x040`
37			`db 0x060`
38
39
40			`org 0x05e`
41			`jmp fail`
42			`org 0x060`
43			`nop`
44			`ret_instr:`
45			`int_flag_check`
46			`jmp pass`
47
48
49			`;; *******************************************************************`
50			`;; Interrupt routine`
51			`;;`
52			`org 0x0fd`
53			`jmp fail`
54			`int_routine:`
55			`nop`
56			`save_a_m_c`
57			`int_flag_set`
58			`check_sa ret_instr`
59			`restore_c_m_a`
60			`ret`
61
62
63			`org 0x200`
64			`include "int_pass_fail.asm"`

Browse

Tools

Subversion Repositories t400

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