From: j8takagi <j8takagi@nifty.com>
Date: Mon, 4 Jan 2021 00:36:19 +0000 (+0900)
Subject: CASL II ソースコメントを修正
X-Git-Url: https://j8takagi.net/gitweb?a=commitdiff_plain;h=fa1afcc8b4e5f0d64b4ffbb04ddb3b038b3d49cc;p=casl2lib.git

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

diff --git a/as/src/outl.casl b/as/src/outl.casl
index 8e67497..fe9fe81 100644
--- 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