as/casl2lib/sample/call_abs.casl

   1 ;;; ABSを呼び出す
   2 ;;; casl2 call_abs.casl ../stdlib.casl
   3 MAIN    START
   4         LAD     GR2,0
   5 MLOOP   CPA     GR2,MLEN
   6         JZE     MFIN
   7         LD      GR1,MVAL,GR2
   8         CALL    OUTA
   9         CALL    ABS
  10         JOV     PUTOV
  11         JMI     PUTM
  12         OUT     PLUS,=1
  13         JUMP    PUTD
  14 PUTM    OUT     MINUS,=1
  15         JUMP    PUTD
  16 PUTOV   OUT     OV,=2
  17 PUTD    CALL    OUTA
  18         OUT     SEP,MLEN
  19         LAD     GR2,1,GR2
  20         JUMP    MLOOP
  21 MFIN    RET
  22 MVAL    DC      12,-12,1,-1,32767,-32767,0,-32768
  23 MLEN    DC      8
  24 SEP     DC      '--------'
  25 PLUS    DC      '+'
  26 MINUS   DC      '-'
  27 OV      DC      'OV'
  28         END