Re: MPE Port

[Mark Klein <mklein@dis.com>]

Explanation:

MPE does not use <control C> for interrupts but uses <control Y> 
instead. This is a kludge to allow <control Y> to have the same
semantics as a <control C>. It is done by installing a signal
handler in each program as part of the startup.


Sat Sep  4 18:00:00 PDT 1999 Mark Klein (mklein@dis.com>

        * pa/mpebreak.asm: New file for MPE port.

*** egcs/gcc/config/pa/mpebreak.asm	Wed Dec 31 16:00:00 1969
--- egcs-ss/gcc/config/pa/mpebreak.asm	Mon Aug 30 21:52:06 1999
***************
*** 0 ****
--- 1,87 ----
+ ;  Subroutines to arm <control Y> trap handler on MPEiX.
+ ;  Copyright (C) 1999 Free Software Foundation, Inc.
+ 
+ ;  This file is part of GNU CC.
+ 
+ ;  GNU CC is free software; you can redistribute it and/or modify
+ ;  it under the terms of the GNU General Public License as published by
+ ;  the Free Software Foundation; either version 2, or (at your option)
+ ;  any later version.
+ 
+ ;  GNU CC is distributed in the hope that it will be useful,
+ ;  but WITHOUT ANY WARRANTY; without even the implied warranty of
+ ;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ ;  GNU General Public License for more details.
+ 
+ ; In addition to the permissions in the GNU General Public License, the
+ ; Free Software Foundation gives you unlimited permission to link the
+ ; compiled version of this file with other programs, and to distribute
+ ; those programs without any restriction coming from the use of this
+ ; file.  (The General Public License restrictions do apply in other
+ ; respects; for example, they cover modification of the file, and
+ ; distribution when not linked into another program.)
+ 
+ ;  You should have received a copy of the GNU General Public License
+ ;  along with GNU CC; see the file COPYING.  If not, write to
+ ;  the Free Software Foundation, 59 Temple Place - Suite 330,
+ ;  Boston, MA 02111-1307, USA.
+ 
+ 	.SPACE $PRIVATE$
+ 	.SUBSPA $DATA$,QUAD=1,ALIGN=8,ACCESS=31
+ 	.SUBSPA $BSS$,QUAD=1,ALIGN=8,ACCESS=31,ZERO,SORT=82
+ 	.SPACE $TEXT$
+ 	.SUBSPA $LIT$,QUAD=0,ALIGN=8,ACCESS=44
+ 	.SUBSPA $CODE$,QUAD=0,ALIGN=8,ACCESS=44,CODE_ONLY
+ 	.IMPORT $global$,DATA
+ 	.IMPORT $$dyncall,MILLICODE
+ 	.compiler "mpebreak.asm GNU_PA-RISC_Assembler 2.8.1"
+ 	.IMPORT XCONTRAP,CODE
+ 	.IMPORT __MPESubsystemBreakHandler,CODE
+ 	.SPACE $PRIVATE$
+ 	.SUBSPA $DATA$
+ 
+ 	.align 4
+ L$C0001
+ 	.word P%__MPESubsystemBreakHandler
+ 	.SPACE $TEXT$
+ 	.SUBSPA $CODE$
+ 
+ 	.align 4
+ 	.EXPORT __MPEArmSubsystemBreak,ENTRY,PRIV_LEV=3
+ __MPEArmSubsystemBreak
+ 	.PROC
+ 	.CALLINFO FRAME=128,CALLS,SAVE_RP
+ 	.ENTRY
+ 	stw %r2,-20(0,%r30)
+ 	ldo 128(%r30),%r30
+ 	addil LR'L$C0001-$global$,%r27
+ 	ldw RR'L$C0001-$global$(%r1),%r26
+ 	.CALL ARGW0=GR,ARGW1=GR
+ 	bl XCONTRAP,%r2
+ 	ldo -120(%r30),%r25
+ 	ldw -148(0,%r30),%r2
+ 	bv 0(%r2)
+ 	ldo -128(%r30),%r30
+ 	.EXIT
+ 	.PROCEND
+ 	.IMPORT RESETCONTROL,CODE
+ 	.IMPORT kill,CODE
+ 	.align 4
+ 	.EXPORT __MPESubsystemBreakHandler,ENTRY,PRIV_LEV=3
+ __MPESubsystemBreakHandler
+ 	.PROC
+ 	.CALLINFO FRAME=128,CALLS,SAVE_RP
+ 	.ENTRY
+ 	stw %r2,-20(0,%r30)
+ 	.CALL 
+ 	bl RESETCONTROL,%r2
+ 	ldo 128(%r30),%r30
+ 	ldi 0,%r26
+ 	.CALL ARGW0=GR,ARGW1=GR
+ 	bl kill,%r2
+ 	ldi 2,%r25
+ 	ldw -148(0,%r30),%r2
+ 	bv 0(%r2)
+ 	ldo -128(%r30),%r30
+ 	.EXIT
+ 	.PROCEND

--
Mark Klein                                 DIS International, Ltd.
http://www.dis.com                         415-892-8400
PGP Public Key Available