RETLW 0 ; 41-42
EQUEX BTFSS FLACKER ; 38
INCFSZ TFLKOFF,1 ; 39
RETLW 0 ; 40-41
MOV F BT2,0 ; 41
ANDLW 01100111b ; 42
IORLW 00010000b ; 43
MOV WF TFLKOFF ; 44
BTFSC LITOPEN ; 45
BSF FLACKER ; 46
RETLW 0 ; 47-48
;^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
LOWBIT1 MOV LW 0x10 ; ----------------------------- 12
SUBWF FSR,0 ; 13
ANDLW 00000111b ; more than 6 BYTE read 14
BTFSC STATUS,ZERO ; begin new! 15
GOTO START18 ; ----------------------------- 16-17
BTFSC BITHI ; 17
INCF HI ; 18
GOTO INTST1 ; 19-20
BYTE MOV LW 9 ; PRE to 8 Bit for 1.Byte 17
MOV WF PRE ; 18
INCF FSR,1 ; Pointer for ind. Adressing 19
INTEST1 CLRF HI ; 20
INTST1 BCF STEPOK? ; 21
BCF BITHI ; 22
CALL IN ; 23-24
BTFSC STEPOK? ; 4.
GOTO STEPOK1 ; 5.-6
CALL STEP ; 6.-7.
BTFSC DCCIN ; ########### input ########## 1 (25)
BSF BITHI ; 2
BTFSC FLACKER ; 3
BTFSC tmr0,3 ; 4
GOTO STEPOK1 ; 5-6
BCF LED ; 6
STEPOK1 MOV LW 11111100b ; FF-03 7
MOV F HI,1 ; 8
BTFSC STATUS,ZERO ; 0? 9
GOTO LOWBIT1 ; low half of bit 10-11
ADDWF HI,0 ; BIT im Carry 11
DECFSZ PRE,1 ; Pre=0? 12
GOTO NEXT ; 13-14
BTFSC STATUS,CARRY ; 14
GOTO BYTE ; 9.Bit=0 15-16
;------------- Letztes BIT=1 -------------
CLRF NOADR ; for IB with M*
MOV F BT1,0 ; 17
XORWF BT2,0 ; 18
XORWF BT3,0 ; 19
XORWF BT4,0 ; 20
XORWF BT5,0 ; 21
XORWF BT6,0 ; 22
BTFSS STATUS,ZERO ; all Bytes ok? 23
GOTO START2. ; 24-1.
COMF BT1,1 ; 9.Bit=1 (inverting BYTE) 1.
COMF BT2,1 ; (inverting BYTE) 2.
COMF BT3,1 ; (inverting BYTE) 3.
COMF BT4,1 ; (inverting BYTE) 4.
COMF BT5,1 ; (inverting BYTE) 5.
CALL STEP ; 6.-7.
DECF FSR,1 ; auf vorletztes Byte 1
MOV LW INOUT ; GP3 input, rest output 2
TRIS GPIO ; set port GPIO 3
;....................................................................
CV BSF FSR,5 ; rampage to 0x30.. 4
;--------------------------------
MOV F BT1,0 ; 5
BTFSS BT1,7 ; >0<AAA AAAA 6
GOTO SHORTA ; short adress 7-8
XORWF CV17,0 ; 8
BTFSS STATUS,ZERO ; 9
GOTO CHKPROG ; 10-11
MOV F BT2,0 ; 11
XORWF CV18,0 ; 12
BTFSS STATUS,ZERO ; 13
GOTO CHKPROG ; 14
MOV LW 0x2C ; BT3 15
MOV WF FSR ; to 3. byte 16
BTFSS LADRE ; long adress enabled? 17
GOTO CHKPROG ; 18
BTFSC CONSIST ; 19
GOTO CHKPROG ; 20
NOP ; 21
BSF STATUS,SEITE ; 22
GOTO DECOD ; 23-24
;--------------------------------
BCAST GOTO $+1 ; 12-13
GOTO $+1 ; 14-15
GOTO OVER1 ; 16-17
OVER BTFSC CONSIST ; 16
GOTO START ; 17
OVER1 NOP ; 18
GOTO BCBCK ; 19-20
;--------------------------------
CHKPROG MOV F BT1,0 ;
ANDLW 11110000b ; untere 3bit ausblenden
XORLW 01110000b ; >= 120 (120=CV1 121=CV2 ...)
BTFSS STATUS,ZERO ;
GOTO START ;
BSF STATUS,SEITE ;
GOTO PROG ; register mode (CV1-CV8)
;--------------------------------
SHORTA BTFSC STATUS,ZERO ; address = 0 9
GOTO BCAST ; 10-11
BTFSS LADRE ; long Adress enabled? 11
XORWF CV1,0 ; 12
BTFSC STATUS,ZERO ; 13
GOTO OVER ; 14-15
MOV F CV19,0 ; 15
ANDLW 01111111b ; 16
BCF CONSIST ; 17
BTFSS STATUS,ZERO ; 18
BSF CONSIST ; 19
XORWF BT1,0 ; consist? 20
BCBCK BTFSS STATUS,ZERO ; 21
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] 下一页
本文关键字：单片机 程序 玩具 PIC单片机，单片机-工控设备 - PIC单片机
