doc/casl2lib/diva/call_diva.casl

   1 ;; CASL2LIB > DIVAを呼び出し、-32767 / 255 の商と剰余を表示
   2 MAIN    START
   3 BEGIN   LD      GR1,A
   4         LD      GR2,B
   5         CALL    DIVA
   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      -32767
  15 B       DC      255
  16 EMSG    DC      'error'
  17 ELEN    DC      5
  18         END