mirror of
https://github.com/elliotnunn/mac-rom.git
synced 2025-01-05 08:30:14 +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.
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 |