+++ /dev/null
-MAIN START
-BEGIN LAD GR1,3
- ADDA GR1,A
- RET
-A DC 1
- END
+++ /dev/null
-MAIN START BEGIN
-BEGIN LAD GR1,32766
- ADDA GR1,A
- RET
-A DC 29
- END
+++ /dev/null
-MAIN START BEGIN
-BEGIN LD GR0,A
- ADDL GR0,B
- ST GR0,C
- RET
-A DC 32766
-B DC 29
-C DS 1
- END
+++ /dev/null
-MAIN START BEGIN
-BEGIN LD GR1,A
- ADDL GR1,B
- ADDL GR1,C
- ADDL GR1,D
- RET
-A DC 32765
-B DC 4
-C DC 32764
-D DC 7
- END
+++ /dev/null
-MAIN START
-BEGIN LAD GR1,#8001
- LAD GR2,#3521
- AND GR1,GR2
- RET
- END
+++ /dev/null
-MAIN START
-BEGIN LAD GR0,#3444
- AND GR0,A
- RET
-A DC #00DD
- END
+++ /dev/null
-MAIN START
-BEGIN LAD GR0,#3444
- AND GR0,=#00DD
- RET
- END
+++ /dev/null
-MAIN START
-BEGIN LAD GR0,#0460
- AND GR0,=#00FF
- RET
- END
+++ /dev/null
-MAIN START BEGIN
-BEGIN LD GR1,A
- CALL COPY
- ST GR2,B
- RET
-A DC 29
-B DS 1
- END
-COPY START
- LD GR2,GR1
- RET
- END
+++ /dev/null
-MAIN START BEGIN
-BEGIN LD GR1,=29
- CALL INCR
- ST GR1,A
- RET
-A DS 1
- END
-INCR START
- ADDA GR1,=1
- RET
-FIN END
+++ /dev/null
-MAIN START BEGIN
-BEGIN LAD GR1,#5000
- LAD GR2,#F000
- CPA GR2,GR1
- RET
- END
+++ /dev/null
-MAIN START
-BEGIN LAD GR1,#5000
- LAD GR2,#F000
- CPL GR1,GR2
- RET
- END
+++ /dev/null
-MAIN START
-BEGIN LAD GR0,#3000
- CPL GR0,A
- RET
-A DC #A000
- END
+++ /dev/null
-MAIN START
-BEGIN LAD GR1,#5000
- ADDL GR1,=#FFFF
- LAD GR2,#F000
- CPL GR1,GR2
- RET
- END
+++ /dev/null
-LAD1 START
- LAD GR1,-1
- LAD GR1,65535,GR1
- RET
- END
+++ /dev/null
-MAIN START BEGIN
-BEGIN LD GR7,A
- LAD GR7,1,GR7
- RET
-A DC 3
- END
+++ /dev/null
-MAIN START
- LD GR0,A
- RET
-A DC 1,1,2,3,5,8
- END
+++ /dev/null
-; LDコマンド
-MAIN START BEGIN
-BEGIN LAD GR0,3
- LD GR1,GR0
- RET
- END
+++ /dev/null
-MAIN START
-BEGIN LD GR1,I
- RET
-I DC 17
- END
+++ /dev/null
-; LDコマンド
-MAIN START BEGIN
-BEGIN LD GR1,A
- LD GR2,B
- ADDL GR1,GR2
- RET
-A DC 32767
-B DC 32675
- END
+++ /dev/null
-; LDコマンド
-MAIN START BEGIN
-BEGIN LAD GR2,1
- LD GR1,A,GR2
- RET
-A DC 1
-B DC 2
- END
+++ /dev/null
-;;; ループを使い、連続でGR1にデータを転送する
-MAIN START
- LAD GR2,0
-MLOOP CPA GR2,LEN
- JZE MEND
- LD GR1,DATA,GR2
- LAD GR2,1,GR2
- JUMP MLOOP
-MEND RET
-DATA DC #9600,#F000,#A400
-LEN DC 3
- END
+++ /dev/null
-; リテラルに「=' '」を指定した場合のテスト
-MAIN START
- LD GR1,=' '
- ST GR1,BUF
- OUT BUF,LEN
- RET
-BUF DS 1
-LEN DC 1
- END
+++ /dev/null
-MAIN START
- OUT BUF,LEN
- RET
-BUF DC '0'
-LEN DC 1
- END
+++ /dev/null
-;;; OUTの使用例
-OTEST START
- OUT IOBUF,IOLEN
- RET
-IOBUF DC 'aaaa',10,'b','c',10,'as','qwerty','111111'
-IOLEN DC 24
- END
+++ /dev/null
-PUSHPOP START
- LAD GR1,1
- LAD GR2,2
- PUSH 0,GR1
- PUSH 0,GR2
- LAD GR1,0
- LAD GR2,0
- POP GR2
- POP GR1
- RET
- END
+++ /dev/null
-SLA2 START BEGIN
-BEGIN LD GR1,X
- SLL GR1,2
- RET
-X DC 3
- END
-
\ No newline at end of file
+++ /dev/null
-SLA2 START BEGIN
-BEGIN LD GR1,X
- SLL GR1,1
- RET
-X DC #4000
- END
-
\ No newline at end of file
+++ /dev/null
-MAIN START
-BEGIN LD GR1,A
- LD GR2,A
- XOR GR1,GR2
- RET
-A DC #8001
-B DC #3521
- END
+++ /dev/null
-MAIN START
-BEGIN LAD GR0,#3444
- LD GR1,A
- XOR GR0,A
- RET
-A DC #00DD
- END
+++ /dev/null
-MAIN START
-BEGIN LAD GR0,#3444
- LD GR1,A
- XOR GR0,A
- RET
-A DC #00DD
- END
+++ /dev/null
-;;; XORで、GR1の内容をクリア
-MAIN START
-BEGIN XOR GR2,GR2
-LOOP CPA GR2,LEN
- JZE FIN
- LD GR1,A,GR2
- XOR GR1,GR1
- LAD GR2,1,GR2
- JUMP LOOP
-FIN RET
-A DC #8001,#8000,#FFFF,#51,#7FFF
-LEN DC 5
- END
+++ /dev/null
-outl.casl: outl_main.casl divl1.casl rev.casl
- cat $^ >$@
-outa.casl: outa_main.casl divl1.casl rev.casl abs.casl
- cat $^ >$@
-outb.casl: outb_main.casl divl1.casl rev.casl
- cat $^ >$@
+++ /dev/null
-;;; 2つの32ビット数値を加算する
-;;; 32ビットの値は、連続する2語の領域に格納
-MAIN START BEGIN
-BEGIN LAD GR1,1 ; GR1にAの下位語を転送
- LD GR1,A,GR1 ; ↓
- LAD GR2,1 ; GR2にBの下位語を転送
- LD GR2,B,GR2 ; ↓
- ADDL GR1,GR2 ; GR1 <- GR1 + GR2
- JOV CARR ; オーバーフロー時は、CARRにジャンプ
- JUMP STL
-CARR LAD GR2,1 ; Cの上位語に1を格納
- ST GR2,C ; ↓
-STL LAD GR2,1 ; Cの下位語にGR1の内容を格納
- ST GR1,C,GR2 ; ↓
- LD GR1,A ; GR1にAの上位語を転送
- ADDL GR1,B ; GR1 <- GR1 + B
- ADDL GR1,C ; GR1 <- GR1 + C
- RET
-A DC 0,65534
-B DC 0,65535
-C DS 2
- END
+++ /dev/null
-COUNT1 START
-; 入力 GR1:検索する語
-; 処理 GR1中の'1'のビットの個数を求める
-; 出力 GR0:GR1中の'1'のビットの個数
- PUSH 0,GR1
- PUSH 0,GR2
- SUBA GR2,GR2
- AND GR1,GR1
- JZE RETURN
-MORE LAD GR2,1,GR2
- LAD GR0,-1,GR1
- AND GR1,GR0
- JNZ MORE
-RETURN LD GR0,GR2
- POP GR2
- POP GR1
- RET
- END
+++ /dev/null
-;;; -32767〜32767の範囲にある整数の割算（筆算方式）を行う
-;;; 入力 GR1:被除数 GR2:除数
-;;; 出力 GR0:商 GR3:剰余
-;;; GR2が0の場合は、GR0、GR3とも0になり、オーバーフロー
-DIVL START
- PUSH 0,GR1
- PUSH 0,GR2
- PUSH 0,GR4
- AND GR2,GR2 ; (GR2 = 0)の場合、DIVZEROへジャンプ
- JZE DIVZERO ; ↓
- ST GR2,Y ; YにGR2の初期値を保存
- XOR GR0,GR0 ; GR0の初期化
- XOR GR3,GR3 ; GR3の初期化
- LAD GR4,1 ; GR4の初期化。対象ビットを表す
-SL CPL GR2,GR1 ; ループ先頭。(GR2 > GR1)の場合、LOOPへループ脱出
- JPL LOOP ; ↓
- SLL GR4,1 ; GR4を1回左シフト
- ST GR2,TMP ; GR2の値をTMPに退避
- SLL GR2,1 ; GR2を1回左シフト
- JOV YOV ; オーバーフローの場合は、YOVへジャンプ
- JUMP SL ; ループ終端
-YOV LD GR2,TMP ; GR2の値をTMPから復元
- SRL GR4,1 ; GR4を1回右シフト
- JUMP LPIN ; LPINへジャンプ
-LOOP SRL GR4,1 ; ループ先頭。GR4を1回右シフト
- JZE SETMOD ; (GR4 = 0)の場合、SETMODへループ脱出
- SRL GR2,1 ; GR2を1回右シフト
- CPL GR1,Y ; (GR1 < Y)の場合、SETMODへループ脱出
- JMI SETMOD ; ↓
- CPL GR1,GR2 ; (GR1 < GR2)の場合、ループ先頭へジャンプ
- JMI LOOP ; ↓
-LPIN SUBL GR1,GR2 ; GR1 <- GR1 - GR2
- ADDL GR0,GR4 ; GR0 <- GR0 + GR4
- JUMP LOOP ; ループ終端
-DIVZERO LAD GR3,#8000 ; 強制的にオーバーフローを発生させ、GR3 <- 0
- SLL GR3,1 ; ↓
- JUMP FIN ; FIN へジャンプ
-SETMOD LD GR3,GR1 ; GR3 <- GR1。剰余の設定
-FIN POP GR4
- POP GR2
- POP GR1
- RET
-Y DS 1
-TMP DS 1
- END
+++ /dev/null
-;;; 入力された数値をGR0で返す
-INL START
- RPUSH
- IN IBUF,ILEN
- LAD GR1,0
- LAD GR2,10 ; 10進数の「10」
- LAD GR3,0 ; 値の一時格納
- LAD GR4,0 ; インデックス
-ISTOL CPL GR4,ILEN ; ループ先頭。(GR4 = ILEN)の場合、ループ脱出
- JZE ICP ; ↓
- LD GR1,IBUF,GR4
- CPL GR1,INCHR ; (GR1 < (INCHR = '0'))の場合、IOVへジャンプ
- JMI IOV ; ↓
- CPL GR1,='9' ; (GR1 > '9')の場合、IOVへジャンプ
- JPL IOV ; ↓
- SUBL GR1,INCHR
- ST GR4,NLEN
- LD GR4,ILEN
- SUBA GR4,NLEN
-MUL10 CPL GR4,=1
- JZE ISNEXT
- CALL MULL
- LD GR1,GR0
- LAD GR4,-1,GR4
- JUMP MUL10
-ISNEXT LD GR4,NLEN
- ADDL GR3,GR1
- LAD GR4,1,GR4
- JUMP ISTOL ; ループ終端
-IOV LAD GR0,1
- ADDL GR0,=#FFFF
- JUMP IFIN
-ICP LD GR0,GR3
-IFIN RPOP
- RET
-INCHR DC '0123456789'
-IBUF DS 5
-ILEN DS 1
-NLEN DS 1
- END
-;GR1の値とGR2の値の積をGR0に格納
-MULL START
- RPUSH
- LAD GR3,1 ; 対象ビット
- LAD GR0,0 ; 積
-MLOOP CPL GR3,GR2 ; ループ先頭。(GR2 = GR3)の場合、ループ脱出
- JPL MFIN ; ↓
- PUSH 0,GR3 ; GR2の、GR3が示したビットが0の場合、MNEXTへジャンプ
- AND GR3,GR2 ; ↓
- POP GR3 ; ↓
- JZE MNEXT ; ↓
- ADDL GR0,GR1 ; GR0 <- GR0 + GR1
- JOV MFIN ; オーバーフローした場合、ループ脱出
-MNEXT SLL GR3,1 ; GR3を1回左シフト
- SLL GR1,1 ; GR1を1回左シフト
- JOV MFIN ; オーバーフローした場合、ループ脱出
- JUMP MLOOP ; ループ終端
-MFIN RPOP
- RET
- END
+++ /dev/null
-;;; casl2 inl_call.casl outl.casl
-MAIN START
- CALL INL
- JOV NAN
- LD GR1,GR0
- CALL OUTL
- JUMP FIN
-NAN OUT NANMSG,MLEN
-FIN RET
-NANMSG DC 'Not A Number'
-MLEN DC 12
- END
+++ /dev/null
-;;; GR1のアドレスに格納されたGR2の個数の値の中で、最小値をGR0に格納する
-MINIM START
- LD GR0,0,GR1
- ST GR0,MIN
- LAD GR3,0
-S1 CPA GR3,GR2
- JZE LRET
- LAD GR1,1,GR1
- LD GR0,0,GR1
- CPA GR0,MIN
- JPL S2
- JZE S2
- ST GR0,MIN
-S2 LAD GR3,1,GR3
- JUMP S1
-LRET LD GR0,MIN
- RET
-MIN DS 1
- END
+++ /dev/null
-;;; GR1に格納された値を、10進数の整数値（-32768〜32767）として表示
-OUTA START
- RPUSH
- LAD GR2,10 ; GR2に10進数の「10」を格納。
- LAD GR0,0 ; GR0 <- 0
- LAD GR4,0 ; 負数フラグ。GR1が負数の場合、GR4は1
- ST GR0,LEN ; LENの初期化
- AND GR1,GR1 ; GR1をテスト
- JZE ZPRT ; GR1が0の場合、ZPRTにジャンプ
- JPL STI ; GR1が正数の場合、STIにジャンプ
- LAD GR4,1 ; GR1が負数の場合、GR4をオン
- CALL OABS ; GR1を正数に変換
-STI CPL GR1,GR2 ; ループ先頭。(GR1 < GR2)の場合は、ループ脱出
- JMI STLST ; ↓
- CALL ODIVL ; GR1とGR2の、商をGR0、剰余をGR3に格納
- LD GR1,GR3 ; GR1にGR3をコピー
- LD GR1,NCHAR,GR1 ; GR1を文字に変換
- CALL STSTR ; GR1をSTR領域に格納
- LD GR1,GR0 ; GR0をGR1にコピー
- JUMP STI ; ループ終端
-STLST LD GR1,NCHAR,GR1 ; GR1を文字に変換
- CALL STSTR ; GR1をSTR領域に格納
- AND GR4,GR4 ; 正数の場合
- JZE PRT ; ↓
- LD GR1,='-' ; 負数の場合、「-」をSTR領域に格納
- CALL STSTR ; ↓
- JUMP PRT ; PRTにジャンプ
-ZPRT LD GR1,NCHAR ; 「0」をSTR領域に格納
- CALL STSTR ; ↓
-PRT LD GR2,LEN ; GR2にLENの値を格納
- LAD GR1,STR ; GR1に文字列のアドレスを格納
- CALL REV ; 文字列を逆順に並べ替え
- OUT STR,LEN ; 文字列を出力
- RPOP
- RET
-STR DS 17
-LEN DS 1
-NCHAR DC '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ'
- END
-;; GR1をSTR領域に格納し、LENをインクリメント
-STSTR START
- PUSH 0,GR1
- PUSH 0,GR2
- LD GR2,LEN ; GR2にLENの値をロード
- ST GR1,STR,GR2 ; STR+GR2 <- GR1
- LAD GR2,1,GR2 ; GR2 <- GR2 + 1
- ST GR2,LEN ; LENにGR2を格納
- POP GR2
- POP GR1
- RET
- END
-;;; GR1の値とGR2の値の、商をGR0、剰余をGR3に格納する
-;;; 0〜65535の範囲の数値を扱う
-ODIVL START
- PUSH 0,GR1
- AND GR2,GR2 ; (GR2 = 0)の場合、ODYZへジャンプ
- JZE ODYZ ; ↓
- LAD GR0,0 ; GR0を初期化
- LD GR3,GR1 ; GR3 <- GR1
-ODLOOP CPL GR3,GR2 ; ループ先頭。(GR3 < GR2)の場合、終了
- JMI ODFIN ; ↓
- SUBL GR3,GR2 ; GR3 <- GR3 - GR2
- ADDL GR0,ODONE ; ↓
- JUMP ODLOOP ; ループ終端
-ODYZ LAD GR3,#FFFF ; 強制的にオーバーフローを発生させ、GR3 <- 0
- ADDL GR3,=1 ; ↓
- JUMP ODFIN ; ODFINへジャンプ
-ODFIN POP GR1
- RET
-ODONE DC 1
- END
-;; アドレスがGR1、長さがGR2の文字列を逆順に並べ替える
-;; 例: 12345 -> 54321、54321- -> -12345
-REV START
- RPUSH
- LAD GR3,0 ; GR3の初期化
-RPU CPL GR3,GR2 ; ループ先頭。(GR3 = GR2)の場合、ループ脱出
- JZE RNEXT ; ↓
- LD GR4,GR1 ; GR4にGR1の値をコピー
- ADDL GR4,GR3 ; GR4 <- GR4 + GR3
- LD GR5,0,GR4 ; GR5にアドレスGR4の値を格納
- PUSH 0,GR5 ; GR5をプッシュ
- LAD GR3,1,GR3 ; GR3 <- GR3 + 1
- JUMP RPU ; ループ終端
-RNEXT LAD GR3,0 ; GR3の初期化
-RPO CPL GR3,GR2 ; ループ先頭。(GR3 = GR2)の場合、ループ脱出
- JZE RFIN ; ↓
- POP GR5 ; GR5にポップ
- LD GR4,GR1 ; GR4にGR1の値をコピー
- ADDL GR4,GR3 ; GR4 <- GR4 + GR3
- ST GR5,0,GR4 ; アドレスGR4にGR5の値を格納
- LAD GR3,1,GR3 ; GR3 <- GR3 + 1
- JUMP RPO ; ループ終端
-RFIN RPOP
- RET
- END
-;; GR1の値を絶対値に変換する。GR1にはマイナスの数値が格納されていると想定。
-;; 例: -10 -> 10, -20 -> 20
-OABS START
- XOR GR1,=#FFFF ; GR1の値を反転
- LAD GR1,1,GR1 ; GR1 <- GR1 + 1
- RET
- END
+++ /dev/null
-;;; sum.casl
-;;; 入力 GR1: 1以上の正数
-;;; 出力 GR2: 1からGR1で指定された値までの正数をすべて加算した値。
-;;; オーバーフローした場合は、#FFFF
-SUM START
- LAD GR2,0
- LAD GR3,1
-LOOP CPL GR3,GR1
- JPL FIN
- ADDL GR2,GR3
- JOV OV
- LAD GR3,1,GR3
- JUMP LOOP
-OV LAD GR2,#FFFF
-FIN RET
- END
--- /dev/null
+.PHONY: clean
+
+$(TARGET): $(SRCFILE)
+ @cat $^ >$@
+clean:
+ @rm $(TARGET)
--- /dev/null
+SRCDIR = `ls -d *src`
+.PHONY: all clean
+all:
+ @for target in $(SRCDIR); do $(MAKE) -C $$target; done
+clean:
+ @for target in $(SRCDIR); do $(MAKE) -C $$target clean; done
--- /dev/null
+;;; 2つの32ビット数値を加算する
+;;; 32ビットの値は、連続する2語の領域に格納
+;;; 入力 GR1:数値1の先頭アドレス GR2:数値2の先頭アドレス
+;;; 出力 GR0:和の先頭アドレス
+ADDL32 START
+ RPUSH
+ ST GR1,X ; X <- GR1:数値1
+ ST GR2,Y ; Y <- GR2:数値2
+ LD GR3,LEN ; GR3:語を表すインデックス 初期化
+ XOR GR4,GR4 ; GR4:キャリー値 初期化
+ LAD GR3,-1,GR3 ; ↓
+LOOP AND GR3,GR3 ; ループ先頭。(GR3 = 0)の場合は、ループ脱出
+ JMI FIN ; ↓
+ LD GR1,X ; GR1 <- (X + GR3)の値
+ ADDL GR1,GR3 ; ↓
+ LD GR1,0,GR1 ; ↓
+ LD GR2,Y ; GR2 <- (Y + GR3)の値
+ ADDL GR2,GR3 ; ↓
+ LD GR2,0,GR2 ; ↓
+ ADDL GR1,GR2 ; GR1 <- GR1 + GR2
+ JOV CRRY ; オーバーフロー時は、CRRYへジャンプ
+ ADDL GR1,GR4 ; GR1 <- GR1 + GR4
+ JOV CRRY ; オーバーフロー時は、CRRYへジャンプ
+ ST GR1,A,GR3 ; (A + GR3) <- GR1
+ LAD GR3,-1,GR3 ; GR3 <- GR3 - 1
+ XOR GR4,GR4 ; GR4 <- 0
+ JUMP LOOP ; ループ先頭へジャンプ
+CRRY AND GR3,GR3 ; 最上位の語でオーバーフローした場合、OVへジャンプ
+ JMI OV ; ↓
+ ST GR1,A,GR3 ; (A + GR3) <- GR1
+ LAD GR3,-1,GR3 ; GR3 <- GR3 - 1
+ LAD GR4,1 ; GR4 <- 1
+ JUMP LOOP ; ループ終端
+OV LAD GR3,=#8000 ; 強制的にオーバーフロー発生
+ SLL GR3,1 ; ↓
+FIN LAD GR0,A ; GR0 <- A
+ RPOP
+ RET
+X DS 1 ; 数値1のアドレス
+Y DS 1 ; 数値2のアドレス
+A DS 2 ; 和
+LEN DC 2 ; 数値の語数
+ END
--- /dev/null
+;;; -32767〜32767の範囲にある整数の割算（筆算方式）を行う
+;;; 入力 GR1:被除数 GR2:除数
+;;; 出力 GR0:商 GR3:剰余
+;;; GR2が0の場合は、GR0、GR3とも0になり、オーバーフロー
+DIVL START
+ RET
+ END
;;; 0〜65535の範囲にある正数の割算（筆算方式）を行う
;;; 入力 GR1:被除数 GR2:除数
;;; 出力 GR0:商 GR3:剰余
-;;; GR2が0の場合は、GR0、GR3とも0になり、オーバーフロー
+;;; (GR2 = 0)の場合、GR0 GR3とも0になり、オーバーフロー
DIVL START
PUSH 0,GR1
PUSH 0,GR2
PUSH 0,GR4
+ XOR GR0,GR0 ; GR0:商 初期化
+ XOR GR3,GR3 ; GR3:剰余 初期化
AND GR2,GR2 ; (GR2 = 0)の場合、DIVZEROへジャンプ
JZE DIVZERO ; ↓
+ AND GR1,GR1 ; (GR1 = 0)の場合、FINへジャンプ
+ JZE FIN ; ↓
ST GR2,Y ; YにGR2の初期値を保存
- XOR GR0,GR0 ; GR0の初期化
- XOR GR3,GR3 ; GR3の初期化
- LAD GR4,1 ; GR4の初期化。対象ビットを表す
+ LAD GR4,1 ; GR4:対象ビットのインデックス 初期化
SL CPL GR2,GR1 ; ループ先頭。(GR2 > GR1)の場合、LOOPへループ脱出
JPL LOOP ; ↓
SLL GR4,1 ; GR4を1回左シフト
--- /dev/null
+;;; 数値の入力を受け付ける
+;;; 入力 （SVC）
+;;; 出力 GR1: 入力された数値 GR0: 文字の長さ
+INL START
+ PUSH 0,GR2
+ PUSH 0,GR3
+ PUSH 0,GR4
+ IN IBUF,ILEN ; 入力文字列を格納
+ LD GR0,ILEN ; ILEN = 0の場合、FINへジャンプ
+ JZE FIN ; ↓
+ XOR GR1,GR1 ; GR1:各桁の数値 初期化
+ LAD GR2,10 ; GR2:10進数の「10」 初期化
+ LAD GR3,0 ; GR3:値の一時格納 初期化
+ LAD GR4,0 ; GR4:インデックス 初期化
+STOL CPL GR4,ILEN ; ループ先頭。(GR4 = ILEN)の場合、ループ脱出
+ JZE CP ; ↓
+ LD GR1,IBUF,GR4 ; GR1に、入力文字列中の次の桁を格納
+ CPL GR1,ZERO ; (GR1 < '0')の場合、IOVへジャンプ
+ JMI OV ; ↓
+ CPL GR1,NINE ; (GR1 > '9')の場合、IOVへジャンプ
+ JPL OV ; ↓
+ SUBL GR1,ZERO ; GR1の文字を、対応する数値に変換
+ ST GR4,NLEN ; GR4 <- ILEN - NLEN - 1
+ LD GR4,ILEN ; ↓
+ SUBA GR4,NLEN ; ↓
+MUL10 CPA GR4,=1 ; ループ先頭。GR1 <- 10 ** GR4
+ JZE NEXT ; (GR4 = 1)の場合、ループ脱出
+ JMI NEXT ; ↓
+ CALL MULL ; MULLを呼び出し、GR0 <- GR1 * GR2
+ LD GR1,GR0 ; GR1 <- GR0
+ LAD GR4,-1,GR4 ; GR4 <- GR4 -1
+ JUMP MUL10 ; ループ終端
+NEXT LD GR4,NLEN ; GR4 <- NLEN。復元
+ ADDL GR3,GR1 ; GR3 <- GR3 + GR1
+ LAD GR4,1,GR4 ; GR4 <- GR4 + 1
+ JUMP STOL ; ループ終端
+OV LAD GR0,#8000 ; GR0 <- 0。オーバーフローを強制的に発生させる
+ SLL GR0,1 ; ↓
+ JUMP FIN ; FINへジャンプ
+CP LD GR1,GR3 ; GR0 <- GR3
+ LD GR0,ILEN ; GR0 <- ILEN
+FIN POP GR4
+ POP GR3
+ POP GR2
+ RET
+ZERO DC '0'
+NINE DC '9'
+IBUF DS 5
+ILEN DS 1
+NLEN DS 1
+ END
+;;; 0〜65535の範囲にある正数のかけ算（筆算方式）を行う
+;;; 入力 GR1:被乗数 GR2:乗数
+;;; 出力 GR0:積
+;;; 積が65535より大きい場合は、GR0は積の下位16ビットになり、オーバーフロー
+MULL START
+ PUSH 0,GR1
+ PUSH 0,GR3
+ XOR GR0,GR0 ; 積
+ AND GR1,GR1 ; (GR1 = 0)の場合、終了
+ JZE FIN ; ↓
+ AND GR2,GR2 ; (GR2 = 0)の場合、終了
+ JZE FIN ; ↓
+ LAD GR3,1 ; 対象ビット
+LOOP PUSH 0,GR3 ; ループ先頭。GR2のビット中でGR3が示すビットが0の場合、NEXTへジャンプ
+ AND GR3,GR2 ; ↓
+ POP GR3 ; ↓
+ JZE NEXT ; ↓
+ ADDL GR0,GR1 ; GR0 <- GR0 + GR1
+ JOV FIN ; GR0がオーバーフローした場合、ループ脱出
+NEXT SLL GR3,1 ; GR3を1回左シフト
+ AND GR3,GR3 ; (GR3 = 0)の場合、ループ脱出
+ JZE FIN ; ↓
+ CPL GR3,GR2 ; (GR3 > GR2)の場合、ループ脱出
+ JPL FIN ; ↓
+ SLL GR1,1 ; GR1を1回左シフト
+ JOV FIN ; GR1がオーバーフローした場合、ループ脱出
+ JUMP LOOP ; ループ終端
+FIN POP GR3
+ POP GR1
+ RET
+ END
--- /dev/null
+TARGET = ../inl.casl
+SRCFILE = inl_main.casl ../mull.casl
+include ../BUILD.mk
--- /dev/null
+;;; 数値の入力を受け付ける
+;;; 入力 （SVC）
+;;; 出力 GR1: 入力された数値 GR0: 文字の長さ
+INL START
+ PUSH 0,GR2
+ PUSH 0,GR3
+ PUSH 0,GR4
+ IN IBUF,ILEN ; 入力文字列を格納
+ LD GR0,ILEN ; ILEN = 0の場合、FINへジャンプ
+ JZE FIN ; ↓
+ XOR GR1,GR1 ; GR1:各桁の数値 初期化
+ LAD GR2,10 ; GR2:10進数の「10」 初期化
+ LAD GR3,0 ; GR3:値の一時格納 初期化
+ LAD GR4,0 ; GR4:インデックス 初期化
+STOL CPL GR4,ILEN ; ループ先頭。(GR4 = ILEN)の場合、ループ脱出
+ JZE CP ; ↓
+ LD GR1,IBUF,GR4 ; GR1に、入力文字列中の次の桁を格納
+ CPL GR1,ZERO ; (GR1 < '0')の場合、IOVへジャンプ
+ JMI OV ; ↓
+ CPL GR1,NINE ; (GR1 > '9')の場合、IOVへジャンプ
+ JPL OV ; ↓
+ SUBL GR1,ZERO ; GR1の文字を、対応する数値に変換
+ ST GR4,NLEN ; GR4 <- ILEN - NLEN - 1
+ LD GR4,ILEN ; ↓
+ SUBA GR4,NLEN ; ↓
+MUL10 CPA GR4,=1 ; ループ先頭。GR1 <- 10 ** GR4
+ JZE NEXT ; (GR4 = 1)の場合、ループ脱出
+ JMI NEXT ; ↓
+ CALL MULL ; MULLを呼び出し、GR0 <- GR1 * GR2
+ LD GR1,GR0 ; GR1 <- GR0
+ LAD GR4,-1,GR4 ; GR4 <- GR4 -1
+ JUMP MUL10 ; ループ終端
+NEXT LD GR4,NLEN ; GR4 <- NLEN。復元
+ ADDL GR3,GR1 ; GR3 <- GR3 + GR1
+ LAD GR4,1,GR4 ; GR4 <- GR4 + 1
+ JUMP STOL ; ループ終端
+OV LAD GR0,#8000 ; GR0 <- 0。オーバーフローを強制的に発生させる
+ SLL GR0,1 ; ↓
+ JUMP FIN ; FINへジャンプ
+CP LD GR1,GR3 ; GR0 <- GR3
+ LD GR0,ILEN ; GR0 <- ILEN
+FIN POP GR4
+ POP GR3
+ POP GR2
+ RET
+ZERO DC '0'
+NINE DC '9'
+IBUF DS 5
+ILEN DS 1
+NLEN DS 1
+ END
--- /dev/null
+;;; 複数のWORD値の中から、最小値を返す
+;;; 入力: GR1: WORD値を格納したアドレス GR2: 値の個数
+;;; 出力: GR0: 最小値
+MINIM START
+ RPUSH
+ LD GR0,0,GR1 ; MIN <- GR1アドレスの値
+ ST GR0,MIN ; ↓
+ LAD GR3,0 ; GR3:インデックス 初期化
+S1 CPA GR3,GR2 ; ループ先頭。(GR2 = GR3)の場合、終了
+ JZE RET ; ↓
+ LAD GR1,1,GR1 ; GR1 <- GR1 + 1
+ LD GR0,0,GR1 ;
+ CPA GR0,MIN ;
+ JPL S2 ;
+ JZE S2 ;
+ ST GR0,MIN ;
+S2 LAD GR3,1,GR3 ;
+ JUMP S1 ;
+RET LD GR0,MIN ;
+ RPOP
+ RET
+MIN DS 1 ; 最小値を格納
+ END
--- /dev/null
+TARGET = ../mula.casl
+SRCFILE = mula_main.casl ../mull.casl
+include ../BUILD.mk
;;; 0〜65535の範囲にある正数の割算（筆算方式）を行う
;;; 入力 GR1:被除数 GR2:除数
;;; 出力 GR0:商 GR3:剰余
-;;; GR2が0の場合は、GR0、GR3とも0になり、オーバーフロー
+;;; (GR2 = 0)の場合、GR0 GR3とも0になり、オーバーフロー
DIVL START
PUSH 0,GR1
PUSH 0,GR2
PUSH 0,GR4
+ XOR GR0,GR0 ; GR0:商 初期化
+ XOR GR3,GR3 ; GR3:剰余 初期化
AND GR2,GR2 ; (GR2 = 0)の場合、DIVZEROへジャンプ
JZE DIVZERO ; ↓
+ AND GR1,GR1 ; (GR1 = 0)の場合、FINへジャンプ
+ JZE FIN ; ↓
ST GR2,Y ; YにGR2の初期値を保存
- LAD GR0,0 ; GR0の初期化
- LAD GR3,0 ; GR3の初期化
- LAD GR4,1 ; GR4の初期化。対象ビットを表す
+ LAD GR4,1 ; GR4:対象ビットのインデックス 初期化
SL CPL GR2,GR1 ; ループ先頭。(GR2 > GR1)の場合、LOOPへループ脱出
JPL LOOP ; ↓
SLL GR4,1 ; GR4を1回左シフト
DIVZERO LAD GR3,#8000 ; 強制的にオーバーフローを発生させ、GR3 <- 0
SLL GR3,1 ; ↓
JUMP FIN ; FIN へジャンプ
-SETMOD LD GR3,GR1
+SETMOD LD GR3,GR1 ; GR3 <- GR1。剰余の設定
FIN POP GR4
POP GR2
POP GR1
Y DS 1
TMP DS 1
END
-;; アドレスがGR1、長さがGR2の文字列を逆順に並べ替える
-;; 例: 12345 -> 54321、54321- -> -12345
+;;; メモリー上にある指定されたアドレス、長さの文字列を逆順に並べ替える
+;;; 例: 12345 -> 54321、54321- -> -12345
+;;; 入力 GR1:文字列のアドレス GR2:文字列の長さ
+;;; 出力 （同上）
REV START
RPUSH
LAD GR3,0 ; GR3の初期化
PU CPL GR3,GR2 ; ループ先頭。(GR3 = GR2)の場合、ループ脱出
JZE NEXT ; ↓
- LD GR4,GR1 ; GR4にGR1の値をコピー
+ LD GR4,GR1 ; GR4 <- GR1
ADDL GR4,GR3 ; GR4 <- GR4 + GR3
- LD GR5,0,GR4 ; GR5にアドレスGR4の値を格納
+ LD GR5,0,GR4 ; GR5 <- GR4アドレスの値
PUSH 0,GR5 ; GR5をプッシュ
LAD GR3,1,GR3 ; GR3 <- GR3 + 1
JUMP PU ; ループ終端
POP GR5 ; GR5にポップ
LD GR4,GR1 ; GR4にGR1の値をコピー
ADDL GR4,GR3 ; GR4 <- GR4 + GR3
- ST GR5,0,GR4 ; アドレスGR4にGR5の値を格納
+ ST GR5,0,GR4 ; GR4のアドレス <- GR5の値
LAD GR3,1,GR3 ; GR3 <- GR3 + 1
JUMP PO ; ループ終端
FIN RPOP
RET
END
-;;; GR1を絶対値に変換する
-ABS START
- AND GR1,GR1
- JPL FIN
- JZE FIN
- XOR GR1,=#FFFF
- ADDA GR1,=1
-FIN RET
- END
--- /dev/null
+TARGET = ../outa.casl
+SRCFILE = outa_main.casl ../divl.casl ../rev.casl
+include ../BUILD.mk
;;; 0〜65535の範囲にある正数の割算（筆算方式）を行う
;;; 入力 GR1:被除数 GR2:除数
;;; 出力 GR0:商 GR3:剰余
-;;; GR2が0の場合は、GR0、GR3とも0になり、オーバーフロー
+;;; (GR2 = 0)の場合、GR0 GR3とも0になり、オーバーフロー
DIVL START
PUSH 0,GR1
PUSH 0,GR2
PUSH 0,GR4
+ XOR GR0,GR0 ; GR0:商 初期化
+ XOR GR3,GR3 ; GR3:剰余 初期化
AND GR2,GR2 ; (GR2 = 0)の場合、DIVZEROへジャンプ
JZE DIVZERO ; ↓
+ AND GR1,GR1 ; (GR1 = 0)の場合、FINへジャンプ
+ JZE FIN ; ↓
ST GR2,Y ; YにGR2の初期値を保存
- LAD GR0,0 ; GR0の初期化
- LAD GR3,0 ; GR3の初期化
- LAD GR4,1 ; GR4の初期化。対象ビットを表す
+ LAD GR4,1 ; GR4:対象ビットのインデックス 初期化
SL CPL GR2,GR1 ; ループ先頭。(GR2 > GR1)の場合、LOOPへループ脱出
JPL LOOP ; ↓
SLL GR4,1 ; GR4を1回左シフト
DIVZERO LAD GR3,#8000 ; 強制的にオーバーフローを発生させ、GR3 <- 0
SLL GR3,1 ; ↓
JUMP FIN ; FIN へジャンプ
-SETMOD LD GR3,GR1
+SETMOD LD GR3,GR1 ; GR3 <- GR1。剰余の設定
FIN POP GR4
POP GR2
POP GR1
Y DS 1
TMP DS 1
END
-;; アドレスがGR1、長さがGR2の文字列を逆順に並べ替える
-;; 例: 12345 -> 54321、54321- -> -12345
+;;; メモリー上にある指定されたアドレス、長さの文字列を逆順に並べ替える
+;;; 例: 12345 -> 54321、54321- -> -12345
+;;; 入力 GR1:文字列のアドレス GR2:文字列の長さ
+;;; 出力 （同上）
REV START
RPUSH
LAD GR3,0 ; GR3の初期化
PU CPL GR3,GR2 ; ループ先頭。(GR3 = GR2)の場合、ループ脱出
JZE NEXT ; ↓
- LD GR4,GR1 ; GR4にGR1の値をコピー
+ LD GR4,GR1 ; GR4 <- GR1
ADDL GR4,GR3 ; GR4 <- GR4 + GR3
- LD GR5,0,GR4 ; GR5にアドレスGR4の値を格納
+ LD GR5,0,GR4 ; GR5 <- GR4アドレスの値
PUSH 0,GR5 ; GR5をプッシュ
LAD GR3,1,GR3 ; GR3 <- GR3 + 1
JUMP PU ; ループ終端
POP GR5 ; GR5にポップ
LD GR4,GR1 ; GR4にGR1の値をコピー
ADDL GR4,GR3 ; GR4 <- GR4 + GR3
- ST GR5,0,GR4 ; アドレスGR4にGR5の値を格納
+ ST GR5,0,GR4 ; GR4のアドレス <- GR5の値
LAD GR3,1,GR3 ; GR3 <- GR3 + 1
JUMP PO ; ループ終端
FIN RPOP
--- /dev/null
+TARGET = ../outb.casl
+SRCFILE = outb_main.casl ../divl.casl ../rev.casl
+include ../BUILD.mk
;;; 0〜65535の範囲にある正数の割算（筆算方式）を行う
;;; 入力 GR1:被除数 GR2:除数
;;; 出力 GR0:商 GR3:剰余
-;;; GR2が0の場合は、GR0、GR3とも0になり、オーバーフロー
+;;; (GR2 = 0)の場合、GR0 GR3とも0になり、オーバーフロー
DIVL START
PUSH 0,GR1
PUSH 0,GR2
PUSH 0,GR4
+ XOR GR0,GR0 ; GR0:商 初期化
+ XOR GR3,GR3 ; GR3:剰余 初期化
AND GR2,GR2 ; (GR2 = 0)の場合、DIVZEROへジャンプ
JZE DIVZERO ; ↓
+ AND GR1,GR1 ; (GR1 = 0)の場合、FINへジャンプ
+ JZE FIN ; ↓
ST GR2,Y ; YにGR2の初期値を保存
- LAD GR0,0 ; GR0の初期化
- LAD GR3,0 ; GR3の初期化
- LAD GR4,1 ; GR4の初期化。対象ビットを表す
+ LAD GR4,1 ; GR4:対象ビットのインデックス 初期化
SL CPL GR2,GR1 ; ループ先頭。(GR2 > GR1)の場合、LOOPへループ脱出
JPL LOOP ; ↓
SLL GR4,1 ; GR4を1回左シフト
DIVZERO LAD GR3,#8000 ; 強制的にオーバーフローを発生させ、GR3 <- 0
SLL GR3,1 ; ↓
JUMP FIN ; FIN へジャンプ
-SETMOD LD GR3,GR1
+SETMOD LD GR3,GR1 ; GR3 <- GR1。剰余の設定
FIN POP GR4
POP GR2
POP GR1
Y DS 1
TMP DS 1
END
-;; アドレスがGR1、長さがGR2の文字列を逆順に並べ替える
-;; 例: 12345 -> 54321、54321- -> -12345
+;;; メモリー上にある指定されたアドレス、長さの文字列を逆順に並べ替える
+;;; 例: 12345 -> 54321、54321- -> -12345
+;;; 入力 GR1:文字列のアドレス GR2:文字列の長さ
+;;; 出力 （同上）
REV START
RPUSH
LAD GR3,0 ; GR3の初期化
PU CPL GR3,GR2 ; ループ先頭。(GR3 = GR2)の場合、ループ脱出
JZE NEXT ; ↓
- LD GR4,GR1 ; GR4にGR1の値をコピー
+ LD GR4,GR1 ; GR4 <- GR1
ADDL GR4,GR3 ; GR4 <- GR4 + GR3
- LD GR5,0,GR4 ; GR5にアドレスGR4の値を格納
+ LD GR5,0,GR4 ; GR5 <- GR4アドレスの値
PUSH 0,GR5 ; GR5をプッシュ
LAD GR3,1,GR3 ; GR3 <- GR3 + 1
JUMP PU ; ループ終端
POP GR5 ; GR5にポップ
LD GR4,GR1 ; GR4にGR1の値をコピー
ADDL GR4,GR3 ; GR4 <- GR4 + GR3
- ST GR5,0,GR4 ; アドレスGR4にGR5の値を格納
+ ST GR5,0,GR4 ; GR4のアドレス <- GR5の値
LAD GR3,1,GR3 ; GR3 <- GR3 + 1
JUMP PO ; ループ終端
FIN RPOP
--- /dev/null
+TARGET = ../outl.casl
+SRCFILE = outl_main.casl ../divl.casl ../rev.casl
+include ../BUILD.mk
-;; アドレスがGR1、長さがGR2の文字列を逆順に並べ替える
-;; 例: 12345 -> 54321、54321- -> -12345
+;;; メモリー上にある指定されたアドレス、長さの文字列を逆順に並べ替える
+;;; 例: 12345 -> 54321、54321- -> -12345
+;;; 入力 GR1:文字列のアドレス GR2:文字列の長さ
+;;; 出力 （同上）
REV START
RPUSH
LAD GR3,0 ; GR3の初期化
PU CPL GR3,GR2 ; ループ先頭。(GR3 = GR2)の場合、ループ脱出
JZE NEXT ; ↓
- LD GR4,GR1 ; GR4にGR1の値をコピー
+ LD GR4,GR1 ; GR4 <- GR1
ADDL GR4,GR3 ; GR4 <- GR4 + GR3
- LD GR5,0,GR4 ; GR5にアドレスGR4の値を格納
+ LD GR5,0,GR4 ; GR5 <- GR4アドレスの値
PUSH 0,GR5 ; GR5をプッシュ
LAD GR3,1,GR3 ; GR3 <- GR3 + 1
JUMP PU ; ループ終端
POP GR5 ; GR5にポップ
LD GR4,GR1 ; GR4にGR1の値をコピー
ADDL GR4,GR3 ; GR4 <- GR4 + GR3
- ST GR5,0,GR4 ; アドレスGR4にGR5の値を格納
+ ST GR5,0,GR4 ; GR4のアドレス <- GR5の値
LAD GR3,1,GR3 ; GR3 <- GR3 + 1
JUMP PO ; ループ終端
FIN RPOP
--- /dev/null
+MAIN START
+ LAD GR1,A
+ LAD GR2,B
+ CALL ADDL32
+ LD GR2,GR0
+ LD GR1,1,GR2
+ CALL OUTL
+ LD GR1,0,GR2
+ CALL OUTL
+ RET
+A DC 6,10
+B DC 2,65530
+ END
--- /dev/null
+MAIN START
+ LAD GR1,A
+ LAD GR2,B
+ CALL ADDL32
+ LD GR2,GR0
+ RET
+A DC 6,10
+B DC 2,65530
+ END
-;;; casl2 div0_call0.casl div0.casl outl.casl
+;;; casl2 divl1.casl ../casl2lib/outl.casl
MAIN START
BEGIN LD GR1,X
+ CALL OUTL
LD GR2,Y
+ PUSH 0,GR1
+ LD GR1,GR2
+ CALL OUTL
+ POP GR1
CALL DIVL
LD GR1,GR0
CALL OUTL
CALL OUTL
RET
X DC 123
-Y DC 10
+Y DC 10
END
--- /dev/null
+;;; casl2 inl.casl ../casl2lib/inl.casl ../casl2lib/outl.caslg
+MAIN START
+LOOP CALL INL ; GR1に数値、GR0に文字列の長さ
+ JOV NAN
+ AND GR0,GR0
+ JZE FIN
+ CALL OUTL
+ JUMP LOOP
+NAN OUT NANMSG,MLEN
+ JUMP LOOP
+FIN RET
+NANMSG DC 'Not A Number'
+MLEN DC 12
+ END
MAIN START
LAD GR1,361
CALL SUM
- LD GR1,GR2
+ LD GR1,GR0
CALL OUTL
MFIN RET
END
+;;; ADDA r,adr
MAIN START
BEGIN LD GR1,A
- XOR GR1,B
+ ADDA GR1,B
RET
A DC 3
-B DC #FFFF
+B DC 1
END
--- /dev/null
+;;; ADDA r,adr 正数でオーバーフロー
+MAIN START
+ LD GR1,A
+ ADDA GR1,B
+ RET
+A DC #7FFE ; 32766
+B DC #000A ; 10
+ END
--- /dev/null
+;;; ADDA r,adr 演算結果が零
+MAIN START
+ LD GR1,A
+ ADDA GR1,B
+ RET
+A DC #FFF6 ; -10
+B DC 10
+ END
--- /dev/null
+;;; ADDA r,adr ADDLではオーバーフロー
+MAIN START
+ LD GR1,A
+ ADDA GR1,B
+ RET
+A DC #FFFE ; -2
+B DC #000F ; 15
+ END
--- /dev/null
+;;; ADDA r,adr オーバーフロー
+MAIN START
+ LD GR1,A
+ ADDA GR1,B
+ RET
+A DC #8002 ; -32766
+B DC #8001 ; -32767
+ END
--- /dev/null
+;;; ADDA r,adr 演算結果が負数(r > adr)
+MAIN START
+ LD GR1,A
+ ADDA GR1,B
+ RET
+A DC #000A ; 10
+B DC #FFEC ; -20
+ END
--- /dev/null
+;;; ADDA r,adr 演算結果が負数(r < adr)
+MAIN START
+ LD GR1,A
+ ADDA GR1,B
+ RET
+A DC #FFEC ; -20
+B DC #000A ; 10
+ END
--- /dev/null
+;;; ADDA r,adr 演算結果が零
+MAIN START
+ LD GR1,A
+ ADDA GR1,B
+ RET
+A DC 0
+B DC 0
+ END
--- /dev/null
+;;; ADDA r,adr,x
+MAIN START
+BEGIN LD GR1,A
+ LAD GR2,1
+ ADDA GR1,A,GR2
+ RET
+A DC 3
+ DC 1
+ END
+;;; ADDA r1,r2
MAIN START
BEGIN LD GR1,A
LD GR2,B
--- /dev/null
+;;; ADDL r,adr
+MAIN START
+BEGIN LD GR1,A
+ ADDL GR1,B
+ RET
+A DC 3
+B DC 1
+ END
--- /dev/null
+;;; ADDL r,adr ADDAでは正数でオーバーフロー
+MAIN START
+ LD GR1,A
+ ADDL GR1,B
+ RET
+A DC #7FFE ; 32766
+B DC #000A ; 10
+ END
--- /dev/null
+;;; ADDL r,adr ADDAでは演算結果が零
+MAIN START
+ LD GR1,A
+ ADDL GR1,B
+ RET
+A DC #FFF6 ; -10
+B DC 10
+ END
--- /dev/null
+;;; ADDL r,adr ADDLではオーバーフロー
+MAIN START
+ LD GR1,A
+ ADDL GR1,B
+ RET
+A DC #FFFE ; -2
+B DC #000F ; 15
+ END
--- /dev/null
+;;; ADDL r,adr オーバーフロー
+MAIN START
+ LD GR1,A
+ ADDL GR1,B
+ RET
+A DC #8002 ; 32770
+B DC #8001 ; 32769
+ END
--- /dev/null
+;;; ADDL r,adr 演算結果が負数(r > adr)
+MAIN START
+ LD GR1,A
+ ADDL GR1,B
+ RET
+A DC #000A ; 10
+B DC #FFEC ; -20
+ END
--- /dev/null
+;;; ADDL r,adr 演算結果が負数(r < adr)
+MAIN START
+ LD GR1,A
+ ADDL GR1,B
+ RET
+A DC #FFEC ; -20
+B DC #000A ; 10
+ END
--- /dev/null
+;;; ADDL r,adr 演算結果が零
+MAIN START
+ LD GR1,A
+ ADDL GR1,B
+ RET
+A DC 0
+B DC 0
+ END
--- /dev/null
+;;; ADDL r,adr,x
+MAIN START
+BEGIN LD GR1,A
+ LAD GR2,1
+ ADDL GR1,A,GR2
+ RET
+A DC 3
+ DC 1
+ END
--- /dev/null
+;;; ADDL r1,r2
+MAIN START
+BEGIN LD GR1,A
+ LD GR2,B
+ ADDL GR1,GR2
+ RET
+A DC 3
+B DC 1
+ END
--- /dev/null
+;;; AND r,adr
+MAIN START
+ LD GR1,A
+ AND GR1,B
+ RET
+A DC #3000
+B DC #4FFF
+ END
--- /dev/null
+;;; AND r,adr 演算結果の符号が負
+MAIN START
+ LD GR1,A
+ AND GR1,B
+ RET
+A DC #8000
+B DC #FFFF
+ END
--- /dev/null
+;;; AND r,adr 演算結果が零
+MAIN START
+ LD GR1,A
+ AND GR1,B
+ RET
+A DC #0001
+B DC #FFFE
+ END
--- /dev/null
+;;; AND r,adr
+MAIN START
+ LD GR1,A
+ AND GR1,1,A
+ RET
+A DC #3000
+ DC #4FFF
+ END
--- /dev/null
+;;; AND r1,r2
+MAIN START
+ LD GR1,A
+ LD GR2,B
+ AND GR1,GR2
+ RET
+A DC #3000
+B DC #4FFF
+ END
-MAIN START BEGIN
-BEGIN LD GR1,=29
+;;; CALL ほかのプログラムの入口名を指定
+ MAIN START
+ LAD GR1,29
CALL COPY
- ST GR2,B
RET
-B DS 1
END
COPY START
LD GR2,GR1
--- /dev/null
+;;; CALL 同じプログラムの中にあるラベルを指定
+MAIN START BEGIN
+BEGIN LAD GR1,29
+ CALL COPY
+ RET
+COPY LD GR2,GR1
+ RET
+ END
--- /dev/null
+;;; CPA r,adr
+MAIN START BEGIN
+BEGIN LD GR1,A
+ CPA GR1,B
+ RET
+A DC #5000
+B DC #3000
+ END
--- /dev/null
+;;; CPA r,adr
+MAIN START BEGIN
+BEGIN LD GR1,A
+ CPA GR1,B
+ RET
+A DC #5000
+B DC #8000
+ END
--- /dev/null
+;;; CPA r,adr SF:1
+MAIN START BEGIN
+BEGIN LD GR1,A
+ CPA GR1,B
+ RET
+A DC #5000
+B DC #7000
+ END
--- /dev/null
+;;; CPA r,adr ZF:0
+MAIN START BEGIN
+BEGIN LD GR1,A
+ CPA GR1,B
+ RET
+A DC #5000
+B DC #5000
+ END
--- /dev/null
+;;; CPA r,adr,x SF:1
+MAIN START BEGIN
+BEGIN LD GR1,A
+ LAD GR2,1
+ CPA GR1,A,GR2
+ RET
+A DC #5000
+ DC #7000
+ END
--- /dev/null
+;;; CPA r1,r2 SF:1
+MAIN START BEGIN
+BEGIN LD GR1,A
+ LD GR2,B
+ CPA GR1,GR2
+ RET
+A DC #5000
+B DC #7000
+ END
--- /dev/null
+;;; CPL r,adr
+MAIN START BEGIN
+BEGIN LD GR1,A
+ CPL GR1,B
+ RET
+A DC #5000
+B DC #3000
+ END
--- /dev/null
+;;; CPL r,adr
+MAIN START BEGIN
+BEGIN LD GR1,A
+ CPL GR1,B
+ RET
+A DC #5000
+B DC #8000
+ END
--- /dev/null
+;;; CPL r,adr SF:1
+MAIN START BEGIN
+BEGIN LD GR1,A
+ CPL GR1,B
+ RET
+A DC #5000
+B DC #7000
+ END
--- /dev/null
+;;; CPL r,adr ZF:0
+MAIN START BEGIN
+BEGIN LD GR1,A
+ CPL GR1,B
+ RET
+A DC #5000
+B DC #5000
+ END
--- /dev/null
+;;; CPL r,adr,x SF:1
+MAIN START BEGIN
+BEGIN LD GR1,A
+ LAD GR2,1
+ CPL GR1,A,GR2
+ RET
+A DC #5000
+ DC #7000
+ END
--- /dev/null
+;;; CPL r1,r2 SF:1
+MAIN START BEGIN
+BEGIN LD GR1,A
+ LD GR2,B
+ CPL GR1,GR2
+ RET
+A DC #5000
+B DC #7000
+ END
--- /dev/null
+;; DC 文字定数
+MAIN START
+ RET
+ DC ' '
+ DC '!'
+ DC '"'
+ DC '#'
+ DC '$'
+ DC '%'
+ DC '&'
+ DC ''''
+ DC '('
+ DC ')'
+ DC '*'
+ DC '+'
+ DC ','
+ DC '-'
+ DC '.'
+ DC '/'
+ DC '0'
+ DC '1'
+ DC '2'
+ DC '3'
+ DC '4'
+ DC '5'
+ DC '6'
+ DC '7'
+ DC '8'
+ DC '9'
+ DC ':'
+ DC ';'
+ DC '<'
+ DC '='
+ DC '>'
+ DC '?'
+ DC '@'
+ DC 'A'
+ DC 'B'
+ DC 'C'
+ DC 'D'
+ DC 'E'
+ DC 'F'
+ DC 'G'
+ DC 'H'
+ DC 'I'
+ DC 'J'
+ DC 'K'
+ DC 'L'
+ DC 'M'
+ DC 'N'
+ DC 'O'
+ DC 'P'
+ DC 'Q'
+ DC 'R'
+ DC 'S'
+ DC 'T'
+ DC 'U'
+ DC 'V'
+ DC 'W'
+ DC 'X'
+ DC 'Y'
+ DC 'Z'
+ DC '['
+ DC '\'
+ DC ']'
+ DC '^'
+ DC '_'
+ DC 'a'
+ DC 'b'
+ DC 'c'
+ DC 'd'
+ DC 'e'
+ DC 'f'
+ DC 'g'
+ DC 'h'
+ DC 'i'
+ DC 'j'
+ DC 'k'
+ DC 'l'
+ DC 'm'
+ DC 'n'
+ DC 'o'
+ DC 'p'
+ DC 'q'
+ DC 'r'
+ DC 's'
+ DC 't'
+ DC 'u'
+ DC 'v'
+ DC 'w'
+ DC 'x'
+ DC 'y'
+ DC 'z'
+ DC '{'
+ DC '|'
+ DC '}'
+ DC '~'
+ END
--- /dev/null
+;; DC 文字定数
+MAIN START
+ RET
+ DC ' !"#$%&''()*+,-./0123456789:;<=>?@ABCDEFG'
+ DC 'GHIJKLMNOPQRSTUVWXYZ[\]^_abcdefghijklmno'
+ DC 'pqrstuvwxyz{|}~'
+ END
--- /dev/null
+;; DC 10進定数／16進定数
+MAIN START
+ RET
+ DC 0
+ DC 1
+ DC 10
+ DC 32767
+ DC 32768
+ DC 65535
+ DC 65536
+ DC 65537
+ DC -1
+ DC -10
+ DC -32767
+ DC -32768
+ DC -32769
+ DC #0
+ DC #1
+ DC #01
+ DC #001
+ DC #0001
+ DC #10
+ DC #11
+ DC #F
+ DC #000F
+ DC #FFFF
+ END
--- /dev/null
+;; DC 10進定数／16進定数
+MAIN START
+ RET
+ DC 1,10,32767,32768,65535,65536,65537,-1,-10,-32767,-32768,-32769,#0,#1,#01,#001,#0001,#10,#11,#F,#000F,#FFFF
+ END
--- /dev/null
+;; DC -32768〜32768の範囲にない10進数値
+MAIN START
+ RET
+ DC 32767
+ DC 32768
+ DC 65535
+ DC 65536
+ DC 131073 ; 65536 * 2 + 1
+ DC -32768
+ DC -32769
+ DC -65535
+ DC -65536
+ DC -131073 ; -65536 * 2 - 1
+ END
--- /dev/null
+;;; DS
+MAIN START
+ LAD GR1,A
+ LAD GR1,B
+ LAD GR1,C
+ LAD GR1,D
+ LAD GR1,E
+ RET
+A DS 1
+B DS 2
+C DS 4
+D DS 0
+E DC #FFFF
+ END
--- /dev/null
+;;; IN IBUF,ILEN
+MAIN START
+LOOP IN IBUF,ILEN
+FIN RET
+IBUF DS 20
+ILEN DS 1
+ END
--- /dev/null
+;;; JMI OSZ:010
+MAIN START
+ LD GR1,A
+ AND GR1,GR1
+ JMI TO
+ LAD GR1,0
+ JUMP FIN
+TO LAD GR1,#FFFF
+FIN RET
+A DC -1
+ END
--- /dev/null
+;;; JMI OSZ:001
+MAIN START
+ LD GR1,A
+ SRL GR1,1
+ JMI TO
+ LAD GR1,0
+ JUMP FIN
+TO LAD GR1,#FFFF
+FIN RET
+A DC #0003
+ END
--- /dev/null
+;;; JMI OSZ:000
+MAIN START
+ LD GR1,A
+ AND GR1,GR1
+ JMI TO
+ LAD GR1,0
+ JUMP FIN
+TO LAD GR1,#FFFF
+FIN RET
+A DC 1
+ END
--- /dev/null
+;;; JMI OSZ:001
+MAIN START
+ LD GR1,A
+ AND GR1,GR1
+ JMI TO
+ LAD GR1,0
+ JUMP FIN
+TO LAD GR1,#FFFF
+FIN RET
+A DC 0
+ END
--- /dev/null
+;;; JNZ OSZ:010
+MAIN START
+ LD GR1,A
+ AND GR1,GR1
+ JNZ TO
+ LAD GR1,0
+ JUMP FIN
+TO LAD GR1,#FFFF
+FIN RET
+A DC -1
+ END
--- /dev/null
+;;; JNZ OSZ:001
+MAIN START
+ LD GR1,A
+ SRL GR1,1
+ JNZ TO
+ LAD GR1,0
+ JUMP FIN
+TO LAD GR1,#FFFF
+FIN RET
+A DC #0003
+ END
--- /dev/null
+;;; JNZ OSZ:000
+MAIN START
+ LD GR1,A
+ AND GR1,GR1
+ JNZ TO
+ LAD GR1,0
+ JUMP FIN
+TO LAD GR1,#FFFF
+FIN RET
+A DC 1
+ END
--- /dev/null
+;;; JNZ OSZ:001
+MAIN START
+ LD GR1,A
+ AND GR1,GR1
+ JNZ TO
+ LAD GR1,0
+ JUMP FIN
+TO LAD GR1,#FFFF
+FIN RET
+A DC 0
+ END
--- /dev/null
+;;; JOV OSZ:010
+MAIN START
+ LD GR1,A
+ AND GR1,GR1
+ JOV TO
+ LAD GR1,0
+ JUMP FIN
+TO LAD GR1,#FFFF
+FIN RET
+A DC -1
+ END
--- /dev/null
+;;; JOV OSZ:001
+MAIN START
+ LD GR1,A
+ SRL GR1,1
+ JOV TO
+ LAD GR1,0
+ JUMP FIN
+TO LAD GR1,#FFFF
+FIN RET
+A DC #0003
+ END
--- /dev/null
+;;; JOV OSZ:000
+MAIN START
+ LD GR1,A
+ AND GR1,GR1
+ JOV TO
+ LAD GR1,0
+ JUMP FIN
+TO LAD GR1,#FFFF
+FIN RET
+A DC 1
+ END
--- /dev/null
+;;; JOV OSZ:001
+MAIN START
+ LD GR1,A
+ AND GR1,GR1
+ JOV TO
+ LAD GR1,0
+ JUMP FIN
+TO LAD GR1,#FFFF
+FIN RET
+A DC 0
+ END
--- /dev/null
+;;; JPL OSZ:010
+MAIN START
+ LD GR1,A
+ AND GR1,GR1
+ JPL TO
+ LAD GR1,0
+ JUMP FIN
+TO LAD GR1,#FFFF
+FIN RET
+A DC -1
+ END
--- /dev/null
+;;; JPL OSZ:001
+MAIN START
+ LD GR1,A
+ SRL GR1,1
+ JPL TO
+ LAD GR1,0
+ JUMP FIN
+TO LAD GR1,#FFFF
+FIN RET
+A DC #0003
+ END
--- /dev/null
+;;; JPL OSZ:000
+MAIN START
+ LD GR1,A
+ AND GR1,GR1
+ JPL TO
+ LAD GR1,0
+ JUMP FIN
+TO LAD GR1,#FFFF
+FIN RET
+A DC 1
+ END
--- /dev/null
+;;; JPL OSZ:001
+MAIN START
+ LD GR1,A
+ AND GR1,GR1
+ JPL TO
+ LAD GR1,0
+ JUMP FIN
+TO LAD GR1,#FFFF
+FIN RET
+A DC 0
+ END
--- /dev/null
+;;; JUMP OSZ:010
+MAIN START
+ LD GR1,A
+ AND GR1,GR1
+ JUMP TO
+ LAD GR1,0
+ JUMP FIN
+TO LAD GR1,#FFFF
+FIN RET
+A DC -1
+ END
--- /dev/null
+;;; JUMP OSZ:001
+MAIN START
+ LD GR1,A
+ SRL GR1,1
+ JUMP TO
+ LAD GR1,0
+ JUMP FIN
+TO LAD GR1,#FFFF
+FIN RET
+A DC #0003
+ END
--- /dev/null
+;;; JUMP OSZ:000
+MAIN START
+ LD GR1,A
+ AND GR1,GR1
+ JUMP TO
+ LAD GR1,0
+ JUMP FIN
+TO LAD GR1,#FFFF
+FIN RET
+A DC 1
+ END
--- /dev/null
+;;; JUMP OSZ:001
+MAIN START
+ LD GR1,A
+ AND GR1,GR1
+ JUMP TO
+ LAD GR1,0
+ JUMP FIN
+TO LAD GR1,#FFFF
+FIN RET
+A DC 0
+ END
--- /dev/null
+;;; JZE OSZ:010
+MAIN START
+ LD GR1,A
+ AND GR1,GR1
+ JZE TO
+ LAD GR1,0
+ JUMP FIN
+TO LAD GR1,#FFFF
+FIN RET
+A DC -1
+ END
--- /dev/null
+;;; JZE OSZ:001
+MAIN START
+ LD GR1,A
+ SRL GR1,1
+ JZE TO
+ LAD GR1,0
+ JUMP FIN
+TO LAD GR1,#FFFF
+FIN RET
+A DC #0003
+ END
--- /dev/null
+;;; JZE OSZ:000
+MAIN START
+ LD GR1,A
+ AND GR1,GR1
+ JZE TO
+ LAD GR1,0
+ JUMP FIN
+TO LAD GR1,#FFFF
+FIN RET
+A DC 1
+ END
--- /dev/null
+;;; JZE OSZ:001
+MAIN START
+ LD GR1,A
+ AND GR1,GR1
+ JZE TO
+ LAD GR1,0
+ JUMP FIN
+TO LAD GR1,#FFFF
+FIN RET
+A DC 0
+ END
+;;; LAD r,adr
LAD START
LAD GR1,5
RET
-MAIN START BEGIN
-BEGIN LD GR1,A
+;;; LAD r,adr,x
+MAIN START
+ LD GR1,A
LAD GR1,1,GR1
RET
A DC 3
--- /dev/null
+;;; LAD r,adr,x
+MAIN START
+ LD GR1,A
+ LAD GR1,-1,GR1
+ RET
+A DC 3
+ END
--- /dev/null
+MAIN START
+ LD GR0,A
+ LD GR0,B
+ LD GR0,C
+ RET
+A DC 7
+B DC -7
+C DC 0
+ END
--- /dev/null
+;;; LD r,adr
+MAIN START
+ LD GR1,='"'
+ LD GR1,='#'
+ LD GR1,='$'
+ LD GR1,='%'
+ LD GR1,='&'
+ LD GR1,=''''
+ LD GR1,='('
+ LD GR1,=')'
+ LD GR1,='*'
+ LD GR1,='+'
+ LD GR1,=','
+ LD GR1,='-'
+ LD GR1,='.'
+ LD GR1,='/'
+ LD GR1,='0'
+ LD GR1,='1'
+ LD GR1,='2'
+ LD GR1,='3'
+ LD GR1,='4'
+ LD GR1,='5'
+ LD GR1,='6'
+ LD GR1,='7'
+ LD GR1,='8'
+ LD GR1,='9'
+ LD GR1,=':'
+ LD GR1,=';'
+ LD GR1,='<'
+ LD GR1,='='
+ LD GR1,='>'
+ LD GR1,='?'
+ LD GR1,='@'
+ LD GR1,='A'
+ LD GR1,='B'
+ LD GR1,='C'
+ LD GR1,='D'
+ LD GR1,='E'
+ LD GR1,='F'
+ LD GR1,='G'
+ LD GR1,='H'
+ LD GR1,='I'
+ LD GR1,='J'
+ LD GR1,='K'
+ LD GR1,='L'
+ LD GR1,='M'
+ LD GR1,='N'
+ LD GR1,='O'
+ LD GR1,='P'
+ LD GR1,='Q'
+ LD GR1,='R'
+ LD GR1,='S'
+ LD GR1,='T'
+ LD GR1,='U'
+ LD GR1,='V'
+ LD GR1,='W'
+ LD GR1,='X'
+ LD GR1,='Y'
+ LD GR1,='Z'
+ LD GR1,='['
+ LD GR1,='\'
+ LD GR1,=']'
+ LD GR1,='^'
+ LD GR1,='_'
+ LD GR1,='`'
+ LD GR1,='a'
+ LD GR1,='b'
+ LD GR1,='c'
+ LD GR1,='d'
+ LD GR1,='e'
+ LD GR1,='f'
+ LD GR1,='g'
+ LD GR1,='h'
+ LD GR1,='i'
+ LD GR1,='j'
+ LD GR1,='k'
+ LD GR1,='l'
+ LD GR1,='m'
+ LD GR1,='n'
+ LD GR1,='o'
+ LD GR1,='p'
+ LD GR1,='q'
+ LD GR1,='r'
+ LD GR1,='s'
+ LD GR1,='t'
+ LD GR1,='u'
+ LD GR1,='v'
+ LD GR1,='w'
+ LD GR1,='x'
+ LD GR1,='y'
+ LD GR1,='z'
+ LD GR1,='{'
+ LD GR1,='|'
+ LD GR1,='}'
+ LD GR1,='~'
+ RET
+ END
--- /dev/null
+MAIN START
+ LAD GR1,#FFFF
+ LD GR2,GR1
+ LD GR3,GR1
+ LD GR4,GR1
+ LD GR5,GR1
+ LD GR6,GR1
+ LD GR7,GR1
+ LD GR0,GR1
+ LD GR1,GR1
+ LAD GR2,#FFFE
+ LD GR2,GR2
+ LD GR3,GR2
+ LD GR4,GR2
+ LD GR5,GR2
+ LD GR6,GR2
+ LD GR7,GR2
+ LD GR0,GR2
+ LD GR1,GR2
+ LAD GR3,#FFFE
+ LD GR3,GR3
+ LD GR4,GR3
+ LD GR5,GR3
+ LD GR6,GR3
+ LD GR7,GR3
+ LD GR0,GR3
+ LD GR1,GR3
+ LD GR2,GR3
+ LAD GR0,1
+ LD GR1,GR0
+ LD GR2,GR0
+ LD GR3,GR0
+ LD GR4,GR0
+ LD GR5,GR0
+ LD GR6,GR0
+ LD GR7,GR0
+ LD GR0,GR0
+ RET
+ END
--- /dev/null
+MAIN START
+ LAD GR1,A
+ LD GR0,0,GR1
+ LD GR2,2,GR1
+ LD GR3,3,GR1
+ LD GR4,4,GR1
+ LD GR5,5,GR1
+ LD GR6,6,GR1
+ LD GR7,7,GR1
+ LD GR1,1,GR1
+ RET
+A DC 2,3,5,7,11,13,17,19
+ END
+;;; NOP
MAIN START
NOP
NOP
NOP
RET
END
-
\ No newline at end of file
--- /dev/null
+;;; OR r,adr
+MAIN START
+ LD GR1,A
+ OR GR1,B
+ RET
+A DC #3000
+B DC #4FFF
+ END
--- /dev/null
+;;; OR r,adr 演算結果の符号が負
+MAIN START
+ LD GR1,A
+ OR GR1,B
+ RET
+A DC #8000
+B DC #FFFF
+ END
--- /dev/null
+;;; OR r,adr 演算結果が零
+MAIN START
+ LD GR1,A
+ OR GR1,B
+ RET
+A DC #0001
+B DC #FFFE
+ END
--- /dev/null
+;;; OR r,adr
+MAIN START
+ LD GR1,A
+ OR GR1,1,A
+ RET
+A DC #3000
+ DC #4FFF
+ END
--- /dev/null
+;;; OR r1,r2
+MAIN START
+ LD GR1,A
+ LD GR2,B
+ OR GR1,GR2
+ RET
+A DC #3000
+B DC #4FFF
+ END
--- /dev/null
+;;; OUT buf.len
+MAIN START
+ OUT BUF1,L1
+ OUT BUF2,L2
+ OUT BUF3,L3
+ OUT BUF4,L4
+ RET
+BUF1 DC '0',9,'1',10 ; TAB、改行
+L1 DC 4
+BUF2 DC ' !"#$%&''()*+,-./0123456789:;<=>?'
+L2 DC 32
+BUF3 DC '@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_'
+L3 DC 32
+BUF4 DC '`abcdefghijklmnopqrstuvwxyz{|}~'
+L4 DC 31
+ END
--- /dev/null
+;;; PUSH / POP 値の復元
+MAIN START
+ LD GR1,A
+ LD GR1,0,GR7
+ LD GR2,1,GR7
+ LD GR3,2,GR7
+ LD GR4,3,GR7
+ LD GR5,4,GR7
+ LD GR6,5,GR7
+ LD GR7,6,GR7
+ PUSH 0,GR1
+ PUSH 0,GR2
+ PUSH 0,GR3
+ PUSH 0,GR4
+ PUSH 0,GR5
+ PUSH 0,GR6
+ PUSH 0,GR7
+ POP GR7
+ POP GR6
+ POP GR5
+ POP GR4
+ POP GR3
+ POP GR2
+ POP GR1
+ RET
+A DC 1,2,3,4,5,6,7
+ END
--- /dev/null
+;;; PUSH / POP 値の交換
+MAIN START
+ LD GR1,A
+ LD GR1,0,GR7
+ LD GR2,1,GR7
+ LD GR3,2,GR7
+ LD GR4,3,GR7
+ LD GR5,4,GR7
+ LD GR6,5,GR7
+ LD GR7,6,GR7
+ PUSH 0,GR1
+ PUSH 0,GR2
+ PUSH 0,GR3
+ PUSH 0,GR4
+ PUSH 0,GR5
+ PUSH 0,GR6
+ PUSH 0,GR7
+ POP GR1
+ POP GR2
+ POP GR3
+ POP GR4
+ POP GR5
+ POP GR6
+ POP GR7
+ RET
+A DC 1,2,3,4,5,6,7
+ END
--- /dev/null
+;;; RPOP 値の復元
+MAIN START
+ LD GR1,A
+ LD GR1,0,GR7
+ LD GR2,1,GR7
+ LD GR3,2,GR7
+ LD GR4,3,GR7
+ LD GR5,4,GR7
+ LD GR6,5,GR7
+ LD GR7,6,GR7
+ PUSH 0,GR1
+ PUSH 0,GR2
+ PUSH 0,GR3
+ PUSH 0,GR4
+ PUSH 0,GR5
+ PUSH 0,GR6
+ PUSH 0,GR7
+ RPOP
+ RET
+A DC 1,2,3,4,5,6,7
+ END
--- /dev/null
+;;; PUSH / POP 値の復元
+MAIN START
+ LD GR1,A
+ LD GR1,0,GR7
+ LD GR2,1,GR7
+ LD GR3,2,GR7
+ LD GR4,3,GR7
+ LD GR5,4,GR7
+ LD GR6,5,GR7
+ LD GR7,6,GR7
+ RPUSH
+ POP GR7
+ POP GR6
+ POP GR5
+ POP GR4
+ POP GR3
+ POP GR2
+ POP GR1
+ RET
+A DC 1,2,3,4,5,6,7
+ END
+;;; SLA r,adr
MAIN START
LAD GR1,3
- LD GR0,GR1
+ SLA GR1,2
RET
END
--- /dev/null
+;;; SLA r,adr 正数のオーバーフロー
+MAIN START
+ LAD GR1,#4000
+ SLA GR1,1
+ RET
+ END
--- /dev/null
+;;; SLA r,adr 負数
+SLA2 START BEGIN
+BEGIN LAD GR1,#8001
+ SLA GR1,7
+ RET
+ END
--- /dev/null
+;;; SLA r,adr 負数のオーバーフロー
+MAIN START
+ LAD GR1,#C000
+ SLA GR1,1
+ RET
+ END
--- /dev/null
+;;; SRA r,adr
+MAIN START
+ LAD GR1,12
+ SRA GR1,2
+ RET
+ END
SLA2 START BEGIN
-BEGIN LAD GR1,3
+BEGIN LAD GR1,#FFFD
SLA GR1,2
RET
END
-
\ No newline at end of file
--- /dev/null
+MAIN START
+ LAD GR1,#4000
+ SLA GR1,1
+ RET
+ END
--- /dev/null
+MAIN START
+ LAD GR1,#C000
+ SLA GR1,1
+ RET
+ END
-SLA3 START BEGIN
+SLA2 START BEGIN
BEGIN LAD GR1,#8000
SLA GR1,1
RET
END
-
\ No newline at end of file
--- /dev/null
+MAIN START
+ LAD GR1,#C000
+ SLA GR1,1
+ RET
+ END
--- /dev/null
+;;; XOR r,adr
+MAIN START
+ LD GR1,A
+ XOR GR1,B
+ RET
+A DC #3000
+B DC #4FFF
+ END
--- /dev/null
+;;; XOR r,adr 演算結果の符号が負
+MAIN START
+ LD GR1,A
+ XOR GR1,B
+ RET
+A DC #8000
+B DC #FFFF
+ END
--- /dev/null
+;;; XOR r,adr 演算結果が零
+MAIN START
+ LD GR1,A
+ XOR GR1,B
+ RET
+A DC #0001
+B DC #FFFE
+ END
--- /dev/null
+;;; XOR r,adr
+MAIN START
+ LD GR1,A
+ XOR GR1,1,A
+ RET
+A DC #3000
+ DC #4FFF
+ END
--- /dev/null
+;;; XOR r1,r2
+MAIN START
+ LD GR1,A
+ LD GR2,B
+ XOR GR1,GR2
+ RET
+A DC #3000
+B DC #4FFF
+ END
--- /dev/null
+;;; XOR r,r rの内容をクリア
+MAIN START
+BEGIN LD GR1,A
+ XOR GR1,GR1
+ RET
+A DC 3
+ END
--- /dev/null
+MAIN START
+ LAD GR1,=';' ; 「;」の処理が正常にできるか
+FIN RET
+ END
LAD GR1,='a'
LAD GR2,10
LOOP CPA GR2,=0
- JZE LEND
- JMI LEND
+ JZE FIN
+ JMI FIN
LD GR3,0,GR1
ADDA GR1,=1
SUBA GR2,=1
JUMP LOOP
-LEND RET
+FIN RET
LEN DC 5
END
--- /dev/null
+;; DC 文字定数
+MAIN START
+ RET
+ DC ' !"#$%&''()*+,-./0123456789:;<=>?@ABCDEFG'
+ DC 'GHIJKLMNOPQRSTUVWXYZ[\]^_abcdefghijklmnop'
+ DC 'pqrstuvwxyz{|}~'
+ END
--- /dev/null
+;;; ADDA r,adr,x 演算結果が負数(r < adr)
+MAIN START
+ LD GR1,A
+ LAD GR2,1
+ ADDA GR1,A,1
+ RET
+A DC -10
+ DC 20
+ END
-MAIN START
- OUT BUF,LEN
- RET
-BUF DC 'Hello, World!'
-LEN DC 13
- END
+MAIN START
+ OUT OBUF,LEN
+ RET
+OBUF DC 'Hello, World!'
+LEN DC 13
+ END
--- /dev/null
+;;; CASL IIマクロ命令「IN IBUF LEN」で生成される命令群
+ PUSH 0,GR1
+ PUSH 0,GR2
+ LAD GR1,IBUF
+ LAD GR2,LEN
+ SVC 1
+ POP GR2
+ POP GR1
--- /dev/null
+MAIN START
+ IN IBUF,LEN
+ OUT IBUF,LEN
+ RET
+IBUF DS 100
+LEN DC 1
+ END
--- /dev/null
+MAIN START
+ PUSH 0,GR1
+ PUSH 0,GR2
+ LAD GR1,IBUF
+ LAD GR2,LEN
+ SVC 1
+ POP GR2
+ POP GR1
+ IN IBUF,LEN
+ OUT IBUF,LEN
+ RET
+IBUF DS 100
+LEN DC 1
+ END
--- /dev/null
+1234567890abcdefghijkLMNOPQRST
--- /dev/null
+MAIN START
+ OUT OBUF,LEN
+ RET
+OBUF DC 'Hello, World!'
+LEN DC 13
+ END
-;;; 「OUT」と同等のプログラム
-OTEST START
+MAIN START
PUSH 0,GR1
PUSH 0,GR2
LAD GR1,OBUF
POP GR2
POP GR1
RET
-OBUF DC 'abcd'
-LEN DC 4
+OBUF DC 'Hello, World!'
+LEN DC 13
END
--- /dev/null
+;;; CASL IIマクロ命令「OUT OBUF LEN」で生成される命令群
+ PUSH 0,GR1
+ PUSH 0,GR2
+ LAD GR1,OBUF
+ LAD GR2,LEN
+ SVC 2
+ LAD GR1,=#A
+ LAD GR2,=1
+ SVC 2
+ POP GR2
+ POP GR1
--- /dev/null
+;;; 「アセンブラ言語の使用」に掲載されているサンプル
+COUNT1 START
+; 入力 GR1:検索する語
+; 処理 GR1中の'1'のビットの個数を求める
+; 出力 GR0:GR1中の'1'のビットの個数
+ PUSH 0,GR1 ;
+ PUSH 0,GR2 ;
+ SUBA GR2,GR2 ; Count = 0
+ AND GR1,GR1 ; 全部のビットが'0'?
+ JZE RETURN ; 全部のビットが'0'なら終了
+MORE LAD GR2,1,GR2 ; Count = Count + 1
+ LAD GR0,-1,GR1 ; 最下位の'1'のビット1個を
+ AND GR1,GR0 ; '0'に変える
+ JNZ MORE ; '1'のビットが残っていれば繰返し
+RETURN LD GR0,GR2 ; GR0 = Count
+ POP GR2 ;
+ POP GR1 ;
+ RET ; 呼び出しプログラムへ戻る
+ END ;
--- /dev/null
+../../../../casl2 ../../../../as/FUNC/divl_call.casl ../../../../as/FUNC/divl0.casl ../../../../as/FUNC/outl_main.casl ../../../../as/FUNC/rev.casl
+--------------------
+100
+0
+Error: div by 0
+--------------------
+100
+1
+100
+0
+--------------------
+100
+2
+50
+0
+--------------------
+100
+3
+33
+1
+--------------------
+100
+4
+25
+0
+--------------------
+100
+5
+20
+0
+--------------------
+100
+6
+16
+4
+--------------------
+100
+7
+14
+2
+--------------------
+100
+8
+12
+4
+--------------------
+100
+9
+11
+1
+--------------------
+100
+10
+10
+0
+--------------------
+--------------------
+99
+0
+Error: div by 0
+--------------------
+99
+1
+99
+0
+--------------------
+99
+2
+49
+1
+--------------------
+99
+3
+33
+0
+--------------------
+99
+4
+24
+3
+--------------------
+99
+5
+19
+4
+--------------------
+99
+6
+16
+3
+--------------------
+99
+7
+14
+1
+--------------------
+99
+8
+12
+3
+--------------------
+99
+9
+11
+0
+--------------------
+99
+10
+9
+9
+--------------------
+--------------------
+98
+0
+Error: div by 0
+--------------------
+98
+1
+98
+0
+--------------------
+98
+2
+49
+0
+--------------------
+98
+3
+32
+2
+--------------------
+98
+4
+24
+2
+--------------------
+98
+5
+19
+3
+--------------------
+98
+6
+16
+2
+--------------------
+98
+7
+14
+0
+--------------------
+98
+8
+12
+2
+--------------------
+98
+9
+10
+8
+--------------------
+98
+10
+9
+8
+--------------------
+--------------------
+97
+0
+Error: div by 0
+--------------------
+97
+1
+97
+0
+--------------------
+97
+2
+48
+1
+--------------------
+97
+3
+32
+1
+--------------------
+97
+4
+24
+1
+--------------------
+97
+5
+19
+2
+--------------------
+97
+6
+16
+1
+--------------------
+97
+7
+13
+6
+--------------------
+97
+8
+12
+1
+--------------------
+97
+9
+10
+7
+--------------------
+97
+10
+9
+7
+--------------------
+--------------------
+96
+0
+Error: div by 0
+--------------------
+96
+1
+96
+0
+--------------------
+96
+2
+48
+0
+--------------------
+96
+3
+32
+0
+--------------------
+96
+4
+24
+0
+--------------------
+96
+5
+19
+1
+--------------------
+96
+6
+16
+0
+--------------------
+96
+7
+13
+5
+--------------------
+96
+8
+12
+0
+--------------------
+96
+9
+10
+6
+--------------------
+96
+10
+9
+6
+--------------------
+--------------------
+95
+0
+Error: div by 0
+--------------------
+95
+1
+95
+0
+--------------------
+95
+2
+47
+1
+--------------------
+95
+3
+31
+2
+--------------------
+95
+4
+23
+3
+--------------------
+95
+5
+19
+0
+--------------------
+95
+6
+15
+5
+--------------------
+95
+7
+13
+4
+--------------------
+95
+8
+11
+7
+--------------------
+95
+9
+10
+5
+--------------------
+95
+10
+9
+5
+--------------------
+--------------------
+94
+0
+Error: div by 0
+--------------------
+94
+1
+94
+0
+--------------------
+94
+2
+47
+0
+--------------------
+94
+3
+31
+1
+--------------------
+94
+4
+23
+2
+--------------------
+94
+5
+18
+4
+--------------------
+94
+6
+15
+4
+--------------------
+94
+7
+13
+3
+--------------------
+94
+8
+11
+6
+--------------------
+94
+9
+10
+4
+--------------------
+94
+10
+9
+4
+--------------------
+--------------------
+93
+0
+Error: div by 0
+--------------------
+93
+1
+93
+0
+--------------------
+93
+2
+46
+1
+--------------------
+93
+3
+31
+0
+--------------------
+93
+4
+23
+1
+--------------------
+93
+5
+18
+3
+--------------------
+93
+6
+15
+3
+--------------------
+93
+7
+13
+2
+--------------------
+93
+8
+11
+5
+--------------------
+93
+9
+10
+3
+--------------------
+93
+10
+9
+3
+--------------------
+--------------------
+92
+0
+Error: div by 0
+--------------------
+92
+1
+92
+0
+--------------------
+92
+2
+46
+0
+--------------------
+92
+3
+30
+2
+--------------------
+92
+4
+23
+0
+--------------------
+92
+5
+18
+2
+--------------------
+92
+6
+15
+2
+--------------------
+92
+7
+13
+1
+--------------------
+92
+8
+11
+4
+--------------------
+92
+9
+10
+2
+--------------------
+92
+10
+9
+2
+--------------------
+--------------------
+91
+0
+Error: div by 0
+--------------------
+91
+1
+91
+0
+--------------------
+91
+2
+45
+1
+--------------------
+91
+3
+30
+1
+--------------------
+91
+4
+22
+3
+--------------------
+91
+5
+18
+1
+--------------------
+91
+6
+15
+1
+--------------------
+91
+7
+13
+0
+--------------------
+91
+8
+11
+3
+--------------------
+91
+9
+10
+1
+--------------------
+91
+10
+9
+1
+--------------------
+--------------------
+90
+0
+Error: div by 0
+--------------------
+90
+1
+90
+0
+--------------------
+90
+2
+45
+0
+--------------------
+90
+3
+30
+0
+--------------------
+90
+4
+22
+2
+--------------------
+90
+5
+18
+0
+--------------------
+90
+6
+15
+0
+--------------------
+90
+7
+12
+6
+--------------------
+90
+8
+11
+2
+--------------------
+90
+9
+10
+0
+--------------------
+90
+10
+9
+0
+--------------------
+--------------------
+89
+0
+Error: div by 0
+--------------------
+89
+1
+89
+0
+--------------------
+89
+2
+44
+1
+--------------------
+89
+3
+29
+2
+--------------------
+89
+4
+22
+1
+--------------------
+89
+5
+17
+4
+--------------------
+89
+6
+14
+5
+--------------------
+89
+7
+12
+5
+--------------------
+89
+8
+11
+1
+--------------------
+89
+9
+9
+8
+--------------------
+89
+10
+8
+9
+--------------------
+--------------------
+88
+0
+Error: div by 0
+--------------------
+88
+1
+88
+0
+--------------------
+88
+2
+44
+0
+--------------------
+88
+3
+29
+1
+--------------------
+88
+4
+22
+0
+--------------------
+88
+5
+17
+3
+--------------------
+88
+6
+14
+4
+--------------------
+88
+7
+12
+4
+--------------------
+88
+8
+11
+0
+--------------------
+88
+9
+9
+7
+--------------------
+88
+10
+8
+8
+--------------------
+--------------------
+87
+0
+Error: div by 0
+--------------------
+87
+1
+87
+0
+--------------------
+87
+2
+43
+1
+--------------------
+87
+3
+29
+0
+--------------------
+87
+4
+21
+3
+--------------------
+87
+5
+17
+2
+--------------------
+87
+6
+14
+3
+--------------------
+87
+7
+12
+3
+--------------------
+87
+8
+10
+7
+--------------------
+87
+9
+9
+6
+--------------------
+87
+10
+8
+7
+--------------------
+--------------------
+86
+0
+Error: div by 0
+--------------------
+86
+1
+86
+0
+--------------------
+86
+2
+43
+0
+--------------------
+86
+3
+28
+2
+--------------------
+86
+4
+21
+2
+--------------------
+86
+5
+17
+1
+--------------------
+86
+6
+14
+2
+--------------------
+86
+7
+12
+2
+--------------------
+86
+8
+10
+6
+--------------------
+86
+9
+9
+5
+--------------------
+86
+10
+8
+6
+--------------------
+--------------------
+85
+0
+Error: div by 0
+--------------------
+85
+1
+85
+0
+--------------------
+85
+2
+42
+1
+--------------------
+85
+3
+28
+1
+--------------------
+85
+4
+21
+1
+--------------------
+85
+5
+17
+0
+--------------------
+85
+6
+14
+1
+--------------------
+85
+7
+12
+1
+--------------------
+85
+8
+10
+5
+--------------------
+85
+9
+9
+4
+--------------------
+85
+10
+8
+5
+--------------------
+--------------------
+84
+0
+Error: div by 0
+--------------------
+84
+1
+84
+0
+--------------------
+84
+2
+42
+0
+--------------------
+84
+3
+28
+0
+--------------------
+84
+4
+21
+0
+--------------------
+84
+5
+16
+4
+--------------------
+84
+6
+14
+0
+--------------------
+84
+7
+12
+0
+--------------------
+84
+8
+10
+4
+--------------------
+84
+9
+9
+3
+--------------------
+84
+10
+8
+4
+--------------------
+--------------------
+83
+0
+Error: div by 0
+--------------------
+83
+1
+83
+0
+--------------------
+83
+2
+41
+1
+--------------------
+83
+3
+27
+2
+--------------------
+83
+4
+20
+3
+--------------------
+83
+5
+16
+3
+--------------------
+83
+6
+13
+5
+--------------------
+83
+7
+11
+6
+--------------------
+83
+8
+10
+3
+--------------------
+83
+9
+9
+2
+--------------------
+83
+10
+8
+3
+--------------------
+--------------------
+82
+0
+Error: div by 0
+--------------------
+82
+1
+82
+0
+--------------------
+82
+2
+41
+0
+--------------------
+82
+3
+27
+1
+--------------------
+82
+4
+20
+2
+--------------------
+82
+5
+16
+2
+--------------------
+82
+6
+13
+4
+--------------------
+82
+7
+11
+5
+--------------------
+82
+8
+10
+2
+--------------------
+82
+9
+9
+1
+--------------------
+82
+10
+8
+2
+--------------------
+--------------------
+81
+0
+Error: div by 0
+--------------------
+81
+1
+81
+0
+--------------------
+81
+2
+40
+1
+--------------------
+81
+3
+27
+0
+--------------------
+81
+4
+20
+1
+-------
projects / YACASL2.git / commitdiff