sys7.1-doc-wip/ProcessMgr/DAHandler.a

199 lines
6.3 KiB
Plaintext
Raw Normal View History

2020-03-22 08:44:21 +00:00
;
; Hacks to match MacOS (most recent first):
;
; <Sys7.1> 8/3/92 Reverted <4> by recreating the non-standard "MyGestalt" glue asm.
; 9/2/94 SuperMario ROM source dump (header preserved below)
;
2019-07-27 14:37:48 +00:00
;
; File: DAHandler.a
;
; Contains: The System Desk Accessory Handler application
;
; Written by: Phil Goldman
;
; Copyright: © 1986-1992 by Apple Computer, Inc., all rights reserved.
;
; Change History (most recent first):
;
; <5> 9/29/92 DRF Put back the END that got deleted in <4>
; <4> 9/25/92 DRF Get rid of MyGestalt
; <2> 1/3/91 fjs (DFH) pass edit function keys to DAHandler
; <0> x/xx/86 PYG New Today.
;
;--------------------------------------------------------------------
CASE OBJECT
LOAD 'ProcessMgrIncludes.D'
; CloseFrontDeskWindow. A utility function that calls the DA to close the front
; window. Uses a little-known hook which exists for this very purpose.
; NOTE: This code was ripped off from the desk manager. The hook is not documented,
; so I tried to keep the register usage the same (e.g. a1 points to the DCE, d0 and a0
; point to the hook).
;
; void CloseFrontDeskWindow(void);
;
CloseFrontDeskWindow PROC EXPORT
subq.l #$4,sp ; make room for function value
_FrontWindow ; get pointer to frontmost window
movea.l (sp)+,a0 ; pop the window pointer
move.l a0,d0 ; nil?
beq.s CFDWExit ; jump if so
move.w windowKind(a0),d1 ; get the unit number from window
bpl.s CFDWExit ; if not sys. kind, ignore it
move.w d1,-(sp) ; push refnum for CloseDeskAcc
not d1 ; flip it (bitwise)
asl #2,d1 ; * 4
move.l UTableBase,a0 ; point to the driver table
move.l 0(a0,d1),a0 ; get the handle
move.l (a0),a1 ; dereference
move.l CloseOrnHook,d0 ; is there a hook installed?
bne.s DoCloseHook ; if so, use it
_CloseDeskAcc ; close the DA
CFDWExit
rts ; bye now!
; DA seems to have a hook installed
; Make sure that a1 == DCE pointer, a0 == d0 == hook address
DoCloseHook
addq.l #2,sp ; restore stack pointer
move.l d0,a0 ; hook address in both a0 and d0
jsr (a0) ; invoke it
bra.s CFDWExit ; all done
ENDPROC
; Patch to Close so that we kill the DA when its resource file is closed.
ClosePatch PROC EXPORT
IMPORT oldCloseAddress:DATA
IMPORT HandleCloseDA:CODE
; push parameter for (potential) call to HandleCloseDA()
move.l a5,-(sp) ; save a5
move.l CurrentA5,a5 ; set up with application a5
subq.w #4,sp ; d0 result of old call will go here
move.w ioRefNum(a0),-(sp) ; put refnum in lo word
move.w #0,-(sp) ; clear hi word on stack
pea CPBackFromOldRoutine ; push local return address
move.l oldCloseAddress,-(sp) ; push old routine on stack
rts ; do it (w/ a-regs untouched!)
CPBackFromOldRoutine
move.l d0,4(sp) ; save d0 across the call
bmi.s CPDone ; if errors, done
jsr HandleCloseDA ; remove from refnum list
move.l 4(sp),d0 ; restore d0 trashed by the call
CPDone
addq.w #8,sp ; skip param, saved d0
move.l (sp)+,a5 ; restore a5
rts ; and return
ENDPROC
; Patch to SystemEvent so that we intercept cmd-Q and cmd-W from DA.
AlphaCaseMask EQU $DF
cmdKeyMeta EQU (cmdKey - 8)
FunctionKey EQU $10
UndoKey EQU $7A
CutKey EQU $78
CopyKey EQU $63
PasteKey EQU $76
SystemEventPatch PROC EXPORT
IMPORT oldSystemEventAddress:DATA
subq #4,sp ; save room for old call
movem.l d0/a0/a5,-(sp) ; preserve a work register
move.l 20(sp),a0 ; get pointer to event record
cmpi.w #keyDwnEvt,EvtNum(a0) ; is it key down?
bne.s SEPDoCall ; jump if not
move.l evtMessage(a0),d0 ; get key
cmp.b #FunctionKey,d0 ; is it the function key ?
bne.s @cmdkey ; if not, check for cmd key
and.l #keyCodeMask,d0 ; get key code
lsr.l #8,d0 ; into byte of d0
cmp.b #UndoKey,d0
beq.s SEPReturnFalse ; jump if so
cmp.b #CutKey,d0
beq.s SEPReturnFalse ; jump if so
cmp.b #CopyKey,d0
beq.s SEPReturnFalse ; jump if so
cmp.b #PasteKey,d0
beq.s SEPReturnFalse ; jump if so
bra.s SEPDoCall ; pass it through
@cmdkey btst.b #cmdKeyMeta,evtMeta(a0) ; is cmd-key down?
beq.s SEPDoCall ; jump if not
move.l evtMessage(a0),d0 ; get key
and.b #AlphaCaseMask,d0 ; make it uppercase
cmp.b #'Q',d0 ; is it Q?
beq.s SEPReturnFalse ; jump if so
cmp.b #'W',d0 ; is it W?
beq.s SEPReturnFalse ; jump if so
SEPDoCall
move.l CurrentA5,a5 ; set up application a5
move.l oldSystemEventAddress,12(sp) ; old routine address
movem.l (sp)+,d0/a0/a5 ; restore registers
SEPReturn
rts
; the event is a cmd-Q, return false so we'll see the event later
SEPReturnFalse
move.l 16(sp),a0 ; get return address
move.l a0,20(sp) ; move it down
movem.l (sp)+,d0/a0/a5 ; restore registers
addq #8,sp ; dump param, space
clr.w 4(sp) ; say its not for us (return FALSE)
bra.s SEPReturn ; and return
ENDPROC
; A utility routine to copy a string into the system heap.
; Function prototype as seen from C --
;
; StringPtr GetSysHeapString(StringPtr pStr);
;
GetSysHeapString PROC EXPORT
clr.l -(sp) ; assume retval is failure
move.l 8(sp),a0 ; param is src
moveq.l #1,d0 ; add 1 to...
add.b (a0),d0 ; ...string length to get block len
move.l d0,d1 ; save length
move.l a0,a1 ; save ptr
_NewPtr sys ; get space in system heap
bne.s GSHSDone ; if failure, branch
exg.l a0,a1 ; switch src/dest
move.l a1,(sp) ; and do the return value
move.l d1,d0 ; save length
_BlockMove
GSHSDone
move.l (sp)+,d0 ; pop retval into d0
rts
ENDPROC
2020-03-22 08:44:21 +00:00
;---------------------------------------------------------------------------------------
; Non-standard glue, only used at DAHandler init ex<4> <Sys7.1>
; (Marks the Init segment for UnloadSeg calls)
SEG 'Init'
MYGESTALT PROC EXPORT
MOVE.L 8(SP),D0
_Gestalt
MOVE.L 4(SP),A1
MOVE.L A0,(A1)
MOVE.L (SP)+,A0
LEA.L 8(SP),SP
MOVE.W D0,(SP)
JMP (A0)
2019-07-27 14:37:48 +00:00
END