;;; Algorithme du paysan russe pour le calcul de la multiplication. ;;; Sat Dec 4 19:21:30 CET 1999 ;;; Arnaud Rouanet jal main a: .word 09 ; a = 9 b: .word 0d ; b = 13 p: .word 0 main: ld b copy jz end ; if (b == 0) goto end shr ; if (b % 2 == 1) jc add ; goto add jal skip add: ld p copy ld a add st p ; p += a skip: ld a copy shl st a ; a *= 2 ld b copy shr st b ; b /= 2 jal main ; goto main end: ld p copy ; return p