;;; 2つの32ビット数値を加算する
;;; 32ビットの値は、連続する2語の領域に格納
MAIN    START   BEGIN
BEGIN   LAD     GR1,1           ; GR1にAの下位語を転送
        LD      GR1,A,GR1       ; ↓
        LAD     GR2,1           ; GR2にBの下位語を転送
        LD      GR2,B,GR2       ; ↓
        ADDL    GR1,GR2         ; GR1 <- GR1 + GR2
        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
        RET
A       DC      0,65534
B       DC      0,65535
C       DS      2
        END