doc/casl2lib/divl/call_divl.casl

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