;  
;  ASM code generated by mikroVirtualMachine for PIC - V. 2.0.0.0
;  Date/Time: 2/10/2004 12:31:25 AM
;  Info: http://www.mikroelektronika.co.yu
;  
	GOTO	main
  ;--- procedure CW_Ident_space ---
CW_Ident_space:
	BCF	STATUS,RP1
	BCF	STATUS,RP0
	BCF	portb,0
	MOVLW	195
	MOVWF	STACK_0
	MOVLW	255
	MOVWF	STACK_1
	DECFSZ	STACK_0,F
	GOTO	$+2
	GOTO	$+4
	DECFSZ	STACK_1,F
	GOTO	$-1
	GOTO	$-5
	MOVLW	75
	MOVWF	STACK_0
	DECFSZ	STACK_0,F
	GOTO	$-1
	nop
	RETURN
	;---endproc---
  ;--- procedure CW_Ident_chspace ---
CW_Ident_chspace:
	BCF	STATUS,RP1
	BCF	STATUS,RP0
	BCF	portb,0
	MOVLW	3
	MOVWF	STACK_0
	MOVLW	255
	MOVWF	STACK_1
	MOVLW	255
	MOVWF	STACK_2
	DECFSZ	STACK_0,F
	GOTO	$+2
	GOTO	$+8
	DECFSZ	STACK_1,F
	GOTO	$+2
	GOTO	$+4
	DECFSZ	STACK_2,F
	GOTO	$-1
	GOTO	$-5
	GOTO	$-9
	MOVLW	75
	MOVWF	STACK_0
	MOVLW	255
	MOVWF	STACK_1
	DECFSZ	STACK_0,F
	GOTO	$+2
	GOTO	$+4
	DECFSZ	STACK_1,F
	GOTO	$-1
	GOTO	$-5
	MOVLW	221
	MOVWF	STACK_0
	DECFSZ	STACK_0,F
	GOTO	$-1
	nop
	RETURN
	;---endproc---
  ;--- procedure CW_Ident_dah ---
CW_Ident_dah:
	BCF	STATUS,RP1
	BCF	STATUS,RP0
	BSF	portb,0
	MOVLW	3
	MOVWF	STACK_0
	MOVLW	255
	MOVWF	STACK_1
	MOVLW	255
	MOVWF	STACK_2
	DECFSZ	STACK_0,F
	GOTO	$+2
	GOTO	$+8
	DECFSZ	STACK_1,F
	GOTO	$+2
	GOTO	$+4
	DECFSZ	STACK_2,F
	GOTO	$-1
	GOTO	$-5
	GOTO	$-9
	MOVLW	75
	MOVWF	STACK_0
	MOVLW	255
	MOVWF	STACK_1
	DECFSZ	STACK_0,F
	GOTO	$+2
	GOTO	$+4
	DECFSZ	STACK_1,F
	GOTO	$-1
	GOTO	$-5
	MOVLW	221
	MOVWF	STACK_0
	DECFSZ	STACK_0,F
	GOTO	$-1
	nop
	BCF	portb,0
	CALL	CW_Ident_space
	RETURN
	;---endproc---
  ;--- procedure CW_Ident_dit ---
CW_Ident_dit:
	BCF	STATUS,RP1
	BCF	STATUS,RP0
	BSF	portb,0
	MOVLW	195
	MOVWF	STACK_0
	MOVLW	255
	MOVWF	STACK_1
	DECFSZ	STACK_0,F
	GOTO	$+2
	GOTO	$+4
	DECFSZ	STACK_1,F
	GOTO	$-1
	GOTO	$-5
	MOVLW	75
	MOVWF	STACK_0
	DECFSZ	STACK_0,F
	GOTO	$-1
	nop
	BCF	portb,0
	CALL	CW_Ident_space
	RETURN
	;---endproc---
  ;--- procedure CW_Ident_alpha ---
CW_Ident_alpha:
	CALL	CW_Ident_dit
	CALL	CW_Ident_dah
	CALL	CW_Ident_chspace
	RETURN
	;---endproc---
  ;--- procedure CW_Ident_echo ---
CW_Ident_echo:
	CALL	CW_Ident_dit
	CALL	CW_Ident_chspace
	RETURN
	;---endproc---
  ;--- procedure CW_Ident_hotel ---
CW_Ident_hotel:
	CALL	CW_Ident_dit
	CALL	CW_Ident_dit
	CALL	CW_Ident_dit
	CALL	CW_Ident_dit
	CALL	CW_Ident_chspace
	RETURN
	;---endproc---
  ;--- procedure CW_Ident_kilo ---
CW_Ident_kilo:
	CALL	CW_Ident_dah
	CALL	CW_Ident_dit
	CALL	CW_Ident_dah
	CALL	CW_Ident_chspace
	RETURN
	;---endproc---
  ;--- procedure CW_Ident_long_space ---
CW_Ident_long_space:
	BCF	STATUS,RP1
	BCF	STATUS,RP0
	BCF	portb,0
	MOVLW	6
	MOVWF	STACK_0
	MOVLW	255
	MOVWF	STACK_1
	MOVLW	255
	MOVWF	STACK_2
	DECFSZ	STACK_0,F
	GOTO	$+2
	GOTO	$+8
	DECFSZ	STACK_1,F
	GOTO	$+2
	GOTO	$+4
	DECFSZ	STACK_2,F
	GOTO	$-1
	GOTO	$-5
	GOTO	$-9
	MOVLW	91
	MOVWF	STACK_0
	MOVLW	255
	MOVWF	STACK_1
	DECFSZ	STACK_0,F
	GOTO	$+2
	GOTO	$+4
	DECFSZ	STACK_1,F
	GOTO	$-1
	GOTO	$-5
	MOVLW	6
	MOVWF	STACK_0
	DECFSZ	STACK_0,F
	GOTO	$-1
	RETURN
	;---endproc---
  ;--- procedure CW_Ident_long_tone ---
CW_Ident_long_tone:
	BCF	STATUS,RP1
	BCF	STATUS,RP0
	BSF	portb,0
	MOVLW	51
	MOVWF	STACK_0
	MOVLW	255
	MOVWF	STACK_1
	MOVLW	255
	MOVWF	STACK_2
	DECFSZ	STACK_0,F
	GOTO	$+2
	GOTO	$+8
	DECFSZ	STACK_1,F
	GOTO	$+2
	GOTO	$+4
	DECFSZ	STACK_2,F
	GOTO	$-1
	GOTO	$-5
	GOTO	$-9
	MOVLW	253
	MOVWF	STACK_0
	MOVLW	255
	MOVWF	STACK_1
	DECFSZ	STACK_0,F
	GOTO	$+2
	GOTO	$+4
	DECFSZ	STACK_1,F
	GOTO	$-1
	GOTO	$-5
	MOVLW	181
	MOVWF	STACK_0
	DECFSZ	STACK_0,F
	GOTO	$-1
	nop
	BCF	portb,0
	RETURN
	;---endproc---
  ;--- procedure CW_Ident_papa ---
CW_Ident_papa:
	CALL	CW_Ident_dit
	CALL	CW_Ident_dah
	CALL	CW_Ident_dah
	CALL	CW_Ident_dit
	CALL	CW_Ident_chspace
	RETURN
	;---endproc---
  ;--- procedure CW_Ident_romeo ---
CW_Ident_romeo:
	CALL	CW_Ident_dit
	CALL	CW_Ident_dah
	CALL	CW_Ident_dit
	CALL	CW_Ident_chspace
	RETURN
	;---endproc---
  ;--- procedure CW_Ident_six ---
CW_Ident_six:
	CALL	CW_Ident_dah
	CALL	CW_Ident_dit
	CALL	CW_Ident_dit
	CALL	CW_Ident_dit
	CALL	CW_Ident_dit
	CALL	CW_Ident_chspace
	RETURN
	;---endproc---
  ;--- procedure CW_Ident_tango ---
CW_Ident_tango:
	CALL	CW_Ident_dah
	CALL	CW_Ident_chspace
	RETURN
	;---endproc---
  ;--- procedure CW_Ident_victor ---
CW_Ident_victor:
	CALL	CW_Ident_dit
	CALL	CW_Ident_dit
	CALL	CW_Ident_dit
	CALL	CW_Ident_dah
	CALL	CW_Ident_chspace
	RETURN
	;---endproc---
  ;--- procedure CW_Ident_whiskey ---
CW_Ident_whiskey:
	CALL	CW_Ident_dit
	CALL	CW_Ident_dah
	CALL	CW_Ident_dah
	CALL	CW_Ident_chspace
	RETURN
	;---endproc---
  ;--- procedure CW_Ident_do_cw_id ---
CW_Ident_do_cw_id:
	BCF	STATUS,RP1
	BCF	STATUS,RP0
	BSF	portb,1
	CALL	CW_Ident_long_tone
	CALL	CW_Ident_long_space
	CALL	CW_Ident_victor
	CALL	CW_Ident_kilo
	CALL	CW_Ident_six
	CALL	CW_Ident_romeo
	CALL	CW_Ident_whiskey
	CALL	CW_Ident_alpha
	CALL	CW_Ident_long_space
	CALL	CW_Ident_long_tone
	CALL	CW_Ident_long_space
	CALL	CW_Ident_papa
	CALL	CW_Ident_echo
	CALL	CW_Ident_romeo
	CALL	CW_Ident_tango
	CALL	CW_Ident_hotel
	CALL	CW_Ident_long_space
	BCF	portb,1
	RETURN
	;---endproc---
  ;--- procedure CW_Ident_initialise_program ---
CW_Ident_initialise_program:
	BCF	STATUS,RP1
	BCF	STATUS,RP0
	CLRF	PORTA
	MOVLW	255
	BSF	STATUS,RP0
	MOVWF	TRISA
	CLRF	TRISB
	BCF	STATUS,RP0
	CLRF	PORTB
	RETURN
	;---endproc---
  ;--- procedure main ---
main:
	CALL	CW_Ident_initialise_program
	L_CW_Ident_0:
	BCF	STATUS,RP1
	BCF	STATUS,RP0
	CLRF	STACK_1
	BTFSC	porta,3
	INCF	STACK_1,F
	MOVLW	0
	SUBWF	STACK_1,W
	BTFSS	STATUS,Z
	GOTO	L_CW_Ident_3
	L_CW_Ident_2:
	CALL	CW_Ident_do_cw_id
	GOTO	L_CW_Ident_4
	L_CW_Ident_3:
	BCF	portb,1
	L_CW_Ident_4:
	GOTO	L_CW_Ident_0
	L_CW_Ident_1:
	GOTO	$
	;---endproc---