;	サンプルソフト swled.mar
;1,ポート5を出力に設定する
;2,ポート4を入力に設定する
;3,SWが押されたらＬＥＤを点灯させる。
;-----ＣＰＵの指定-----	
	.CPU	300HA
	
;-----シンボル-----
P4DR	.EQU	H'FFFFC7	;ポート4の入力データレジスタ
P4DDR	.EQU	H'FFFFC5        ;
P5DR	.EQU	H'FFFFCA	;ポート5の出力データレジスタ
P5DDR 	.EQU	H'FFFFC8	;
LED	.BEQU	0,P5DR		;LED(ポート5のbit0)

;-----Ｉ／Ｏの初期設定-----	
	.SECTION P,CODE,LOCATE=H'0FF130
	MOV.B	#H'00,R0L	;ポート4を入力に設定
	MOV.B	R0L,@P4DDR	;
	MOV.B	#H'FF,R0L	;
	MOV.B	R0L,@H'FFFFDA	;ポート4をプルアップ
	MOV.B	#H'FF,R0L	;
	MOV.B	R0L,@P5DDR	;ポート5を入力に設定

;-----ＭＡＩＮ-----	
LOOP:	MOV.B	@P4DR,R0L	;ポート4からSWのデータを入力
	BTST	#4,R0L		;SWの状態を調べる。[0」ならZ=1、「1」ならZ=0
	BEQ	ONLED		;SW=ONなのでONLEDにジャンプ
	BCLR	LED		;SW=OFFなので指定されたbitをクリア「0」にする
	JMP	@LOOP		;再度SWの状態をチェック
ONLED:	BSET	LED		;SW=ONなのでポート５の0bitをHiにする＝＞点灯
	JMP	@LOOP		;再度SWの状態をチェック

;-----ＭＡＩＮ終了-----
	.END