mirror of
https://github.com/elliotnunn/mac-rom.git
synced 2024-12-26 18:29:56 +00:00
4325cdcc78
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.
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: © 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Õ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
|