--- /dev/null
+;; CASL2LIB > DIVLを呼び出し、65534 / 255 の商と剰余を表示
+MAIN START
+BEGIN LD GR1,A
+ LD GR2,B
+ CALL DIVL
+ JOV ERR
+ LD GR1,GR0
+ CALL OUTL
+ LD GR1,GR3
+ CALL OUTL
+ JUMP FIN
+ERR OUT EMSG,ELEN
+FIN RET
+A DC 65534
+B DC 255
+EMSG DC 'error'
+ELEN DC 5
+ END