sys7.1-doc-wip/Internal/Asm/EditionsPrivate.a
2019-07-27 22:37:48 +08:00

82 lines
1.8 KiB
Plaintext
Raw Blame History

This file contains ambiguous Unicode characters

This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

;
; 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