X-Git-Url: http://j8takagi.net/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=test%2Fsystem%2Fcomet2_lib%2Flib_abs%2Fabs.casl;fp=test%2Fsystem%2Fcomet2_lib%2Flib_abs%2Fabs.casl;h=0000000000000000000000000000000000000000;hb=20134ec3ebf911ef241284c6bd9145c04a75c6ca;hp=e16585b0c1586eb89543afaf6fd6f6935a2da441;hpb=5be8def29beb565c49e7268f71add4a7758ba77b;p=YACASL2.git diff --git a/test/system/comet2_lib/lib_abs/abs.casl b/test/system/comet2_lib/lib_abs/abs.casl deleted file mode 100644 index e16585b..0000000 --- a/test/system/comet2_lib/lib_abs/abs.casl +++ /dev/null @@ -1,27 +0,0 @@ -;;; ABSを呼び出す -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