Отправлено S_agent 15 декабря 2004 г. 17:54 В ответ на: Тоже работал и все было ок, Кажись у нее есть тестовый режим(устанавлив. аппаратно нога кверху/книзу), в котором что-т похоже. А вообще, найлите справочник Кизлюка, там усе есть. Или весером гляну, завтра скажу. отправлено S_agent 15 декабря 2004 г. 17:47

см. подпрограмму NABOR
=======================
 		list p=16F84a
                include  "l:\mplab\p16F84A.inc"
;---------------------------------------------------
;	CONSTANT	K=8
;---------------------------------------------------
#DEFINE	SHIFT	STATUS,RP0
#DEFINE	NULL	STATUS,Z
 
#DEFINE	LED_R	PORTA,4 
#DEFINE	CS	PORTB,0
#DEFINE	ACK	PORTB,1
#DEFINE	LATCH	PORTB,2
#DEFINE	SOUND	PORTB,3
#DEFINE	LINE	PORTB,4
#DEFINE	ALARM	PORTB,5
#DEFINE	KEY	PORTB,6
;#DEFINE		PORTB,7 
;---------------------------------------------------
TEMP		EQU	0CH
TEMP_1		EQU	0DH
TEMP_ADR	EQU	0EH
;FLAG		EQU	0FH
NUMB_CALL	EQU	10H
NUMB_NUM	EQU	11H
START		EQU	12H
;----------------------------------------------------
;CONFIG PORTB I/O 
	BCF	SHIFT
	CLRF	PORTB
	BSF	SHIFT
	MOVLW	B'01100010'
	MOVWF	06H
;CONFIG PORTA I/O 
	BCF	SHIFT
	CLRF	PORTA
	BSF	SHIFT
	MOVLW	B'00000000'
	MOVWF	05H
	BCF	SHIFT
;CONFIG PRESCAL ON TMR0
	CLRWDT
	BSF	SHIFT
	MOVLW	B'11010111'
	MOVWF	01H
	BCF	SHIFT
;----------------------------------------------------
INSTALL
	CLRWDT
	BSF	CS	
	BCF	LATCH
	BCF	LINE
;	BSF	LED_A
	BSF	LED_R
	BCF	SOUND
LOAD_FL
	MOVLW	30H
	MOVWF	FSR
	MOVLW	D'18'
	MOVWF	TEMP
	CLRF	TEMP_ADR
L_1	MOVF	TEMP_ADR,W
	CALL	READ_FL
	MOVWF	INDF
	INCF	TEMP_ADR,F
	INCF	FSR,F
	DECFSZ	TEMP,F
	GOTO	L_1
WAIT
;	BCF	LED_A
W_0	CLRWDT
	BTFSS	KEY
	GOTO	W_0
	BSF	LED_R
W_1	CLRWDT
	BTFSC	ALARM
	GOTO	W_1
SOS
	BCF	LED_R
;	BSF	LED_A
	BCF	CS
	MOVLW	20
	MOVWF	NUMB_CALL
NABOR
	CLRWDT
	MOVLW	30H
	MOVWF	START
	MOVLW	7
	MOVWF	NUMB_NUM
;	CALL	SEC_2
	CLRF	TEMP
	MOVF	START,W
	MOVWF	FSR	
	BSF	LINE	
	CALL	SEC_2
N_1	MOVF	INDF,W
	MOVWF	PORTA
N_2	CLRWDT
	BTFSS	ACK
	GOTO	N_2
	BSF	LATCH
	CALL	MS_32
	CALL	MS_32
	BCF	LATCH
	CALL	MS_32
N_3	CLRWDT
	BTFSS	ACK
	GOTO	N_3
;	CALL	PAUSE_8
	INCF	FSR,F
	DECFSZ	NUMB_NUM,F
	GOTO	N_1
	CALL	TREVOGA
	BCF	LINE
	CALL	SEC_2
NABOR_1
	CLRWDT
	MOVLW	37H
	MOVWF	START
	MOVLW	D'11'
	MOVWF	NUMB_NUM
;	CALL	SEC_2
	CLRF	TEMP
	MOVF	START,W
	MOVWF	FSR	
	BSF	LINE	
	CALL	SEC_2
N_11	MOVF	INDF,W
	MOVWF	PORTA
N_12	CLRWDT
	BTFSS	ACK
	GOTO	N_12
	BSF	LATCH
	CALL	MS_32
	CALL	MS_32
	BCF	LATCH
	CALL	MS_32
N_13	CLRWDT
	BTFSS	ACK
	GOTO	N_13
;	CALL	PAUSE_8
	INCF	FSR,F
	DECFSZ	NUMB_NUM,F
	GOTO	N_11
	CALL	TREVOGA
	BCF	LINE
	CALL	SEC_2
	BTFSS	KEY
	GOTO	INSTALL
	DECFSZ	NUMB_CALL,F
	GOTO	NABOR
	GOTO	INSTALL
;-------------------------------------------------------
READ_FL
	MOVWF	EEADR
	BSF	SHIFT
	BSF	08H,RD
	BCF	SHIFT
	MOVF	EEDATA,W
	RETURN
MS_32
	CLRF	TMR0
M_1	CLRWDT
	BTFSS	TMR0,7 
	GOTO	M_1
	RETURN
MS_1	CLRF	TMR0
M_2	CLRWDT
	BTFSS	TMR0,2
	GOTO	M_2
	RETURN
TREVOGA
	MOVLW	1FH
	MOVWF	TEMP
Q_1	CALL	MS_32
	DECFSZ	TEMP,F
	GOTO	Q_1	
	CALL	MIN_0.5
	BCF	SOUND
	RETURN
MIN_0.5
	MOVLW	D'30'
	MOVWF	TEMP
L1	CALL	SEC_05P
	CALL	SEC_05P1
	DECFSZ	TEMP,F
	GOTO L1
	RETURN	
SEC_2
	CLRWDT
	CLRF	TEMP_1
S_0	CLRWDT
	CLRF	TMR0
S_1	CLRWDT
	BTFSS	TMR0,7
	GOTO	S_1
	INCF	TEMP_1,F
	BTFSS	TEMP_1,6
	GOTO	S_0
	RETURN
;PAUSE_8
;	MOVWF	TEMP
;	SUBLW	K
;	BTFSS	NULL
;	GOTO	P_1
;	GOTO	P_2
;P_3	RETURN
;P_1	MOVF	TEMP,W
;	GOTO	P_3
;P_2	CALL	SEC_2
;	CALL	SEC_2
;	MOVF	TEMP,W
;	GOTO	P_3
;	CLRWDT
;	CLRF	TEMP_1
;S_0PP	CLRWDT
;	CLRF	TMR0
;S_1PP	CLRWDT
;S_2PP	BTFSS	TMR0,7
;	GOTO	S_1PP
;	INCF	TEMP_1,F 
;	BTFSS	TEMP_1,4
;	GOTO	S_0PP
;	RETURN
SEC_05P
	CLRWDT
	CLRF	TEMP_1
S_0P	CLRWDT
	CLRF	TMR0
S_1P	CLRWDT
	CALL	S_3P
S_2P	BTFSS	TMR0,7
	GOTO	S_1P
	INCF	TEMP_1,F
	BTFSS	TEMP_1,4
	GOTO	S_0P
	RETURN
S_3P	CLRWDT
	BTFSS	TMR0,1
	BSF	SOUND
	BTFSC	TMR0,1
	BCF	SOUND
	RETURN
SEC_05P1
	CLRWDT
	CLRF	TEMP_1
S_0P1	CLRWDT
	CLRF	TMR0
S_1P1	CLRWDT
	CALL	S_4P
S_2P1	BTFSS	TMR0,7
	GOTO	S_1P1
	INCF	TEMP_1,F
	BTFSS	TEMP_1,4
	GOTO	S_0P1
	RETURN
S_4P	CLRWDT
	BTFSS	TMR0,2
	BSF	SOUND
	BTFSC	TMR0,2
	BCF	SOUND
	RETURN
;-----------------------------------------------------
	ORG	2100H
	DATA	D'5'
	DATA	D'4'
	DATA	D'3'
	DATA	D'8'
	DATA	D'7'
	DATA	D'3'
	DATA	D'8'
	DATA	D'8'
	DATA	D'0'
	DATA	D'5'
	DATA	D'0'
	DATA	D'5'
	DATA	D'0'
	DATA	D'6'
	DATA	D'1'
	DATA	D'1'
	DATA	D'7'
	DATA	D'4'
;----------------------------------------------------
	ORG	2007H
	DATA	3FF5H
	END 

• Ответ: Спасибо, но я не ппользуюсь ПИКом, управляю ВЖ19 прямо с компьютера, при этом все управляющие сигналы проверены. Тут аппаратная проблема. — Бывший подъесаул   (16.12.2004 11:14, пустое)