這是什麼爛題目啊...就算我對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
arrow
arrow
    全站熱搜

    merik13 發表在 痞客邦 留言(0) 人氣()

    E-mail轉寄