;.....................................................................
CONCON MOV F BT3,0 ;
MOV WF CV19 ;
MOV F INDF,0 ;
XORLW 00010010b ;
BTFSC STATUS,ZERO ;
BCF CV19,7 ;
XORLW (00010010b)^(00010011b);
BTFSC STATUS,ZERO ;
BSF CV19,7 ;
MOV LW CV19 ;
MOV WF FSR ;
MOV F CV19,0 ;
GOTO EEPROG ;
;^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
;.....................................................................
ADVAN MOV F INDF,0 ;
XORLW 00111111b ; 126FS
BTFSS STATUS,ZERO ;
GOTO HOPP ; reserved for future use
INCF FSR,1 ;
BTFSC INDF,7 ;
GOTO AREVE ;
;--------------------------------
AFORW BTFSC CV29,0 ; CV29,0 (DIR) invert?
GOTO AREV ;
AFOR BTFSC CV19,7 ; CV19,7 (DIR) invert?
GOTO AREV1 ;
AFOR1 BTFSC DIR ;
GOTO FOREX
GOTO ASPEED ;
;--------------------------------
AREVE BTFSC CV29,0 ; CV29,0 (DIR) invert?
GOTO AFOR ;
AREV BTFSC CV19,7 ; CV19,7 (DIR) invert?
GOTO AFOR1 ;
AREV1 BTFSS DIR ;
GOTO REVEX
;--------------------------------
ASPEED RRF INDF,0 ; xD654321->0
MOV WF BT6 ;
RRF BT6,0 ; xxD65432->10
ANDLW 00011111b ; xxx65432
MOV WF S31 ; xxx43210
RLF INDF,0 ;
BTFSS HI2LOFS ;
MOV WF SOLL ;
BSF FS28 ;
BTFSC HI2LOFS ;
GOTO HI2LOW ;
BSF FS126 ;
GOTO HOPP ;
;^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
FTION2 ;
TELNEW ;
HOPP BCF PROGBIT ;
BCF PROGBT1 ;
BCF ACKBIT ;
PROGEX BCF STATUS,SEITE ;
BCF FSR,5 ;
GOTO START ;
;********************************************************************
ORG 03FFh
MOV LW 0x70 ; for OSCCAL
END
**************
ORG 03FFh
MOV LW 0x70 ; for OSCCAL
END
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10]
本文关键字：单片机 程序 玩具 PIC单片机，单片机-工控设备 - PIC单片机
