mirror of
https://github.com/elliotnunn/mac-rom.git
synced 2024-06-14 17:29:44 +00:00
4325cdcc78
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.
152 lines
4.6 KiB
Plaintext
152 lines
4.6 KiB
Plaintext
;
|
|
; File: PPCGlue.a
|
|
;
|
|
; Contains: PPC Toolbox Glue Library
|
|
;
|
|
; Written by: Victor Chang, Sangam, and Eric M. Trehus
|
|
;
|
|
; Copyright: © 1989-1992 by Apple Computer, Inc. All rights reserved.
|
|
;
|
|
; This file is used in these builds: BigBang
|
|
;
|
|
; Change History (most recent first):
|
|
;
|
|
; <SM2> 10/28/92 SWC Changed INCLUDEs to a LOAD of StandardEqu.d.
|
|
; <8> 12/13/90 EMT <JSM> Change glue to support the standard calling conventions.
|
|
; Removed glue for PromptForUser.
|
|
; <7> 10/2/90 JAL Removed debugger symbols, changed adda.l to LEA.
|
|
; <6> 9/18/90 gbm Add an END statement to this file, to avoid warnings... also
|
|
; terrorized it a little
|
|
; <5> 9/15/90 JSM Should be adding instead of subtracting when cleaning up
|
|
; parameters after non-PB calls, remove glue for internal
|
|
; routines.
|
|
; <4> 9/14/90 VC DeleteUserIdentity now takes a parameter of unsigned long, so we
|
|
; need to remove 4 bytes from the stack before returning.
|
|
; <3> 8/10/90 S Fix glue for CloseAcceptedsessions and CountAcceptedSessions.
|
|
; <3> 8/10/90 S Fix glue for closeacceptednetworksessions.
|
|
; <2> 5/31/90 EMT Added glue code for new internal calls
|
|
; PPCCountAcceptedNetworkSessions and PPCCloseUserSessions
|
|
; <1.2> 11/28/89 CVC Added the StartSecureSession call.
|
|
; <1.1> 11/2/89 CVC Added access control calls.
|
|
; <1.0> 9/18/89 CVC Adding PPC toolbox for the first time.
|
|
;
|
|
|
|
BLANKS ON
|
|
STRING ASIS
|
|
|
|
PRINT OFF
|
|
LOAD 'StandardEqu.d'
|
|
INCLUDE 'PPCToolBox.a'
|
|
INCLUDE 'PPCPriv.a'
|
|
PRINT ON
|
|
|
|
EJECT
|
|
|
|
MACRO
|
|
PPCCall
|
|
MOVEQ &SYSLIST[1],D0 ;set the cmd code.
|
|
Move.L (SP)+,A1 ;get return address
|
|
Move.B (SP)+,D1 ;Get ASync flag.
|
|
Move.L (SP)+,A0 ;get param pointer.
|
|
BNE.S @1 ;do it the other way
|
|
DC.W $A0DD ;tell OS to do it Synchronously
|
|
BRA.S @2 ;skip around async call
|
|
@1 DC.W $A4DD ;Tell OS to do it Asynchronously
|
|
@2 Move.W D0,(SP) ;save result
|
|
Jmp (A1) ;return to caller
|
|
ENDM
|
|
|
|
;
|
|
; FUNCTION PPCInit (): OsErr;
|
|
; FUNCTION PPCOpen (ppcPb: PPCParamBlkPtr, aSync: BOOLEAN): OsErr;
|
|
; Function PPCInform(ppcPb: PPCParamBlkPtr, aSync: BOOLEAN): OsErr;
|
|
; FUNCTION PPCStart (ppcPb: PPCParamBlkPtr, aSync: BOOLEAN): OsErr;
|
|
; FUNCTION PPCAccept (ppcPb: PPCParamBlkPtr, aSync: BOOLEAN): OsErr;
|
|
; FUNCTION PPCReject (ppcPb: PPCParamBlkPtr, aSync: BOOLEAN): OsErr;
|
|
; FUNCTION PPCWrite (ppcPb: PPCParamBlkPtr, aSync: BOOLEAN): OsErr;
|
|
; FUNCTION PPCRead (ppcPb: PPCParamBlkPtr, aSync: BOOLEAN): OsErr;
|
|
; FUNCTION PPCEnd (ppcPb: PPCParamBlkPtr, aSync: BOOLEAN): OsErr;
|
|
; FUNCTION PPCClose (ppcPb: PPCParamBlkPtr, aSync: BOOLEAN): OsErr;
|
|
; FUNCTION IPCListPorts (ppcPb: PPCParamBlkPtr, aSync: BOOLEAN): OsErr;
|
|
;
|
|
|
|
PPCOpen PROC EXPORT
|
|
PPCCall #ppcOpenCmd
|
|
|
|
PPCStart PROC EXPORT
|
|
PPCCall #ppcStartCmd
|
|
|
|
PPCInform PROC EXPORT
|
|
PPCCall #ppcInformCmd
|
|
|
|
PPCAccept PROC EXPORT
|
|
PPCCall #ppcAcceptCmd
|
|
|
|
PPCReject PROC EXPORT
|
|
PPCCall #ppcRejectCmd
|
|
|
|
PPCWrite PROC EXPORT
|
|
PPCCall #ppcWriteCmd
|
|
|
|
PPCRead PROC EXPORT
|
|
PPCCall #ppcReadCmd
|
|
|
|
PPCEnd PROC EXPORT
|
|
PPCCall #ppcEndCmd
|
|
|
|
PPCClose PROC EXPORT
|
|
PPCCall #ppcCloseCmd
|
|
|
|
IPCListPorts PROC EXPORT
|
|
PPCCall #IPCListPortsCmd
|
|
|
|
;
|
|
; pascal OSErr PromptForUserIdentity ( UserRefNum *userRef,
|
|
; Name *userName,
|
|
; Boolean *guestSelected,
|
|
; Boolean allowGuest,
|
|
; Str255 prompt);
|
|
|
|
;
|
|
; pascal OSErr DeleteUserIdentity ( UserRefNum userRef);
|
|
;
|
|
; pascal OSErr GetDefaultUser ( UserRefNum *userRef,
|
|
; Name *userName);
|
|
|
|
;pascal OSErr StartSecureSession ( PPCStartParam startPb,
|
|
; StringPtr userName,
|
|
; Boolean useDefault,
|
|
; Boolean allowGuest,
|
|
; Boolean *guestSelected,
|
|
; StringPtr prompt);
|
|
;
|
|
DeleteUserIdentity PROC EXPORT
|
|
Move.L (SP)+,A1 ;get return address
|
|
Move.L SP,A0 ;A0 points to parameters on the stack
|
|
Moveq #DeleteUserCmd,D0
|
|
DC.W $A0DD
|
|
Addq.L #4,SP
|
|
Move.W D0,(SP)
|
|
Jmp (A1)
|
|
|
|
;
|
|
GetDefaultUser PROC EXPORT
|
|
Move.L (SP)+,A1 ;get return address
|
|
Move.L SP,A0 ;A0 points to parameters on the stack
|
|
Moveq #GetDefaultUserCmd,D0
|
|
DC.W $A0DD
|
|
Addq.L #8,SP
|
|
Move.W D0,(SP)
|
|
Jmp (A1)
|
|
;
|
|
StartSecureSession PROC EXPORT
|
|
Move.L (SP)+,A1 ;get return address
|
|
Move.L SP,A0 ;A0 points to parameters on the stack
|
|
Moveq #StartSecureCmd,D0
|
|
DC.W $A0DD
|
|
LEA 20(SP),SP
|
|
Move.W D0,(SP)
|
|
Jmp (A1)
|
|
|
|
END
|