org	0x04
	
		bcf		INTCON,T0IF
	movf	cnt0, W
	sublw	0x03			; W = CONST-A
	btfss	STATUS, Z		; Check if zero
	goto	case2			; Z=0, A!=0, false cond'n
	bsf		PORTB,0		;data
	nop
	bsf		PORTB,1		;clck
	bcf		PORTB,0
	nop
	bcf		PORTB,1
	movlw	szaz
	movwf	PORTB
	decf	cnt0,f
	goto	IB
	
case2:
	bcf		STATUS, Z
	bcf		STATUS, 0
	bcf		STATUS,1
	movfw	cnt0
	nop
	sublw	0x02			; W = CONST-A
	btfsc	STATUS, Z		; Check if zero
	goto	case3			; Z=0, A!=0, false cond'n
	bsf		PORTB,1		;clck
	Dlay	100
	bcf		PORTB,1
	movf	cnt0, W
	movlw	tiz
	movwf	PORTB
	decf	cnt0,f
	goto	IB
case3:
	bsf		PORTB,1		;clck
	Dlay	100
	bcf		PORTB,1
	movf	cnt0, W
	movlw	egy
	movwf	PORTB
	movlw	d'3'
	movwf	cnt0
	goto	IB
	
IB:	bcf		INTCON,T0IF
	movlw	d'100'
	movwf	TMR0
	bsf		INTCON,T0IE
	retfie