CASL2LIBを独立させるため、削除

[YACASL2.git] / as / casl2lib / sample / call_abs.casl

diff --git a/as/casl2lib/sample/call_abs.casl b/as/casl2lib/sample/call_abs.casl
deleted file mode 100644 (file)
index 476e902..0000000
--- a/as/casl2lib/sample/call_abs.casl
+++ /dev/null
@@ -1,28 +0,0 @@
-;;; ABSを呼び出す
-;;; casl2 call_abs.casl ../stdlib.casl
-MAIN    START
-        LAD     GR2,0
-MLOOP   CPA     GR2,MLEN
-        JZE     MFIN
-        LD      GR1,MVAL,GR2
-        CALL    OUTA
-        CALL    ABS
-        JOV     PUTOV
-        JMI     PUTM
-        OUT     PLUS,=1
-        JUMP    PUTD
-PUTM    OUT     MINUS,=1
-        JUMP    PUTD
-PUTOV   OUT     OV,=2
-PUTD    CALL    OUTA
-        OUT     SEP,MLEN
-        LAD     GR2,1,GR2
-        JUMP    MLOOP
-MFIN    RET
-MVAL    DC      12,-12,1,-1,32767,-32767,0,-32768
-MLEN    DC      8
-SEP     DC      '--------'
-PLUS    DC      '+'
-MINUS   DC      '-'
-OV      DC      'OV'
-        END