+++ /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