URL
https://opencores.org/ocsvn/t400/t400/trunk
Subversion Repositories t400
Compare Revisions
- This comparison shows the changes necessary to convert path
/
- from Rev 78 to Rev 79
- ↔ Reverse comparison
Rev 78 → Rev 79
/trunk/sw/verif/include/int_macros.inc
1,11 → 1,30
;; ******************************************************************* |
;; $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. |
;; |
|
;; ------------------------------------------------------------------- |
;; 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 |
lbi 3, 15 |
;; request nibble 0 of SA |
ogi 0x0 |
inl |
43,3 → 62,20
jmp fail |
|
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 |