- JOV CARR ; オーバーフロー時は、CARRにジャンプ
- JUMP STL
-CARR LAD GR2,1 ; Cの上位語に1を格納
- ST GR2,C ; ↓
-STL LAD GR2,1 ; Cの下位語にGR1の内容を格納
- ST GR1,C,GR2 ; ↓
- LD GR1,A ; GR1にAの上位語を転送
- ADDL GR1,B ; GR1 <- GR1 + B
- ADDL GR1,C ; GR1 <- GR1 + C
+ ST GR1,C,GR3 ; (C + GR3) <- GR1(フラグ不変)
+ LAD GR3,-1,GR3 ; GR3 <- GR3 - 1(フラグ不変)
+ JOV CRRY ; オーバーフロー時は、CRRYへジャンプ
+ XOR GR1,GR1 ; GR1 <- 0
+ JUMP LOOP ; ループ先頭へジャンプ
+CRRY AND GR3,GR3 ; 最上位の語でオーバーフローした場合
+ JZE OV ; ↓OVへジャンプ
+ LAD GR1,1 ; GR1 <- 1
+ JUMP LOOP ; ループ終端
+OV ADDL GR1,=#FFFF ; 強制的にオーバーフロー発生
+FIN LAD GR0,C ; GR3 <- C