7seg.asm

使用汇编语言编写的PIC小程序

#include P16C63A.INC
 TABADD EQU 10
 COUNT  EQU 11

 RSTADD EQU H'0000'

 ORG RSTADD
 GOTO MAIN
 ORG H'0005'

MAIN  
      MOVLW H'00'
      TRIS 6 ;定义B口全部为输出
      TRIS 5 ;定义A口全部为输出
      MOVWF PORTA ;ALL SEG OFF

RE    MOVLW TABLE
      MOVWF TABADD

SEG4  MOVLW 0
      ADDWF TABADD,0
      CALL CONV
      MOVWF PORTB
      ;BSF PORTA,3 ;ONE SEG ON
      MOVLW H'08'
      MOVWF PORTA
      CALL SDEL
SEG3  MOVLW 1
      ADDWF TABADD,0
      CALL CONV
      MOVWF PORTB
     ; BCF PORTA,3
      ;BSF PORTA,2
      MOVLW H'04'
      MOVWF PORTA
      CALL SDEL
SEG2  MOVLW 2
      ADDWF TABADD,0
      CALL CONV
      MOVWF PORTB
      ;BCF PORTA,2
      ;BSF PORTA,1
      MOVLW H'02'
      MOVWF PORTA
      CALL SDEL
SEG1  MOVLW 3
      ADDWF TABADD,0
      CALL CONV
      MOVWF PORTB
      ;BCF PORTA,1
      ;BSF PORTA,0
      MOVLW H'01'
      MOVWF PORTA
      CALL SDEL 
     ; BCF PORTA,0
      GOTO SEG4   

SDEL  MOVLW 6
      MOVWF 12
      MOVLW 0
L2    MOVWF 11
L3    DECFSZ 11,1
      GOTO L3
      DECFSZ 12,1
      GOTO L2
      RETLW 0


CONV  MOVWF PCL   ;取码，输入W（0～F），输出W
TABLE RETLW H'C0'
      RETLW H'F9'
      RETLW H'A4'
      RETLW H'B0'
      RETLW H'99'
      RETLW H'92'
      RETLW H'82'
      RETLW H'F8'
      RETLW H'80'
      RETLW H'90'
      RETLW H'88'
      RETLW H'83'
      RETLW H'C6' 
      RETLW H'A1'
      RETLW H'86'
      RETLW H'8E'
END