ASM

TEXT

Be aware of the Script Manager

extern pascal void UppercaseText(Ptr textPtr, short len, ScriptCode script) SIXWORDINLINE(0x3F3C, 0x0400, 0x2F3C, 0x800A, 0xFFB6, 0xA8B5);

LOCAL MODE
  DIM textPtr&, theLen%, scriptCode%
LOCAL FN UppercaseText(textPtr&, theLen%, scriptCode%)
  ` move.l ^textPtr&,-(sp) ;Ptr
  ` move.w ^theLen%,-(sp) ;INTEGER ` move.w
  ^scriptCode%,-(sp)
  ` dc.w $3F3C, $0400, $2F3C, $800A, $FFB6, $A8B5
END FN

extern pascal void UppercaseStripDiacritics(Ptr textPtr, short len, ScriptCode script) SIXWORDINLINE(0x3F3C, 0x0600, 0x2F3C, 0x800A, 0xFFB6, 0xA8B5);

LOCAL MODE
  'DIM textPtr&, theLen%, scriptCode%
LOCAL FN UppercaseStripDiacritics(textPtr&, theLen%, scriptCode%)
  ` move.l ^textPtr&,-(sp) ;Ptr
  ` move.w ^theLen%,-(sp) ;INTEGER ` move.w
  ^scriptCode%,-(sp)
  ` dc.w $3F3C, $0600, $2F3C, $800A, $FFB6, $A8B5
END FN