mirror of
https://github.com/elliotnunn/mac-rom.git
synced 2025-01-18 00:31:20 +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.
55 lines
1.5 KiB
Plaintext
55 lines
1.5 KiB
Plaintext
include 'macintosh.a'
|
|
; fonts.a
|
|
;
|
|
; Copyright Apple Computer, Inc. 1984-1988
|
|
; All rights reserved.
|
|
;
|
|
; Modifications:
|
|
; 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 ***
|
|
|
|
|
|
|
|
BLANKS ON
|
|
STRING ASIS
|
|
|
|
getfontname proc EXPORT
|
|
import c2pstr ; c2pstr(s) char *s;
|
|
import p2cstr ; p2cstr(s) char *s;
|
|
move.l d2,-(sp) ; save register d2
|
|
move.w 10(sp),-(sp) ; push copy of first parameter
|
|
move.l 14(sp),-(sp) ; push copy of second parameter
|
|
dc.w $A8FF ; trap to getfontname
|
|
move.l 12(sp),-(sp) ; push copy of second paramter
|
|
jsr p2cstr ; convert back to C string
|
|
add.w #4,sp ; balance stack
|
|
move.l (sp)+,d2 ; restore register d2
|
|
rts
|
|
|
|
getfnum proc EXPORT
|
|
import c2pstr ; c2pstr(s) char *s;
|
|
import p2cstr ; p2cstr(s) char *s;
|
|
move.l d2,-(sp) ; save register d2
|
|
move.l 8(sp),-(sp) ; push copy of first parameter
|
|
jsr c2pstr ; convert to Pascal string
|
|
move.l 16(sp),-(sp) ; push copy of second parameter
|
|
dc.w $A900 ; trap to getfnum
|
|
move.l 8(sp),-(sp) ; push copy of first paramter
|
|
jsr p2cstr ; convert back to C string
|
|
add.w #4,sp ; balance stack
|
|
move.l (sp)+,d2 ; restore register d2
|
|
rts
|
|
|
|
|
|
; void SetFractEnable(fractEnable)
|
|
; Boolean fractEnable;
|
|
;;
|
|
;;SetFractEnable proc export
|
|
;; move.b 7(SP),fractEnable
|
|
;; rts
|
|
|
|
|
|
END
|