supermario/base/SuperMarioProj.1994-02-09/Toolbox/DataAccessMgr/DataAccessCompletion.a
2019-06-29 23:17:50 +08:00

102 lines
2.5 KiB
Plaintext

;
; File: DataAccessCompletion.a
;
; Contains: Internal Data Access Manager completion routine. Stored in a 'proc' resource
; so it is never unlocked or purged.
;
; Written by: Jeff Miller
;
; Copyright: © 1990, 1992 by Apple Computer, Inc., all rights reserved.
;
; Change History (most recent first):
;
; <4> 3/13/92 JSM Renamed this file DataAccessCompletion.a from SnarfCompletion.a,
; keeping all the old revisions.
; <3> 3/4/91 dba dty: get rid of extraneous forROM and SysVers stuff and turn off
; debugging symbols
; <2> 6/10/90 JSM Just touch this file so SnarfMan.a.rsrc is rebuilt correctly.
; <1> 3/12/90 JSM First checked in.
;
TITLE 'DataAccessCompletion.a'
STRING ASIS
CASE OBJ
;
; Define DataAccessDebug to get MacsBug labels
;
; IF &TYPE('DataAccessDebug')='UNDEFINED' THEN
DataAccessDebug EQU 0
; ENDIF
; Includes
PRINT OFF
LOAD 'StandardEqu.d'
INCLUDE 'DatabaseAccess.a'
PRINT ON
;
; Partial structure for variables during asynchronous calls.
; Make sure this matches definition in DatabaseAccessPriv.h!
; We only reference the executing field, so we don't need anything past that.
;
asyncVars RECORD 0
next DS.L 1 ; next pb in list
pb DS.L 1 ; async pb passed in to routine
params DS.L 1 ; pointer to ddev parameters
currAction DS.W 1 ; current action - selector or kAllDone
executing DS.B 1 ; true if executing
ENDR
;
;
; Macro to put in debug symbols for MacsBug
;
IF DataAccessDebug THEN
MACRO
DoDebugSymbols &name
DC.B $80 + &LEN(&name), '&name'
DC.W $0000
ENDM
ENDIF
;===============================================================================
;
; void DataAccessCR(); - Completion routine for asynchronous calls.
; On entry, A0 points to async parameter block
; in global list.
;
;===============================================================================
DataAccessCR PROC EXPORT
lEntry
MOVEM.L A0-A1, -(A7) ; save registers
WITH DBAsyncParamBlockRec
MOVE.L reserved(A0), A1 ; A1 = async variables
ENDWITH ; DBAsyncParamBlockRec
lDone ; tell DBIdle to process result
WITH asyncVars
MOVE.B #0, executing(A1) ; executing = false
ENDWITH ; asyncVars
MOVEM.L (A7)+, A0-A1 ; restore registers
MOVEQ #noErr, D0 ; just for completeness
RTS
IF DataAccessDebug THEN
DoDebugSymbols DataAccessCR ; label for MacsBug
ENDIF
ENDPROC ; end of DataAccessManCR
END