mirror of
https://github.com/elliotnunn/mac-rom.git
synced 2024-12-27 10:29:32 +00:00
74 lines
2.0 KiB
Plaintext
74 lines
2.0 KiB
Plaintext
|
;
|
|||
|
|
; File: SplashScreenINIT.a
|
|||
|
|
;
|
|||
|
|
; Contains: code to put up an alert containing a legal notice for seeded software
|
|||
|
|
;
|
|||
|
|
; Written by: Chris Derossi
|
|||
|
|
;
|
|||
|
|
; Copyright: <09> 1990 by Apple Computer, Inc., all rights reserved.
|
|||
|
|
;
|
|||
|
|
; Change History (most recent first):
|
|||
|
|
;
|
|||
|
|
; <3> 4/16/90 KSM Changed CautionAlert to Alert.
|
|||
|
|
; <2> 3/28/90 csd replaced the selected text which the check-in script deleted for
|
|||
|
|
; me.
|
|||
|
|
; <1> 3/28/90 csd first checked in--puts up a splash screen at boot time for
|
|||
|
|
; legal, pre-release messages.
|
|||
|
|
;
|
|||
|
|
|
|||
|
|
|
|||
|
|
LOAD 'StandardEqu.d'
|
|||
|
|
|
|||
|
|
SplashAlert EQU -16481 ; our alert number
|
|||
|
|
|
|||
|
|
splashScreenFrame RECORD 0,DECREMENT
|
|||
|
|
saveQDExists ds.w 1 ; saves QDExists flag
|
|||
|
|
saveA5 ds.l 1
|
|||
|
|
localA5 ds.l 1
|
|||
|
|
thePort ds.l 1 ; my own QuickDraw (required!)
|
|||
|
|
ds.b grafSize-4 ; other QuickDraw globals (except thePort)
|
|||
|
|
varsSize equ *
|
|||
|
|
ENDR
|
|||
|
|
|
|||
|
|
;---------------------------------------------------------------------
|
|||
|
|
SplashScreen MAIN EXPORT
|
|||
|
|
WITH splashScreenFrame
|
|||
|
|
|
|||
|
|
BRA @splash
|
|||
|
|
DC.L ('INIT') ; resource type INIT
|
|||
|
|
DC.W 12 ; id 12
|
|||
|
|
DC.W 1 ; version 1
|
|||
|
|
|
|||
|
|
@splash
|
|||
|
|
link a6,#varsSize ; create stack frame
|
|||
|
|
|
|||
|
|
move.l a5,saveA5(a6) ; save host A5
|
|||
|
|
lea localA5(a6),a5 ; setup new A5
|
|||
|
|
move.b QDExist,saveQDExists(a6) ; save state of QDExist flag
|
|||
|
|
|
|||
|
|
pea thePort(a6) ; ptr to our quickdraw globals
|
|||
|
|
_InitGraf ; Init our QD world
|
|||
|
|
|
|||
|
|
_InitFonts ; init the font manager
|
|||
|
|
|
|||
|
|
_InitWindows ; init the window manager
|
|||
|
|
|
|||
|
|
_InitMenus ; init the menu manager
|
|||
|
|
_TEInit ; init TextEdit
|
|||
|
|
|
|||
|
|
clr.l -(sp) ; no resume proc
|
|||
|
|
_InitDialogs
|
|||
|
|
|
|||
|
|
subq #2,sp ; room for function result
|
|||
|
|
move.w #SplashAlert,-(sp) ; push our alert ID
|
|||
|
|
clr.l -(sp) ; no ProcPtr
|
|||
|
|
_Alert ; put up the alert
|
|||
|
|
addq.w #2, sp ; we don<6F>t care about the result
|
|||
|
|
move.b saveQDExists(a6),QDExist ; restore state of QDExist flag
|
|||
|
|
move.l saveA5(a6),a5 ; restore host A5
|
|||
|
|
|
|||
|
|
unlk a6 ; dump our locals
|
|||
|
|
rts
|
|||
|
|
|
|||
|
|
END
|