; ======================================================================
; Chapter 03 candidate native floating-point multiply wrapper
; Donor: OM-52C exact wrapper EA75..EA84
; Contract: $10-$18 <- $10-$18 * $0-$8
; Core service: low ROM &H06B9
; ======================================================================
BCD_MUL:
        PHSM    $29,8
        PHSM    $21,3
        CAL     &H06B9
        PPSM    $19,3
        PPSM    $22,8
        RTN