2 ;;; 32ビットの値は、連続する2語の領域に格納
4 BEGIN LAD GR1,1 ; GR1にAの下位語を転送
6 LAD GR2,1 ; GR2にBの下位語を転送
8 ADDL GR1,GR2 ; GR1 <- GR1 + GR2
9 JOV CARR ; オーバーフロー時は、CARRにジャンプ
11 CARR LAD GR2,1 ; Cの上位語に1を格納
13 STL LAD GR2,1 ; Cの下位語にGR1の内容を格納
15 LD GR1,A ; GR1にAの上位語を転送
16 ADDL GR1,B ; GR1 <- GR1 + B
17 ADDL GR1,C ; GR1 <- GR1 + C