as/casl2lib/test/abs/abs_0/abs_0.casl

   1 ;;; ABSを呼び出す
   2 ;;; casl2 abs_call.casl abs.casl outa.casl
   3 MAIN    START
   4         LD      GR1,MVAL
   5         CALL    ABS
   6 MFIN    RET
   7 MVAL    DC      -32768
   8         END