FB II Compiler

PG PRO

Debugging

Memory

System

Mathematics

Resources

Disk I/O

Windows

Controls

Menus

Mouse

Keyboard

Text

Fonts

Drawing

Sound

Clipboard

Printing

Communication

ASM

Made with FB

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

Chris Young