as/casl2lib/test/divl/divl0/call_divl.casl

   1 ;; CASL2LIB > DIVLを呼び出し、65535 / 256 の商と剰余を表示
   2 MAIN    START
   3 BEGIN   LD      GR1,A
   4         LD      GR2,B
   5         CALL    DIVL
   6         JOV     ERR
   7         LD      GR1,GR0
   8         CALL    OUTA
   9         LD      GR1,GR3
  10         CALL    OUTA
  11         JUMP    FIN
  12 ERR     OUT     EMSG,ELEN
  13 FIN     RET
  14 A       DC      65535
  15 B       DC      256
  16 EMSG    DC      'error'
  17 ELEN    DC      5
  18         END