mac-rom/Interfaces/AIncludes/CTBUtilities.a
Elliot Nunn 0ba83392d4 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-09-20 18:04:16 +08:00

157 lines
3.4 KiB
Plaintext

;_____________________________________________
; File: CTBUtilities.a
;
; Contains: Assembler interface to the CommToolbox Utilities
;
; Written by: Byron Han
;
; Copyright: © 1988-1992 by Apple Computer, Inc.
; All rights reserved.
;
; This file is used in these builds: BigBang
;
; Change History (most recent first):
;
; <13> 2/11/92 MH Add include of Traps.a to support reference to
; _CommToolboxDispatch
; <12> 11/21/91 MH Change the name of NLTypeEntry.ICON to hIcon to match C and
; Pascal. Retain ICON as an equate for hIcon for backwards
; compatibility
; <11> 8/27/91 CH Updated interface header for consistency.
; <10> 6/25/91 JNG Move Dialog manipulation calls to ToolEqu.a
; <9> 6/24/91 BH change conditional wrapper to conform to standards
; <8> 1/30/91 gbm sab, #38: Change the Ôalready including this fileÕ variable to
; all uppercase (for security reasons)
; <7> 1/25/91 stb .
; <6> 9/15/90 PWD Added _StandardNBP in prep for renaming _NuLookup. <kaz> <crz>
; <5> 9/15/90 PWD Moved popup constants to ToolEqu.a. <kaz> <crz>
; <4> 9/15/90 PWD Renamed popupUseCQD to popupReserved. <kaz> <crz>
; <3> 5/20/90 ngk Added constants for popup CDEF
; <2> 3/15/90 BBH fixed problem with the initial IF defined being missing
; <1> 3/13/90 BBH first checked in to BBS
;
; To Do:
;_____________________________________________
IF (&TYPE('__INCLUDINGCTBUTILITIES__') = 'UNDEFINED') THEN
__INCLUDINGCTBUTILITIES__ SET 1
IF &TYPE('__INCLUDINGTRAPS__') = 'UNDEFINED' THEN
INCLUDE 'Traps.a'
ENDIF
MACRO
_CTBCall &selector
move.w &selector,-(sp)
move.l sp,a0
_CommToolboxDispatch
adda.w #$2,sp ; Pop the selector back off
ENDM
; version of CommToolbox Utilities
curCTBUVersion EQU 2
; CTBUErr
ctbuGenericError EQU -1
ctbuNoErr EQU 0
; Choose responses
chooseDisaster EQU -2
chooseFailed EQU -1
chooseAborted EQU 0
chooseOKMinor EQU 1
chooseOKMajor EQU 2
chooseCancel EQU 3
; NuLookup responses
nlOk EQU 0
nlCancel EQU 1
nlEject EQU 2
; Name FilterProc responses
nameInclude EQU 1
nameDisable EQU 2
nameReject EQU 3
; Zone FilterProc responses
zoneInclude EQU 1
zoneDisable EQU 2
zoneReject EQU 3
; Dialog items for hook procedure
hookOK EQU 1
hookCancel EQU 2
hookOutline EQU 3
hookTitle EQU 4
hookItemlist EQU 5
hookZonetitle EQU 6
hookZonelist EQU 7
hookLine EQU 8
hookVersion EQU 9
hookReserved1 EQU 10
hookReserved2 EQU 11
hookReserved3 EQU 12
hookReserved4 EQU 13
; Virtual items in the dialog item list
hookNull EQU 100
hookItemRefresh EQU 101
hookZoneRefresh EQU 102
hookEject EQU 103
hookPreflight EQU 104
hookPostflight EQU 105
hookKeyBase EQU 1000
; NuLookup data structures
NLTypeEntry Record 0
hIcon ds.l 1
ICON EQU hIcon ; for backward compatibility
typeStr ds.b 34
EndR
NBPReply Record 0
theEntity ds.b 102
theAddr ds.l 1
EndR
InitCTBUtilities EQU $401
CTBGetCTBVersion EQU $405
NuLookup EQU $406
NuPLookup EQU $407
StandardNBP EQU $406
CustomNBP EQU $407
MACRO
_InitCTBUtilities
_CTBCall #InitCTBUtilities
ENDM
MACRO
_CTBGetCTBVersion
_CTBCall #CTBGetCTBVersion
ENDM
MACRO
_NuLookup
_CTBCall #NuLookup
ENDM
MACRO
_NuPLookup
_CTBCall #NuPLookup
ENDM
MACRO
_StandardNBP
_CTBCall #StandardNBP
ENDM
MACRO
_CustomNBP
_CTBCall #CustomNBP
ENDM
ENDIF ; already included