
        GET     ListOpts
        GET     Macros
        GET     System

        EXPORT  PrintR5

        AREA    |Asm$$Code|, CODE, READONLY

PrintR5 ROUT
        Push    "r0-r2,lr"
        SUB     sp, sp, #12 ; space for the string
        MOV     r0, r5
        MOV     r1, sp
        MOV     r2, #12
        SWI     XOS_ConvertHex8
        SWI     XOS_Write0
        ADD     sp, sp, #12
        Pull    "r0-r2,pc"

        END
