82 lines
1.8 KiB
Plaintext
Raw Normal View History

2019-06-29 23:17:50 +08:00
;
; File: EditionsPrivate.a
;
; Contains: subset of EditionsPrivate.p that is needed in assembly
;
; Written by: Nick Kledzik
;
; Copyright: © 1990 by Apple Computer, Inc., all rights reserved.
;
; Change History (most recent first):
;
; <7> 1/30/91 gbm sab, #38: Change the already including this file variable to
; all uppercase (for security reasons)
; <6> 5/31/90 ngk update globals record structure
; <4> 4/7/90 ngk Added bogus IO routine constant, FailInfo
; <3> 3/10/90 ngk Removed dialogCodeH
; <2> 1/22/90 ngk Added symbolic names for standard procs
; <1> 1/6/90 ngk first checked in
;
; To Do:
;
IF &TYPE('__INCLUDINGEDITIONSPRIVATE__') = 'UNDEFINED' THEN
__INCLUDINGEDITIONSPRIVATE__ SET 1
kStandardOpenerProcPtr EQU 0
kStandardFormatIOProcPtr EQU 0
kBogusFormatIOProcPtr EQU 1
; ====================================== Global Data ========================================
EdtnMgrGlobals RECORD 0
firstPubCB DS.L 1
lastPubCB DS.L 1
perAppListHead DS.L 1
nextPollTime DS.L 1
A6Link DS.L 1
gotoHere DS.L 1
failureHandler DS.L 1
lastEditionUsed DS.L 1
volumeNotifyCode DS.W 3
ENDR
FailInfo RECORD 0
regs DS.L 11
returnTo DS.L 1
errorPtr DS.L 1
nextInfo DS.L 1
error DS.W 1
ENDR
; ====================================== Internal Routines ========================================
; FUNCTION PostSectionEvent(sectionH: SectionHandle; toApp: AppRefNum; classID: ResType): OSErr;
MACRO
_PostSectionEvent
MOVE.W #$06FA,D0
_Pack11
ENDM
; FUNCTION EditionBackGroundTask: OSErr;
MACRO
_EditionBackGroundTask
MOVE.W #$00FC,D0
_Pack11
ENDM
; FUNCTION QuitEditionPack: OSErr;
MACRO
_QuitEditionPack
MOVE.W #$00FE,D0
_Pack11
ENDM
ENDIF ; ...already included