Macintosh-SW/supermario
1
0
Fork 0
mirror of https://github.com/elliotnunn/supermario.git synced 2024-11-22 04:31:30 +00:00
Code Issues Projects Releases Wiki Activity
master
supermario/base/SuperMarioProj.1994-02-09/Libs/InterfaceSrcs/GestaltGlue.a

455 lines
16 KiB
Plaintext
Raw Permalink Normal View History

Bring in sources, and document
2019-06-29 15:17:50 +00:00
;------------------------------------------------------------------------
;
; File: GestaltGlue.a
;
; Contains: Glue for Gestalt traps.
;
; Written by: Carl C. Hewitt
;
; Copyright: © 1990 by Apple Computer, Inc., all rights reserved.
;
; This file is used in these builds: ROM System
;
; Change History (most recent first):
;
; <8> 6/12/91 LN added #include 'SysPrivateEqu.a'
; <7> 1/14/91 SAM Updated ‘mach’ glue so that it works on Mac Plus and SEs.
; <6> 6/15/90 CCH Took out unconditional branch left over from testing.
; <5> 6/13/90 CCH Added glue for gestaltLogicalRAM and gestaltPhysicalRAM
; selectors.
; <4> 4/18/90 CCH The result code from _Gestalt is no longer trashed.
; <3> 4/11/90 CCH NewGestalt and ReplaceGestalt glue will now work correctly on
; machines that implement the Gestalt trap.
; <2> 3/9/90 CCH Added glue to allow support certain Gestalt calls if the trap is
; unimplemented. Currently, SysEnvirons equivalents are supported.
;
; To Do:
;
;------------------------------------------------------------------------
*************************************************************************
* Pascal Declarations:
*
* FUNCTION Gestalt(selector : OSType; VAR result : LONGINT) : OSErr;
* FUNCTION NewGestalt(selector : OSType; gestaltFunction : ProcPtr) : OSErr;
* FUNCTION ReplaceGestalt(selector : OSType; gestaltFunction : ProcPtr; VAR oldGestaltFunction : ProcPtr) : OSErr;
*
*************************************************************************
* C Prototypes:
*
* pascal OSErr Gestalt(OSType selector, long *result);
* pascal OSErr NewGestalt(OSType selector, ProcPtr gestaltFunction);
* pascal OSErr ReplaceGestalt(OSType selector, ProcPtr gestaltFunction, ProcPtr *oldGestaltFunction);
*
*************************************************************************
MC68881
INCLUDE 'Traps.a'
INCLUDE 'SysEqu.a'
INCLUDE 'SysPrivateEqu.a'
INCLUDE 'MMUEqu.a'
INCLUDE 'InternalOnlyEqu.a'
INCLUDE 'SysErr.a'
INCLUDE 'GestaltEqu.a'
INCLUDE 'GestaltPrivateEqu.a'
HWCfgFlags EQU $b22 ; (word) HW Configuration flags
hwCbFPU EQU 12 ; FPU chip present.
Unimplemented EQU $a89f ; unimplemented trap number
GestaltTrap EQU $a0ad ; gestalt trap number
;--------------------------------------------------------------------------------------
; Stack frame for Gestalt and NewGestalt calls
;--------------------------------------------------------------------------------------
gestaltParmFrame record {oldA6},decrement
result ds.w 1 ; OSErr
argSize equ *-8
selector ds.l 1 ; packed array [1..4] of char
responsePtr ds.l 1 ; addr of longint result for Gestalt
procPtr equ * ; addr of gestalt function for NewGestalt
return ds.l 1
oldA6 ds.l 1
localFrame equ *
endR
;--------------------------------------------------------------------------------------
; Stack frame for ReplaceGestalt calls
;--------------------------------------------------------------------------------------
replaceGestaltFrame record {oldA6},decrement
result ds.w 1 ; OSErr
argSize equ *-8
selector ds.l 1 ; packed array [1..4] of char
procPtr ds.l 1 ; address of new gestalt function
oldProcPtr ds.l 1 ; ptr to addr of old gestalt function
return ds.l 1
oldA6 ds.l 1
localFrame equ *
endR
;--------------------------------------------------------------------------------------
; NewGestalt Glue
;--------------------------------------------------------------------------------------
NewGestalt PROC EXPORT
with gestaltParmFrame
link a6,#localFrame
move.l #Unimplemented,d0 ; get unimplemented trap number
_GetTrapAddress newTool ; find out it's address
move.l a0,-(sp) ; save the unimplemented trap address
move.l #GestaltTrap,d0 ; get Gestalt's trap number
_GetTrapAddress newOS ; find out it's address
cmpa.l (sp)+,a0 ; are they the same?
beq.s @noGestalt ; IF gestalt exists THEN
move.l selector(a6),d0 ; put selector into d0
move.l procPtr(a6),a0 ; put proc ptr into a0
_NewGestalt ; call NewGestalt trap
move.w d0,result(a6) ; return the result to our caller
bra.s @newGestaltExit ; clean up and exit
@noGestalt ; ELSE
move.w #unimpErr,result(a6) ; return unimplemented core routine result
; ENDIF
@newGestaltExit ;
unlk a6 ; get rid of our local frame
move.l (sp)+,a0 ; get return value
add.l #argSize,sp ; restore stack pointer
jmp (a0) ; return
ENDP
;--------------------------------------------------------------------------------------
; ReplaceGestalt Glue
;--------------------------------------------------------------------------------------
ReplaceGestalt PROC EXPORT
with replaceGestaltFrame
link a6,#localFrame
move.l #Unimplemented,d0 ; get unimplemented trap number
_GetTrapAddress newTool ; find out it's address
move.l a0,-(sp) ; save the unimplemented trap address
move.l #GestaltTrap,d0 ; get Gestalt's trap number
_GetTrapAddress newOS ; find out it's address
cmpa.l (sp)+,a0 ; are they the same?
beq.s @noGestalt ; IF gestalt exists THEN
move.l selector(a6),d0 ; put selector into d0
move.l procPtr(a6),a0 ; put proc ptr into a0
_ReplaceGestalt ; call NewGestalt trap
move.w d0,result(a6) ; return the result to our caller
movea.l oldProcPtr(a6),a1 ; get address to place old proc ptr
move.l a0,(a1) ; return old proc ptr to our caller
bra.s @repGestaltExit ; clean up and exit
@noGestalt ; ELSE
move.w #unimpErr,result(a6) ; return unimplemented core routine result
; ENDIF
@repGestaltExit ;
unlk a6 ; get rid of our local frame
move.l (sp)+,a0 ; get return value
add.l #argSize,sp ; restore stack pointer
jmp (a0) ; return
ENDP
;--------------------------------------------------------------------------------------
; Gestalt Glue
;--------------------------------------------------------------------------------------
Gestalt PROC EXPORT
with gestaltParmFrame
link a6,#localFrame
move.l #Unimplemented,d0 ; get unimplemented trap number
_GetTrapAddress newTool ; find out it's address
move.l a0,-(sp) ; save the unimplemented trap address
move.l #GestaltTrap,d0 ; get Gestalt's trap number
_GetTrapAddress newOS ; find out it's address
cmpa.l (sp)+,a0 ; are they the same?
beq.s @fakeGestalt ; IF gestalt exists THEN
move.l selector(a6),d0 ; put selector into d0
_Gestalt ; call Gestalt trap
move.l responsePtr(a6),a1 ; get address of result <4>
move.l a0,(a1) ; put result into result area <4>
bra.s gestaltGlueExit ; ELSE <4>
@fakeGestalt lea selectorTable,a0 ; get address of supported selectors
move.w #gestaltUndefSelectorErr,d0 ; assume we won't find it
move.l selector(a6),d1 ; get selector in d1
@selectorLoop ; LOOP
cmp.l (a0)+,d1 ; found one we're looking for?
beq.s @foundIt ; >>EXITROUTINE if we did
tst.l (a0)+ ; at end of table?
beq.s gestaltGlueExit ; >>EXITROUTINE if so
bra.s @selectorLoop ; END
@foundIt
lea selectorTable,a1 ; get address of table
add.l (a0),a1 ; get address of requested routine
jmp (a1) ; go to it
gestaltGlueCommon
move.l responsePtr(a6),a1 ; get address of result
move.l d0,(a1) ; put result into result area
move.w #noErr,d0 ; return no error
gestaltGlueExit
move.w d0,result(a6) ; put the error result
unlk a6
move.l (sp)+,a0 ; get return value
add.l #argSize,sp ; restore stack pointer
jmp (a0) ; return
gestaltUnknown move.w #gestaltUnknownErr,d0 ; return unknown error
bra.s gestaltGlueExit
ENDWITH
selectorTable
dc.l gestaltVersion, getVersion-selectorTable
dc.l gestaltMachineType, getMachineType-selectorTable
dc.l gestaltSystemVersion, getSysVersion-selectorTable
dc.l gestaltProcessorType, getProcessor-selectorTable
dc.l gestaltFPUType, getFPUType-selectorTable
dc.l gestaltQuickdrawVersion, qdVersion-selectorTable
dc.l gestaltKeyboardType, getKeyboard-selectorTable
dc.l gestaltAppleTalkVersion, getATalkVersion-selectorTable
dc.l gestaltMMUType, getMMUType-selectorTable
dc.l gestaltPhysicalRAMSize, getRAMSize-selectorTable
dc.l gestaltLogicalRAMSize, getRAMSize-selectorTable
dc.l 0, 0
GestaltProcParms RECORD 0,INCREMENT
returnAddr DS.L 1
resultPtr DS.L 1
selector DS.L 1
error DS.W 1
ENDR
WITH GestaltProcParms, ExpandMemRec, GestaltGlobals
************************************************************************
* Version
************************************************************************
getVersion Moveq #1,d0 ; return current version
bra.s gestaltGlueCommon ; save result and exit <2.9>
************************************************************************
* Machine Type
************************************************************************
getMachineType move.l ROMBase,A1 ; Get base address of ROM <7>
moveq #gestaltMacPlus,D0 ; Assume MacPlus <7>
cmp.w #$0075,8(A1) ; Is this a Plus? <7>
beq.s @machineDone ; -> Yes, say so <7>
cmp.w #$0276,8(A1) ; Howa bout an SE? <7>
bne.s @useBoxFlag ; -> no, it's ok to use BoxFlag <7>
addq #1,D0 ; Bump result up to gestaltMacSE <7>
bra.s @machineDone ; -> exit. <7>
@useBoxFlag move.b BoxFlag,d0 ; put machineType in result
addq.l #6,d0 ; convert to Gestalt result
@machineDone bra.s gestaltGlueCommon ; save result and exit <2.9>
************************************************************************
* System Version
************************************************************************
getSysVersion clr.l d0 ; clear result register <2.9>
Move.w SysVersion,d0 ; save system version in lsw of result
bra gestaltGlueCommon ; save result and exit <2.9>
************************************************************************
* Processor Type
************************************************************************
getProcessor moveq.l #0,d0 ; clear d0
Move.b CPUFlag,D0 ; get processor type
Addq #1,D0 ; adjust to make it the correct result #
bra gestaltGlueCommon ; save result and exit <2.9>
************************************************************************
* FPU Type
************************************************************************
getFPUType cmp.b #cpu68040,CPUFlag ; are we on an 040?
beq.s @on040 ; if so, we know what kind we have
Btst #hwCbFPU-8,HWCfgFlags ; check for FPU -- if bit set, we have FPU (-8 'cuz
; equates for HwCfgFlags are based on 16-bit word)
Beq.s @noFPU ; we have one, now figure out which one
Move.l SP,A0 ; get base of (soon to be) FPU state frame
FNop ; synchronize FPU with us
FSave -(SP) ; get an "idle" state frame
Move.w (SP),D0 ; get format word for this state frame
Move.l A0,SP ; restore stack pointer
Cmp.w #$1f18,D0 ; an 881?
Beq.s @M68881
Cmp.w #$3f18,D0 ; this also indicates an 881
Beq.s @M68881
Cmp.w #$3f38,D0 ; how 'bout an 882?
Beq.s @M68882
Cmp.w #$1f38,D0 ; this is also an 882
Beq.s @M68882
move.l #0,d0 ; assume no FPU <3>
bra.s @fpuExit
@M68881 Move.l #gestalt68881,D0 ; we have an 881
Bra.s @fpuExit
@M68882 Move.l #gestalt68882,D0 ; we have an 882
Bra.s @fpuExit
@on040 move.l #gestalt68040FPU,d0 ; we know what kind of FPU it has
bra.s @fpuExit
@noFPU Move.l #gestaltNoFPU,D0 ; no FPU installed
@fpuExit bra gestaltGlueCommon ; save result and exit
************************************************************************
* QD Version
************************************************************************
qdVersion
cmp.w #$3fff,Rom85 ; do we have color quickdraw?
bgt.s @noCQD ; nope..
Move.w #Unimplemented,D0 ; get loc of unimplemented trap
_GetTrapAddress ,newTool ; get the address into A0
Move.l A0,D2 ; save it for a sec
Move.l #$AB03,D0 ; trap ID to check for 32-bit QD
_GetTrapAddress ,newTool ; get the address of it
Move.l #gestalt8BitQD,D0 ; assume 8-bit CQD
Cmp.l A0,D2 ; is it unimplemented?
Bne.s @fullCQD ; Yep..
bra.s qdDone
@noCQD move.l #gestaltOriginalQD,d0 ; original qd, fall through
bra.s qdDone
@fullCQD Move.l #gestalt32BitQD,D0 ; we have 32-bit cqd..
qdDone bra gestaltGlueCommon ; save result and exit <2.9>
************************************************************************
* Keyboard Type
* Note: To add new keyboards, simply add types to table before EOT.
************************************************************************
getKeyboard Move.b KbdType,D0 ; get keyboard type
Lea keyBdTable,A0 ; get table into A0
move.l a0,a1 ; save a copy
keyBdLoop Move.b (A0)+,D1 ; get an entry from table
Beq gestaltUnknown ; if we get to the end, unknown keyboard <2.9>
Cmp.b D0,D1 ; does our keyboard match this entry?
Bne.s keyBdLoop ; yep, we found it
keyBdFound Sub.l A1,A0 ; get the index into the table
Move.l A0,D0 ; get ready to store the result
keyBdDone bra gestaltGlueCommon ; save result and exit <2.9>
keyBdTable DC.B $03 ; Macintosh Keyboard
DC.B $13 ; Macintosh keyboard & keypad
DC.B $0B ; Mac Plus Keyboard
DC.B $02 ; Apple Extended Keyboard
DC.B $01 ; Standard Apple Keyboard
DC.B $06 ; Standard Portable ADB Keyboard
DC.B $07 ; Portable ISO ADB Keyboard
DC.B $04 ; Standard ISO ADB Keyboard
DC.B $05 ; Extended ISO ADB Keyboard
DC.B $08 ; Elmer ADB Keyboard
DC.B $09 ; Elmer ISO ADB Keyboard
DC.B $00 ; EOT
************************************************************************
* AppleTalk Driver Version Number
************************************************************************
getATalkVersion
;Is the B serial port in use?
Clr.l D0 ; assume it's not installed
Tst.b PortBUse ; if so, this will be positive.
Bmi.s ATalkVersDone ; oops - not in use, I thought so, return 0
;Port B is in use. Is it in use by AppleTalk?
Move.b SPConfig,D1 ; get port configuration info
And.b #$0F,D1 ; mask off to Port B info only
Cmp.b #useATalk,D1 ; is it AppleTalk?
Bne.s ATalkVersDone ; nope, return 0
;Port B is in use by AppleTalk. Get the DCE pointer
Move.l ABusDCE,A0 ; get .MPP's DCE pointer
Move.b DCtlQueue+1(A0),D0 ; put version number in D0
ATalkVersDone bra gestaltGlueCommon ; save result and exit <2.9>
************************************************************************
* MMU Type
************************************************************************
getMMUType Cmp.b #cpu68020,CPUFlag ; should we bother to find out?
Blt.s @noMMU ; nothing before Mac II can have one
Clr.l D0 ; start clean
Move.b MMUType,D0 ; get MMU
cmp.b #HMMU,d0 ; is it an AMU?
beq.s @MMUDone ; then we're done
cmp.b #PMMU851,d0 ; then make sure there is one at all
Blt.s @noMMU ; no mmu
Subq #1,D0 ; convert to right format
Bra.s @MMUDone ; go return result
@noMMU Move.l #gestaltNoMMU,D0 ; tell the user we don't have one
@MMUDone bra gestaltGlueCommon ; save result and exit
************************************************************************
* RAM Size
************************************************************************
OSDispatchTrap EQU $A88F ;MultiFinder trap
getRAMSize
move.w #Unimplemented,D0 ; get loc of unimplemented trap
_GetTrapAddress ,newTool ; get the address into A0
move.l A0,D2 ; save it for a sec
move.l #OSDispatchTrap,D0 ; trap ID to check for multifinder
_GetTrapAddress ,newTool ; get the address of it
move.l MemTop,d0 ; assume multifinder is not running
cmp.l A0,D2 ; is it unimplemented?
beq.s @ramDone ; if not, we're done
subq.l #4,sp ; make room for result
move.w #$0016,-(sp) ; selector for total physical memory
_OSDispatch ; get the value
move.l (sp)+,d0 ; get it into d0
@ramDone bra gestaltGlueCommon ; save result and exit
ENDWITH
ENDP
END
Reference in New Issue Copy Permalink