Macintosh-SW/boot3
1
0
Fork 0
mirror of https://github.com/elliotnunn/boot3.git synced 2024-06-26 10:29:59 +00:00
Code Issues Projects Releases Wiki Activity
master
boot3/Libs/InterfaceSrcs/GestaltGlue.a

455 lines
16 KiB
Plaintext
Raw Permalink Normal View History

Bring in CubeE sources 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.
2017-09-17 09:09:04 +00:00
;------------------------------------------------------------------------
;
; File: GestaltGlue.a
;
; Contains: Glue for Gestalt traps.
;
; Written by: Carl C. Hewitt
;
; Copyright: <09> 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 <20>mach<63> 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