CASL II ソースコメントを修正

diff --git a/as/src/outl.casl b/as/src/outl.casl
index 8e674970f44f8e4f75f128405bbb9958b09f09ae..fe9fe8116043fd39b6873c9216cda147a459d74e 100644 (file)
--- a/as/src/outl.casl
+++ b/as/src/outl.casl
@@ -12,16 +12,16 @@ STI     CPL     GR1,GR2         ; ループ先頭。(GR1 < GR2)の場合は、
         CALL    DIVL            ; GR1とGR2の、商をGR0、剰余をGR3に格納
         LD      GR1,GR3         ; GR1にGR3をコピー
         LD      GR1,NCHAR,GR1   ; GR1を文字に変換
-        ST      GR1,STR,GR4     ; (STR + GR4) <- GR1
+        ST      GR1,STR,GR4     ; STR + GR4 <- (GR1)
         LAD     GR4,1,GR4       ; GR4 <- GR4 + 1
         LD      GR1,GR0         ; GR0をGR1にコピー
         JUMP    STI             ; ループ終端
 STLST   LD      GR1,NCHAR,GR1   ; GR1を文字に変換
-        ST      GR1,STR,GR4     ; (STR + GR4) <- GR1
+        ST      GR1,STR,GR4     ; STR + GR4 <- (GR1)
         LAD     GR4,1,GR4       ; GR4 <- GR4 + 1
         JUMP    PRT             ; PRTにジャンプ
-ZERO    LD      GR1,NCHAR       ; 「0」をSTR領域に格納
-        ST      GR1,STR,GR4     ; ↓ (STR + GR4) <- GR1
+ZERO    LD      GR1,NCHAR       ; 「0」をSTR領域に格納 GR1 <- (NCHAR)
+        ST      GR1,STR,GR4     ; ↓ STR + GR4 <- (GR1)
         LAD     GR4,1,GR4       ; ↓ GR4 <- GR4 + 1
 PRT     ST      GR4,LEN         ; LEN <- GR4
         LD      GR2,LEN         ; GR2にLENの値を格納
@@ -30,7 +30,7 @@ PRT     ST      GR4,LEN         ; LEN <- GR4
         OUT     STR,LEN         ; 文字列を出力
         RPOP
         RET
-STR     DS      17              ; 符号付き2進数で表記した場合を想定
+STR     DS      17              ; 符号付き2進数で表記した場合を想定し、17けた分のメモリを確保
 LEN     DS      1
 NCHAR   DC      '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ'
         END