X-Git-Url: http://j8takagi.net/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=as%2FFUNC%2Fabs_call.casl;h=1d0c3b52e5085d91374061d33bfaaeb76172a09c;hb=f3433b11c1e3a2ec3d6f7b332afa5cf5f69dc360;hp=4a732212111d984cf70e8b11a3ba21ccafb7172c;hpb=fb54b1c9d2fbc3d4a62c6b4d38ff68e9d3b25c26;p=YACASL2.git

diff --git a/as/FUNC/abs_call.casl b/as/FUNC/abs_call.casl
index 4a73221..1d0c3b5 100644
--- a/as/FUNC/abs_call.casl
+++ b/as/FUNC/abs_call.casl
@@ -4,12 +4,26 @@ MAIN    START
         LAD     GR2,0
 MLOOP   CPA     GR2,MLEN
         JZE     MFIN
+        OUT     SEP,MLEN
         LD      GR1,MVAL,GR2
-        CALL    ABS
         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