mirror of
https://github.com/elliotnunn/sys7.1-doc-wip.git
synced 2024-06-11 23:29:30 +00:00
79 lines
1.3 KiB
Plaintext
79 lines
1.3 KiB
Plaintext
;
|
|
; File ENet.a
|
|
;
|
|
; Copyright Apple Computer, Inc. 1990
|
|
; All Rights Reserved.
|
|
;
|
|
; 07/20/90 JAL Created.
|
|
;
|
|
|
|
STRING ASIS
|
|
PRINT OFF
|
|
INCLUDE 'SysEqu.a'
|
|
INCLUDE 'Traps.a'
|
|
INCLUDE 'SysErr.a'
|
|
INCLUDE 'ENetEqu.a'
|
|
PRINT ON
|
|
|
|
nENetCalls PROC EXPORT
|
|
|
|
EXPORT ESetGeneral, EGetInfo, ERdCancel, ERead
|
|
EXPORT EWrite, EDetachPH, EAttachPH, EAddMulti, EDelMulti
|
|
|
|
ESetGeneral
|
|
MOVE.W #ENetSetGeneral,D0
|
|
BRA.S CtlCall
|
|
|
|
EGetInfo
|
|
MOVE.W #ENetGetInfo,D0
|
|
BRA.S CtlCall
|
|
|
|
ERdCancel
|
|
MOVE.W #ENetRdCancel,D0
|
|
BRA.S CtlCall
|
|
|
|
ERead
|
|
MOVE.W #ENetRead,D0
|
|
BRA.S CtlCall
|
|
|
|
EWrite
|
|
MOVE.W #ENetWrite,D0
|
|
BRA.S CtlCall
|
|
|
|
EDetachPH
|
|
MOVE.W #ENetDetachPH,D0
|
|
BRA.S CtlCall
|
|
|
|
EAttachPH
|
|
MOVE.W #ENetAttachPH,D0
|
|
BRA.S CtlCall
|
|
|
|
EAddMulti
|
|
MOVE.W #ENetAddMulti,D0
|
|
BRA.S CtlCall
|
|
|
|
EDelMulti
|
|
MOVE.W #ENetDelMulti,D0
|
|
|
|
CtlCall
|
|
Move.L (SP)+,A1 ;return address (Reg call preserves A1)
|
|
Move.B (SP)+,D1 ;Get ASync flag.
|
|
Move.L (SP)+,A0 ;get param pointer.
|
|
MOVE.W D0,CSCode(A0) ;csCode in param block to do right call.
|
|
TST.B D1 ;test ASync flag.
|
|
BNE.S @1
|
|
|
|
_Control ;tell OS to do it Synchronously
|
|
BrA.S @2
|
|
|
|
@1 _Control ,ASYNC ;Tell OS to do it Asynchronously
|
|
|
|
@2 Move.W D0,(SP) ;set function result
|
|
Jmp (A1) ;return to caller
|
|
|
|
|
|
ENDPROC
|
|
|
|
END
|
|
|