CASLファイルの構成変更。casllibとmiscを分離

[YACASL2.git] / as / casl2lib / minim.casl

diff --git a/as/casl2lib/minim.casl b/as/casl2lib/minim.casl
index f1198da..32ff6c0 100644 (file)
--- a/as/casl2lib/minim.casl
+++ b/as/casl2lib/minim.casl
@@ -1,10 +1,13 @@
-;;; GR1のアドレスに格納されたGR2の個数の値の中で、最小値をGR0に格納する
+;;; 複数のWORD値の中から、最小値を返す
+;;; 入力: GR1: WORD値を格納したアドレス GR2: 値の個数
+;;; 出力: GR0: 最小値
 MINIM   START
+        RPUSH
         LD      GR0,0,GR1
         ST      GR0,MIN
         LAD     GR3,0
 S1      CPA     GR3,GR2
-        JZE     LRET
+        JZE     RET
         LAD     GR1,1,GR1
         LD      GR0,0,GR1
         CPA     GR0,MIN
@@ -13,7 +16,8 @@ S1      CPA     GR3,GR2
         ST      GR0,MIN
 S2      LAD     GR3,1,GR3
         JUMP    S1
-LRET    LD      GR0,MIN
+RET     LD      GR0,MIN
+        RPOP
         RET
 MIN     DS      1
         END