C64 Software  <  SCA: The C64 Software Collection / MULU

  Run
1000              ; 25-DEC-87 CHW
1010              ; A      : 1. FAKTOR
1020              ; B      : 2. FAKTOR
1030              ; TMP1/+1: RESULTAT
1040              ; ZWI    : HILFS-BYTE
1050              ;
1060 MULU         STA TMP1
1070              STX TMP2
1080              LDA #0
1090              LDX #9
1100              CLC
1110 MULU1        ROR
1120              ROR TMP1
1130              BCC MULU2
1140              CLC
1150              ADC TMP2
1160 MULU2        DEX
1170              BNE MULU1
1180              STA TMP1+1
1190              RTS
READY.