; Author: Copyright 1993 Shaun Blackmore

        GET     ^.h.regdefs
        GET     ^.h.swinos
        GET     ^.h.macros

;os_error *Font_ListFonts(char *name, int *count);

        PREAMBLE
        STARTCODE Font_ListFonts
;
        STMFD   sp!, {r4,lr}
        MOV     r4,r1
        MOV     r3,#-1
        LDR     r2,[r4,#0]
        MOV     r1,r0
        SWI     SWI_Font_ListFonts + XOS_Bit
        STR     r2,[r4,#0]
        MOVVC   r0,#0
        LDMFD   sp!, {r4,pc}^
;
        END
