mac-rom/Tidbits/SplashScreenINIT.a
Elliot Nunn 4325cdcc78 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-12-26 09:52:23 +08:00

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