mirror of
https://github.com/elliotnunn/mac-rom.git
synced 2024-12-28 16:31:01 +00:00
537 lines
12 KiB
Plaintext
537 lines
12 KiB
Plaintext
|
;
|
|||
|
; File: ConnectionMgrGlue.a
|
|||
|
;
|
|||
|
; Contains: xxx put contents here xxx
|
|||
|
;
|
|||
|
; Written by: xxx put writers here xxx
|
|||
|
;
|
|||
|
; Copyright: <09> 1990 by Apple Computer, Inc., all rights reserved.
|
|||
|
;
|
|||
|
; Change History (most recent first):
|
|||
|
;
|
|||
|
; <1> 3/14/90 BBH first checked in
|
|||
|
;
|
|||
|
; To Do:
|
|||
|
;
|
|||
|
|
|||
|
; File : CMGRGlue.a
|
|||
|
;--------------------------------
|
|||
|
;
|
|||
|
; Glue for Connection Manager
|
|||
|
;
|
|||
|
; Written by Dean Wong May 1988
|
|||
|
;
|
|||
|
; Modified Oct 1988 Byron Han
|
|||
|
; Added CMChoose routine
|
|||
|
;
|
|||
|
; (c) 1988 by Apple Computer, Inc. All rights reserved.
|
|||
|
;
|
|||
|
;
|
|||
|
; MODIFICATION HISTORY :
|
|||
|
;
|
|||
|
; 4/7/89 JNG Changed CMGetConnName to CMGetTermName
|
|||
|
; 4/11/89 JNG Changed CMGetRefCon, CMSetRefCon, CMGetUserData, CMSetUserData, CMGetVersion
|
|||
|
; to trap into the CTBCore version of the call.
|
|||
|
; 4/12/89 JNG Changed CMGetToolName to trap into CTBCore
|
|||
|
; 4/17/89 JNG Removed CMValidate CMDefault to CTBCore
|
|||
|
; 4/18/89 JNG Moved CMGetProcID to CTBCore
|
|||
|
; 4/20/89 BBH Added MgrSel to CTBVersion
|
|||
|
; Converted glue to direct setup, config, local, choose routines into core
|
|||
|
; Accidentally left out commtooltrap from getconfig
|
|||
|
; 4/24/89 JNG Moved CMResume CMMenu CMEvent CMActivate CMReset CMIdle
|
|||
|
; CMAbort to CTBCore
|
|||
|
; BBH Added support for CMGetConnEnvirons
|
|||
|
; 5/24/89 JNG Change in Glue/Entry. Glue no longer mucks with all of the parameters.
|
|||
|
; It now just removes the return address, pushes the selector, and pushes the
|
|||
|
; return address back onto the stack. On return from the trap,
|
|||
|
; 5/25/89 JNG Moved macros into CTBCore.a
|
|||
|
; 6/2/89 JNG Finished glue changes.
|
|||
|
; 6/26/89 BBH Added CMPChoose
|
|||
|
;
|
|||
|
; 1/26/90 BBH Fixed CMGetErrorString
|
|||
|
|
|||
|
INCLUDE 'Traps.a'
|
|||
|
INCLUDE 'CommToolboxPriv.a'
|
|||
|
|
|||
|
; FUNCTION InitCM: CMErr;
|
|||
|
; Major Selector -> 1;
|
|||
|
; Minor Selector -> 1;
|
|||
|
;
|
|||
|
|
|||
|
InitCM FUNC EXPORT
|
|||
|
|
|||
|
_CTBTrap #$101
|
|||
|
EndCTBTrap #$2,W
|
|||
|
ENDFUNC
|
|||
|
|
|||
|
|
|||
|
; Procedure CMSetRefCon( hConn : ConnHandle; rC : Longint );
|
|||
|
; Major Selector -> 1;
|
|||
|
; Minor Selector -> 2;
|
|||
|
;
|
|||
|
CMSetRefCon PROC EXPORT
|
|||
|
_CTBTrap #$102
|
|||
|
EndCTBTrap #$A
|
|||
|
ENDPROC
|
|||
|
|
|||
|
|
|||
|
; Function CMGetRefCon( hConn : ConnHandle ) : Longint;
|
|||
|
; Major Selector -> 1;
|
|||
|
; Minor Selector -> 3;
|
|||
|
;
|
|||
|
CMGetRefCon FUNC EXPORT
|
|||
|
_CTBTrap #$103
|
|||
|
EndCTBTrap #$6,L
|
|||
|
ENDFUNC
|
|||
|
|
|||
|
|
|||
|
; Procedure CMSetUserData( hConn : ConnHandle; uD : Longint );
|
|||
|
; Major Selector -> 1;
|
|||
|
; Minor Selector -> 4;
|
|||
|
;
|
|||
|
CMSetUserData PROC EXPORT
|
|||
|
_CTBTrap #$104
|
|||
|
EndCTBTrap #$A
|
|||
|
ENDPROC
|
|||
|
|
|||
|
|
|||
|
; Function CMGetUserData( hConn : ConnHandle ) : Longint;
|
|||
|
; Major Selector -> 1;
|
|||
|
; Minor Selector -> 5;
|
|||
|
;
|
|||
|
CMGetUserData FUNC EXPORT
|
|||
|
_CTBTrap #$105
|
|||
|
EndCTBTrap #$6,L
|
|||
|
ENDFUNC
|
|||
|
|
|||
|
|
|||
|
; Procedure CMGetToolName( procID : Integer; VAR name : Str255 );
|
|||
|
; Major Selector -> 1;
|
|||
|
; Minor Selector -> 6;
|
|||
|
;
|
|||
|
CMGetToolName PROC EXPORT
|
|||
|
_CTBTrap #$106
|
|||
|
EndCTBTrap #$8
|
|||
|
ENDPROC
|
|||
|
|
|||
|
|
|||
|
; Function CMGetProcID( name : Str255 ) : Integer;
|
|||
|
; Major Selector -> 1;
|
|||
|
; Minor Selector -> 7;
|
|||
|
;
|
|||
|
CMGetProcID FUNC EXPORT
|
|||
|
_CTBTrap #$107
|
|||
|
EndCTBTrap #$6,W
|
|||
|
ENDFUNC
|
|||
|
|
|||
|
|
|||
|
; Function CMNew( theProcID : integer; theFlags : LONGINT; desiredSizes : BufferSizes;
|
|||
|
; theRefcon : longint; theUserData : longint ) : ConnHandle;
|
|||
|
; Major Selector -> 1;
|
|||
|
; Minor Selector -> 8;
|
|||
|
;
|
|||
|
|
|||
|
CMNew FUNC EXPORT
|
|||
|
_CTBTrap #$108 ; Set up and call the trap
|
|||
|
EndCTBTrap #$14,L ; Stuff result and return to caller
|
|||
|
ENDFUNC
|
|||
|
|
|||
|
; Procedure CMDispose( hConn : ConnHandle );
|
|||
|
; Major Selector -> 1;
|
|||
|
; Minor Selector -> 9;
|
|||
|
|
|||
|
CMDispose PROC EXPORT
|
|||
|
_CTBTrap #$109
|
|||
|
EndCTBTrap #$6
|
|||
|
ENDPROC
|
|||
|
|
|||
|
|
|||
|
; Procedure CMIdle( hConn : ConnHandle );
|
|||
|
; Major Selector -> 1;
|
|||
|
; Minor Selector -> 10;
|
|||
|
;
|
|||
|
CMIdle PROC EXPORT
|
|||
|
_CTBTrap #$10A
|
|||
|
EndCTBTrap #$6
|
|||
|
ENDPROC
|
|||
|
|
|||
|
|
|||
|
; Function CMOpen( hConn : ConnHandle; theAsync : Boolean; completor : ProcPtr;
|
|||
|
; timeout : longint ) : CMErr;
|
|||
|
; Major Selector -> 1;
|
|||
|
; Minor Selector -> B;
|
|||
|
;
|
|||
|
;
|
|||
|
CMOpen FUNC EXPORT
|
|||
|
_CTBTrap #$10B
|
|||
|
EndCTBTrap #$10,W
|
|||
|
ENDFUNC
|
|||
|
|
|||
|
|
|||
|
; Function CMListen( hConn : ConnHandle; theAsync : Boolean; completor : ProcPtr;
|
|||
|
; timeout : longint ) : CMErr;
|
|||
|
; Major Selector -> 1;
|
|||
|
; Minor Selector -> C;
|
|||
|
;
|
|||
|
CMListen FUNC EXPORT
|
|||
|
_CTBTrap #$10C
|
|||
|
EndCTBTrap #$10,W
|
|||
|
ENDFUNC
|
|||
|
|
|||
|
|
|||
|
; Function CMAccept( hConn : ConnHandle; accept : Boolean) : CMErr;
|
|||
|
; Major Selector -> 1;
|
|||
|
; Minor Selector -> D;
|
|||
|
;
|
|||
|
CMAccept FUNC EXPORT
|
|||
|
_CTBTrap #$10D
|
|||
|
EndCTBTrap #$8,W
|
|||
|
ENDFUNC
|
|||
|
|
|||
|
|
|||
|
; Function CMClose( hConn : ConnHandle; theAsync : Boolean; timeout:LONGINT;
|
|||
|
; completor : ProcPtr;
|
|||
|
; now : Boolean ) : CMErr;
|
|||
|
; Major Selector -> 1;
|
|||
|
; Minor Selector -> E;
|
|||
|
;
|
|||
|
CMClose FUNC EXPORT
|
|||
|
_CTBTrap #$10E
|
|||
|
EndCTBTrap #$12,W
|
|||
|
ENDFUNC
|
|||
|
|
|||
|
|
|||
|
; Function CMAbort( hConn : ConnHandle) : CMErr;
|
|||
|
; Major Selector -> 1;
|
|||
|
; Minor Selector -> F;
|
|||
|
;
|
|||
|
CMAbort FUNC EXPORT
|
|||
|
_CTBTrap #$10F
|
|||
|
EndCTBTrap #$6,W
|
|||
|
ENDFUNC
|
|||
|
|
|||
|
|
|||
|
; Function CMStatus( hConn : ConnHandle; var sizes : BufferSizes;
|
|||
|
; Var flags : longint) : CMErr;
|
|||
|
; Major Selector -> 1;
|
|||
|
; Minor Selector -> 10;
|
|||
|
;
|
|||
|
CMStatus FUNC EXPORT
|
|||
|
_CTBTrap #$110
|
|||
|
EndCTBTrap #$E,W
|
|||
|
ENDFUNC
|
|||
|
|
|||
|
|
|||
|
; Function CMRead( hConn : ConnHandle; theBuffer : Ptr; Var toRead : longint;
|
|||
|
; theChannel : integer; theAsync : Boolean;
|
|||
|
; completor : ProcPtr; timeout : longint; VAR flags : INTEGER ) : CMErr;
|
|||
|
; Major Selector -> 1;
|
|||
|
; Minor Selector -> 11;
|
|||
|
;
|
|||
|
CMRead FUNC EXPORT
|
|||
|
_CTBTrap #$111
|
|||
|
EndCTBTrap #$1E,W
|
|||
|
ENDFUNC
|
|||
|
|
|||
|
|
|||
|
; Function CMWrite( hConn : ConnHandle; theBuffer : Ptr; Var toWrite : longint;
|
|||
|
; theChannel : integer; theAsync : Boolean; timeout : longint;
|
|||
|
; completor : ProcPtr; timeout : longint; flags : integer ) : CMErr;
|
|||
|
; Major Selector -> 1;
|
|||
|
; Minor Selector -> 12;
|
|||
|
;
|
|||
|
CMWrite FUNC EXPORT
|
|||
|
_CTBTrap #$112
|
|||
|
EndCTBTrap #$1C,W
|
|||
|
ENDFUNC
|
|||
|
|
|||
|
|
|||
|
; Procedure CMActivate( hConn : ConnHandle; act : Boolean );
|
|||
|
; Major Selector -> 1;
|
|||
|
; Minor Selector -> 13;
|
|||
|
;
|
|||
|
CMActivate PROC EXPORT
|
|||
|
_CTBTrap #$113
|
|||
|
EndCTBTrap #$8
|
|||
|
ENDPROC
|
|||
|
|
|||
|
|
|||
|
|
|||
|
; Procedure CMResume( hConn : ConnHandle; res : Boolean );
|
|||
|
; Major Selector -> 1;
|
|||
|
; Minor Selector -> 14;
|
|||
|
;
|
|||
|
CMResume PROC EXPORT
|
|||
|
_CTBTrap #$114
|
|||
|
EndCTBTrap #$8
|
|||
|
ENDPROC
|
|||
|
|
|||
|
|
|||
|
; Function CMMenu( hConn : ConnHandle; menuID : integer; item : integer ) : Boolean;
|
|||
|
; Major Selector -> 1;
|
|||
|
; Minor Selector -> 15;
|
|||
|
;
|
|||
|
CMMenu PROC EXPORT
|
|||
|
_CTBTrap #$115
|
|||
|
EndCTBTrap #$A,B
|
|||
|
ENDPROC
|
|||
|
|
|||
|
|
|||
|
; Procedure CMReset( hConn : ConnHandle );
|
|||
|
; Major Selector -> 1;
|
|||
|
; Minor Selector -> 16;
|
|||
|
;
|
|||
|
CMReset PROC EXPORT
|
|||
|
_CTBTrap #$116
|
|||
|
EndCTBTrap #$6
|
|||
|
ENDPROC
|
|||
|
|
|||
|
|
|||
|
; Function CMValidate( hConn : ConnHandle ) : Boolean;
|
|||
|
; Major Selector -> 1;
|
|||
|
; Minor Selector -> 17;
|
|||
|
;
|
|||
|
CMValidate FUNC EXPORT
|
|||
|
_CTBTrap #$117
|
|||
|
EndCTBTrap #$6,B
|
|||
|
ENDFUNC
|
|||
|
|
|||
|
|
|||
|
; Procedure CMDefault( Var theConfig : Ptr; procID : integer; allocate : Boolean );
|
|||
|
; Major Selector -> 1;
|
|||
|
; Minor Selector -> 18;
|
|||
|
CMDefault PROC EXPORT
|
|||
|
_CTBTrap #$118
|
|||
|
EndCTBTrap #$A
|
|||
|
ENDPROC
|
|||
|
|
|||
|
|
|||
|
; PROCEDURE CMSetupSetup( theProcID : integer; theConfig : Ptr; count : INTEGER;
|
|||
|
; theDialog : DialogPtr; VAR magicCookie:LONGINT);
|
|||
|
; Major Selector -> 1;
|
|||
|
; Minor Selector -> 19;
|
|||
|
;
|
|||
|
CMSetupSetup FUNC EXPORT
|
|||
|
_CTBTrap #$119
|
|||
|
EndCTBTrap #$12
|
|||
|
ENDFUNC
|
|||
|
|
|||
|
|
|||
|
; Procedure CMSetupItem( procID : integer; theConfig : Ptr; count : INTEGER;
|
|||
|
; theDialog : DialogPtr; Var theItem : integer;
|
|||
|
; VAR magicCookie:LONGINT);
|
|||
|
; Major Selector -> 1;
|
|||
|
; Minor Selector -> 1A;
|
|||
|
;
|
|||
|
CMSetupItem PROC EXPORT
|
|||
|
_CTBTrap #$11A
|
|||
|
EndCTBTrap #$16
|
|||
|
ENDPROC
|
|||
|
|
|||
|
|
|||
|
; Procedure CMSetupCleanup( procID : integer; theConfig : Ptr; count : integer
|
|||
|
; theDialog : DialogPtr; VAR magicCookie:LONGINT);
|
|||
|
; Major Selector -> 1;
|
|||
|
; Minor Selector -> 1B;
|
|||
|
;
|
|||
|
CMSetupCleanup PROC EXPORT
|
|||
|
_CTBTrap #$11B
|
|||
|
EndCTBTrap #$12
|
|||
|
ENDPROC
|
|||
|
|
|||
|
; Procedure CMSetupXCleanup( procID : integer; theConfig : Ptr; count : integer
|
|||
|
; theDialog : DialogPtr; OKed: BOOLEAN; VAR magicCookie:LONGINT);
|
|||
|
; Major Selector -> 1;
|
|||
|
; Minor Selector -> 2E;
|
|||
|
;
|
|||
|
CMSetupXCleanup PROC EXPORT
|
|||
|
_CTBTrap #$12E
|
|||
|
EndCTBTrap #$14
|
|||
|
ENDPROC
|
|||
|
|
|||
|
; Function CMGetConfig( hConn : ConnHandle ) : Ptr;
|
|||
|
; Major Selector -> 1;
|
|||
|
; Minor Selector -> 1C;
|
|||
|
CMGetConfig FUNC EXPORT
|
|||
|
_CTBTrap #$11C
|
|||
|
EndCTBTrap #$6,L
|
|||
|
ENDFUNC
|
|||
|
|
|||
|
|
|||
|
; Function CMSetConfig( hConn : ConnHandle; thePtr : Ptr ) : INTEGER;
|
|||
|
; Major Selector -> 1;
|
|||
|
; Minor Selector -> 1D;
|
|||
|
;
|
|||
|
CMSetConfig FUNC EXPORT
|
|||
|
_CTBTrap #$11D
|
|||
|
EndCTBTrap #$A,W
|
|||
|
ENDFUNC
|
|||
|
|
|||
|
|
|||
|
; Function CMIntlToEnglish( hConn : ConnHandle; inputPtr : Ptr; VAR outputPtr : Ptr;
|
|||
|
; language : integer ) : integer;
|
|||
|
; Major Selector -> 1;
|
|||
|
; Minor Selector -> 30;
|
|||
|
;
|
|||
|
CMIntlToEnglish FUNC EXPORT
|
|||
|
_CTBTrap #$11E
|
|||
|
EndCTBTrap #$10,W
|
|||
|
ENDFUNC
|
|||
|
|
|||
|
|
|||
|
; Function CMEnglishToIntl( hConn : ConnHandle; inputPtr : Ptr; VAR outputPtr : Ptr;
|
|||
|
; language : integer ) : integer;
|
|||
|
; Major Selector -> 1;
|
|||
|
; Minor Selector -> 1F;
|
|||
|
;
|
|||
|
CMEnglishToIntl FUNC EXPORT
|
|||
|
_CTBTrap #$11F
|
|||
|
EndCTBTrap #$A,W
|
|||
|
ENDFUNC
|
|||
|
|
|||
|
; Function CMGetVersion( hConn : ConnHandle ) : Handle;
|
|||
|
; Major Selector -> 1;
|
|||
|
; Minor Selector -> 20;
|
|||
|
;
|
|||
|
CMGetVersion FUNC EXPORT
|
|||
|
_CTBTrap #$120
|
|||
|
EndCTBTrap #$6,L
|
|||
|
ENDFUNC
|
|||
|
|
|||
|
|
|||
|
; FUNCTION CMGetCMVersion : INTEGER;
|
|||
|
; Major Selector -> 1;
|
|||
|
; Minor Selector -> 21;
|
|||
|
;
|
|||
|
CMGetCMVersion FUNC EXPORT
|
|||
|
_CTBTrap #$121
|
|||
|
EndCTBTrap #$2,W
|
|||
|
ENDFUNC
|
|||
|
|
|||
|
|
|||
|
; Function CMSetupFilter(procID : INTEGER; theConfig : Ptr; count : INTEGER;
|
|||
|
; theDialog : DialogPtr; VAR theEvent : EventRecord
|
|||
|
; VAR theItem : INTEGER; VAR magicCookie:LONGINT) : Boolean;
|
|||
|
; Major Selector -> 1;
|
|||
|
; Minor Selector -> 22;
|
|||
|
CMSetupFilter FUNC EXPORT
|
|||
|
_CTBTrap #$122
|
|||
|
EndCTBTrap #$1A,B
|
|||
|
ENDFUNC
|
|||
|
|
|||
|
|
|||
|
; FUNCTION CMSetupPreflight(procID : INTEGER; VAR magicCookie:LONGINT) : Handle;
|
|||
|
; Major Selector -> 1;
|
|||
|
; Minor Selector -> 23;
|
|||
|
;
|
|||
|
CMSetupPreflight FUNC EXPORT
|
|||
|
_CTBTrap #$123
|
|||
|
EndCTBTrap #$8,L
|
|||
|
ENDFUNC
|
|||
|
|
|||
|
|
|||
|
; Function CMChoose( VAR hConn : ConnHandle; where: Point; idleProc:ProcPtr) : INTEGER;
|
|||
|
; Major Selector -> 1;
|
|||
|
; Minor Selector -> 124 ;
|
|||
|
;
|
|||
|
CMChoose FUNC EXPORT
|
|||
|
_CTBTrap #$124
|
|||
|
EndCTBTrap #$E,W
|
|||
|
ENDFUNC
|
|||
|
|
|||
|
; Function CMPChoose( VAR hConn : ConnHandle; where: Point; VAR cRec: ChooseRec) : INTEGER;
|
|||
|
; Major Selector -> 1;
|
|||
|
; Minor Selector -> 12D ;
|
|||
|
;
|
|||
|
CMPChoose FUNC EXPORT
|
|||
|
_CTBTrap #$12D
|
|||
|
EndCTBTrap #$E,W
|
|||
|
ENDFUNC
|
|||
|
|
|||
|
;
|
|||
|
; PROCEDURE CMBreak(hConn:ConnHandle; duration:LONGINT; async:BOOLEAN;
|
|||
|
; completor:ProcPtr);
|
|||
|
; Major Selector -> 1;
|
|||
|
; Minor Selector -> 25;
|
|||
|
;
|
|||
|
|
|||
|
CMBreak PROC EXPORT
|
|||
|
_CTBTrap #$125
|
|||
|
EndCTBTrap #$10
|
|||
|
ENDPROC
|
|||
|
|
|||
|
; Function CMAddSearch( hConn : ConnHandle; theString: Str255;
|
|||
|
; flags: INTEGER; callBack :ProcPtr) : LONGINT;
|
|||
|
; Major Selector -> 1;
|
|||
|
; Minor Selector -> 26;
|
|||
|
;
|
|||
|
|
|||
|
CMAddSearch FUNC EXPORT
|
|||
|
_CTBTrap #$126
|
|||
|
EndCTBTrap #$10,L
|
|||
|
ENDFUNC
|
|||
|
|
|||
|
;
|
|||
|
; PROCEDURE CMRemoveSearch(hConn:ConnHandle; refnum: LONGINT);
|
|||
|
; Major Selector -> 1;
|
|||
|
; Minor Selector -> 27 dec;
|
|||
|
|
|||
|
CMRemoveSearch PROC EXPORT
|
|||
|
_CTBTrap #$127
|
|||
|
EndCTBTrap #$A
|
|||
|
ENDPROC
|
|||
|
|
|||
|
;
|
|||
|
; PROCEDURE CMClearSearch(hConn:ConnHandle);
|
|||
|
; Major Selector -> 1;
|
|||
|
; Minor Selector -> 28;
|
|||
|
;
|
|||
|
; RECORD
|
|||
|
; Selector : INTEGER;
|
|||
|
; hConn : ConnHandle;
|
|||
|
; END
|
|||
|
|
|||
|
CMClearSearch PROC EXPORT
|
|||
|
_CTBTrap #$128
|
|||
|
EndCTBTrap #$6
|
|||
|
ENDPROC
|
|||
|
|
|||
|
;
|
|||
|
; FUNCTION CMIOKill(hConn : ConnHandle; which : INTEGER) : CMErr;
|
|||
|
; Major Selector -> 1;
|
|||
|
; Minor Selector -> 29;
|
|||
|
|
|||
|
CMIOKill FUNC EXPORT
|
|||
|
_CTBTrap #$129
|
|||
|
EndCTBTrap #$8,W
|
|||
|
ENDFUNC
|
|||
|
|
|||
|
; Procedure CMEvent( hConn : ConnHandle; uD : Longint );
|
|||
|
; Major Selector -> 1;
|
|||
|
; Minor Selector -> 2A;
|
|||
|
;
|
|||
|
CMEvent PROC EXPORT
|
|||
|
_CTBTrap #$12A
|
|||
|
EndCTBTrap #$A
|
|||
|
ENDPROC
|
|||
|
|
|||
|
; Procedure CMSetupPostflight( procID: INTEGER );
|
|||
|
; Major Selector -> 1;
|
|||
|
; Minor Selector -> 2B;
|
|||
|
;
|
|||
|
CMSetupPostflight PROC EXPORT
|
|||
|
_CTBTrap #$12B
|
|||
|
EndCTBTrap #$4
|
|||
|
ENDPROC
|
|||
|
|
|||
|
; Function CMGetConnEnvirons( hConn : ConnHandle; VAR theEnvirons: ConnEnvironRec) : CMErr;
|
|||
|
; Major Selector -> 1;
|
|||
|
; Minor Selector -> 2C;
|
|||
|
;
|
|||
|
CMGetConnEnvirons FUNC EXPORT
|
|||
|
_CTBTrap #$12C
|
|||
|
EndCTBTrap #$A,W
|
|||
|
ENDFUNC
|
|||
|
|
|||
|
|
|||
|
END
|