サンプルプログラムの改訂

Author: mj-hd

resources/sample/BITCOUNT.ascs

@@ -1,22 +1,36 @@
-; Bit-count
-; count one bits of Data and store to Count
+; ビットカウント
+; Data中の1を数え、結果をCountに格納する
+;
+; 1を数えるために1ビットだけ1が立ったマスクを使用するが、
+; シフト命令がないため、マスクの作成は000...001から出発して
+; 同じデータを加算することにより行っている。
+; このマスクとの論理積が1となるか、0となるかのテストによって
+; 1が立っているかどうかを判定し、計数する。
+; なお、MSBのテストのために、010...000+010...000→100...000を
+; 行うとオーバフロー割り込みを起こすため、MSBだけは、
+; あらかじめ100...000をマスクとして用意してテストに用いている。
+;
 	TITLE	BITCOUNT
 	ORG	0x0
+;ループ開始、Maskによりビットの値をテストする
 Loop	LD	Data
 	AND	Mask
 	BZ	Loop2
+;1ならCountを1増やす
 	LD	Count
 	ADD	One
 	ST	Count
+;15ビットまでテストしたらTestMSBへ行く
 Loop2	LD	C
 	SUB	One
 	BZ	TestMSB
 	ST	C
+;Mask+Maskにより、Maskの値を1ビット左へずらす
 	LD	Mask
 	ADD	Mask
 	ST	Mask
-	B	Loop
-; test MSB bit
+	B	Loop	;ループの先頭に戻る
+; DataのMSBの値をテストする
 TestMSB	LD	Data
 	AND	MSBMask
 	BZ	End
@@ -25,11 +39,10 @@ TestMSB	LD	Data
 	ST	Count
 End	HLT
 ;
-C 	DC 	15	;loop iteration counter
-Mask  	DC 	1	;mask bits
-MSBMask	DC	0x8000	;mask bit for MSB
-Count	DC	0	;one bits' counter
-Data	DC	0xABCD	;input data
-One	DC	1	;constant of one
-	END
-
+C 	DC 	15	;ループ計数
+Mask  	DC 	1	;マスクビット
+MSBMask	DC	0x8000	;MSBをテストするためのマスク
+Count	DC	0	;1ビットカウンタ
+Data	DC	0xABCD	;入力データ
+One	DC	1	;定数1
+	END

resources/sample/DIV.ascs

@@ -1,38 +1,29 @@
-; ���Z���s���v���O����
-
+; 除算プログラム
+; A÷Bを計算して商をC、余りをDとする（A,B共に正の整数）
 	TITLE DIVISION
 	ORG 0x000
-
-Init	LD	ZERO  ; C��������
+Init	LD	ZERO  ; Cを初期化
 	ST	C
-
-; A�̒l��B�̒l�Ŋ���A���ʂ�C�ɃX�g�A����
+;除算ループの開始 
 DivLoop	LD	A
-	SUB	B	; A����B������
-
-	; �����Z�̌��ʂ����̎��A����Z�I��
-	BN	DivEnd
-
-	ST	A	; B��������A���X�g�A
-
-	; C�̒l��1���₷
+	SUB	B	; AからBを引く
+	BN	DivEnd	; 引き算の結果が負の時、割り算終了
+	ST	A	; Bを引いた結果をAに格納
+; 商Cの値を1増やし、DivLoopに戻る
 	LD	C
 	ADD	ONE
 	ST	C
 	B	DivLoop
-
-DivEnd	LD	A	; A��]��ɃX�g�A
+DivEnd	LD	A	; Aを余りDに格納して終了
 	ST	D
 	HLT
 
-; ����Z�p
-A	DC	17 ; �����鐔
-B	DC	5  ; ���鐔
-C	DS	1  ; ��
-D	DS	1  ; �]��
-
-; ���̑��̒萔
+; 割り算用
+A	DC	17 ; 割られる数
+B	DC	5  ; 割る数
+C	DS	1  ; 商
+D	DS	1  ; 余り
+; その他の定数
 ZERO	DC	0
 ONE	DC	1
-
 	END

resources/sample/MULT.ascs

@@ -1,30 +1,29 @@
-; factorial of N, i.e., N! 
-	TITLE	Factorial
-	ORG	0x100
+; Nの階乗プログラム-メインルーチン
+	TITLE	Factorial	;プログラム名
+	ORG	0x100	;16進100番地から開始
 	LD	N
-	SUB	One
-	BN	Error	;error as N<1
-	BZ	FOne	;F=1 as N=1
-
-; compute F for N>=2
-	LD	N
-	ST	F	;F��N
-	SUB	One
-FLoop	ST	N	;N��N-1
+	ADD	Zero
+	BN	Error	; N<0　ならエラーとする
+; N>=0に対して、階乗の計算を開始
+	LD	One
+	ST	F	;F←１
+FLoop	LD	N	;N=0ならEndFactへ行く
+	ADD 	Zero
+	BZ	EndFact
 	LD	F
-	ST	A	;A��F
+	ST	A	;A←F
 	LD	N
-	ST	B	;B��N
-	B	MULT	; goto multiply routine	
-Next	LD	C	; C��A*B
-	ST	F	; F��F*N
-	LD	N	;test if N=1
+	ST	B	;B←N
+	B	MULT	; かけ算ルーチンへ分岐
+Next	LD	C	; C←A*B
+	ST	F	; F←F*N
+	LD	N	; N ← N-1
 	SUB	One	
-	BZ	EndFact
-	B	FLoop
-EndFact	HLT		;successful termination
+	ST	N	
+	B	FLoop	;ループの先頭へ戻る
+EndFact	HLT		;正常終了
 
-; multiplication routine
+; かけ算サブルーチン-A×Bを計算してCに置く
 MULT	LD	Zero
 MLoop	ADD	A
 	ST	C
@@ -36,20 +35,16 @@ MLoop	ADD	A
 	B	MLoop
 EndMult	B	Next
 
+; N<0のときエラー終了
+Error	HLT		;エラー終了
 
-FOne	LD	One
-	ST	F
-	HLT		;successful termination
-
-Error	HLT		;error termination
+; 変数、定数を置く領域
+N	DC	3	;入力nを置く
+F	DS	1	;計算結果を置く
 
-N	DC	3
-F	DS	1
-
-A 	DS 	1
-B  	DS 	1
-C	DS	1
-Zero	DC	0
-One	DC	1
+A 	DS 	1	;かけられる数を置く
+B  	DS 	1	;かける数を置く
+C	DS	1	;かけた結果を置く
+Zero	DC	0	;定数0
+One	DC	1	;定数1
 	END
-

resources/sample/factorial.ascs

@@ -0,0 +1,20 @@
+; A×Bを計算しCに格納する (Aは整数、B は正の整数)
+	TITLE	MULTIPLY	;プログラム名をMULTIPLY とする	
+	ORG	0x0		;開始番地を0番地とする
+	LD	Zero		;Zero番地の0をレジスタに読み込む
+Loop	ADD	A		;レジスタにA番地の値5を加える
+	ST	C		;レジスタの値をC番地に書き込む
+	LD	B		;レジスタにB番地の値を読み込む
+	SUB	One		;レジスタからOne番地の値1を引く
+	BZ	End		;引いた結果がゼロならEndに分岐する 
+	ST	B		;引いた結果をB番地に書き込む
+	LD	C		;C番地の内容をレジスタに読み込む
+	B	Loop		;Loopに戻る
+End	HLT			;停止する
+
+A 	DC 	5		;掛けられる数 (計算中不変)
+B  	DC 	3		;掛ける数 (1回ループを回る毎に-1)
+C	DS	1		;掛けた結果を残すための領域
+Zero	DC	0		;値(0) (計算中不変)
+One	DC	1		;値(1) (計算中不変)
+	END			;プログラムの終了