as/casl2lib/test/abs/abs.casl

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