From: j8takagi Date: Tue, 19 Jun 2018 08:33:21 +0000 (+0900) Subject: casl2_libの作成、整理、修正 X-Git-Tag: v0.4p0~17 X-Git-Url: https://j8takagi.net/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=e93fac80fa9e8b7062ef77219c22f338d84387f0;p=YACASL2.git casl2_libの作成、整理、修正 --- diff --git a/as/casl2lib/Makefile b/as/casl2lib/Makefile index 526fae1..9b17270 100644 --- a/as/casl2lib/Makefile +++ b/as/casl2lib/Makefile @@ -6,6 +6,7 @@ RMF := rm -f RMDIR := rmdir ECHO := echo INSTALL := install +CHMOD := chmod prefix ?= ~ casl2libdir ?= $(prefix)/share/casl2lib @@ -13,7 +14,9 @@ casl2libdir ?= $(prefix)/share/casl2lib all: stdlib.casl libfiles %.casl: src/%.casl + $(CHMOD) +w $@ $(CAT) $^ >$@ + $(CHMOD) -w $@ %.o: %.casl $(CASL2OUT)$< $@ diff --git a/as/casl2lib/inl.casl b/as/casl2lib/inl.casl index 94d6ca0..f49ab10 100644 --- a/as/casl2lib/inl.casl +++ b/as/casl2lib/inl.casl @@ -1,133 +1,102 @@ ;;; 0から65535の範囲にある整数の入力を受け付ける ;;; 入力 （SVC） ;;; 出力 GR1: 入力された数値 -;;; GR0: 文字列の長さ。入力が数字以外の場合は、#FFFF -;;; 65536以上の正数が入力された場合はエラー +;;; GR2: 文字列の長さ。 +;;; 入力が数字以外の場合は、SFフラグを設定 +;;; 65535を超える数値の場合は、OFフラグを設定 INL START + PUSH 0,GR3 IN IBUF,ILEN ; 入力文字列を格納 LAD GR1,IBUF LD GR2,ILEN - CPA GR2,LENMAX - JPL LENOV CALL STR2L JOV FIN - LD GR0,GR2 - JUMP FIN -LENOV LAD GR0,#FFFF - SRA GR0,1 -FIN RET -ILEN DS 1 -LENMAX DC 5 + JMI FIN + LD GR1,GR3 +FIN POP GR3 + RET IBUF DS 5 +ILEN DS 1 +MAXLEN DC 5 END ;;; 10進数の整数を表す文字列を数値に変換 ;;; 数値の範囲は、0から65535 -;;; 入力 GR1: 文字列を格納するアドレス -;;; GR2: 文字列の長さ。最大5けた -;;; 出力 GR0: 数値 -;;; 文字列が最大長より大きい場合や数値以外の場合は、GR0は#FFFF、OFは1 +;;; 入力 GR1: 文字列を格納するメモリーの先頭アドレス +;;; GR2: 文字列の長さ。最大5けた +;;; 出力 GR3: 数値 +;;; 文字列が最大長より大きい場合と数値以外の場合は、GR3は#FFFF、OFは1 +;;; 数値以外の場合、OFは1 ;;; 依存プログラム: MULL STR2L START PUSH 0,GR1 PUSH 0,GR2 - PUSH 0,GR3 PUSH 0,GR4 PUSH 0,GR5 - XOR GR0,GR0 ; GR0:初期化 - AND GR2,GR2 ; (GR2 = 0)の場合、FINへジャンプ - JZE FIN ; ↓ - CPL GR2,MAXLEN ; (GR2 > MAXLEN)の場合、LENOVへジャンプ - JPL LENOV ; ↓ - ST GR1,STR ; STR <- GR1 文字列の開始アドレス - ST GR2,LEN ; LEN <- GR2 - LAD GR2,10 ; GR2:10進数の「10」 - XOR GR4,GR4 ; GR4:値の一時格納 - XOR GR5,GR5 ; GR5:インデックス -STOL CPL GR5,LEN ; ループ先頭。(GR5 = LEN)の場合、ループ脱出 - JZE CP ; ↓ - LD GR1,STR ; GR1に、入力文字列中の次の桁を格納 - ADDL GR1,GR5 ; ↓ + PUSH 0,GR6 + PUSH 0,GR7 + XOR GR3,GR3 ; GR3の初期化 + AND GR2,GR2 ; GR2 = 0の場合、OVへジャンプ + JZE OV ; ↓ + CPL GR2,=5 ; GR2 > 5の場合、OVへジャンプ + JPL OV ; ↓ + XOR GR4,GR4 ; GR4: インデックスの初期化 + LD GR5,GR1 ; GR5 <- GR1 + LD GR6,GR2 ; GR6 <- GR2 + XOR GR1,GR1 ; GR1の初期化 +STOL LD GR1,GR5 ; GR1に、入力文字列中の次の桁を格納 + ADDL GR1,GR4 ; ↓ LD GR1,0,GR1 ; ↓ - CPL GR1,ZERO ; (GR1 < '0')の場合、NANへジャンプ - JMI NAN ; ↓ - CPL GR1,NINE ; (GR1 > '9')の場合、NANへジャンプ - JPL NAN ; ↓ + LD GR7,ZERO ; GR1 < '0'の場合、FINへジャンプ + CPL GR1,GR7 ; ↓ + JMI FIN ; ↓ + LD GR7,NINE ; GR1 > '9'の場合、FINへジャンプ + CPL GR7,GR1 ; ↓ + JMI FIN ; ↓ SUBL GR1,ZERO ; GR1の文字を、対応する数値に変換 - ST GR5,NLEN ; GR5 <- LEN - NLEN - 1 - LD GR5,LEN ; ↓ - SUBA GR5,NLEN ; ↓ -MUL10 CPA GR5,=1 ; ループ先頭。GR1 <- 10 ** GR5 - JZE NEXT ; (GR5 = 1)の場合、ループ脱出 - JMI NEXT ; ↓ - CALL MULL ; MULLを呼び出し、GR0 <- GR1 * GR2 - JOV FIN ; ↓ オーバーフロー時は、プログラム終端へジャンプ - LD GR1,GR0 ; GR1 <- GR0 - LAD GR5,-1,GR5 ; GR5 <- GR5 -1 - JUMP MUL10 ; ループ終端へジャンプ -NEXT LD GR5,NLEN ; GR5 <- NLEN。復元 - ADDL GR4,GR1 ; GR4 <- GR4 + GR1 - JOV FIN ; ↓ - LAD GR5,1,GR5 ; GR5 <- GR5 + 1 + ADDL GR3,GR1 + JOV FIN + LAD GR4,1,GR4 ; GR4 <- GR4 + 1 + CPL GR4,GR6 ; GR4 = GR6の場合、ループ脱出 + JZE FIN ; ↓ +MUL10 LAD GR2,10 ; GR2:10進数の 10 + LD GR1,GR3 ; GR1 <- GR3 + CALL MULL ; MULLを呼び出し、GR3 <- GR1 * GR2 JUMP STOL ; ループ終端 -NAN LAD GR2,#FFFF ; GR2 <- #FFFF - JUMP FIN ; FINへジャンプ -CP LD GR1,GR4 ; GR0 <- GR4 - LD GR0,LEN ; GR0 <- LEN - JUMP FIN ; プログラム終端へジャンプ -LENOV LAD GR0,#FFFF ; 文字列が最大長より大きい場合、GR0 <- #FFFF - SRA GR0,1 ; ↓ オーバーフロー発生 -FIN POP GR5 +OV LAD GR7,1 ; オーバーフロー発生 + SRL GR7,1 ; ↓ +FIN POP GR7 + POP GR6 + POP GR5 POP GR4 - POP GR3 POP GR2 POP GR1 RET ZERO DC '0' NINE DC '9' -MAXLEN DC 5 ; 文字列の最大長 -STR DS 1 -LEN DS 1 -NLEN DS 1 END ;;; 0〜65535の範囲にある正数のかけ算（筆算方式）を行う ;;; 入力 GR1:被乗数 GR2:乗数 -;;; 出力 GR0:積の下位WORD GR3:積の上位WORD +;;; 出力 GR3:積 ;;; 積が65535より大きい場合は、オーバーフロー MULL START - PUSH 0,GR4 - PUSH 0,GR5 - XOR GR0,GR0 ; 積 - XOR GR3,GR3 ; 上位word - XOR GR5,GR5 ; 上位wordの一時値 - AND GR1,GR1 ; (GR1 = 0)の場合、終了 - JZE CHKOV ; ↓ - AND GR2,GR2 ; (GR2 = 0)の場合、終了 - JZE CHKOV ; ↓ - LAD GR4,1 ; 対象ビット -LOOP PUSH 0,GR4 ; ループ先頭。GR2のビット中でGR4が示すビットが0の場合、NEXTへジャンプ - AND GR4,GR2 ; ↓ - POP GR4 ; ↓ - JZE NEXT1 ; ↓ - ADDL GR3,GR5 ; GR3 <- GR3 + GR5 - ADDL GR0,GR1 ; GR0 <- GR0 + GR1 - JOV AHB1 ; GR0がオーバーフローした場合、AHB1へジャンプ - JUMP NEXT1 ; ↓ -AHB1 LAD GR3,1,GR3 ; GR3 <- GR3 + 1 -NEXT1 SLL GR4,1 ; GR4を1回左シフト - JOV CHKOV ; ↓ - SLL GR5,1 ; GR5を1回左シフト - CPL GR4,GR2 ; (GR4 > GR2)の場合、CHKOVへジャンプ - JPL CHKOV ; ↓ - SLL GR1,1 ; GR1を1回左シフト - JOV AHB2 ; GR1がオーバーフローした場合、AHBへジャンプ - JUMP NEXT2 ; ↓ -AHB2 LAD GR5,1,GR5 ; GR5 <- GR5 + 1 -NEXT2 JUMP LOOP ; ループ終端 -CHKOV AND GR3,GR3 ; GR3 = 0の場合、終了 + XOR GR3,GR3 ; GR3の初期化 + AND GR1,GR1 ; GR1 = 0 の場合、FINへジャンプ JZE FIN ; ↓ - LAD GR4,#FFFF ; GR3 <> 0の場合、オーバーフロー - SLL GR4,1 ; ↓ -FIN POP GR5 - POP GR4 - RET + AND GR2,GR2 ; GR2 = 0 の場合、FINへジャンプ + JZE FIN ; ↓ + PUSH 0,GR1 ; GR1の退避 + PUSH 0,GR2 ; GR2の退避 +LOOP SRL GR2,1 ; ループ開始。SRLを1つ右シフト + JOV ON ; 乗数の最下位ビットが1の場合、ONへジャンプ + JUMP NEXT ; NEXTへジャンプ +ON ADDL GR3,GR1 ; GR3 <- GR3 + GR1 + JOV POST ; GR3がオーバーフローした場合、POSTへジャンプ +NEXT AND GR2,GR2 ; GR2 = 0 の場合、POSTへジャンプ + JZE POST ; ↓ + SLL GR1,1 ; GR1を1つ左シフト + JOV POST ; GR1がオーバーフローした場合、POSTへジャンプ + JUMP LOOP ; ループ終端 +POST POP GR2 ; GR2の復元 + POP GR1 ; GR1の復元 +FIN RET END diff --git a/as/casl2lib/mula.casl b/as/casl2lib/mula.casl index e997471..2ac0524 100644 --- a/as/casl2lib/mula.casl +++ b/as/casl2lib/mula.casl @@ -41,43 +41,27 @@ ALLON DC #FFFF END ;;; 0〜65535の範囲にある正数のかけ算（筆算方式）を行う ;;; 入力 GR1:被乗数 GR2:乗数 -;;; 出力 GR0:積の下位WORD GR3:積の上位WORD +;;; 出力 GR3:積 ;;; 積が65535より大きい場合は、オーバーフロー MULL START - PUSH 0,GR4 - PUSH 0,GR5 - XOR GR0,GR0 ; 積 - XOR GR3,GR3 ; 上位word - XOR GR5,GR5 ; 上位wordの一時値 - AND GR1,GR1 ; (GR1 = 0)の場合、終了 - JZE CHKOV ; ↓ - AND GR2,GR2 ; (GR2 = 0)の場合、終了 - JZE CHKOV ; ↓ - LAD GR4,1 ; 対象ビット -LOOP PUSH 0,GR4 ; ループ先頭。GR2のビット中でGR4が示すビットが0の場合、NEXTへジャンプ - AND GR4,GR2 ; ↓ - POP GR4 ; ↓ - JZE NEXT1 ; ↓ - ADDL GR3,GR5 ; GR3 <- GR3 + GR5 - ADDL GR0,GR1 ; GR0 <- GR0 + GR1 - JOV AHB1 ; GR0がオーバーフローした場合、AHB1へジャンプ - JUMP NEXT1 ; ↓ -AHB1 LAD GR3,1,GR3 ; GR3 <- GR3 + 1 -NEXT1 SLL GR4,1 ; GR4を1回左シフト - JOV CHKOV ; ↓ - SLL GR5,1 ; GR5を1回左シフト - CPL GR4,GR2 ; (GR4 > GR2)の場合、CHKOVへジャンプ - JPL CHKOV ; ↓ - SLL GR1,1 ; GR1を1回左シフト - JOV AHB2 ; GR1がオーバーフローした場合、AHBへジャンプ - JUMP NEXT2 ; ↓ -AHB2 LAD GR5,1,GR5 ; GR5 <- GR5 + 1 -NEXT2 JUMP LOOP ; ループ終端 -CHKOV AND GR3,GR3 ; GR3 = 0の場合、終了 + XOR GR3,GR3 ; GR3の初期化 + AND GR1,GR1 ; GR1 = 0 の場合、FINへジャンプ JZE FIN ; ↓ - LAD GR4,#FFFF ; GR3 <> 0の場合、オーバーフロー - SLL GR4,1 ; ↓ -FIN POP GR5 - POP GR4 - RET + AND GR2,GR2 ; GR2 = 0 の場合、FINへジャンプ + JZE FIN ; ↓ + PUSH 0,GR1 ; GR1の退避 + PUSH 0,GR2 ; GR2の退避 +LOOP SRL GR2,1 ; ループ開始。SRLを1つ右シフト + JOV ON ; 乗数の最下位ビットが1の場合、ONへジャンプ + JUMP NEXT ; NEXTへジャンプ +ON ADDL GR3,GR1 ; GR3 <- GR3 + GR1 + JOV POST ; GR3がオーバーフローした場合、POSTへジャンプ +NEXT AND GR2,GR2 ; GR2 = 0 の場合、POSTへジャンプ + JZE POST ; ↓ + SLL GR1,1 ; GR1を1つ左シフト + JOV POST ; GR1がオーバーフローした場合、POSTへジャンプ + JUMP LOOP ; ループ終端 +POST POP GR2 ; GR2の復元 + POP GR1 ; GR1の復元 +FIN RET END diff --git a/as/casl2lib/mull.casl b/as/casl2lib/mull.casl index f40c0f6..53579ce 100644 --- a/as/casl2lib/mull.casl +++ b/as/casl2lib/mull.casl @@ -1,42 +1,26 @@ ;;; 0〜65535の範囲にある正数のかけ算（筆算方式）を行う ;;; 入力 GR1:被乗数 GR2:乗数 -;;; 出力 GR0:積の下位WORD GR3:積の上位WORD +;;; 出力 GR3:積 ;;; 積が65535より大きい場合は、オーバーフロー MULL START - PUSH 0,GR4 - PUSH 0,GR5 - XOR GR0,GR0 ; 積 - XOR GR3,GR3 ; 上位word - XOR GR5,GR5 ; 上位wordの一時値 - AND GR1,GR1 ; (GR1 = 0)の場合、終了 - JZE CHKOV ; ↓ - AND GR2,GR2 ; (GR2 = 0)の場合、終了 - JZE CHKOV ; ↓ - LAD GR4,1 ; 対象ビット -LOOP PUSH 0,GR4 ; ループ先頭。GR2のビット中でGR4が示すビットが0の場合、NEXTへジャンプ - AND GR4,GR2 ; ↓ - POP GR4 ; ↓ - JZE NEXT1 ; ↓ - ADDL GR3,GR5 ; GR3 <- GR3 + GR5 - ADDL GR0,GR1 ; GR0 <- GR0 + GR1 - JOV AHB1 ; GR0がオーバーフローした場合、AHB1へジャンプ - JUMP NEXT1 ; ↓ -AHB1 LAD GR3,1,GR3 ; GR3 <- GR3 + 1 -NEXT1 SLL GR4,1 ; GR4を1回左シフト - JOV CHKOV ; ↓ - SLL GR5,1 ; GR5を1回左シフト - CPL GR4,GR2 ; (GR4 > GR2)の場合、CHKOVへジャンプ - JPL CHKOV ; ↓ - SLL GR1,1 ; GR1を1回左シフト - JOV AHB2 ; GR1がオーバーフローした場合、AHBへジャンプ - JUMP NEXT2 ; ↓ -AHB2 LAD GR5,1,GR5 ; GR5 <- GR5 + 1 -NEXT2 JUMP LOOP ; ループ終端 -CHKOV AND GR3,GR3 ; GR3 = 0の場合、終了 + XOR GR3,GR3 ; GR3の初期化 + AND GR1,GR1 ; GR1 = 0 の場合、FINへジャンプ JZE FIN ; ↓ - LAD GR4,#FFFF ; GR3 <> 0の場合、オーバーフロー - SLL GR4,1 ; ↓ -FIN POP GR5 - POP GR4 - RET + AND GR2,GR2 ; GR2 = 0 の場合、FINへジャンプ + JZE FIN ; ↓ + PUSH 0,GR1 ; GR1の退避 + PUSH 0,GR2 ; GR2の退避 +LOOP SRL GR2,1 ; ループ開始。SRLを1つ右シフト + JOV ON ; 乗数の最下位ビットが1の場合、ONへジャンプ + JUMP NEXT ; NEXTへジャンプ +ON ADDL GR3,GR1 ; GR3 <- GR3 + GR1 + JOV POST ; GR3がオーバーフローした場合、POSTへジャンプ +NEXT AND GR2,GR2 ; GR2 = 0 の場合、POSTへジャンプ + JZE POST ; ↓ + SLL GR1,1 ; GR1を1つ左シフト + JOV POST ; GR1がオーバーフローした場合、POSTへジャンプ + JUMP LOOP ; ループ終端 +POST POP GR2 ; GR2の復元 + POP GR1 ; GR1の復元 +FIN RET END diff --git a/as/casl2lib/sample/call_inl.casl b/as/casl2lib/sample/call_inl.casl index 28c6a9c..6c770fa 100644 --- a/as/casl2lib/sample/call_inl.casl +++ b/as/casl2lib/sample/call_inl.casl @@ -1,25 +1,19 @@ ;;; casl2 inl.casl ../casl2lib/inl.casl ../casl2lib/outl.casl MAIN START -LOOP CALL INL ; GR1に数値、GR0に文字列の長さ - JOV OV - AND GR0,GR0 +LOOP CALL INL ; GR1に数値、GR2に文字列の長さ + JOV NAN + JMI BIG + LD GR2,GR2 JZE FIN - CPL GR0,=#FFFF - JZE NAN CALL OUTL JUMP LOOP -OV CPL GR0,=#FFFF - JZE LENOV - OUT OVMSG,MLEN1 +NAN OUT NANMSG,NANLEN JUMP LOOP -NAN OUT NANMSG,MLEN2 +BIG OUT BIGMSG,BIGLEN JUMP LOOP -LENOV OUT LENOVMSG,MLEN3 FIN RET -OVMSG DC 'Over 65535' -MLEN1 DC 10 -NANMSG DC 'Not A Number' -MLEN2 DC 12 -LENOVMSG DC 'Str too long. Stop' -MLEN3 DC 18 +NANMSG DC 'Not a number' +NANLEN DC 12 +BIGMSG DC 'Over 65535' +BIGLEN DC 10 END diff --git a/as/casl2lib/sample/call_mull.casl b/as/casl2lib/sample/call_mull.casl index 6085ce1..3a41303 100644 --- a/as/casl2lib/sample/call_mull.casl +++ b/as/casl2lib/sample/call_mull.casl @@ -12,25 +12,17 @@ LOOPY CPA GR5,YCNT ; (GR5 = YCNT)の場合、ループ脱出 LD GR1,GR2 ; ↓ CALL OUTL ; ↓ POP GR1 ; ↓ - CALL MULL ; GR0 <- GR1 * GR2 + CALL MULL ; GR3 <- GR1 * GR2 JOV WOV ; オーバーフローの場合は、WOVへジャンプ - PUSH 0,GR1 ; GR0の数値を出力 - LD GR1,GR0 ; ↓ + PUSH 0,GR1 ; GR3の数値を出力 + LD GR1,GR3 ; ↓ CALL OUTL ; ↓ POP GR1 ; ↓ YNEXT OUT SEP,SLEN ; 区切り線を出力 LAD GR5,1,GR5 ; GR5 <- GR5 + 1 JUMP LOOPY ; LOOPYへジャンプ WOV OUT YOMSG,YLEN ; オーバーフローした場合のメッセージを表示 - PUSH 0,GR1 ; GR0の数値を出力 - LD GR1,GR0 ; ↓ - CALL OUTL ; ↓ - POP GR1 ; ↓ - PUSH 0,GR1 ; GR3の数値を出力 - LD GR1,GR3 ; ↓ - CALL OUTL ; ↓ - POP GR3 ; ↓ - JUMP YNEXT ; YNEXTへジャンプ + OUT SEP,SLEN ; 区切り線を出力 XNEXT LAD GR4,1,GR4 ; GR4 <- GR4 + 1 JUMP LOOPX ; LOOPXへジャンプ FIN RET diff --git a/as/casl2lib/sample/call_outbw0.casl b/as/casl2lib/sample/call_outbw0.casl deleted file mode 100644 index ad8c17f..0000000 --- a/as/casl2lib/sample/call_outbw0.casl +++ /dev/null @@ -1,13 +0,0 @@ -;;; casl2 outb_call.casl outb.casl -MAIN START - LAD GR2,0 -LOOP LD GR1,VAL,GR2 - CALL OUTB - LAD GR2,1,GR2 - CPA GR2,CNT - JZE FIN - JUMP LOOP -FIN RET -VAL DC #0001,#8000 -CNT DC 2 - END diff --git a/as/casl2lib/src/inl.casl b/as/casl2lib/src/inl.casl index 3587131..5e13109 100644 --- a/as/casl2lib/src/inl.casl +++ b/as/casl2lib/src/inl.casl @@ -1,22 +1,21 @@ ;;; 0から65535の範囲にある整数の入力を受け付ける ;;; 入力 （SVC） ;;; 出力 GR1: 入力された数値 -;;; GR0: 文字列の長さ。入力が数字以外の場合は、#FFFF -;;; 65536以上の正数が入力された場合はエラー +;;; GR2: 文字列の長さ。 +;;; 入力が数字以外の場合は、SFフラグを設定 +;;; 65535を超える数値の場合は、OFフラグを設定 INL START + PUSH 0,GR3 IN IBUF,ILEN ; 入力文字列を格納 LAD GR1,IBUF LD GR2,ILEN - CPA GR2,LENMAX - JPL LENOV CALL STR2L JOV FIN - LD GR0,GR2 - JUMP FIN -LENOV LAD GR0,#FFFF - SRA GR0,1 -FIN RET -ILEN DS 1 -LENMAX DC 5 + JMI FIN + LD GR1,GR3 +FIN POP GR3 + RET IBUF DS 5 +ILEN DS 1 +MAXLEN DC 5 END diff --git a/as/casl2lib/src/mull.casl b/as/casl2lib/src/mull.casl index f40c0f6..53579ce 100644 --- a/as/casl2lib/src/mull.casl +++ b/as/casl2lib/src/mull.casl @@ -1,42 +1,26 @@ ;;; 0〜65535の範囲にある正数のかけ算（筆算方式）を行う ;;; 入力 GR1:被乗数 GR2:乗数 -;;; 出力 GR0:積の下位WORD GR3:積の上位WORD +;;; 出力 GR3:積 ;;; 積が65535より大きい場合は、オーバーフロー MULL START - PUSH 0,GR4 - PUSH 0,GR5 - XOR GR0,GR0 ; 積 - XOR GR3,GR3 ; 上位word - XOR GR5,GR5 ; 上位wordの一時値 - AND GR1,GR1 ; (GR1 = 0)の場合、終了 - JZE CHKOV ; ↓ - AND GR2,GR2 ; (GR2 = 0)の場合、終了 - JZE CHKOV ; ↓ - LAD GR4,1 ; 対象ビット -LOOP PUSH 0,GR4 ; ループ先頭。GR2のビット中でGR4が示すビットが0の場合、NEXTへジャンプ - AND GR4,GR2 ; ↓ - POP GR4 ; ↓ - JZE NEXT1 ; ↓ - ADDL GR3,GR5 ; GR3 <- GR3 + GR5 - ADDL GR0,GR1 ; GR0 <- GR0 + GR1 - JOV AHB1 ; GR0がオーバーフローした場合、AHB1へジャンプ - JUMP NEXT1 ; ↓ -AHB1 LAD GR3,1,GR3 ; GR3 <- GR3 + 1 -NEXT1 SLL GR4,1 ; GR4を1回左シフト - JOV CHKOV ; ↓ - SLL GR5,1 ; GR5を1回左シフト - CPL GR4,GR2 ; (GR4 > GR2)の場合、CHKOVへジャンプ - JPL CHKOV ; ↓ - SLL GR1,1 ; GR1を1回左シフト - JOV AHB2 ; GR1がオーバーフローした場合、AHBへジャンプ - JUMP NEXT2 ; ↓ -AHB2 LAD GR5,1,GR5 ; GR5 <- GR5 + 1 -NEXT2 JUMP LOOP ; ループ終端 -CHKOV AND GR3,GR3 ; GR3 = 0の場合、終了 + XOR GR3,GR3 ; GR3の初期化 + AND GR1,GR1 ; GR1 = 0 の場合、FINへジャンプ JZE FIN ; ↓ - LAD GR4,#FFFF ; GR3 <> 0の場合、オーバーフロー - SLL GR4,1 ; ↓ -FIN POP GR5 - POP GR4 - RET + AND GR2,GR2 ; GR2 = 0 の場合、FINへジャンプ + JZE FIN ; ↓ + PUSH 0,GR1 ; GR1の退避 + PUSH 0,GR2 ; GR2の退避 +LOOP SRL GR2,1 ; ループ開始。SRLを1つ右シフト + JOV ON ; 乗数の最下位ビットが1の場合、ONへジャンプ + JUMP NEXT ; NEXTへジャンプ +ON ADDL GR3,GR1 ; GR3 <- GR3 + GR1 + JOV POST ; GR3がオーバーフローした場合、POSTへジャンプ +NEXT AND GR2,GR2 ; GR2 = 0 の場合、POSTへジャンプ + JZE POST ; ↓ + SLL GR1,1 ; GR1を1つ左シフト + JOV POST ; GR1がオーバーフローした場合、POSTへジャンプ + JUMP LOOP ; ループ終端 +POST POP GR2 ; GR2の復元 + POP GR1 ; GR1の復元 +FIN RET END diff --git a/as/casl2lib/src/str2l.casl b/as/casl2lib/src/str2l.casl index 09136df..dec0b9d 100644 --- a/as/casl2lib/src/str2l.casl +++ b/as/casl2lib/src/str2l.casl @@ -1,69 +1,55 @@ ;;; 10進数の整数を表す文字列を数値に変換 ;;; 数値の範囲は、0から65535 -;;; 入力 GR1: 文字列を格納するアドレス -;;; GR2: 文字列の長さ。最大5けた -;;; 出力 GR0: 数値 -;;; 文字列が最大長より大きい場合や数値以外の場合は、GR0は#FFFF、OFは1 +;;; 入力 GR1: 文字列を格納するメモリーの先頭アドレス +;;; GR2: 文字列の長さ。最大5けた +;;; 出力 GR3: 数値 +;;; 文字列が最大長より大きい場合と数値以外の場合は、GR3は#FFFF、OFは1 +;;; 数値以外の場合、OFは1 ;;; 依存プログラム: MULL STR2L START PUSH 0,GR1 PUSH 0,GR2 - PUSH 0,GR3 PUSH 0,GR4 PUSH 0,GR5 - XOR GR0,GR0 ; GR0:初期化 - AND GR2,GR2 ; (GR2 = 0)の場合、FINへジャンプ - JZE FIN ; ↓ - CPL GR2,MAXLEN ; (GR2 > MAXLEN)の場合、LENOVへジャンプ - JPL LENOV ; ↓ - ST GR1,STR ; STR <- GR1 文字列の開始アドレス - ST GR2,LEN ; LEN <- GR2 - LAD GR2,10 ; GR2:10進数の「10」 - XOR GR4,GR4 ; GR4:値の一時格納 - XOR GR5,GR5 ; GR5:インデックス -STOL CPL GR5,LEN ; ループ先頭。(GR5 = LEN)の場合、ループ脱出 - JZE CP ; ↓ - LD GR1,STR ; GR1に、入力文字列中の次の桁を格納 - ADDL GR1,GR5 ; ↓ + PUSH 0,GR6 + PUSH 0,GR7 + XOR GR3,GR3 ; GR3の初期化 + AND GR2,GR2 ; GR2 = 0の場合、OVへジャンプ + JZE OV ; ↓ + CPL GR2,=5 ; GR2 > 5の場合、OVへジャンプ + JPL OV ; ↓ + XOR GR4,GR4 ; GR4: インデックスの初期化 + LD GR5,GR1 ; GR5 <- GR1 + LD GR6,GR2 ; GR6 <- GR2 + XOR GR1,GR1 ; GR1の初期化 +STOL LD GR1,GR5 ; GR1に、入力文字列中の次の桁を格納 + ADDL GR1,GR4 ; ↓ LD GR1,0,GR1 ; ↓ - CPL GR1,ZERO ; (GR1 < '0')の場合、NANへジャンプ - JMI NAN ; ↓ - CPL GR1,NINE ; (GR1 > '9')の場合、NANへジャンプ - JPL NAN ; ↓ + LD GR7,ZERO ; GR1 < '0'の場合、FINへジャンプ + CPL GR1,GR7 ; ↓ + JMI FIN ; ↓ + LD GR7,NINE ; GR1 > '9'の場合、FINへジャンプ + CPL GR7,GR1 ; ↓ + JMI FIN ; ↓ SUBL GR1,ZERO ; GR1の文字を、対応する数値に変換 - ST GR5,NLEN ; GR5 <- LEN - NLEN - 1 - LD GR5,LEN ; ↓ - SUBA GR5,NLEN ; ↓ -MUL10 CPA GR5,=1 ; ループ先頭。GR1 <- 10 ** GR5 - JZE NEXT ; (GR5 = 1)の場合、ループ脱出 - JMI NEXT ; ↓ - CALL MULL ; MULLを呼び出し、GR0 <- GR1 * GR2 - JOV FIN ; ↓ オーバーフロー時は、プログラム終端へジャンプ - LD GR1,GR0 ; GR1 <- GR0 - LAD GR5,-1,GR5 ; GR5 <- GR5 -1 - JUMP MUL10 ; ループ終端へジャンプ -NEXT LD GR5,NLEN ; GR5 <- NLEN。復元 - ADDL GR4,GR1 ; GR4 <- GR4 + GR1 - JOV FIN ; ↓ - LAD GR5,1,GR5 ; GR5 <- GR5 + 1 + ADDL GR3,GR1 + JOV FIN + LAD GR4,1,GR4 ; GR4 <- GR4 + 1 + CPL GR4,GR6 ; GR4 = GR6の場合、ループ脱出 + JZE FIN ; ↓ +MUL10 LAD GR2,10 ; GR2:10進数の 10 + LD GR1,GR3 ; GR1 <- GR3 + CALL MULL ; MULLを呼び出し、GR3 <- GR1 * GR2 JUMP STOL ; ループ終端 -NAN LAD GR2,#FFFF ; GR2 <- #FFFF - JUMP FIN ; FINへジャンプ -CP LD GR1,GR4 ; GR0 <- GR4 - LD GR0,LEN ; GR0 <- LEN - JUMP FIN ; プログラム終端へジャンプ -LENOV LAD GR0,#FFFF ; 文字列が最大長より大きい場合、GR0 <- #FFFF - SRA GR0,1 ; ↓ オーバーフロー発生 -FIN POP GR5 +OV LAD GR7,1 ; オーバーフロー発生 + SRL GR7,1 ; ↓ +FIN POP GR7 + POP GR6 + POP GR5 POP GR4 - POP GR3 POP GR2 POP GR1 RET ZERO DC '0' NINE DC '9' -MAXLEN DC 5 ; 文字列の最大長 -STR DS 1 -LEN DS 1 -NLEN DS 1 END diff --git a/as/casl2lib/str2l.casl b/as/casl2lib/str2l.casl index bf0ed3c..247637e 100644 --- a/as/casl2lib/str2l.casl +++ b/as/casl2lib/str2l.casl @@ -1,111 +1,81 @@ ;;; 10進数の整数を表す文字列を数値に変換 ;;; 数値の範囲は、0から65535 -;;; 入力 GR1: 文字列を格納するアドレス -;;; GR2: 文字列の長さ。最大5けた -;;; 出力 GR0: 数値 -;;; 文字列が最大長より大きい場合や数値以外の場合は、GR0は#FFFF、OFは1 +;;; 入力 GR1: 文字列を格納するメモリーの先頭アドレス +;;; GR2: 文字列の長さ。最大5けた +;;; 出力 GR3: 数値 +;;; 文字列が最大長より大きい場合と数値以外の場合は、GR3は#FFFF、OFは1 +;;; 数値以外の場合、OFは1 ;;; 依存プログラム: MULL STR2L START PUSH 0,GR1 PUSH 0,GR2 - PUSH 0,GR3 PUSH 0,GR4 PUSH 0,GR5 - XOR GR0,GR0 ; GR0:初期化 - AND GR2,GR2 ; (GR2 = 0)の場合、FINへジャンプ - JZE FIN ; ↓ - CPL GR2,MAXLEN ; (GR2 > MAXLEN)の場合、LENOVへジャンプ - JPL LENOV ; ↓ - ST GR1,STR ; STR <- GR1 文字列の開始アドレス - ST GR2,LEN ; LEN <- GR2 - LAD GR2,10 ; GR2:10進数の「10」 - XOR GR4,GR4 ; GR4:値の一時格納 - XOR GR5,GR5 ; GR5:インデックス -STOL CPL GR5,LEN ; ループ先頭。(GR5 = LEN)の場合、ループ脱出 - JZE CP ; ↓ - LD GR1,STR ; GR1に、入力文字列中の次の桁を格納 - ADDL GR1,GR5 ; ↓ + PUSH 0,GR6 + PUSH 0,GR7 + XOR GR3,GR3 ; GR3の初期化 + AND GR2,GR2 ; GR2 = 0の場合、OVへジャンプ + JZE OV ; ↓ + CPL GR2,=5 ; GR2 > 5の場合、OVへジャンプ + JPL OV ; ↓ + XOR GR4,GR4 ; GR4: インデックスの初期化 + LD GR5,GR1 ; GR5 <- GR1 + LD GR6,GR2 ; GR6 <- GR2 + XOR GR1,GR1 ; GR1の初期化 +STOL LD GR1,GR5 ; GR1に、入力文字列中の次の桁を格納 + ADDL GR1,GR4 ; ↓ LD GR1,0,GR1 ; ↓ - CPL GR1,ZERO ; (GR1 < '0')の場合、NANへジャンプ - JMI NAN ; ↓ - CPL GR1,NINE ; (GR1 > '9')の場合、NANへジャンプ - JPL NAN ; ↓ + LD GR7,ZERO ; GR1 < '0'の場合、FINへジャンプ + CPL GR1,GR7 ; ↓ + JMI FIN ; ↓ + LD GR7,NINE ; GR1 > '9'の場合、FINへジャンプ + CPL GR7,GR1 ; ↓ + JMI FIN ; ↓ SUBL GR1,ZERO ; GR1の文字を、対応する数値に変換 - ST GR5,NLEN ; GR5 <- LEN - NLEN - 1 - LD GR5,LEN ; ↓ - SUBA GR5,NLEN ; ↓ -MUL10 CPA GR5,=1 ; ループ先頭。GR1 <- 10 ** GR5 - JZE NEXT ; (GR5 = 1)の場合、ループ脱出 - JMI NEXT ; ↓ - CALL MULL ; MULLを呼び出し、GR0 <- GR1 * GR2 - JOV FIN ; ↓ オーバーフロー時は、プログラム終端へジャンプ - LD GR1,GR0 ; GR1 <- GR0 - LAD GR5,-1,GR5 ; GR5 <- GR5 -1 - JUMP MUL10 ; ループ終端へジャンプ -NEXT LD GR5,NLEN ; GR5 <- NLEN。復元 - ADDL GR4,GR1 ; GR4 <- GR4 + GR1 - JOV FIN ; ↓ - LAD GR5,1,GR5 ; GR5 <- GR5 + 1 + ADDL GR3,GR1 + JOV FIN + LAD GR4,1,GR4 ; GR4 <- GR4 + 1 + CPL GR4,GR6 ; GR4 = GR6の場合、ループ脱出 + JZE FIN ; ↓ +MUL10 LAD GR2,10 ; GR2:10進数の 10 + LD GR1,GR3 ; GR1 <- GR3 + CALL MULL ; MULLを呼び出し、GR3 <- GR1 * GR2 JUMP STOL ; ループ終端 -NAN LAD GR2,#FFFF ; GR2 <- #FFFF - JUMP FIN ; FINへジャンプ -CP LD GR1,GR4 ; GR0 <- GR4 - LD GR0,LEN ; GR0 <- LEN - JUMP FIN ; プログラム終端へジャンプ -LENOV LAD GR0,#FFFF ; 文字列が最大長より大きい場合、GR0 <- #FFFF - SRA GR0,1 ; ↓ オーバーフロー発生 -FIN POP GR5 +OV LAD GR7,1 ; オーバーフロー発生 + SRL GR7,1 ; ↓ +FIN POP GR7 + POP GR6 + POP GR5 POP GR4 - POP GR3 POP GR2 POP GR1 RET ZERO DC '0' NINE DC '9' -MAXLEN DC 5 ; 文字列の最大長 -STR DS 1 -LEN DS 1 -NLEN DS 1 END ;;; 0〜65535の範囲にある正数のかけ算（筆算方式）を行う ;;; 入力 GR1:被乗数 GR2:乗数 -;;; 出力 GR0:積の下位WORD GR3:積の上位WORD +;;; 出力 GR3:積 ;;; 積が65535より大きい場合は、オーバーフロー MULL START - PUSH 0,GR4 - PUSH 0,GR5 - XOR GR0,GR0 ; 積 - XOR GR3,GR3 ; 上位word - XOR GR5,GR5 ; 上位wordの一時値 - AND GR1,GR1 ; (GR1 = 0)の場合、終了 - JZE CHKOV ; ↓ - AND GR2,GR2 ; (GR2 = 0)の場合、終了 - JZE CHKOV ; ↓ - LAD GR4,1 ; 対象ビット -LOOP PUSH 0,GR4 ; ループ先頭。GR2のビット中でGR4が示すビットが0の場合、NEXTへジャンプ - AND GR4,GR2 ; ↓ - POP GR4 ; ↓ - JZE NEXT1 ; ↓ - ADDL GR3,GR5 ; GR3 <- GR3 + GR5 - ADDL GR0,GR1 ; GR0 <- GR0 + GR1 - JOV AHB1 ; GR0がオーバーフローした場合、AHB1へジャンプ - JUMP NEXT1 ; ↓ -AHB1 LAD GR3,1,GR3 ; GR3 <- GR3 + 1 -NEXT1 SLL GR4,1 ; GR4を1回左シフト - JOV CHKOV ; ↓ - SLL GR5,1 ; GR5を1回左シフト - CPL GR4,GR2 ; (GR4 > GR2)の場合、CHKOVへジャンプ - JPL CHKOV ; ↓ - SLL GR1,1 ; GR1を1回左シフト - JOV AHB2 ; GR1がオーバーフローした場合、AHBへジャンプ - JUMP NEXT2 ; ↓ -AHB2 LAD GR5,1,GR5 ; GR5 <- GR5 + 1 -NEXT2 JUMP LOOP ; ループ終端 -CHKOV AND GR3,GR3 ; GR3 = 0の場合、終了 + XOR GR3,GR3 ; GR3の初期化 + AND GR1,GR1 ; GR1 = 0 の場合、FINへジャンプ JZE FIN ; ↓ - LAD GR4,#FFFF ; GR3 <> 0の場合、オーバーフロー - SLL GR4,1 ; ↓ -FIN POP GR5 - POP GR4 - RET + AND GR2,GR2 ; GR2 = 0 の場合、FINへジャンプ + JZE FIN ; ↓ + PUSH 0,GR1 ; GR1の退避 + PUSH 0,GR2 ; GR2の退避 +LOOP SRL GR2,1 ; ループ開始。SRLを1つ右シフト + JOV ON ; 乗数の最下位ビットが1の場合、ONへジャンプ + JUMP NEXT ; NEXTへジャンプ +ON ADDL GR3,GR1 ; GR3 <- GR3 + GR1 + JOV POST ; GR3がオーバーフローした場合、POSTへジャンプ +NEXT AND GR2,GR2 ; GR2 = 0 の場合、POSTへジャンプ + JZE POST ; ↓ + SLL GR1,1 ; GR1を1つ左シフト + JOV POST ; GR1がオーバーフローした場合、POSTへジャンプ + JUMP LOOP ; ループ終端 +POST POP GR2 ; GR2の復元 + POP GR1 ; GR1の復元 +FIN RET END diff --git a/as/misc/mull0.casl b/as/misc/mull0.casl index 20168d6..1760859 100644 --- a/as/misc/mull0.casl +++ b/as/misc/mull0.casl @@ -1,14 +1,17 @@ -;GR1の値とGR2の値の積をGR0に格納 +;;; 0〜65535の範囲にある正数のかけ算（筆算方式）を行う +;;; 入力 GR1:被乗数 GR2:乗数 +;;; 出力 GR3:積 +;;; 積が65535より大きい場合は、オーバーフロー MULL START - RPUSH - LAD GR3,0 ; インデックス - LAD GR0,0 ; 積 -MLOOP CPA GR2,GR3 ; ループ先頭。(GR2 = GR3)の場合、ループ脱出 - JZE MFIN ; ↓ - ADDL GR0,GR1 ; GR0 <- GR0 + GR1 - JOV MFIN ; オーバーフローした場合、ループ脱出 - LAD GR3,1,GR3 ; GR3 <- GR3 + 1 - JUMP MLOOP ; ループ終端 -MFIN RPOP + PUSH 0,GR4 + XOR GR3,GR3 ; 積 + XOR GR4,GR4 ; インデックス +LOOP CPL GR2,GR4 ; ループ先頭。GR2 = GR4 の場合、FINへジャンプ + JZE FIN ; ↓ + ADDL GR3,GR1 ; GR3 <- GR3 + GR1 + JOV FIN ; オーバーフローした場合、FINへジャンプ + LAD GR4,1,GR4 ; GR4 <- GR4 + 1 + JUMP LOOP ; ループ終端 +FIN POP GR4 RET END diff --git a/test/system/casl2_lib/lib_inl/0.txt b/test/system/casl2_lib/lib_inl/0.txt index a3de2d7..dcabab8 100644 --- a/test/system/casl2_lib/lib_inl/0.txt +++ b/test/system/casl2_lib/lib_inl/0.txt @@ -6,9 +6,10 @@ 32767 32768 65535 -Over 65535 -Over 65535 -Not A Number -Not A Number +Not a number +Not a number +Not a number +Not a number 12345 -Str too long. Stop +Over 65535 +1234 diff --git a/test/system/casl2_lib/lib_inl/cmd b/test/system/casl2_lib/lib_inl/cmd index 941a81f..400902b 100755 --- a/test/system/casl2_lib/lib_inl/cmd +++ b/test/system/casl2_lib/lib_inl/cmd @@ -1 +1 @@ -../../../../casl2 -M2048 ../../../../as/casl2lib/sample/call_inl.casl ../../../../as/casl2lib/stdlib.casl