close
這是什麼爛題目啊...就算我對8051有興趣也不能搞我啊!雪特勒...
第4題程式碼!
START:
MOV P0,#00H
MOV DPTR,#TBL1
JB P1.7,START
MOV A,P1
ANL A,#00000111B
MOVC A,@A+DPTR
MOV R4,A
MOV P0,#01H
MOV A,P0
MOV R5,#8
JNB P1.6,RR
JB P1.6,RL
RL:
RL A
MOV P0,A
ACALL DELAY
RL1:
DJNZ R5,RL
JB P1.7,START
JMP START
RR:
RR A
MOV P0,A
ACALL DELAY
RR1:
DJNZ R5,RR
JB P1.7,START
JMP START
TBL1:
DB 00000001B
DB 00000011B
DB 00000111B
DB 00001111B
DB 00011111B
DB 00111111B
DB 01111111B
DB 11111111B
DELAY:
PUSH ACC
MOV A,R0
PUSH ACC
MOV A,R1
PUSH ACC
MOV R0,#25
DELAY1:
MOV R1,R4
DJNZ R1,$
DJNZ R0,DELAY1
POP ACC
MOV R1,A
POP ACC
MOV R0,A
POP ACC
RET
END
A51檔下載處:http://kkka.myweb.hinet.net/merik/070510-4.a51
-----
全站熱搜
留言列表
