; MUL4.INC
; yzi/l!t  7.4.1997

; ------- MUL4 --------------------
; Simple 4 bit multiply b * c
; (lower four bits)
; result in accumulator
; max 116 clocks
mul4:   sub     a               ; 4 kelloa
        bit     0, c            ; 8 kelloa
        jp      z, kukkuu1      ; 10 kelloa
        add     a, b            ; 4 kelloa
kukkuu1:sla     b               ; 8 kelloa
        bit     1, c            ; 8 kelloa
        jp      z, kukkuu2      ; 10 kelloa
        add     a, b            ; 4 kelloa
kukkuu2:sla     b               ; 8 kelloa
        bit     2, c            ; 8 kelloa
        jp      z, kukkuu3      ; 10 kelloa
        add     a, b            ; 4 kelloa
kukkuu3:sla     b               ; 8 kelloa
        bit     3, c            ; 8 kelloa
        jp      z, kukkuu4      ; 10 kelloa
        add     a, b            ; 4 kelloa
kukkuu4:  ;                  +
          ; ------------------------------
          ;                yht.  116 kelloa

        ret
