sys7.1-doc-wip/Libs/InterfaceSrcs/MACINTOSH.a
2019-07-27 22:37:48 +08:00

53 lines
1.4 KiB
Plaintext

;
; File: MACINTOSH.a
;
; Contains: create file Macintosh.d, an assembler load/dump file that contains the
; Macintosh Library Interfaces.
;
; Copyright: © 1985-1992 by Apple Computer, Inc., all rights reserved.
;
; This file is used in these builds: ROM System
;
; Change History (most recent first):
;
; <SM2> 10/28/92 SWC Changed INCLUDEs to a LOAD of StandardEqu.d.
; <2> 6/12/91 LN Removed #includes for private interfaces from public interfaces.
; Changed #include 'HardwareEqu.a' to #include 'HardwarePrivateEqu.a'
;
blanks on
string asis
case obj
RSDHndl EQU $28A ;$FFFFFFFF until initialized
LOAD 'StandardEqu.d'
Include 'HardwarePrivateEqu.a'
;-------------------------------------------------------------------------------
;
; macro OsCall name
;
; This macro is used to handle most of the low-level file manager calls which
; take a Ptr to a parameter block and a Boolean sync/async flag as parameters.
; The Ptr to the paramter block is loaded into a0, and the appropriate trap
; call is made based on the sync flag.
;
macro
OsCall
move.l 4(sp),a0 ; get param pointer.
move.l 8(sp),d0 ; Get ASync flag.
bne.s @1
&SysLst[1] ; tell OS to do it Synchronously
bra.s @2
@1 &SysLst[1] ,ASYNC ; Tell OS to do it Asynchronously
@2 ext.l d0 ; sign extend error code
rts ; return to caller
endm