mirror of
https://github.com/elliotnunn/sys7.1-doc-wip.git
synced 2024-12-12 20:29:12 +00:00
81 lines
2.9 KiB
Plaintext
81 lines
2.9 KiB
Plaintext
|
; File: DDEV.a
|
|||
|
|
;
|
|||
|
|
; Assembler Interface to the Macintosh Libraries
|
|||
|
|
; Copyright Apple Computer, Inc. 1989-90
|
|||
|
|
; 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)
|
|||
|
|
; <2> 1/4/90 JSM Change some variable names in response to suggestions from
|
|||
|
|
; documentation.
|
|||
|
|
; <1> 12/19/89 JSM Adding to public includes for the first time.
|
|||
|
|
;___________________________________________________________________________
|
|||
|
|
|
|||
|
|
IF &TYPE('__INCLUDINGDDEV__') = 'UNDEFINED' THEN
|
|||
|
|
__INCLUDINGDDEV__ SET 1
|
|||
|
|
|
|||
|
|
; messages for ddev
|
|||
|
|
|
|||
|
|
kDBInit EQU 0
|
|||
|
|
kDBEnd EQU 1
|
|||
|
|
kDBGetConnInfo EQU 2
|
|||
|
|
kDBGetSessionNum EQU 3
|
|||
|
|
kDBSend EQU 4
|
|||
|
|
kDBSendItem EQU 5
|
|||
|
|
kDBExec EQU 6
|
|||
|
|
kDBState EQU 7
|
|||
|
|
kDBGetErr EQU 8
|
|||
|
|
kDBBreak EQU 9
|
|||
|
|
kDBGetItem EQU 10
|
|||
|
|
kDBUnGetItem EQU 11
|
|||
|
|
kDBKill EQU 12
|
|||
|
|
kDBOpen EQU 100
|
|||
|
|
kDBClose EQU 101
|
|||
|
|
kDBIdle EQU 102
|
|||
|
|
|
|||
|
|
kDDEVName EQU 128 ; ID of STR resource with ddev name
|
|||
|
|
kDDEVID EQU 128 ; ID of 'ddev' resource
|
|||
|
|
kDDEVFlags EQU 128 ; ID of 'dflg' resource
|
|||
|
|
|
|||
|
|
kAsyncSupported EQU 1 ; bit for async support
|
|||
|
|
|
|||
|
|
DDEVFlags RECORD 0
|
|||
|
|
version DS.L 1 ; always 0 for this release
|
|||
|
|
flags DS.L 1 ; flags
|
|||
|
|
DDEVFlagsSize EQU *
|
|||
|
|
ENDR
|
|||
|
|
|
|||
|
|
DDEVParams RECORD 0
|
|||
|
|
message DS.W 1 ; action for ddev
|
|||
|
|
ddevStorage DS.L 1 ; storage for ddev
|
|||
|
|
asyncPB DS.L 1 ; async parameter block pointer
|
|||
|
|
sessID DS.L 1 ; session ID
|
|||
|
|
returnedID DS.L 1 ; session ID returned by DBGetConnInfo
|
|||
|
|
version DS.L 1 ; version returned by DBGetConnInfo
|
|||
|
|
start DS.L 1 ; start returned by DBGetConnInfo
|
|||
|
|
host DS.L 1 ; host for DBInit and DBGetConnInfo
|
|||
|
|
user DS.L 1 ; user for DBInit and DBGetConnInfo
|
|||
|
|
password DS.L 1 ; password for DBInit and DBGetConnInfo
|
|||
|
|
connStr DS.L 1 ; connection str for DBInit and DBGetConnInfo
|
|||
|
|
network DS.L 1 ; network for DBGetConnInfo
|
|||
|
|
buffer DS.L 1 ; buffer used in several calls
|
|||
|
|
err1 DS.L 1 ; error 1 for DBGetErr
|
|||
|
|
err2 DS.L 1 ; error 2 for DBGetErr
|
|||
|
|
item1 DS.L 1 ; item 1 for DBGetErr
|
|||
|
|
item2 DS.L 1 ; item 2 for DBGetErr
|
|||
|
|
errorMsg DS.L 1 ; errorMsg for DBGetErr
|
|||
|
|
timeout DS.L 1 ; timeout for DBGetItem
|
|||
|
|
dataType DS.L 1 ; type for several calls
|
|||
|
|
sessNum DS.W 1 ; session number for DBGetConnInfo
|
|||
|
|
; and DBGetSessionNum
|
|||
|
|
state DS.W 1 ; state for DBGetConnInfo
|
|||
|
|
len DS.W 1 ; length of buffer
|
|||
|
|
places DS.W 1 ; places for DBSendItem and DBGetItem
|
|||
|
|
flags DS.W 1 ; flags for DBSendItem and DBGetItem
|
|||
|
|
abort DS.B 1 ; abort for DBBreak
|
|||
|
|
DDEVParamsSize EQU *
|
|||
|
|
ENDR
|
|||
|
|
|
|||
|
|
ENDIF ; ...already included
|