X-Git-Url: http://j8takagi.net/cgi-bin/gitweb.cgi?a=blobdiff_plain;ds=sidebyside;f=doc%2Fcasl2lib%2Fdivl%2Fcall_divl.casl;fp=doc%2Fcasl2lib%2Fdivl%2Fcall_divl.casl;h=0000000000000000000000000000000000000000;hb=514845d283c9022385f367c96e0345bb7cde5396;hp=2347a43e7384bed9dc0d3f3ed9df7821cb24ced4;hpb=3242e69dd21cc00458447c231ef63f876ea54ad1;p=YACASL2.git diff --git a/doc/casl2lib/divl/call_divl.casl b/doc/casl2lib/divl/call_divl.casl deleted file mode 100644 index 2347a43..0000000 --- a/doc/casl2lib/divl/call_divl.casl +++ /dev/null @@ -1,18 +0,0 @@ -;; 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