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