エラー文字列が空のとき、変数にNULLではなく'\0'を設定するよう変更

[YACASL2.git] / as / addl.casl

diff --git a/as/addl.casl b/as/addl.casl
index 0501cba..cacbded 100644 (file)
--- a/as/addl.casl
+++ b/as/addl.casl
@@ -1,10 +1,12 @@
 ;;; ADDL r,adr
 MAIN    START
+        PUSH    0,GR1
         LD      GR1,A
         ADDL    GR1,B
         ST      GR1,C
+        POP     GR1
         RET
 A       DC      3
-B       DC      1
+B       DC      2
 C       DS      1
         END