mirror of
https://github.com/elliotnunn/sys7.1-doc-wip.git
synced 2024-12-12 20:29:12 +00:00
86 lines
1.9 KiB
Plaintext
86 lines
1.9 KiB
Plaintext
|
;_____________________________________________
|
|||
|
|
; File: FileTransferTools.a
|
|||
|
|
;
|
|||
|
|
; Contains: Assembler Interface to the File Transfer Manager Tools
|
|||
|
|
;
|
|||
|
|
; Written by: Byron Han
|
|||
|
|
;
|
|||
|
|
; Copyright: © 1988-1991 by Apple Computer, Inc.
|
|||
|
|
; All rights reserved.
|
|||
|
|
;
|
|||
|
|
; Change History (most recent first):
|
|||
|
|
;
|
|||
|
|
; <6> 8/27/91 CH Updated interface headers for consistency.
|
|||
|
|
; <5> 8/15/91 MH Remove outer parens from conditional assembly predicates to
|
|||
|
|
; match standard form
|
|||
|
|
; <4> 6/26/91 BH added messages for ftSendMsg and ftReceiveMsg
|
|||
|
|
; <3> 6/24/91 BH change conditional wrapper to conform to standards
|
|||
|
|
; <2> 1/30/91 gbm sab, #38: Change the ‘already including this file’ variable to
|
|||
|
|
; all uppercase (for security reasons)
|
|||
|
|
; <1> 3/14/90 BBH first checked in
|
|||
|
|
;
|
|||
|
|
; To Do:
|
|||
|
|
;_____________________________________________
|
|||
|
|
|
|||
|
|
IF &TYPE('__INCLUDINGFILETRANSFERTOOLS__') = 'UNDEFINED' THEN
|
|||
|
|
__INCLUDINGFILETRANSFERTOOLS__ SET 1
|
|||
|
|
|
|||
|
|
; messages for fDEFs
|
|||
|
|
ftInitMsg EQU 0
|
|||
|
|
ftDisposeMsg EQU 1
|
|||
|
|
ftSuspendMsg EQU 2
|
|||
|
|
ftResumeMsg EQU 3
|
|||
|
|
ftMenuMsg EQU 4
|
|||
|
|
ftEventMsg EQU 5
|
|||
|
|
ftActivateMsg EQU 6
|
|||
|
|
ftDeactivateMsg EQU 7
|
|||
|
|
ftGetErrorStringMsg EQU 8
|
|||
|
|
|
|||
|
|
ftAbortMsg EQU 52
|
|||
|
|
|
|||
|
|
ftStartMsg EQU 100
|
|||
|
|
ftExecMsg EQU 102
|
|||
|
|
ftSendMsg EQU 103
|
|||
|
|
ftReceiveMsg EQU 104
|
|||
|
|
|
|||
|
|
; messages for validate DefProc
|
|||
|
|
|
|||
|
|
ftValidateMsg EQU 0
|
|||
|
|
ftDefaultMsg EQU 1
|
|||
|
|
|
|||
|
|
; messages for Setup DefProc
|
|||
|
|
|
|||
|
|
ftSpreflightMsg EQU 0
|
|||
|
|
ftSsetupMsg EQU 1
|
|||
|
|
ftSitemMsg EQU 2
|
|||
|
|
ftSfilterMsg EQU 3
|
|||
|
|
ftScleanupMsg EQU 4
|
|||
|
|
|
|||
|
|
; messages for scripting defProc
|
|||
|
|
ftMgetMsg EQU 0
|
|||
|
|
ftMsetMsg EQU 1
|
|||
|
|
|
|||
|
|
; messages for localization defProc
|
|||
|
|
|
|||
|
|
ftL2English EQU 0
|
|||
|
|
ftL2Intl EQU 1
|
|||
|
|
|
|||
|
|
; def type
|
|||
|
|
|
|||
|
|
fsetType EQU 'fset'
|
|||
|
|
fvalType EQU 'fval'
|
|||
|
|
flocType EQU 'floc'
|
|||
|
|
fscrType EQU 'fscr'
|
|||
|
|
fdefType EQU 'fdef'
|
|||
|
|
fbndType EQU 'fbnd'
|
|||
|
|
fverType EQU 'vers'
|
|||
|
|
|
|||
|
|
FTSetupStruct Record 0
|
|||
|
|
theDialog ds.l 1
|
|||
|
|
count ds.w 1
|
|||
|
|
theConfig ds.l 1
|
|||
|
|
procID ds.w 1
|
|||
|
|
FTSetupStructSize EQU *
|
|||
|
|
EndR
|
|||
|
|
|
|||
|
|
ENDIF ; already included
|