ΞΛΤ造福全人類ΠΔζ

版權宣言：
此為航電二乙 科南大大、承翰大大、球爺大大所提供....
※版權所有 翻印必究※
此程式僅提供期末考試作弊之利用....切勿拿去做商業用途

---------------------------------------------------------------------
;P99 練習題：兩霹靂燈方向為相反移動
;
;.構想顯示方式：
;	10000001
;	01000010
;	00100100
;	00011000
;	00100100
;	01000010
;	10000001
;
;想法：把R1放入10000000，把R2放入00000001，個別右旋及左旋後做OR閘運算
;
;程式開始：

	MOV	R1,#10000000B
	MOV	R2,#00000001B
	MOV	A,R2
	ORL	A,R1
	MOV	P0,A
	ACALL	DELAY100MS
	
START:
	;把R1右旋 保存R1
	MOV	A,R1
	RR	A
	MOV	R1,A

	;把R2左旋 保存R2
	MOV	A,R2	
	RL	A
	MOV	R2,A
	
	;對R1、R2做OR閘運算輸出
	ORL	A,R1
	MOV	P0,A
	ACALL	DELAY100MS	
	SJMP	START

;100ms 延遲副程式：
DELAY100MS:
	PUSH	ACC
	MOV	A,R0
	PUSH	ACC
	MOV	A,R1
	PUSH	ACC
	MOV	R0,#194
DELAY100ms_1:
	MOV	R1,#255
	DJNZ	R1,$
	DJNZ	R0,DELAY100ms_1
	POP	ACC
	MOV	R1,A
	POP	ACC
	MOV	R0,A
	POP	ACC
      RET

END

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Intel-8051 Macro Assembler - Version 1.00

PASS1.....
PASS2.....
Lines Assembled : 59      Assembly Errors : 0
---------------------------------------------------------------------
;P99 練習題：由左至右每次移入一顆LED燈，停在其未滿的位置，若全滿就從最右邊由左至右一出一顆LED燈
;
;構想顯示方式：
;LOOP1:	10000000
;	11000000
;	11100000
;	11110000
;	11111000
;	11111100
;	11111110
;	11111111
;LOOP2:	01111111
;	00111111
;	00011111
;	00001111
;	00000111
;	00000011
;	00000001
;	00000000
;
;想法：把R1放入10000000，對R1做右旋後，把其值和R1做OR閘運算，保存其結果至R1，連續八次；把R2放入01111111，對R2做右旋後，把其值和R2做AND閘運算，保存其結果至R2，連續八次
;
;程式開始：


START:
	MOV	R3,#8
	MOV	R1,#10000000B
	MOV	P0,R1
	ACALL	DELAY100MS		

LOOP1:
	MOV	A,R1
	RR	A
	ORL	A,R1
	MOV	P0,A
	MOV	R1,A
	ACALL	DELAY100MS	
	DJNZ	R3,LOOP1

	MOV	R3,#8
	MOV	R2,#01111111B	
	MOV	P0,R2
	ACALL	DELAY100MS		

LOOP2:

	MOV	A,R2
	RR	A
	ANL	A,R2
	MOV	P0,A
	MOV	R2,A
	ACALL	DELAY100MS	
	DJNZ	R3,LOOP2

	SJMP	START

;100ms 延遲副程式：
DELAY100MS:
	PUSH	ACC
	MOV	A,R0
	PUSH	ACC
	MOV	A,R1
	PUSH	ACC
	MOV	R0,#194
DELAY100ms_1:
	MOV	R1,#255
	DJNZ	R1,$
	DJNZ	R0,DELAY100ms_1
	POP	ACC
	MOV	R1,A
	POP	ACC
	MOV	R0,A
	POP	ACC
        RET

END

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Intel-8051 Macro Assembler - Version 1.00

PASS1.....
PASS2.....
Lines Assembled : 78      Assembly Errors : 0
---------------------------------------------------------------------
;P99 練習題：奇偶LED交互閃爍顯示
;
;.構想顯示方式：
;	01010101
;	10101010
;
;想法：把A放入01010101，對暫存器做右旋動作
;
;程式開始：


	MOV	A,#01010101B
START:	
	MOV	P0,A
	RR	A
	ACALL	DELAY100MS	
	SJMP	START

;100ms 延遲副程式：
DELAY100MS:
	PUSH	ACC
	MOV	A,R0
	PUSH	ACC
	MOV	A,R1
	PUSH	ACC
	MOV	R0,#194
DELAY100ms_1:
	MOV	R1,#255
	DJNZ	R1,$
	DJNZ	R0,DELAY100ms_1
	POP	ACC
	MOV	R1,A
	POP	ACC
	MOV	R0,A
	POP	ACC
      RET

END

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Intel-8051 Macro Assembler - Version 1.00

PASS1.....
PASS2.....
Lines Assembled : 38      Assembly Errors : 0
---------------------------------------------------------------------