
DOMULTIPLY:
    STX <$02
    STA <$04
    LDA #$00
    STA <$03
    LDX #$08
MULTIPLYLOOP:
    LSR <$02
    BCC NOCARRY
    CLC
    ADC <$04
NOCARRY:
    ROR A
    ROR <$03
    DEX
    BNE MULTIPLYLOOP
    RTS

