as/casl2lib_test/abs_call.casl

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