100 ; MULTIPLY ROUTINE
110 MLOOP = *
120 LSR M1            ;SR M1
130 ROR M1+1          ;THE CARRY FROM M1 -> M1+1
140 BCC SHIFT         ;ADD ON CARRY SET
150 CLC               ;R=R+M2
160 LDA M2+1
170 ADC R+1
180 STA R+1
190 LDA M2
200 ADC R
210 STA R
220 SHIFT = *
230 ASL M2+1          ;SL M2
240 ROL M2
250 LDA M1+1
260 BNE MLOOP
270 LDA M1            ;IF M1 AND M1+1=0
280 BNE MLOOP         ;WHEN WE ARE DONE
290 RTS
300 M1     .WORD $0023
310 M2     .WORD $000F
320 R     .WORD $0000