; FontEnsure font command

                GET             Asm:s.macros
                GET             Asm:s.regs
                GET             Asm:s.xswis
                GET             Asm:s.general

main            SAVEs           "r0-r6", 8

                MOV             r6, r1
main1           LDRB            lr, [r6], #1
                CMP             lr, #" "
                BGT             main1

                MOV             r2, #10 * 16
                MOV             r3, #10 * 16
                MOV             r4, #0
                MOV             r5, #0
                SWI             XFont_FindFont
                MOVVC           r6, #1
                SWIVC           XFont_LoseFont
                SUBS            r0, r6, #1
                SWINE           XOS_CLI
mainX           RETURN_ERR

                =               "Andy Armstrong for Armstrong Walker Ltd.  Armstrong Walker Ltd, 1994", 0

                END
