PIC單片機數碼管程序

ORG  000HGOTO A1ORG  0CHA1   MOVLW 1;位1顯示數MOVWF 50H; MOVLW 2;位2顯示數MOVWF 51H;MOVLW 3;位3顯示數MOVWF 52H;MOVLW 4;位4顯示數MOVWF 53H;MOVLW 4;顯示位數MOVWF 40H;MOVLW B00000001;位碼MOVWF 41H;MOVLW 50H;MOVWF FSR ;間接尋址A2   BSF  STATUS,RP0;體1BCF  STATUS,RP1;MOVLW 0;MOVWF TRISB;RB口設為輸出口MOVWF TRISD;RD口設為輸出口BCF  STATUS,RP0;體0BCF  STATUS,RP1;MOVLW 0FFH;MOVWF PORTB;RB口輸出高電平MOVLW 0MOVWF PORTD;RD口輸出低電平起清屏作用MOVFW INDF;間接尋址顯示數據  CALL Q1;查數據表MOVWF PORTB;顯示斷碼輸出到RB口INCF FSR,1;間接尋址地址加1MOVFW 41H ;位碼MOVWF PORTD;位碼輸出到RD口RLF  41H,0;處理CRLF  41H,1;左移位碼CALL M001;延時DECFSZ 40H,1;判斷是否顯示完4位GOTO A2;否則繼續顯示GOTO A1;是返回;*********************************************;    延時子程序;*********************************************M001MOVLW 2MOVWF 30HM002  MOVLW 250MOVWF 31HDECFSZ 31H,1GOTO $-1DECFSZ 30H,1GOTO M002RETURN;********************************************;    數據表;********************************************      Q1   ADDWF  PCL,1  RETLW     00C0H        ;0RETLW     00F9H        ;1RETLW     00A4H        ;2RETLW     00B0H        ;3RETLW     0099H        ;4RETLW     0092H        ;5RETLW     0082H        ;6RETLW     00F8H        ;7RETLW     0080H        ;8RETLW     0090H        ;9RETLW     0088H        ;ARETLW     0083H        ;BRETLW     00C6H        ;CRETLW     00A1H        ;DRETLW     0086H        ;ERETLW     008EH        ;FEND