From: j8takagi Date: Fri, 5 Mar 2010 23:36:36 +0000 (+0900) Subject: ドキュメント作成時にCASL2LIBファイル追加 X-Git-Tag: v0.1p15~56 X-Git-Url: https://j8takagi.net/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=341db9150d65b9c9290ed2fe77d85be89001380c;p=YACASL2.git ドキュメント作成時にCASL2LIBファイル追加 --- diff --git a/as/casl2lib/addl32.casl b/as/casl2lib/addl32.casl index 1282e78..37d2f25 100644 --- a/as/casl2lib/addl32.casl +++ b/as/casl2lib/addl32.casl @@ -1,5 +1,5 @@ ;;; 2つの32ビット数値を加算する -;;; 32ビットの値は、連続する2語の領域に格納 +;;; 32ビットの値を、連続する2語の領域に格納 ;;; 入力 GR1:数値1の先頭アドレス GR2:数値2の先頭アドレス ;;; 出力 GR0:和の先頭アドレス ADDL32 START diff --git a/as/casl2lib/diva.casl b/as/casl2lib/diva.casl index eb87331..e592709 100644 --- a/as/casl2lib/diva.casl +++ b/as/casl2lib/diva.casl @@ -2,6 +2,6 @@ ;;; 入力 GR1:被除数 GR2:除数 ;;; 出力 GR0:商 GR3:剰余 ;;; GR2が0の場合は、GR0、GR3とも0になり、オーバーフロー -DIVL START +DIVA START RET END diff --git a/as/casl2lib/src_diva/diva.casl b/as/casl2lib/src_diva/diva.casl new file mode 100644 index 0000000..3dba44d --- /dev/null +++ b/as/casl2lib/src_diva/diva.casl @@ -0,0 +1,39 @@ +;;; -32767〜32767の範囲にある整数の割算(筆算方式)を行う +;;; 入力 GR1:被除数 GR2:除数 +;;; 出力 GR0:商 GR3:剰余 +;;; GR2が0の場合は、GR0、GR3とも0になり、オーバーフロー +DIVA START + PUSH 0,GR1 + PUSH 0,GR2 + PUSH 0,GR4 + XOR GR0,GR0 ; 積 + AND GR2,GR2 ; (GR2 = 0)の場合、終了 + JZE DIVZERO ; ↓ + AND GR1,GR1 ; (GR1 = 0)の場合、終了 + JZE FIN ; ↓ + XOR GR4,GR4 ; マイナスフラグ +CHK1 AND GR1,GR1 ; (GR1 > 0)の場合は、CHK2へジャンプ + JPL CHK2 ; ↓ + XOR GR1,ALLON ; GR1の正負を反転 + ADDA GR1,ONE ; ↓ + JOV FIN ; (GR1 = -32768)の場合は終了 + XOR GR4,ONE ; GR4 <- 1 +CHK2 AND GR2,GR2 ; (GR1 > 0)の場合は、LOOPへジャンプ + JPL MUL ; ↓ + XOR GR2,ALLON ; GR2の正負を反転 + ADDA GR2,ONE ; ↓ + JOV FIN ; (GR2 = -32768)の場合は終了 + XOR GR4,ONE ; マイナスフラグを反転 +DIV CALL DIVL ; GR0 <- GR1 / GR2; GR3 <- GR1 mod GR2 + JOV FIN +MIN AND GR4,GR4 ; マイナスフラグがオフの場合、終了 + JZE FIN ; ↓ + XOR GR0,ALLON ; GR1の正負を反転 + ADDA GR0,ONE ; ↓ + JUMP FIN +OV ADDL GR0,=#8000 +FIN RPOP + RET +ONE DC 1 +ALLON DC #FFFF + END