轉信站: GIBBS!news2.ncku!ccnews.ncku!news.ccns.ncku!news.mksh.phc!news.nsysu!Sp
Origin: bbs.kkcity.com.tw


期末突然說要交一個報告 改了好久又改不出來 急徵各位高手 麻煩您了
我想改有可以左移右移閃爍的

$mod51
        ORG     0000H
        ACALL   INIT

        ACALL   LINE1
        MOV     DPTR,#TAB1
        ACALL   DISPLAY

        ACALL   LINE2
        MOV     DPTR,#TAB2
        ACALL   DISPLAY

OK:     AJMP    OK

;
INIT:   ACALL   DELAY

        MOV     A,#38H
        ACALL   WRINS
        MOV     A,#38H
        ACALL   WRINS
        MOV     A,#38H
        ACALL   WRINS
        MOV     A,#38H
        ACALL   WRINS

        MOV     A,#08H
        ACALL   WRINS

        MOV     A,#01H
        ACALL   WRINS

        MOV     A,#06H
        ACALL   WRINS

        MOV     A,#0CH
        ACALL   WRINS
        RET
;
DISPLAY:MOV     R7,#00H
NEXT:   MOV     A,R7
        MOVC    A,@A+DPTR
        CJNE    A,#10H,DSP
        RET
DSP:    ACALL   WRDATA
        INC     R7
        AJMP    NEXT

LINE1:  MOV     A,#10000000B
        ACALL   WRINS
        RET

LINE2:  MOV     A,#11000000B
        ACALL   WRINS
        RET

WRINS:  MOV     P3,#00011111B   ;RS=0,R/W=0,E=0
        NOP
        SETB    P3.5            ;E=1
        MOV     P1,A
        NOP
        CLR     P3.5            ;E=0
        ACALL   DLY1
        RET

WRDATA: MOV     P3,#10011111B   ;RS=1,R/W=0,E=0
        NOP
        SETB    P3.5            ;E=1
        MOV     P1,A
        NOP
        CLR     P3.5            ;E=0
        ACALL   DLY2
        RET
;
DELAY:  MOV     R6,#100
DL:     MOV     R7,#200
        DJNZ    R7,$
        DJNZ    R6,DL
        RET
;
DLY1:   MOV     R6,#20
DL1:    MOV     R7,#200
        DJNZ    R7,$
        DJNZ    R6,DL1
        RET
;
DLY2:   MOV     R6,#80
        DJNZ    R6,$
        RET
;
TAB1:   DB      'Hell'
        DB      'o !'
        DB      10H
TAB2:   DB      'I am'
        DB      ' a '
        DB      'LCD.'
        DB      10H

        END
--
┌─────◆ＫＫＣＩＴＹ◆─────┐   ◢ ╱  想要成立班系社團站台嗎?  
│         bbs.kkcity.com.tw          │ █▉ ─  KKcity即日起開放BBS站申請囉!
└──《From:218.187.109.33     》──┘   ◥ ╲  免程式技術、硬體成本的選擇!!