8255_2.asm

我学单片机89C51时编的大部分程序都在里面

;采用延时方式
       ORG 0000H
        LJMP START
        ORG 0030H
START:  MOV R0,#30            ;30S,数码输出
        MOV R1,#20           ;闪20次
        MOV P1,#81H          ;L1,L8亮，倒计时
        LCALL SHOW           ;
                             ;
SHAN1:  MOV P1,#41H          ;L1灯亮，L7灯闪
        LCALL D1S            ;
        MOV P1,#01H          ;
        LCALL D1S            ;
        DJNZ R0,SHAN1        ;
                             ;
        MOV R0,#20           ;L3,L6亮，倒计时
        MOV P1,#24H          ;
        LCALL SHOW           ;
                             ;
SHAN2:  MOV P1,#22H          ;L6亮，L2闪
        LCALL D1S            ;
        MOV P1,#20H          ;
        LCALL D1S            ;
        DJNZ R0,SHAN2        ;
        LJMP START           ;
                             ;
SHOW:   MOV A,R0             ;数码分高低位输出
        MOV B,#10            ;
        DIV AB               ;
        PUSH A               ;
        MOV A,B              ;
        LCALL DISPLAY        ;
        POP A
        LCALL DISPLAY
        LCALL D1S            ;延时1s
        LCALL QINGLING       ;清零，R0减一，循环
        DJNZ R0,SHOW
        

QINGLING:MOV R4,#04H             ;清零
LOOP:   MOV A,#20
        LCALL DISPLAY
        DJNZ R4,LOOP
        RET
                                ;显示
DISPLAY:MOVC A,@A+DPTR          ;查表
        MOV SBUF,A              ;输出
DELAY:  JNB TI,DELAY            ;八个字节是否发送完
        CLR TI                  ;清标志位
        RET

D1S:  MOV R7,#010       ;1S延时程序
DS1:    MOV R6,#200
DS2:    MOV R5,#250
DS3:    DJNZ R5,DS3
        DJNZ R6,DS2
        DJNZ R7,DS1
        RET

TABLE:  DB 0BBH,09H,0EAH,6BH,59H,73H,0F3H,0BH,0FBH,7BH
        DB 0F1H,0B2H,0E9H,0F2H,0D2H
        DB 49h,40h,0d9h,51h,60H,00H