mirror of
https://github.com/elliotnunn/sys7.1-doc-wip.git
synced 2024-06-01 04:41:39 +00:00
32 lines
983 B
Plaintext
32 lines
983 B
Plaintext
;
|
|
; File: TextEdit.a
|
|
;
|
|
; Copyright: © 1984-1990 by Apple Computer, Inc., all rights reserved.
|
|
;
|
|
; Change History (most recent first):
|
|
;
|
|
; <2> 9/27/90 dba check in new version from Jim Lord
|
|
;
|
|
; Modification History:
|
|
; 18 May 87 KLH TEFromScrp glue used VAR ptr = 0, trashing low memory.
|
|
; 10 Jun 87 KLH TEToScrap gets TEScrpLength as 0000xxxx (CLR high word).
|
|
; *** MPW 3.0d2 ***
|
|
; 11 Feb 88 KLH Changed C headers to work with new C compiler:
|
|
; Changed to using standard glue in Interface.o, so
|
|
; much glue removed from CInterface.o.
|
|
; *** MPW 3.0d4 ***
|
|
|
|
include 'macintosh.a'
|
|
|
|
teclick proc EXPORT
|
|
move.l d2,-(sp) ; save register d2
|
|
move.l 8(sp),a0 ; load address of first parameter
|
|
move.l (a0),-(sp) ; push value of first parameter
|
|
move.b 19(sp),-(sp) ; push copy of second parameter
|
|
move.l 22(sp),-(sp) ; push copy of third parameter
|
|
dc.w $A9D4 ; trap to teclick
|
|
move.l (sp)+,d2 ; restore register d2
|
|
rts
|
|
|
|
END
|