mirror of
https://github.com/elliotnunn/mac-rom.git
synced 2024-12-31 19:33:04 +00:00
157 lines
3.4 KiB
Plaintext
157 lines
3.4 KiB
Plaintext
|
;_____________________________________________
|
|||
|
|
; File: CTBUtilities.a
|
|||
|
|
;
|
|||
|
|
; Contains: Assembler interface to the CommToolbox Utilities
|
|||
|
|
;
|
|||
|
|
; Written by: Byron Han
|
|||
|
|
;
|
|||
|
|
; Copyright: <09> 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 <20>already including this file<6C> 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
|