mirror of
https://github.com/elliotnunn/sys7.1-doc-wip.git
synced 2024-06-12 14:29:29 +00:00
53 lines
1.4 KiB
Plaintext
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
|
|
|
|
|