as/casl2libを復旧

[YACASL2.git] / doc / casl2lib / abs / call_abs.casl

diff --git a/doc/casl2lib/abs/call_abs.casl b/doc/casl2lib/abs/call_abs.casl
new file mode 100644 (file)
index 0000000..251ee3d
--- /dev/null
+++ b/doc/casl2lib/abs/call_abs.casl
@@ -0,0 +1,8 @@
+;;; CASL2LIB > ABSを呼び出し、-1の絶対値を表示
+MAIN    START
+        LD      GR1,A
+        CALL    ABS
+        CALL    OUTA
+        RET
+A       DC      -1
+        END