mirror of
https://github.com/elliotnunn/boot3.git
synced 2024-06-09 02:29:27 +00:00
5b0f0cc134
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.
32 lines
982 B
Plaintext
32 lines
982 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
|