mirror of
https://github.com/elliotnunn/supermario.git
synced 2024-11-22 04:31:30 +00:00
636 lines
15 KiB
Plaintext
636 lines
15 KiB
Plaintext
;
|
|
; File: TerminalMgrGlue.a
|
|
;
|
|
; Contains: xxx put contents here xxx
|
|
;
|
|
; Written by: xxx put writers here xxx
|
|
;
|
|
; Copyright: © 1990 by Apple Computer, Inc., all rights reserved.
|
|
;
|
|
; Change History (most recent first):
|
|
;
|
|
; <1> 3/14/90 BBH first checked in
|
|
;
|
|
; To Do:
|
|
;
|
|
|
|
; ~@~Projector~@~ Copyright © 1987, 1988, 1989 Apple Computer, Inc. All rights reserved.
|
|
; ~@~Projector~@~ File: TMgrGlue.a,21+ (3/27/89 9:47:07 AM)
|
|
; File : TMGRGlue.a
|
|
;--------------------------------
|
|
;
|
|
; Application Glue for Terminal Manager
|
|
;
|
|
; Written by Dean Wong May 1988
|
|
; Modified by Byron Han for Terminal Manager 7.july.1988
|
|
;
|
|
; Copyright (c) 1988 by Apple Computer, Inc. All rights reserved.
|
|
;
|
|
;
|
|
; MODIFICATION HISTORY :
|
|
; 8/1/88 1.0D1
|
|
; 4/6/89 BBH renamed TMGetTermName to TMGetToolName
|
|
; 4/11/89 JNG Changed TMGetRefCon, TMSetRefCon, TMGetUserData,
|
|
; TMSetUserData, TMGetVersion to trap into the CTBCore
|
|
; version of the call.
|
|
; 4/12/89 JNG Changed TMGetToolName to trab into CTBCore
|
|
; 4/17/89 JNG TMValidate and TMDefault to Core
|
|
; 4/20/89 BBH Added MgrSel to CTBVersion
|
|
; Moved Setup, Config, Intl, and Choose into core
|
|
; PM Ooops - forgot to change local variable allocation.
|
|
; 4/24/89 JNG Moved TMResume TMMenu TMEvent TMActivate TMReset
|
|
; TMIdle to CTBCore
|
|
; BBH Changed TMGetTermEnvirons to return short
|
|
; Added environsProc to TMNew
|
|
; 5/3/89 BBH Changed TMGetSelect to pass back length as function result
|
|
; 5/9/89 BBH Changed TMStream to take flags parameter
|
|
; 6/2/89 JNG New Glue/Entry interface
|
|
; 6/7/89 kaz Made TMGetLine a procedure instead of a Function.
|
|
; 6/26/89 BBH Aded TMPeekLine and TMPChoose routines
|
|
;
|
|
; Minor Selector Table
|
|
;
|
|
; BRA @InitTM ; minor selector 1
|
|
; BRA @TMNew ; 2
|
|
; BRA @TMDispose ; 3
|
|
; BRA @TMKey ; 4
|
|
; BRA @TMUpdate ; 5
|
|
; BRA @TMPaint ; 6
|
|
; BRA @TMActivate ; 7
|
|
; BRA @TMResume ; 8
|
|
; BRA @TMClick ; 9
|
|
; BRA @TMStream ; A
|
|
; BRA @TMMenu ; B
|
|
; BRA @TMReset ; C
|
|
; BRA @TMClear ; D
|
|
; BRA @TMResize ; E
|
|
; BRA @TMGetSelect ; F
|
|
; BRA @TMGetLine ; 10
|
|
; BRA @TMSetSelection ; 11
|
|
; BRA @TMScroll ; 12
|
|
; BRA @TMIdle ; 13
|
|
; BRA @TMValidate ; 14
|
|
; BRA @TMDefault ; 15
|
|
; BRA @TMSetupPreflight ; 16
|
|
; BRA @TMSetupSetup ; 17
|
|
; BRA @TMSetupFilter ; 18
|
|
; BRA @TMSetupItem ; 19
|
|
; BRA @TMSetupCleanup ; 1A
|
|
; BRA @TMGetConfig ; 1B
|
|
; BRA @TMSetConfig ; 1C
|
|
; BRA @TMIntlToEnglish ; 1D
|
|
; BRA @TMEnglishToIntl ; 1E
|
|
; BRA @TMGetProcID ; 1F
|
|
; BRA @TMGetToolName ; 20
|
|
; BRA @TMSetRefCon ; 21
|
|
; BRA @TMGetRefCon ; 22
|
|
; BRA @TMSetUserData ; 23
|
|
; BRA @TMGetUserData ; 24
|
|
; BRA @TMGetVersion ; 25
|
|
; BRA @TMGetTMVersion ; 26
|
|
; BRA @TMAddSearch ; 27
|
|
; BRA @TMRemoveSearch ; 28
|
|
; BRA @TMClearSearch ; 29
|
|
; BRA @TMGetCursor ; 2A
|
|
; BRA @TMGetTermEnvirons ; 2B
|
|
; BRA @TMChoose ; 2C
|
|
; BRA @TMEvent ; 2D
|
|
; BRA @TMDoTermKey ; 2E
|
|
; BRA @TMCountTermKeys ; 2F
|
|
; BRA @TMGetIndTermKey ; 30
|
|
; BRA @TMSetupPostflight ; 31
|
|
; BRA @TMPeekLine ; 32
|
|
; BRA @TMPChoose ; 33
|
|
; BRA @TMPSetupXCleanup ; 34
|
|
|
|
|
|
|
|
INCLUDE 'Traps.a'
|
|
INCLUDE 'CommToolboxPriv.a'
|
|
|
|
|
|
; Function InitTM : TMErr;
|
|
; Major Selector -> 3;
|
|
; Minor Selector -> 1;
|
|
;
|
|
InitTM FUNC EXPORT
|
|
_CTBTrap #$0301 ; major selector = 3, minor selector = 1
|
|
EndCTBTrap #$2,W
|
|
ENDFUNC
|
|
|
|
|
|
; FUNCTION TMNew(termRect:Rect; viewRect:Rect; flags:LONGINT;
|
|
; procID:INTEGER; owner:WindowPtr; sendProc:ProcPtr; cacheProc:ProcPtr;
|
|
; breakProc:ProcPtr; clikLoop:ProcPtr; environsProc: ProcPtr;
|
|
; refCon:LONGINT; userData:LONGINT) : TermHandle;
|
|
;
|
|
; Major Selector -> 3;
|
|
; Minor Selector -> 2;
|
|
;
|
|
TMNew FUNC EXPORT
|
|
_CTBTrap #$0302 ; major selector = 3, minor selector = 2
|
|
EndCTBTrap #$30,L
|
|
ENDFUNC
|
|
|
|
|
|
; Procedure TMDispose( hTerm : TermHandle );
|
|
; Major Selector -> 3;
|
|
; Minor Selector -> 3;
|
|
TMDispose PROC EXPORT
|
|
_CTBTrap #$0303 ; major selector = 3, minor selector = 9
|
|
EndCTBTrap #$6
|
|
ENDPROC
|
|
|
|
|
|
; Procedure TMKey( hTerm : TermHandle; theEvent : EventRecord );
|
|
; Major Selector -> 3;
|
|
; Minor Selector -> 4;
|
|
;
|
|
TMKey PROC EXPORT
|
|
_CTBTrap #$0304 ; major selector = 3, minor selector = 4
|
|
EndCTBTrap #$A
|
|
ENDPROC
|
|
|
|
; Procedure TMUpdate( hTerm : TermHandle; visRgn : RgnHandle );
|
|
; Major Selector -> 3;
|
|
; Minor Selector -> 5;
|
|
;
|
|
TMUpdate PROC EXPORT
|
|
_CTBTrap #$0305 ; major selector = 3, minor selector = 5
|
|
EndCTBTrap #$A
|
|
ENDPROC
|
|
|
|
|
|
; PROCEDURE TMPaint(hTerm : TermHandle; theData : TermDataBlock; theRect : Rect);
|
|
; Major Selector -> 3;
|
|
; Minor Selector -> 6;
|
|
TMPaint PROC EXPORT
|
|
_CTBTrap #$0306 ; major selector = 3, minor selector = 6
|
|
EndCTBTrap #$E
|
|
ENDPROC
|
|
|
|
|
|
; Procedure TMActivate( hTerm : TermHandle; activate : Boolean );
|
|
; Major Selector -> 3;
|
|
; Minor Selector -> 7;
|
|
;
|
|
TMActivate PROC EXPORT
|
|
_CTBTrap #$0307
|
|
EndCTBTrap #$8
|
|
ENDPROC
|
|
|
|
|
|
; Procedure TMResume( hTerm : TermHandle; resume : Boolean );
|
|
; Major Selector -> 3;
|
|
; Minor Selector -> 8;
|
|
;
|
|
TMResume PROC EXPORT
|
|
_CTBTrap #$0308
|
|
EndCTBTrap #$8
|
|
ENDPROC
|
|
|
|
; Procedure TMClick( hTerm : TermHandle; theEvent : EventRecord );
|
|
; Major Selector -> 3;
|
|
; Minor Selector -> 9;
|
|
;
|
|
TMClick PROC EXPORT
|
|
_CTBTrap #$0309 ; major selector = 3, minor selector = 9
|
|
EndCTBTrap #$A
|
|
ENDPROC
|
|
|
|
|
|
; FUNCTION TMStream(hTerm : TermHandle; theBuffer : Ptr; length : LONGINT;
|
|
; flags: INTEGER) : LONGINT;
|
|
; Major Selector -> 3;
|
|
; Minor Selector -> A hex;
|
|
;
|
|
TMStream FUNC EXPORT
|
|
_CTBTrap #$030A ; major selector = 3, minor selector = A hex
|
|
EndCTBTrap #$10,L
|
|
ENDFUNC
|
|
|
|
|
|
; FUNCTION TMMenu( hTerm : TermHandle; menuID : integer; item : integer ); BOOLEAN;
|
|
; Major Selector -> 3;
|
|
; Minor Selector -> B hex;
|
|
;
|
|
TMMenu FUNC EXPORT
|
|
_CTBTrap #$030B
|
|
EndCTBTrap #$A,B
|
|
ENDFUNC
|
|
|
|
|
|
; Procedure TMReset( hTerm : TermHandle );
|
|
; Major Selector -> 3;
|
|
; Minor Selector -> C hex;
|
|
;
|
|
TMReset PROC EXPORT
|
|
_CTBTrap #$030C
|
|
EndCTBTrap #$6
|
|
ENDPROC
|
|
|
|
|
|
; Procedure TMClear( hTerm : TermHandle );
|
|
; Major Selector -> 3;
|
|
; Minor Selector -> D hex;
|
|
;
|
|
TMClear PROC EXPORT
|
|
_CTBTrap #$030D ; major selector = 3, minor selector = D
|
|
EndCTBTrap #$6
|
|
ENDPROC
|
|
|
|
|
|
; Procedure TMResize( hTerm : TermHandle; newViewRect : Rect );
|
|
; Major Selector -> 3;
|
|
; Minor Selector -> E hex;
|
|
;
|
|
TMResize PROC EXPORT
|
|
_CTBTrap #$030E ; major selector = 3, minor selector = E
|
|
EndCTBTrap #$A
|
|
ENDPROC
|
|
|
|
|
|
; FUNCTION TMGetSelect(hTerm : TermHandle; theData : Handle; VAR theType : ResType) : LONGINT;
|
|
; Major Selector -> 3;
|
|
; Minor Selector -> F hex;
|
|
;
|
|
TMGetSelect FUNC EXPORT
|
|
_CTBTrap #$030F ; major selector = 3, minor selector = F
|
|
EndCTBTrap #$E,L
|
|
ENDFUNC
|
|
|
|
|
|
; PROCEDURE TMGetLine(hTerm : TermHandle; lineNo : INTEGER;
|
|
; VAR theTermData : TermDataBlock);
|
|
; Major Selector -> 3;
|
|
; Minor Selector -> 10 hex;
|
|
;
|
|
TMGetLine PROC EXPORT
|
|
_CTBTrap #$0310 ; major selector = 3, minor selector = 10
|
|
EndCTBTrap #$C
|
|
ENDFUNC
|
|
|
|
|
|
; PROCEDURE TMPeekLine(hTerm : TermHandle; lineNo : INTEGER;
|
|
; VAR theLineData : LineDataBlock);
|
|
; Major Selector -> 3;
|
|
; Minor Selector -> 10 hex;
|
|
;
|
|
TMPeekLine PROC EXPORT
|
|
_CTBTrap #$0332 ; major selector = 3, minor selector = 32
|
|
EndCTBTrap #$C
|
|
ENDFUNC
|
|
|
|
|
|
; Procedure TMSetSelection( hTerm : TermHandle; theRect : Rect; selType : INTEGER );
|
|
; Major Selector -> 3;
|
|
; Minor Selector -> 11 hex;
|
|
;
|
|
TMSetSelection PROC EXPORT
|
|
_CTBTrap #$0311 ; major selector = 3, minor selector = 11
|
|
EndCTBTrap #$C
|
|
ENDPROC
|
|
|
|
|
|
; Procedure TMScroll( hTerm : TermHandle; dH,dV : INTEGER );
|
|
; Major Selector -> 3;
|
|
; Minor Selector -> 12 hex;
|
|
;
|
|
TMScroll PROC EXPORT
|
|
_CTBTrap #$0312 ; major selector = 3, minor selector = 12 hex
|
|
EndCTBTrap #$A
|
|
ENDPROC
|
|
|
|
|
|
; Procedure TMIdle( hTerm : TermHandle );
|
|
; Major Selector -> 3;
|
|
; Minor Selector -> 13 hex;
|
|
;
|
|
TMIdle PROC EXPORT
|
|
_CTBTrap #$0313
|
|
EndCTBTrap #$6
|
|
ENDPROC
|
|
|
|
|
|
|
|
; Function TMValidate( hTerm : TermHandle ) : Boolean;
|
|
; Major Selector -> 3;
|
|
; Minor Selector -> 14 hex;
|
|
;
|
|
TMValidate FUNC EXPORT
|
|
_CTBTrap #$0314
|
|
EndCTBTrap #$6,B
|
|
ENDFUNC
|
|
|
|
|
|
; Procedure TMDefault( Var theConfig : Ptr; procID : integer; allocate : Boolean );
|
|
; Major Selector -> 3;
|
|
; Minor Selector -> 15 hex;
|
|
TMDefault PROC EXPORT
|
|
_CTBTrap #$0315
|
|
EndCTBTrap #$A
|
|
ENDPROC
|
|
|
|
; FUNCTION TMSetupPreflight(procID : INTEGER; VAR magicCookie:LONGINT) : Handle;
|
|
; Major Selector -> 3;
|
|
; Minor Selector -> 16 hex;
|
|
;
|
|
TMSetupPreflight FUNC EXPORT
|
|
_CTBTrap #$0316
|
|
EndCTBTrap #$8,L
|
|
ENDFUNC
|
|
|
|
|
|
; PROCEDURE TMSetupSetup( theProcID : integer; theConfig : Ptr; count : INTEGER;
|
|
; theDialog : DialogPtr; VAR magicCookie:LONGINT);
|
|
; Major Selector -> 3;
|
|
; Minor Selector -> 17 hex;
|
|
;
|
|
TMSetupSetup PROC EXPORT
|
|
_CTBTrap #$0317
|
|
EndCTBTrap #$12
|
|
ENDPROC
|
|
|
|
|
|
; Function TMSetupFilter(procID : INTEGER; theConfig : Ptr; count : INTEGER;
|
|
; theDialog : DialogPtr; VAR theEvent : EventRecord
|
|
; VAR theItem : INTEGER; VAR magicCookie:LONGINT) : Boolean;
|
|
; Major Selector -> 3;
|
|
; Minor Selector -> 18 hex;
|
|
;
|
|
TMSetupFilter FUNC EXPORT
|
|
_CTBTrap #$0318
|
|
EndCTBTrap #$1A,B
|
|
ENDFUNC
|
|
|
|
|
|
; Procedure TMSetupItem( procID : integer; theConfig : Ptr; count : INTEGER;
|
|
; theDialog : DialogPtr; Var theItem : integer;
|
|
; VAR magicCookie:LONGINT);
|
|
; Major Selector -> 3;
|
|
; Minor Selector -> 19 hex;
|
|
;
|
|
TMSetupItem PROC EXPORT
|
|
_CTBTrap #$0319
|
|
EndCTBTrap #$16
|
|
ENDPROC
|
|
|
|
|
|
; Procedure TMSetupCleanup( procID : integer; theConfig : Ptr; count : integer
|
|
; theDialog : DialogPtr; VAR magicCookie:LONGINT);
|
|
; Major Selector -> 3;
|
|
; Minor Selector -> 1A hex;
|
|
;
|
|
TMSetupCleanup PROC EXPORT
|
|
_CTBTrap #$031A
|
|
EndCTBTrap #$12
|
|
ENDPROC
|
|
|
|
; Procedure TMSetupCleanup( procID : integer; theConfig : Ptr; count : integer
|
|
; theDialog : DialogPtr; OKed: BOOLEAN; VAR magicCookie:LONGINT);
|
|
; Major Selector -> 3;
|
|
; Minor Selector -> 1A hex;
|
|
;
|
|
TMSetupXCleanup PROC EXPORT
|
|
_CTBTrap #$0334
|
|
EndCTBTrap #$14
|
|
ENDPROC
|
|
|
|
|
|
; Function TMGetConfig( hTerm : TermHandle ) : Ptr;
|
|
; Major Selector -> 3;
|
|
; Minor Selector -> 1B hex;
|
|
;
|
|
TMGetConfig FUNC EXPORT
|
|
_CTBTrap #$031B
|
|
EndCTBTrap #$6,L
|
|
ENDFUNC
|
|
|
|
|
|
; Function TMSetConfig( hTerm : TermHandle; thePtr : Ptr ) : INTEGER;
|
|
; Major Selector -> 3;
|
|
; Minor Selector -> 1C;
|
|
;
|
|
TMSetConfig FUNC EXPORT
|
|
_CTBTrap #$031C
|
|
EndCTBTrap #$A,W
|
|
ENDFUNC
|
|
|
|
|
|
; Function TMIntlToEnglish( hTerm : TermHandle; inputPtr : Ptr; outputPtr : Ptr;
|
|
; language : integer ) : integer;
|
|
; Major Selector -> 3;
|
|
; Minor Selector -> 1D hex;
|
|
;
|
|
TMIntlToEnglish FUNC EXPORT
|
|
_CTBTrap #$031D
|
|
EndCTBTrap #$10,W
|
|
ENDFUNC
|
|
|
|
|
|
; Function TMEnglishToIntl( hTerm : TermHandle; inputPtr : Ptr; outputPtr : Ptr;
|
|
; language : integer ) : integer;
|
|
; Major Selector -> 3;
|
|
; Minor Selector -> 1E hex;
|
|
;
|
|
TMEnglishToIntl FUNC EXPORT
|
|
_CTBTrap #$031E
|
|
EndCTBTrap #$A,W
|
|
ENDFUNC
|
|
|
|
|
|
; Function TMGetProcID( name : Str255 ) : Integer;
|
|
; Major Selector -> 3;
|
|
; Minor Selector -> 1F hex;
|
|
;
|
|
TMGetProcID FUNC EXPORT
|
|
_CTBTrap #$031F
|
|
EndCTBTrap #$6,W
|
|
ENDFUNC
|
|
|
|
|
|
|
|
; Procedure TMGetToolName( procID : Integer; VAR name : Str255 );
|
|
; Major Selector -> 3;
|
|
; Minor Selector -> 20 hex;
|
|
;
|
|
TMGetToolName PROC EXPORT
|
|
_CTBTrap #$0320
|
|
EndCTBTrap #$8
|
|
ENDPROC
|
|
|
|
|
|
; Procedure TMSetRefCon( hTerm : TermHandle; rC : Longint );
|
|
; Major Selector -> 3;
|
|
; Minor Selector -> 21 (hex);
|
|
;
|
|
TMSetRefCon PROC EXPORT
|
|
_CTBTrap #$0321
|
|
EndCTBTrap #$A
|
|
ENDPROC
|
|
|
|
|
|
; Function TMGetRefCon( hTerm : TermHandle ) : Longint;
|
|
; Major Selector -> 3;
|
|
; Minor Selector -> 22 hex;
|
|
;
|
|
TMGetRefCon FUNC EXPORT
|
|
_CTBTrap #$0322
|
|
EndCTBTrap #$6,L
|
|
ENDFUNC
|
|
|
|
|
|
; Procedure TMSetUserData( hTerm : TermHandle; uD : Longint );
|
|
; Major Selector -> 3;
|
|
; Minor Selector -> 23 hex;
|
|
;
|
|
TMSetUserData PROC EXPORT
|
|
_CTBTrap #$0323
|
|
EndCTBTrap #$A
|
|
ENDPROC
|
|
|
|
|
|
; Function TMGetUserData( hTerm : TermHandle ) : Longint;
|
|
; Major Selector -> 3;
|
|
; Minor Selector -> 24 hex;
|
|
;
|
|
TMGetUserData FUNC EXPORT
|
|
_CTBTrap #$0324
|
|
EndCTBTrap #$6,L
|
|
ENDFUNC
|
|
|
|
; FUNCTION TMGetVersion( hTerm : TermHandle ) : Handle;
|
|
; Major Selector -> 3;
|
|
; Minor Selector -> 25 hex;
|
|
;
|
|
TMGetVersion FUNC EXPORT
|
|
_CTBTrap #$0325
|
|
EndCTBTrap #$6,L
|
|
ENDFUNC
|
|
|
|
; FUNCTION TMGetTMVersion : INTEGER;
|
|
; Major Selector -> 3;
|
|
; Minor Selector -> 26 hex;
|
|
|
|
TMGetTMVersion FUNC EXPORT
|
|
_CTBTrap #$0326 ; major selector 3, minor 26 hex
|
|
EndCTBTrap #$2,W
|
|
ENDFUNC
|
|
|
|
|
|
|
|
; FUNCTION TMAddSearch : INTEGER;
|
|
; Major Selector -> 3;
|
|
; Minor Selector -> 27 hex;
|
|
;
|
|
TMAddSearch FUNC EXPORT
|
|
_CTBTrap #$0327 ; major selector 3, minor 27 hex
|
|
EndCTBTrap #$14,W
|
|
ENDFUNC
|
|
|
|
; PROCEDURE TMRemoveSearch;
|
|
; Major Selector -> 3;
|
|
; Minor Selector -> 28 hex;
|
|
;
|
|
|
|
TMRemoveSearch PROC EXPORT
|
|
_CTBTrap #$0328 ; major selector 3, minor 28 hex
|
|
EndCTBTrap #$8
|
|
ENDPROC
|
|
|
|
|
|
; PROCEDURE TMClearSearch;
|
|
; Major Selector -> 3;
|
|
; Minor Selector -> 29 hex;
|
|
;
|
|
|
|
TMClearSearch PROC EXPORT
|
|
_CTBTrap #$0329 ; major selector 3, minor 29 hex
|
|
EndCTBTrap #$6
|
|
ENDPROC
|
|
|
|
|
|
; Function TMGetCursor( hTerm : TermHandle; cursType:INTEGER) : Point;
|
|
; Major Selector -> 3;
|
|
; Minor Selector -> 2A hex;
|
|
;
|
|
TMGetCursor FUNC EXPORT
|
|
_CTBTrap #$032A ; major selector = 3, minor selector = 2A
|
|
EndCTBTrap #$8,L
|
|
ENDFUNC
|
|
|
|
; FUNCTION TMGetTermEnvirons(hTerm:TermHandle; VAR theEnvirons:TermEnvironsRec): INTEGER;
|
|
; Major Selector -> 3;
|
|
; Minor Selector -> 2B hex;
|
|
TMGetTermEnvirons PROC EXPORT
|
|
_CTBTrap #$032B ; major selector 3, minor 2B hex
|
|
EndCTBTrap #$A,W
|
|
ENDPROC
|
|
|
|
|
|
; Function TMChoose( VAR hTerm : TermHandle; where: Point; idleProc:ProcPtr) : INTEGER;
|
|
; Major Selector -> 3;
|
|
; Minor Selector -> 2C hex;
|
|
;
|
|
TMChoose FUNC EXPORT
|
|
_CTBTrap #$032C
|
|
EndCTBTrap #$E,W
|
|
ENDFUNC
|
|
|
|
|
|
; Function TMPChoose( VAR hTerm : TermHandle; where: Point; VAR cRec: ChooseRec) : INTEGER;
|
|
; Major Selector -> 3;
|
|
; Minor Selector -> 33 hex;
|
|
;
|
|
TMPChoose FUNC EXPORT
|
|
_CTBTrap #$0333
|
|
EndCTBTrap #$E,W
|
|
ENDFUNC
|
|
|
|
|
|
; Procedure TMEvent( hTerm : TermHandle; theEvent: EventRecord );
|
|
; Major Selector -> 3;
|
|
; Minor Selector -> 2D (hex);
|
|
;
|
|
TMEvent PROC EXPORT
|
|
_CTBTrap #$032D
|
|
EndCTBTrap #$A
|
|
ENDPROC
|
|
|
|
; FUNCTION TMDoTermKey( hTerm : TermHandle; theKey: STR255 ): BOOLEAN;
|
|
; Major Selector -> 3;
|
|
; Minor Selector -> 2E (hex);
|
|
;
|
|
TMDoTermKey FUNC EXPORT
|
|
_CTBTrap #$032E ; major selector = 3, minor selector = 2E
|
|
EndCTBTrap #$A,W
|
|
ENDFUNC
|
|
|
|
; FUNCTION TMCountTermKeys( hTerm : TermHandle ): INTEGER;
|
|
; Major Selector -> 3;
|
|
; Minor Selector -> 2F (hex);
|
|
;
|
|
TMCountTermKeys FUNC EXPORT
|
|
_CTBTrap #$032F ; major selector = 3, minor selector = 2F
|
|
EndCTBTrap #$6,W
|
|
ENDFUNC
|
|
|
|
; Procedure TMGetIndTermKey( hTerm : TermHandle; id: INTEGER; VAR theKey:STR255 );
|
|
; Major Selector -> 3;
|
|
; Minor Selector -> 30 (hex);
|
|
TMGetIndTermKey PROC EXPORT
|
|
_CTBTrap #$0330 ; major selector = 3, minor selector = 30
|
|
EndCTBTrap #$C
|
|
ENDPROC
|
|
|
|
; Procedure TMSetupPostflight( procID: INTEGER );
|
|
; Major Selector -> $03;
|
|
; Minor Selector -> $31;
|
|
;
|
|
TMSetupPostflight PROC EXPORT
|
|
_CTBTrap #$0331
|
|
EndCTBTrap #$4
|
|
ENDPROC
|
|
|
|
|
|
END |