;léptetőmotor vezérlő
;PIC16F84
A	EQU	20
	ORG	0
	GOTO	BEÁLLÍTÁSOK
;---------------------
BEÁLLÍTÁSOK
	CLRF	PORTB
	CLRF	PORTA
	BANKSEL	TRISA
	BSF	TRISA,0
	BSF	TRISA,1
	BSF	TRISA,2
	BSF	TRISA,3
	BANKSEL	PORTA
	BANKSEL	TRISB
	BCF	TRISB,0
	BCF	TRISB,1
	BCF	TRISB,2
	BCF	TRISB,3
	BANKSEL	PORTB
	GOTO	FŐPROGRAM
;----------------
FŐPROGRAM
	CLRF	PORTB
	BTFSS	PORTA,0
	GOTO	FŐPROGRAM_2
IDE	BTFSC	PORTA,0
	GOTO	IDE
	GOTO	VEZÉRLŐ
;----------------
FŐPROGRAM_2
	CLRF	PORTB
	BTFSS	PORTA,1
	GOTO	FŐPROGRAM
IDE_2	BTFSC	PORTA,1
	GOTO	IDE_2
	GOTO	VEZÉRLŐ_2
;----------------
VEZÉRLŐ
STEP_1	CALL	INTER
	MOVLW	B'0001'
	MOVWF	PORTB
	CALL	IDŐ
	BTFSS	PORTA,2
	GOTO	STEP_2
IDE_3	BTFSC	PORTA,2
	GOTO	IDE_3
	GOTO	FŐPROGRAM
STEP_2	CALL	INTER
	MOVLW	B'0010'
	MOVWF	PORTB
	CALL	IDŐ
	BTFSS	PORTA,2
	GOTO	STEP_3
IDE_4	BTFSC	PORTA,2
	GOTO	IDE_4
	GOTO	FŐPROGRAM
STEP_3	CALL	INTER
	MOVLW	B'0100'
	MOVWF	PORTB
	CALL	IDŐ
	BTFSS	PORTA,2
	GOTO	STEP_4
IDE_5	BTFSC	PORTA,2
	GOTO	IDE_5
	GOTO	FŐPROGRAM
STEP_4	CALL	INTER
	MOVLW	B'1000'
	MOVWF	PORTB
	CALL	IDŐ
	BTFSS	PORTA,2
	GOTO	VEZÉRLŐ
IDE_6	BTFSC	PORTA,2
	GOTO	IDE_6
	GOTO	FŐPROGRAM
;----------------
VEZÉRLŐ_2
STEP_5	CALL	INTER_2
	MOVLW	B'1000'
	MOVWF	PORTB
	CALL	IDŐ
	BTFSS	PORTA,2
	GOTO	STEP_6
IDE_7	BTFSC	PORTA,2
	GOTO	IDE_7
	GOTO	FŐPROGRAM
STEP_6	CALL	INTER_2
	MOVLW	B'0100'
	MOVWF	PORTB
	CALL	IDŐ
	BTFSS	PORTA,2
	GOTO	STEP_7
IDE_8	BTFSC	PORTA,2
	GOTO	IDE_8
	GOTO	FŐPROGRAM
STEP_7	CALL	INTER_2
	MOVLW	B'0010'
	MOVWF	PORTB
	CALL	IDŐ
	BTFSS	PORTA,2
	GOTO	STEP_8
IDE_9	BTFSC	PORTA,2
	GOTO	IDE_9
	GOTO	FŐPROGRAM
STEP_8	CALL	INTER_2
	MOVLW	B'0001'
	MOVWF	PORTB
	CALL	IDŐ
	BTFSS	PORTA,2
	GOTO	VEZÉRLŐ_2
IDE_10	BTFSC	PORTA,2
	GOTO	IDE_10
	GOTO	FŐPROGRAM
;----------------
IDŐ
	MOVLW	D'50'
	MOVWF	A
X	DECFSZ	A,F
	GOTO	X
	RETURN
;----------------
INTER
	BTFSS	PORTA,1
	RETURN
ZZZ1	BTFSC	PORTA,1
	GOTO	ZZZ1
	GOTO	VEZÉRLŐ_2
;------------
INTER_2
	BTFSS	PORTA,0
	RETURN
ZZZ2	BTFSC	PORTA,0
	GOTO	ZZZ2
	GOTO	VEZÉRLŐ
;------------
	END