URL
https://opencores.org/ocsvn/t400/t400/trunk
[/] [t400/] [trunk/] [sw/] [verif/] [include/] [int_macros.inc] - Diff between revs 77 and 79
Go to most recent revision |
Show entire file |
Details |
Blame |
View Log
Rev 77 |
Rev 79 |
Line 1... |
Line 1... |
;; *******************************************************************
|
;; *******************************************************************
|
;; $Id: int_macros.inc,v 1.1 2006-05-28 02:49:30 arniml Exp $
|
;; $Id: int_macros.inc,v 1.2 2006-05-28 13:18:36 arniml Exp $
|
;;
|
;;
|
;; Defines macros for interrupt tests.
|
;; Defines macros for interrupt tests.
|
;;
|
;;
|
|
|
|
;; -------------------------------------------------------------------
|
|
;; Save current A, M and C to M(3,15), M(3,14) and M(3,13).
|
|
;;
|
|
save_m_c MACRO
|
|
xad 3, 15 ; save A to M(3,15)
|
|
|
|
x 0 ; save current M
|
|
xad 3, 14 ; to M(3,14)
|
|
|
|
smb 0x0 ; save C
|
|
skc ; to M(3,13)
|
|
rmb 0x0 ;
|
|
x 0 ;
|
|
xad 3, 13 ;
|
|
ENDM
|
|
|
|
|
|
;; -------------------------------------------------------------------
|
|
;; Check SA against specified address
|
|
;;
|
check_sa MACRO addr
|
check_sa MACRO addr
|
lbi 3, 15
|
|
;; request nibble 0 of SA
|
;; request nibble 0 of SA
|
ogi 0x0
|
ogi 0x0
|
inl
|
inl
|
;; check this nibble
|
;; check this nibble
|
x 0
|
x 0
|
Line 41... |
Line 60... |
ENDIF
|
ENDIF
|
ske
|
ske
|
jmp fail
|
jmp fail
|
|
|
ENDM
|
ENDM
|
|
|
|
|
|
;; -------------------------------------------------------------------
|
|
;; Restore C, M and A from M(3,13), M(3,14) and M(3,15)
|
|
;;
|
|
restore_c_m MACRO
|
|
xad 3, 13 ; restore C
|
|
x 0 ; from M(3,13)
|
|
rc ;
|
|
skmbz 0x0 ;
|
|
sc ;
|
|
|
|
xad 3, 14 ; restore current M
|
|
x 0 ; from M(3,14)
|
|
|
|
xad 3, 15 ; restore A
|
|
ENDM
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.