URL
https://opencores.org/ocsvn/t400/t400/trunk
Only display areas with differences |
Details |
Blame |
View Log
Rev 176 |
Rev 179 |
;; *******************************************************************
|
;; *******************************************************************
|
;; $Id: test.asm,v 1.1 2006-06-05 02:12:36 arniml Exp $
|
;; $Id: test.asm 179 2009-04-01 19:48:38Z arniml $
|
;;
|
;;
|
;; Checks interrupt on a skipped "transfer of control" instruction.
|
;; Checks interrupt on a skipped "transfer of control" instruction.
|
;;
|
;;
|
|
|
;; the cpu type is defined on asl's command line
|
;; the cpu type is defined on asl's command line
|
|
|
include "int_macros.inc"
|
include "int_macros.inc"
|
|
|
org 0x00
|
org 0x00
|
clra
|
clra
|
|
|
int_flag_clear
|
int_flag_clear
|
lei 0x02
|
lei 0x02
|
jp int_mark
|
jp int_mark
|
|
|
org 0x030
|
org 0x030
|
int_mark:
|
int_mark:
|
nop
|
nop
|
nop
|
nop
|
int_instr:
|
int_instr:
|
jsr jsr_target
|
jsr jsr_target
|
jmp fail ; this one is skipped, but interrupted
|
jmp fail ; this one is skipped, but interrupted
|
ret_instr:
|
ret_instr:
|
int_flag_check
|
int_flag_check
|
jmp pass
|
jmp pass
|
|
|
|
|
org 0x080
|
org 0x080
|
jsr_target:
|
jsr_target:
|
retsk
|
retsk
|
|
|
|
|
|
|
;; *******************************************************************
|
;; *******************************************************************
|
;; Interrupt routine
|
;; Interrupt routine
|
;;
|
;;
|
org 0x0fd
|
org 0x0fd
|
jmp fail
|
jmp fail
|
int_routine:
|
int_routine:
|
nop
|
nop
|
save_a_m_c
|
save_a_m_c
|
int_flag_set
|
int_flag_set
|
check_sa ret_instr
|
check_sa ret_instr
|
restore_c_m_a
|
restore_c_m_a
|
ret
|
ret
|
|
|
|
|
org 0x200
|
org 0x200
|
include "int_pass_fail.asm"
|
include "int_pass_fail.asm"
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.