as/FUNC/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         LD      GR1,MVAL,GR2
   8         CALL    ABS
   9         CALL    OUTA
  10         LAD     GR2,1,GR2
  11         JUMP    MLOOP
  12 MFIN    RET
  13 MVAL    DC      12,-12,1,-1,32767,-32767,0,-32768
  14 MLEN    DC      8
  15         END