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

Subversion Repositories t400

[/] [t400/] [trunk/] [sw/] [verif/] [include/] [int_macros.inc] - Blame information for rev 77

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 77 arniml 
        ;; *******************************************************************
2 
        ;; $Id: int_macros.inc,v 1.1 2006-05-28 02:49:30 arniml Exp $
3 
        ;;
4 
        ;; Defines macros for interrupt tests.
5 
        ;;
6 
 
7 
check_sa        MACRO   addr
8 
        lbi     3, 15
9 
        ;; request nibble 0 of SA
10 
        ogi     0x0
11 
        inl
12 
        ;; check this nibble
13 
        x       0
14 
        clra
15 
        IF      addr & 0xf <> 0
16 
        aisc    addr & 0xf
17 
        ENDIF
18 
        ske
19 
        jmp     fail
20 
 
21 
        ;; request nibble 1 of SA
22 
        ogi     0x1
23 
        inl
24 
        ;; check this nibble
25 
        x       0
26 
        clra
27 
        IF      addr & 0x0f0 <> 0
28 
        aisc    (addr >> 4) & 0xf
29 
        ENDIF
30 
        ske
31 
        jmp     fail
32 
 
33 
        ;; request nibble 2 of SA
34 
        ogi     0x2
35 
        inl
36 
        ;; check this nibble
37 
        x       0
38 
        clra
39 
        IF      addr & 0xf00 <> 0
40 
        aisc    (addr >> 8) & 0xf
41 
        ENDIF
42 
        ske
43 
        jmp     fail
44 
 
45 
        ENDM

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.