mirror of
https://github.com/elliotnunn/mac-rom.git
synced 2024-12-28 01:29:20 +00:00
5b0f0cc134
Resource forks are included only for .rsrc files. These are DeRezzed into their data fork. 'ckid' resources, from the Projector VCS, are not included. The Tools directory, containing mostly junk, is also excluded.
70 lines
1.8 KiB
Plaintext
70 lines
1.8 KiB
Plaintext
;
|
|
; File: Signal.a
|
|
;
|
|
; Contains: xxx put contents here xxx
|
|
;
|
|
; Written by: xxx put writers here xxx
|
|
;
|
|
; Copyright: © 1991 by Apple Computer, Inc., all rights reserved.
|
|
;
|
|
; Change History (most recent first):
|
|
;
|
|
; <3> 1/30/91 gbm sab, #38: Change the Ôalready including this fileÕ variable to
|
|
; all uppercase (for security reasons)
|
|
;
|
|
; To Do:
|
|
;
|
|
|
|
; File Signal.a
|
|
;
|
|
; Copyright Apple Computer, Inc. 1986, 1990
|
|
; All rights reserved.
|
|
;
|
|
; Include File for Signal processing in the MPW Environment
|
|
|
|
; Set CASE OBJECT to assure references to the names IMPORTed here link
|
|
; properly. The following statements restore the CASE setting to its
|
|
; previous value.
|
|
|
|
IF &TYPE('__INCLUDINGSIGNAL__') = 'UNDEFINED' THEN
|
|
__INCLUDINGSIGNAL__ SET 1
|
|
|
|
PRINT Push,Off ; save the current print settings and turn it off
|
|
GBLC &S%%%%,&P%%%%
|
|
&S%%%% SETC &Setting('CASE') ; save the current CASE setting
|
|
&P%%%% SETC &Setting('PRINT',1) ; and the PRINT settings before we changed them
|
|
|
|
MACRO
|
|
X%%%%
|
|
GBLC &S%%%%,&P%%%% ; link references with previously defined variables
|
|
PRINT Push,&P%%%% ; restore the previous PRINT settings
|
|
CASE &S%%%% ; and restore the CASE setting
|
|
PRINT POP ; restore the PRINT settings
|
|
ENDM
|
|
|
|
PRINT Pop ; restore the PRINT settings
|
|
CASE OBJECT ; all imported/exported names case significant
|
|
|
|
|
|
SIG_DFL EQU 1
|
|
SIG_ERR EQU -1
|
|
SIG_IGN EQU 0
|
|
SIG_HOLD EQU 3
|
|
SIG_RELEASE EQU 5
|
|
|
|
SIGABRT EQU $0001
|
|
SIGINT EQU $0002
|
|
SIGFPE EQU $0004
|
|
SIGILL EQU $0008
|
|
SIGSEGV EQU $0010
|
|
SIGTERM EQU $0020
|
|
|
|
IMPORT signal
|
|
IMPORT raise
|
|
|
|
PRINT Push,Off ; save and turn off PRINT when macro is invoked
|
|
X%%%% ; invoke the macro to restore CASE setting
|
|
PRINT POP ; restore the PRINT settings
|
|
|
|
|
|
ENDIF ; ...already included |