URL
https://opencores.org/ocsvn/t400/t400/trunk
Go to most recent revision |
Show entire file |
Details |
Blame |
View Log
Rev 85 |
Rev 94 |
Line 1... |
Line 1... |
;; *******************************************************************
|
;; *******************************************************************
|
;; $Id: test.asm,v 1.1 2006-05-28 15:26:04 arniml Exp $
|
;; $Id: test.asm,v 1.2 2006-05-28 19:22:11 arniml Exp $
|
;;
|
;;
|
;; Checks interrupt on AISC.
|
;; Checks interrupt on AISC.
|
;; AISC is interrupted twice:
|
;; AISC is interrupted twice:
|
;; 1) no carry, thus no skip
|
;; 1) no carry, thus no skip
|
;; 2) carry, skip after interrupt completion
|
;; 2) carry, skip after interrupt completion
|
Line 93... |
Line 93... |
|
|
;; access current M of main program
|
;; access current M of main program
|
ldd 3, 14
|
ldd 3, 14
|
x 0
|
x 0
|
skmbz 0x0
|
skmbz 0x0
|
jmp check_sa_030
|
jp check_sa_030
|
skmbz 0x1
|
skmbz 0x1
|
jmp check_sa_0b0
|
jp check_sa_0b0
|
jmp fail
|
jmp fail
|
|
|
check_sa_030:
|
check_sa_030:
|
check_sa ret_instr_030
|
check_sa ret_instr_030
|
jmp int_finished
|
jmp int_finished
|
check_sa_0b0:
|
check_sa_0b0:
|
check_sa ret_instr_0b0
|
check_sa ret_instr_0b0
|
jmp int_finished
|
|
|
|
int_finished:
|
int_finished:
|
restore_c_m_a
|
restore_c_m_a
|
ret
|
ret
|
;;
|
;;
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.