mac-rom/Libs/InterfaceSrcs/ENet.a
Elliot Nunn 4325cdcc78 Bring in CubeE sources
Resource forks are included only for .rsrc files. These are DeRezzed into their data fork. 'ckid' resources, from the Projector VCS, are not included.

The Tools directory, containing mostly junk, is also excluded.
2017-12-26 09:52:23 +08:00

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