 GET TimLib:hdr.System
 GET TimLib:hdr.Macros
 GET TimLib:hdr.Multiplication

 EXPORT ConvertHex8
 EXPORT Mul16
 EXPORT MulH16

; default area assignment

 AREA |Assembler|,READONLY,CODE

;-------------------------------------------------------------------------------
; ConvertHex8
;
; In  - R0  value
;       R1  string ptr
;       R2  size
;
; Out - R0  error ptr
;-------------------------------------------------------------------------------
 ALIGN
ConvertHex8
 _DEFPROC
 SWI     XOS_ConvertHex8
 MOVVC   R0,#0
 _ENDPROC

;-------------------------------------------------------------------------------
; Mul16
;
; In  - R0  base
;       R1  mul fixed 16,16
;
; Out - R0  result
;-------------------------------------------------------------------------------
 ALIGN
Mul16
 _DEFPROC "R4"
 _FNMul16 R0,R1,R2,R3,R4
 MOV     R0,R4
 _ENDPROC

;-------------------------------------------------------------------------------
; MulH16
;
; In  - R0  base
;       R1  mul fixed 16,16
;
; Out - R0  result
;-------------------------------------------------------------------------------
 ALIGN
MulH16
 _FNMulH16 R0,R1,R2,R3
 MOV     R0,R3
 MOV     PC,R14

 END
