182 lines
6.8 KiB
Plaintext
182 lines
6.8 KiB
Plaintext
;
|
|
; File: SecondaryInit.a -> VSCSecondaryInit.a
|
|
;
|
|
; Contains: Some code to whack the 'scrn' resource on family mode switches.
|
|
;
|
|
; Written by: Russ Emmons
|
|
;
|
|
; Copyright: © 1988-1993 by Apple Computer, Inc., all rights reserved.
|
|
;
|
|
; Change History (most recent first):
|
|
;
|
|
; <1> 12/14/93 PN first checked in
|
|
; <1> 07-19-93 jmp first checked in
|
|
; ÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑ
|
|
; Pre-Kaos Proj comments begin here.
|
|
; ÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑ
|
|
; <4> 06-24-93 jmp Since the CheckDevicesInit actually runs AFTER we do, we now
|
|
; just fix the family-mode 'scrn' resource to have the right bit
|
|
; depth -- this way, we donÕt blow away the userÕs setup.
|
|
; <3> 06-14-93 jmp Performed general file clean up.
|
|
; <2> 06-11-93 jmp Added code that removes the 'scrn' resource if it is invalid.
|
|
; ÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑ
|
|
; Pre-NuBrawl Proj comments begin here.
|
|
; ÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑ
|
|
; <3> 03-17-93 jmp Ripped out even more stuff. If I remember, IÕm going to pull
|
|
; this from DeclData!
|
|
; ÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑ
|
|
; Pre-Atlantis ROM comments begin here.
|
|
; ÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑ
|
|
; <2> 7/2/92 RLE remove CTB stuff
|
|
; <1> 5/5/92 RLE first checked in
|
|
;
|
|
|
|
;----------------------------------------------------------------------------
|
|
; Header
|
|
;----------------------------------------------------------------------------
|
|
|
|
dc.b sExec2 ; Header
|
|
dc.b sCPU68020
|
|
dc.w 0
|
|
dc.l BeginSInit-*
|
|
|
|
;---------------------------------------------------------------------
|
|
; Local variables, definitions, etc....
|
|
;---------------------------------------------------------------------
|
|
|
|
SInitStackFrame Record {A6Link},Decrement
|
|
Return Ds.l 1 ; Return address.
|
|
A6Link Ds.l 1 ; Saved A6.
|
|
spBlk Ds SpBlock ; SpBlock for generic use.
|
|
sPRAMBlk Ds.b SizesPRAMRec ; SpRAMRec for generic use.
|
|
SInitStackSize Equ *
|
|
Endr
|
|
|
|
;----------------------------------------------------------------------------
|
|
; Utilities
|
|
;----------------------------------------------------------------------------
|
|
|
|
;---------------------------------------------------------------------
|
|
;
|
|
; Routine: ChkScrn
|
|
;
|
|
; Inputs: None
|
|
;
|
|
; Outputs: None
|
|
;
|
|
; Destroys: A0-A2/D0-D2
|
|
;
|
|
; Function: Classically, the Monitors control panel writes out an
|
|
; 'scrn' resource that would flip us into 1bpp (i.e.,
|
|
; mode $80) on family mode changes. We attempt to
|
|
; solve that problem here by re-writing the appropriate
|
|
; value into the 'scrn' resource itself.
|
|
;---------------------------------------------------------------------
|
|
|
|
With SInitStackFrame,SpBlock,ScrnRecord,SP_Params
|
|
|
|
ChkScrn Lea spBlk(A6),A0 ; Point to our spBlock.
|
|
Lea sPRAMBlk(A6),A2 ; Point to a sPRAM block.
|
|
Move.l A2,spResult(A0) ; Set up read buffer.
|
|
_sReadPRAMRec ; Read our SlotÕs pRAM.
|
|
|
|
Bclr #spFamilyChanged,SP_Flags(A2) ; Always reset the family-changed bit.
|
|
Beq @EndScrn ; If it was already reset, then go on.
|
|
|
|
; Check to see our video is actually runningÉ
|
|
;
|
|
Clr.b spId(A0) ; Begin at id 0.
|
|
Clr.b spTBMask(A0) ; No mask in search.
|
|
Move.w #catDisplay,spCategory(A0) ; Look for: Display,
|
|
Move.w #typVideo,spCType(A0) ; Video,
|
|
Move.w #drSwApple,spDrvrSW(A0) ; Apple,
|
|
Move.w #drHwVSC,spDrvrHW(A0) ;
|
|
Clr.l spParamData(A0) ; Look only for enabled sRsrcs.
|
|
_GetTypeSRsrc ; If we didnÕt find ourselves,
|
|
Bne.s @EndScrn ; then just go on.
|
|
|
|
Move.l A2,spsPointer(A0) ; Set up to write out Slot PRAMÉ
|
|
_sPutPRAMRec ; Éto clear the spFamilyChanged bit.
|
|
|
|
Moveq #0,D2 ; Clear D2 for good measure.
|
|
Move.b spSlot(A0),D2 ; Remember our slot number.
|
|
|
|
; Check to see if thereÕs an 'scrn' resource availableÉ
|
|
;
|
|
Clr.l -(Sp) ; Make room for the function result.
|
|
Move.l #'scrn',-(Sp) ; Push desired resource type.
|
|
Clr.w -(Sp) ; Resource ID = 0.
|
|
_GetResource ; Get the resource.
|
|
Move.l (Sp)+,D0 ; Get the resource handle.
|
|
Beq.s @EndScrn ; If nil, then just go on.
|
|
|
|
Move.l D0,-(Sp) ; Save Handle for _ReleaseResource call.
|
|
Movea.l D0,A2 ; Save it for easy access later on.
|
|
Movea.l D0,A0 ; Set up to lock it down for now.
|
|
_HNoPurge ; Make it non-purgeable andÉ
|
|
_HLock ; Élock it down.
|
|
|
|
; Check to see if weÕre in the 'scrn' resourceÉ
|
|
;
|
|
Movea.l (A0),A0 ; Get a pointer to the 'scrn' resource.
|
|
Move.w (A0)+,D0 ; Get the number of 'scrn' records to search.
|
|
Subq #1,D0 ; Make it zero-based.
|
|
|
|
@ScrnLoop Cmp.b srSlot(A0),D0 ; If this entry is for our slot number,
|
|
Beq.s @ChkDrHwID ; then check the drHwID.
|
|
Adda.w #ScrnRecSize,A0 ; Otherwise, point A0 at the next entry.
|
|
Dbra D0,@ScrnLoop ; Loop until done.
|
|
Bra.s @EndScrnChk ; We couldnÕt find our 'scrn' entry, so just go on.
|
|
|
|
@ChkDrHwID
|
|
Move.w #drHwVSC,D0 ; Get our drHwID back into D0.
|
|
Cmp.w srDrvrHW(A0),D0 ; If the drHwIDs donÕt match,
|
|
Bne.s @EndScrnChk ; then just go on.
|
|
|
|
; Make sure the depth (mode) setting is correctÉ
|
|
;
|
|
Lea sPRAMBlk(A6),A1 ; Point to our sPRAM block.
|
|
Moveq #0,D0 ; Clear D0 for good measure.
|
|
Move.b SP_Depth(A1),D0 ; Get the mode weÕd like to be at.
|
|
Cmp.w srMode(A0),D0 ; If the modes match,
|
|
Beq.s @EndScrnChk ; then just go on.
|
|
Move.w D0,srMode(A0) ; Otherwise, write out what we want.
|
|
|
|
Move.l A2,-(Sp) ; Set up to mark our change.
|
|
_ChangedResource ; Do it.
|
|
Move.l A2,-(Sp) ; Set up to write our change out.
|
|
_WriteResource ; Do it.
|
|
|
|
; Clean up and go homeÉ
|
|
;
|
|
@EndScrnChk _ReleaseResource ; Release the ÔscrnÕ resource.
|
|
@EndScrn Rts ; And return home.
|
|
|
|
Endwith
|
|
|
|
;----------------------------------------------------------------------------
|
|
; Main
|
|
;----------------------------------------------------------------------------
|
|
|
|
With SEBlock,SInitStackFrame
|
|
|
|
BeginSInit
|
|
|
|
Link A6,#SInitStackSize ; Allocate some space on the stack.
|
|
Move.w #seSuccess,seStatus(A0) ; No reason to fail here.
|
|
|
|
; Perform some generic intializations.
|
|
;
|
|
Move.b seSlot(A0),spBlk.spSlot(A6) ; Get our slot number from the Slot Manager.
|
|
Clr.b spBlk.spExtDev(A6) ; DonÕt ask why, always clear this guy.
|
|
|
|
; Check to see if the 'scrn' resource needs updating.
|
|
;
|
|
Bsr.s ChkScrn ; Whack the 'scrn' resource if necessary.
|
|
|
|
; Clean up and go home.
|
|
;
|
|
Unlk A6
|
|
Rts
|
|
|
|
Endwith |