X-Git-Url: http://j8takagi.net/cgi-bin/gitweb.cgi?p=YACASL2.git;a=blobdiff_plain;f=as%2Fcasl2lib%2Fdiva.casl;h=6796eb91d402967e81a0858048c60641b4fb68eb;hp=5e723f5db723608921731efb09ad19c6691ecfb0;hb=9a90bce10b932f8aa7045b9dceb4b99156666920;hpb=3c757d760e9af5c84f56e8e3e4cc69eb85721d7c diff --git a/as/casl2lib/diva.casl b/as/casl2lib/diva.casl index 5e723f5..6796eb9 100644 --- a/as/casl2lib/diva.casl +++ b/as/casl2lib/diva.casl @@ -23,7 +23,7 @@ CHK2 AND GR2,GR2 ; (GR1 > 0)の場合は、DIVへジャンプ JOV FIN ; (GR2 = -32768)の場合は終了 XOR GR4,ONE ; マイナスフラグを反転 DIV CALL DIVL ; GR0 <- GR1 / GR2; GR3 <- GR1 mod GR2 - JOV FIN ; (GR2 = 0)の場合は終了 + JOV FIN ; (GR2 = 0)の場合は終了 MIN AND GR4,GR4 ; マイナスフラグがオフの場合、終了 JZE FIN ; ↓ XOR GR0,ALLON ; GR1の正負を反転