0,0 → 1,85 |
#include 16C84.INC |
|
org 0 |
|
goto Start |
;-------------------- |
org 4 |
;-------------------- |
|
Start: |
page1 |
movlw 00000000B ; inicializace citace a prescaleru |
movwf TMR0 |
movlw 00000000B ; konfigurace preruseni |
movwf INTCON |
|
page0 ; inicializace portu |
movlw 0 |
movwf PORTA |
movwf PORTB |
|
page1 |
movlw 11110111B ; nastaveni portu na vstup nebo vystup |
movwf PORTA ; 1=vstup 0=vystup |
movlw 11110001B |
movwf PORTB |
|
bsf TMR0, 7 ; vypni pull-up na PORTB (OPTION registr) |
|
page0 |
|
clrw ; vynulovani portu |
movwf PORTA |
movwf PORTB |
|
bsf PORTA, 3 ; Pull-Up na tlacitka |
|
bcf PORTB, 1 ; zhasnuti LED |
bcf PORTB, 2 |
bcf PORTB, 3 |
|
MainLoop: |
|
movlw 10 ; 10 ms |
movwf DELAY1 |
call delay1ms |
|
bsf PORTB, 3 ; ON |
|
movlw 100 ; 100 * 5us = 0,5 ms |
|
btfss PORTA, 1 ; Test TL1 |
movlw 200 ; 200 * 5us = 1 ms |
|
btfss PORTB, 6 ; Test TL2 |
movlw 1 ; 1 * 5us = 0,005 ms |
|
movwf DELAY5 |
call delay5us |
|
movlw 1 ; 1 ms |
movwf DELAY1 |
call delay1ms |
|
bcf PORTB, 3 ; OFF |
|
goto MainLoop |
|
bcf PORTB, 2 ; zhasnuti LED |
bcf PORTB, 1 |
|
btfss PORTA, 1 ; Test TL1 |
bsf PORTB, 2 ; rozsviceni LED2 |
|
btfss PORTB, 6 ; Test TL2 |
bsf PORTB, 1 ; rozsviceni LED2 |
|
goto MainLoop |
;--------------- |
|
|
#include SERVO.INC |
#include DELAY.INC |
|
end |