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

Subversion Repositories t400

[/] [t400/] [trunk/] [sw/] [verif/] [int/] [lqid/] [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 LQID.
        ;;
 
        ;; the cpu type is defined on asl's command line
 
        include "int_macros.inc"
 
        org     0x00
        clra
 
        int_flag_clear
 
        ;; prepare LQID
        clra
        comp
        x       0
        ld      0
        camq
        clra
        x       0
        clra
        aisc    0x5
 
        lei     0x06            ; also enable L output drivers
        jp      int_mark
 
        org     0x030
int_mark:
        nop
        nop
int_instr:
        lqid
        inl                     ; read data from LQID
                                ; lower nibble is OD from DUT
ret_instr:
        ;; disable L output drivers
        lei     0x0
        ;; and check for 0x5 in M
        clra
        aisc    0x5
        ske
        jmp     fail
 
        nop
        int_flag_check
        jmp     pass
 
 
        ;; -------------------------------------------------------------------
        ;; LQID table
        ;;
        org     0x050
        db      0x05f           ; keep low nibble OD inactive
 
 
        ;; *******************************************************************
        ;; 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	96	arniml	`;; *******************************************************************`
2	179	arniml	`;; $Id: test.asm 179 2009-04-01 19:48:38Z arniml $`
3	96	arniml	`;;`
4			`;; Checks interrupt on LQID.`
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
16			`;; prepare LQID`
17			`clra`
18			`comp`
19			`x 0`
20			`ld 0`
21			`camq`
22			`clra`
23			`x 0`
24			`clra`
25			`aisc 0x5`
26
27			`lei 0x06 ; also enable L output drivers`
28			`jp int_mark`
29
30			`org 0x030`
31			`int_mark:`
32			`nop`
33			`nop`
34			`int_instr:`
35			`lqid`
36			`inl ; read data from LQID`
37			`; lower nibble is OD from DUT`
38			`ret_instr:`
39			`;; disable L output drivers`
40			`lei 0x0`
41			`;; and check for 0x5 in M`
42			`clra`
43			`aisc 0x5`
44			`ske`
45			`jmp fail`
46
47			`nop`
48			`int_flag_check`
49			`jmp pass`
50
51
52			`;; -------------------------------------------------------------------`
53			`;; LQID table`
54			`;;`
55			`org 0x050`
56			`db 0x05f ; keep low nibble OD inactive`
57
58
59			`;; *******************************************************************`
60			`;; Interrupt routine`
61			`;;`
62			`org 0x0fd`
63			`jmp fail`
64			`int_routine:`
65			`nop`
66			`save_a_m_c`
67			`int_flag_set`
68			`check_sa ret_instr`
69			`restore_c_m_a`
70			`ret`
71
72
73			`org 0x200`
74			`include "int_pass_fail.asm"`

Browse

Tools

Subversion Repositories t400

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