owarray1.asm

ibutton from dallas implementation with microcontroller

;  
;  ASM code generated by mikroVirtualMachine for PIC - V. 2.0.0.0
;  Date/Time: 11.10.2004 12:19:28
;  Info: http://www.mikroelektronika.co.yu
;  
	GOTO	main
  ;--- procedure delays_delay_1us ---
delays_delay_1us:
	nop
	RETURN
	;---endproc---
  ;--- procedure delays_delay_50us ---
delays_delay_50us:
	MOVLW	16
	BCF	STATUS,RP1
	BCF	STATUS,RP0
	MOVWF	STACK_0
	DECFSZ	STACK_0,F
	GOTO	$-1
	nop
	RETURN
	;---endproc---
  ;--- procedure delays_delay_5500us ---
delays_delay_5500us:
	MOVLW	8
	BCF	STATUS,RP1
	BCF	STATUS,RP0
	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	30
	MOVWF	STACK_0
	DECFSZ	STACK_0,F
	GOTO	$-1
	RETURN
	;---endproc---
  ;--- procedure lcd_lcd_cmd ---
lcd_lcd_cmd:
	BCF	STATUS,RP1
	BCF	STATUS,RP0
	MOVF	lcd_main_global_portaddress,W
	BCF	STATUS,IRP
	MOVWF	FSR
	MOVF	lcd_lcd_cmd_param_out_char,W
	MOVWF	lcd_lcd_cmd_param_out_char
	CLRF INDF
	BTFSC lcd_lcd_cmd_param_out_char,7
	BSF INDF,___DB7
	BTFSC lcd_lcd_cmd_param_out_char,6
	BSF INDF,___DB6
	BTFSC lcd_lcd_cmd_param_out_char,5
	BSF INDF,___DB5
	BTFSC lcd_lcd_cmd_param_out_char,4
	BSF INDF,___DB4
	MOVLW	1
	SUBWF	lcd_main_global_cmd,W
	BTFSS	STATUS,Z
	GOTO	L_lcd_1
	L_lcd_0:
	BCF INDF,___RS
	GOTO	L_lcd_2
	L_lcd_1:
	BSF INDF,___RS
	L_lcd_2:
	BSF INDF,___ENABLE
	CALL	delays_delay_1us
	BCF INDF,___ENABLE
	CLRF INDF
	BTFSC lcd_lcd_cmd_param_out_char,3
	BSF INDF,___DB7
	BTFSC lcd_lcd_cmd_param_out_char,2
	BSF INDF,___DB6
	BTFSC lcd_lcd_cmd_param_out_char,1
	BSF INDF,___DB5
	BTFSC lcd_lcd_cmd_param_out_char,0
	BSF INDF,___DB4
	MOVLW	1
	SUBWF	lcd_main_global_cmd,W
	BTFSS	STATUS,Z
	GOTO	L_lcd_5
	L_lcd_4:
	BCF INDF,___RS
	GOTO	L_lcd_6
	L_lcd_5:
	BSF INDF,___RS
	L_lcd_6:
	BSF INDF,___ENABLE
	CALL	delays_delay_1us
	BCF INDF,___ENABLE
	MOVLW	1
	SUBWF	lcd_main_global_cmd,W
	BTFSS	STATUS,Z
	GOTO	L_lcd_9
	L_lcd_8:
	CALL	delays_delay_5500us
	GOTO	L_lcd_10
	L_lcd_9:
	CALL	delays_delay_50us
	L_lcd_10:
	RETURN
	;---endproc---
  ;--- procedure delays_delay_500us ---
delays_delay_500us:
	MOVLW	165
	BCF	STATUS,RP1
	BCF	STATUS,RP0
	MOVWF	STACK_0
	DECFSZ	STACK_0,F
	GOTO	$-1
	nop
	nop
	RETURN
	;---endproc---
  ;--- procedure delays_delay_80us ---
delays_delay_80us:
	MOVLW	25
	BCF	STATUS,RP1
	BCF	STATUS,RP0
	MOVWF	STACK_0
	DECFSZ	STACK_0,F
	GOTO	$-1
	nop
	nop
	RETURN
	;---endproc---
  ;--- procedure delays_delay_8ms ---
delays_delay_8ms:
	MOVLW	11
	BCF	STATUS,RP1
	BCF	STATUS,RP0
	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	91
	MOVWF	STACK_0
	DECFSZ	STACK_0,F
	GOTO	$-1
	nop
	RETURN
	;---endproc---
  ;--- procedure lcd_lcd_chr ---
lcd_lcd_chr:
	MOVLW	1
	BCF	STATUS,RP1
	BCF	STATUS,RP0
	SUBWF	lcd_lcd_chr_param_row,W
	BTFSS	STATUS,Z
	GOTO	L_lcd_13
	MOVLW	128
	MOVWF	lcd_lcd_chr_param_row
	GOTO	L_lcd_12
	L_lcd_13:
	MOVLW	2
	SUBWF	lcd_lcd_chr_param_row,W
	BTFSS	STATUS,Z
	GOTO	L_lcd_14
	MOVLW	192
	MOVWF	lcd_lcd_chr_param_row
	GOTO	L_lcd_12
	L_lcd_14:
	MOVLW	3
	SUBWF	lcd_lcd_chr_param_row,W
	BTFSS	STATUS,Z
	GOTO	L_lcd_15
	MOVLW	148
	MOVWF	lcd_lcd_chr_param_row
	GOTO	L_lcd_12
	L_lcd_15:
	MOVLW	4
	SUBWF	lcd_lcd_chr_param_row,W
	BTFSS	STATUS,Z
	GOTO	L_lcd_16
	MOVLW	212
	MOVWF	lcd_lcd_chr_param_row
	GOTO	L_lcd_12
	L_lcd_16:
	MOVLW	128
	MOVWF	lcd_lcd_chr_param_row
	L_lcd_12:
	MOVF	lcd_lcd_chr_param_column,W
	ADDWF	lcd_lcd_chr_param_row,W
	MOVWF	STACK_0
	MOVLW	1
	SUBWF	STACK_0,F
	MOVF	STACK_0,W
	MOVWF	lcd_lcd_chr_param_row
	MOVLW	1
	MOVWF	lcd_main_global_cmd
	MOVF	lcd_lcd_chr_param_row,W
	MOVWF	lcd_lcd_cmd_param_out_char
	CALL	lcd_lcd_cmd
	CLRF	lcd_main_global_cmd
	MOVF	lcd_lcd_chr_param_out_char,W
	MOVWF	lcd_lcd_cmd_param_out_char
	CALL	lcd_lcd_cmd
	MOVLW	1
	MOVWF	lcd_main_global_cmd
	RETURN
	;---endproc---
  ;--- function owlib_ow_read ---
owlib_ow_read:
	BCF	STATUS,RP1
	BCF	STATUS,RP0
	CLRF	owlib_ow_read_result
	MOVLW	1
	MOVWF	owlib_ow_read_local_tet
	MOVF	owlib_ow_read_param_pin,W
	MOVWF	STACK_0
	L_owlib_4:
	MOVF	STACK_0,W
	BTFSC	STATUS,Z
	GOTO	L_owlib_5
	RLF	owlib_ow_read_local_tet,F
	BCF	owlib_ow_read_local_tet,0
	DECFSZ	STACK_0,F
	GOTO	L_owlib_4
	L_owlib_5:
	CLRF	owlib_ow_read_local_i
	L_owlib_6:
	MOVLW	7
	MOVWF	STACK_0
	MOVF	owlib_ow_read_local_i,W
	SUBWF	STACK_0,W
	BTFSS	STATUS,C
	GOTO	L_owlib_7
	MOVF	owlib_ow_read_param_port,W
	MOVWF	FSR
	MOVLW	254
	MOVWF	STACK_1
	MOVF	owlib_ow_read_param_pin,W
	MOVWF	STACK_2
	BTFSC	STATUS,Z
	GOTO	$+5
	RLF	STACK_1,F
	BSF	STACK_1,0
	DECFSZ	STACK_2,F
	GOTO	$-5
	MOVF	STACK_1,W
	ANDWF	INDF,F
	bsf fsr,7
	COMF	owlib_ow_read_local_tet,W
	ANDWF	INDF,W
	MOVWF	INDF
	CALL	delays_delay_1us
	BCF	STATUS,RP1
	BCF	STATUS,RP0
	MOVF	owlib_ow_read_local_tet,W
	IORWF	INDF,W
	MOVWF	INDF
	bcf fsr,7
	CALL	delays_delay_1us
	BCF	STATUS,RP1
	BCF	STATUS,RP0
	MOVF	owlib_ow_read_local_tet,W
	ANDWF	INDF,W
	MOVWF	owlib_ow_read_local_j
	MOVLW	0
	SUBWF	owlib_ow_read_local_j,W
	BTFSC	STATUS,Z
	GOTO	L_owlib_10
	L_owlib_9:
	MOVLW	1
	BCF	STATUS,RP1
	BCF	STATUS,RP0
	MOVWF	owlib_ow_read_local_ma
	MOVF	owlib_ow_read_local_i,W
	MOVWF	STACK_2
	L_owlib_13:
	BCF	STATUS,RP1
	BCF	STATUS,RP0
	MOVF	STACK_2,W
	BTFSC	STATUS,Z
	GOTO	L_owlib_14
	RLF	owlib_ow_read_local_ma,F
	BCF	owlib_ow_read_local_ma,0
	DECFSZ	STACK_2,F
	GOTO	L_owlib_13
	L_owlib_14:
	BCF	STATUS,RP1
	BCF	STATUS,RP0
	MOVF	owlib_ow_read_local_ma,W
	IORWF	owlib_ow_read_result,W
	MOVWF	owlib_ow_read_result
	GOTO	L_owlib_11
	L_owlib_10:
	L_owlib_11:
	CALL	delays_delay_50us
	CALL	delays_delay_50us
	L_owlib_8:
	CLRF	STACK_1
	INCF	STACK_1,F
	MOVF	owlib_ow_read_local_i,W
	ADDWF	STACK_1,W
	MOVWF	owlib_ow_read_local_i
	GOTO	L_owlib_6
	L_owlib_7:
	RETURN
	;---endproc---
  ;--- procedure lcd_lcd_init ---
lcd_lcd_init:
	CALL	delays_delay_5500us
	CALL	delays_delay_5500us
	CALL	delays_delay_5500us
	BCF	STATUS,RP1
	BCF	STATUS,RP0
	MOVF	lcd_lcd_init_param_port,W
	MOVWF	FSR
	MOVLW	0
	MOVWF	INDF
	MOVF   lcd_lcd_init_param_port,w
	MOVWF  lcd_main_global_portaddress
	MOVWF  FSR
	BSF    FSR,7
	CLRF   INDF
	BCF    FSR,7
	CALL	delays_delay_8ms
	BSF	INDF,___DB5
	BSF	INDF,___DB4
	BSF	INDF,___ENABLE
	CALL	delays_delay_1us
	BCF	INDF,___ENABLE
	CALL	delays_delay_8ms
	BSF	INDF,___DB5
	BSF	INDF,___DB4
	BSF	INDF,___ENABLE
	CALL	delays_delay_1us
	BCF	INDF,___ENABLE
	CALL	delays_delay_50us
	CALL	delays_delay_50us
	BSF	INDF,___DB5
	BSF	INDF,___DB4
	BSF	INDF,___ENABLE
	CALL	delays_delay_1us
	BCF	INDF,___ENABLE
	CALL	delays_delay_8ms
	BSF	INDF,___DB5
	BCF	INDF,___DB4
	BSF	INDF,___ENABLE
	CALL	delays_delay_1us
	BCF	INDF,___ENABLE
	CALL	delays_delay_50us
	BSF	INDF,___DB5
	BCF	INDF,___DB4
	BSF	INDF,___ENABLE
	CALL	delays_delay_1us
	BCF	INDF,___ENABLE
	BSF	INDF,___DB7
	BCF	INDF,___DB6
	BSF	INDF,___ENABLE
	CALL	delays_delay_1us
	BCF	INDF,___ENABLE
	CALL	delays_delay_50us
	MOVLW	0
	MOVWF	INDF
	BSF	INDF,___ENABLE
	CALL	delays_delay_1us
	BCF	INDF,___ENABLE
	BSF	INDF,___DB7
	BSF	INDF,___DB6
	BSF	INDF,___DB5
	BSF	INDF,___DB4
	BSF	INDF,___ENABLE
	CALL	delays_delay_1us
	BCF	INDF,___ENABLE
	CALL	delays_delay_50us
	MOVLW	0
	MOVWF	INDF
	BSF	INDF,___ENABLE
	CALL	delays_delay_1us
	BCF	INDF,___ENABLE
	BSF	INDF,___DB4
	BSF	INDF,___ENABLE
	CALL	delays_delay_1us
	BCF	INDF,___ENABLE
	CALL	delays_delay_8ms
	MOVLW	0
	MOVWF	INDF
	BSF	INDF,___ENABLE
	CALL	delays_delay_1us
	BCF	INDF,___ENABLE
	BSF	INDF,___DB6
	BSF	INDF,___DB5
	BSF	INDF,___ENABLE
	CALL	delays_delay_1us
	BCF	INDF,___ENABLE
	CALL	delays_delay_50us
	MOVLW	1
	MOVWF	lcd_main_global_cmd
	RETURN
	;---endproc---
  ;--- procedure lcd_lcd_out ---
lcd_lcd_out:
	MOVLW	1
	BCF	STATUS,RP1
	BCF	STATUS,RP0
	SUBWF	lcd_lcd_out_param_row,W
	BTFSS	STATUS,Z
	GOTO	L_lcd_21
	MOVLW	128
	MOVWF	lcd_lcd_out_param_row
	GOTO	L_lcd_20
	L_lcd_21:
	MOVLW	2
	SUBWF	lcd_lcd_out_param_row,W
	BTFSS	STATUS,Z
	GOTO	L_lcd_22
	MOVLW	192
	MOVWF	lcd_lcd_out_param_row
	GOTO	L_lcd_20
	L_lcd_22:
	MOVLW	3
	SUBWF	lcd_lcd_out_param_row,W
	BTFSS	STATUS,Z
	GOTO	L_lcd_23
	MOVLW	148
	MOVWF	lcd_lcd_out_param_row
	GOTO	L_lcd_20
	L_lcd_23:
	MOVLW	4
	SUBWF	lcd_lcd_out_param_row,W
	BTFSS	STATUS,Z
	GOTO	L_lcd_24
	MOVLW	212
	MOVWF	lcd_lcd_out_param_row
	GOTO	L_lcd_20
	L_lcd_24:
	MOVLW	128
	MOVWF	lcd_lcd_out_param_row
	L_lcd_20:
	MOVF	lcd_lcd_out_param_column,W
	ADDWF	lcd_lcd_out_param_row,W
	MOVWF	STACK_0
	MOVLW	1
	SUBWF	STACK_0,F
	MOVF	STACK_0,W
	MOVWF	lcd_lcd_out_param_row
	MOVF	lcd_lcd_out_param_row,W
	MOVWF	lcd_lcd_cmd_param_out_char
	CALL	lcd_lcd_cmd
	CLRF	lcd_main_global_cmd
	MOVLW	1
	MOVWF	lcd_lcd_out_local_i
	L_lcd_25:
	MOVF	lcd_lcd_out_param_text,W
	MOVWF	FSR
	MOVF	INDF,W
	MOVWF	STACK_1
	MOVF	lcd_lcd_out_local_i,W
	SUBWF	STACK_1,W
	BTFSS	STATUS,C
	GOTO	L_lcd_26
	MOVF	lcd_lcd_out_param_text,W
	MOVWF	FSR
	MOVF	lcd_lcd_out_local_i,W
	ADDWF	FSR,F
	MOVF	INDF,W
	MOVWF	lcd_lcd_cmd_param_out_char
	CALL	lcd_lcd_cmd
	L_lcd_27:
	CLRF	STACK_2
	INCF	STACK_2,F
	MOVF	lcd_lcd_out_local_i,W
	ADDWF	STACK_2,W
	MOVWF	lcd_lcd_out_local_i
	GOTO	L_lcd_25
	L_lcd_26:
	MOVLW	1
	MOVWF	lcd_main_global_cmd
	RETURN
	;---endproc---
  ;--- procedure OwArray_int2hex ---
OwArray_int2hex:
	MOVLW	240
	BCF	STATUS,RP1
	BCF	STATUS,RP0
	ANDWF	OwArray_int2hex_param_number,W
	MOVWF	OwArray_int2hex_local_high
	MOVLW	4
	MOVWF	STACK_0
	L_OwArray_0:
	MOVF	STACK_0,W
	BTFSC	STATUS,Z
	GOTO	L_OwArray_1
	RRF	OwArray_int2hex_local_high,F
	BCF	OwArray_int2hex_local_high,7
	DECFSZ	STACK_0,F
	GOTO	L_OwArray_0
	L_OwArray_1:
	MOVLW	48
	ADDWF	OwArray_int2hex_local_high,W
	MOVWF	OwArray_int2hex_local_high
	MOVF	OwArray_int2hex_local_high,W
	SUBLW	57
	BTFSC	STATUS,C
	GOTO	L_OwArray_3
	L_OwArray_2:
	MOVLW	7
	ADDWF	OwArray_int2hex_local_high,W
	MOVWF	OwArray_int2hex_local_high
	GOTO	L_OwArray_4
	L_OwArray_3:
	L_OwArray_4:
	MOVLW	15
	ANDWF	OwArray_int2hex_param_number,W
	MOVWF	OwArray_int2hex_local_low