rele-spinac.asm

	list      p=10F200
	#include <p10F200.inc>
	__config   0xFEB
	ORG     0xFF             ; processor reset vector

	ORG     0x000             ; coding begins here
	movwf   OSCCAL            ; update register with factory cal value

	movlw	b'10000000'
	option

;DEFINICIA PREMENYCH

TMP0	EQU     0x10        ;casovac0
TMP1	EQU     0x11        ;casovac1
TMP2	EQU     0x12        ;pocitadlo

;DEFINICIA PORTOV

movlw	b'11111001'
tris	GPIO

#define tl1	GPIO,0
#define out1	GPIO,1
#define out2	GPIO,2
#define tl2	GPIO,3

;HLAVNY PROGRAM

	bcf	out1
	bcf	out2

hlavny	btfss	tl1
	goto	zktl1
	btfss	tl2
	goto	zktl2
	goto	hlavni

zktl1	btfss	out1
	goto	tl1on
	goto	tl1off

zktl2	btfss	out2
	goto	tl2on
	goto	tl2off

tl1on	movlw	d'20'
	movwf	TMP2
vrat2	call	zp1
	btfsc	tl1
	goto	hlavni
	decfsz	TMP2,f
	goto	vrat2
	bsf	out1
vrat3	btfss	tl1
	goto	vrat3
	movlw	d'25'
	movwf	TMP2
	call	zp1
	decfsz	TMP2
	goto	$-2
	goto	hlavni

tl1off	movlw	d'20'
	movwf	TMP2
vrat5	call	zp1
	btfsc	tl1
	goto	hlavni
	decfsz	TMP2,f
	goto	vrat5
	bcf	out1
vrat6	btfss	tl1
	goto	vrat6
	movlw	d'25'
	movwf	TMP2
	call	zp1
	decfsz	TMP2
	goto	$-2
	goto	hlavni

tl2on	movlw	d'20'
	movwf	TMP2
vrat7	call	zp1
	btfsc	tl2
	goto	hlavni
	decfsz	TMP2,f
	goto	vrat7
	bsf	out2
vrat8	btfss	tl2
	goto	vrat8
	movlw	d'25'
	movwf	TMP2
	call	zp1
	decfsz	TMP2
	goto	$-2
	goto	hlavni

tl2off	movlw	d'20'
	movwf	TMP2
vrat9	call	zp1
	btfsc	tl2
	goto	hlavni
	decfsz	TMP2,f
	goto	vrat9
	bcf	out2
vrat10	btfss	tl2
	goto	vrat10
	movlw	d'25'
	movwf	TMP2
	call	zp1
	decfsz	TMP2
	goto	$-2
	goto	hlavni

zp1	movlw	d'27'
	movwf	TMP1
	movlw	d'11'
	movwf	TMP0
	decfsz	TMP0,f
	goto	$-1
	decfsz	TMP1,f
	goto	$-5
	return

END