sys7.1-doc-wip/Internal/Asm/TerminalsExtensions.a
2019-07-27 22:37:48 +08:00

56 lines
996 B
Plaintext

;
; File: TerminalsExtensions.a
;
; Contains: xxx put contents here xxx
;
; Written by: xxx put writers here xxx
;
; Copyright: © 1991 by Apple Computer, Inc., all rights reserved.
;
; Change History (most recent first):
;
; <2> 8/20/91 BH move TMSetupCleanup from public interfaces
; <1> 6/18/91 BH first checked in
;
; To Do:
;
IF (&TYPE('TERMINALSEXTENSIONS') = 'UNDEFINED') THEN
TERMINALSEXTENSIONS EQU 1
IF (&TYPE('TERMINALS') = 'UNDEFINED') THEN
INCLUDE 'Terminals.a'
ENDIF
IF (&TYPE('CTBUTILITIES') = 'UNDEFINED') THEN
INCLUDE 'CTBUtilities.a'
ENDIF
tmChooseNoChangeHandle EQU 1
tmChooseNoDialog EQU 2
tmChooseNoChangeTool EQU 4
TMChooseRec RECORD 0
reserved ds.l 1
msg ds.l 1
idleProc ds.l 1
filterProc ds.l 1
newTool ds.b 64
newConfig ds.l 1
eventProc ds.l 1
TMChooseRecSize EQU *
Endr
TMPChoose EQU $333
TMSetupItem EQU $31A
MACRO
_TMPChoose
_CTBCall #TMPChoose
ENDM
MACRO
_TMSetupCleanup
_CTBCall #TMSetupCleanup
ENDM
ENDIF