Transmission	macro

	;	DEVICE CODE	###
Device.code
	

;	Device done?	;	Device done?	
	btfsc	flag,1			
	goto	Command.code
	movfw	tmr.period		
	subwf	TMR0,w
	skpnc
	bsf		shift,0
	skpc
	bcf		shift,0	
	rrf		shift,f
	rrf		dev,f
	incf		bit,f
	movlw	.4
	subwf	bit,w
	skpz
	goto	Load.Escape

; Device complete!!	; Device complete!!	
	clrf		bit
	bsf		flag,1
	goto	Load.Escape

	;	COMMAND	CODE	###
Command.code
	btfsc	flag,2
	goto	Command2.code
	movfw	tmr.period		
	subwf	TMR0,w
	skpnc
	bsf		shift,0
	skpc
	bcf		shift,0
	rrf		shift,f
	rrf		com,f
	incf		bit,f
	movlw	.8
	subwf	bit,w
	skpz
	goto	Load.Escape

; Com complete!!		; Com complete!!		
	clrf		bit
	bsf		flag,2
	goto	Load.Escape

	;	COMMAND2 CODE	###
Command2.code
	btfsc	flag,3
	goto	Extreme.code
	movfw	tmr.period		
	subwf	TMR0,w
	skpnc
	bsf		shift,0
	skpc
	bcf		shift,0
	rrf		shift,f
	rrf		com2,f
	incf		bit,f
	movlw	.8
	subwf	bit,w
	skpz
	goto	Load.Escape

; Com2 complete!!		; Com2 complete!!	
	clrf		bit
	bsf		flag,3
	goto	Load.Escape

	;	EXTREME CODE	###
Extreme.code
	btfsc	flag,4
	goto	Error.code
	movfw	tmr.period		
	subwf	TMR0,w
	skpnc
	bsf		shift,0
	skpc
	bcf		shift,0
	rrf		shift,f
	rrf		extr,f
	incf		bit,f
	movlw	.8
	subwf	bit,w
	skpz
	goto	Load.Escape

; Extreme complete ; Extreme complete 		
	clrf		bit
	bsf		flag,4
	goto	Load.Escape


	;	ERROR CODE	####
Error.code
	btfsc	flag,5
	goto	Done
	movfw	tmr.period		
	subwf	TMR0,w
	skpnc
	bsf		shift,0
	skpc
	bcf		shift,0
	rrf		shift,f
	rrf		err,f
	incf		bit,f
	movlw	.4
	subwf	bit,w
	skpz
	goto	Load.Escape

; Error complete 	; Error complete 		

	clrf		bit
	bsf		flag,5
	goto	Load.Escape


	endm