1 ;;; 0〜65535の範囲にある正数のかけ算(筆算方式)を行う
4 ;;; 積が65535より大きい場合は、オーバーフロー
7 AND GR1,GR1 ; GR1 = 0 の場合、FINへジャンプ
9 AND GR2,GR2 ; GR2 = 0 の場合、FINへジャンプ
13 LOOP SRL GR2,1 ; ループ開始。SRLを1つ右シフト
14 JOV ON ; 乗数の最下位ビットが1の場合、ONへジャンプ
16 ON ADDL GR3,GR1 ; GR3 <- GR3 + GR1
17 JOV POST ; GR3がオーバーフローした場合、POSTへジャンプ
18 NEXT AND GR2,GR2 ; GR2 = 0 の場合、POSTへジャンプ
20 SLL GR1,1 ; GR1を1つ左シフト
21 JOV POST ; GR1がオーバーフローした場合、POSTへジャンプ