; Author: Copyright 1993 Shaun Blackmore

        GET     Desk.sh.regdefs
        GET     ^.h.swinos
        GET     Desk.sh.macros

; void	Desk_Font_ReadDefn(FontHandle font, FontDefn *defn);

;       r0=font
;       r1=pointer to definition block

;       [r1, #0]  = Font name
;       [r1, #128] = x size
;       [r1, #132] = y size
;       [r1, #136] = x res
;       [r1, #140] = y res
;       [r1, #144] = age
;       [r1, #148] = usage

        PREAMBLE
        STARTCODE Desk_Font_ReadDefn
;
        STMFD   sp!, {r4, r5, r6, r7, lr}
        SWI     Desk_SWI_Font_ReadDefn + Desk_XOS_Bit
        Desk_Error2_CheckV
        STR     r2, [r1, #128]
        STR     r3, [r1, #132]
        STR     r4, [r1, #136]
        STR     r5, [r1, #140]
        STR     r6, [r1, #144]
        STR     r7, [r1, #148]
        ;MOVVC   r0, #0
        LDMFD   sp!, {r4, r5, r6, r7, pc}^
;
        END
