ソースコードで、モードを表す構造体メンバーの名前とコメントを修正
[YACASL2.git] / as / FUNC / addl32.casl
1 ;;; 2つの32ビット数値を加算する
2 ;;; 32ビットの値は、連続する2語の領域に格納
3 MAIN    START   BEGIN
4 BEGIN   LAD     GR1,1           ; GR1にAの下位語を転送
5         LD      GR1,A,GR1       ; ↓
6         LAD     GR2,1           ; GR2にBの下位語を転送
7         LD      GR2,B,GR2       ; ↓
8         ADDL    GR1,GR2         ; GR1 <- GR1 + GR2
9         JOV     CARR            ; オーバーフロー時は、CARRにジャンプ
10         JUMP    STL
11 CARR    LAD     GR2,1           ; Cの上位語に1を格納
12         ST      GR2,C           ; ↓
13 STL     LAD     GR2,1           ; Cの下位語にGR1の内容を格納
14         ST      GR1,C,GR2       ; ↓
15         LD      GR1,A           ; GR1にAの上位語を転送
16         ADDL    GR1,B           ; GR1 <- GR1 + B
17         ADDL    GR1,C           ; GR1 <- GR1 + C
18         RET
19 A       DC      0,65534
20 B       DC      0,65535
21 C       DS      2
22         END