; Program 1820_1.asm
;
; Performs temperature measurment.  No addressing.
;
; 16C84				                     DS1820		
; PortB.0 (term 6) ------------------------------ DQ (term 2)
;
; PORTA, Bit 1 (terminal 18) ------ TX ----------> to RX on Serial LCD
;
; Note that LCD_CTRL is included near the end of this program.
;
; copyright, H. Paul Roach, MSU, 15 July, '97
	
	LIST p=16c84
#include <c:\mplab\p16c84.inc>	
	__CONFIG 11h

	CONSTANT DATA_PIN=0

	CONSTANT BASE_VAR=0C

	CONSTANT DATA_BUFF=18H
	CONSTANT BUFF_SIZE=7


N		EQU BASE_VAR+0

_N	   	EQU BASE_VAR+1	; these vars used by the 
O_BYTE	   	EQU BASE_VAR+2	; common 1-wire routines
I_BYTE	   	EQU BASE_VAR+3
LOOP3	   	EQU BASE_VAR+4
LOOP2	   	EQU BASE_VAR+5
LOOP1	   	EQU BASE_VAR+6
TEMP	   	EQU BASE_VAR+7


TEMP_MSB	EQU DATA_BUFF+0	; first location in DATA_BUFF
TEMP_LSB	EQU DATA_BUFF+1
TH_UB1	   	EQU DATA_BUFF+2
TL_UB2	   	EQU DATA_BUFF+3
COUNT_REM	EQU DATA_BUFF+4
COUNT_D_C	EQU DATA_BUFF+5
CRC	   	EQU DATA_BUFF+6
	

		ORG 000H	        

MAIN:
 	CALL	INIT

        MOVLW	0CCH		; skip ROM
        MOVWF	O_BYTE
        CALL	OUT_BYTE

        MOVLW	44H		; perform temperature conversion
        MOVWF	O_BYTE
        CALL	OUT_BYTE

	CALL	WAIT		; wait for conversion to complete
				; wait for all ones from 1820

	CALL	INIT

	MOVLW	0CCH		; skip ROM
        MOVWF	O_BYTE
        CALL	OUT_BYTE
        
	MOVLW	0BEH		; read scratchpad
        MOVWF	O_BYTE
        CALL	OUT_BYTE

        CALL	IN_BYTE
        MOVWF   TEMP_LSB

        CALL	IN_BYTE
        MOVWF   TEMP_MSB

        CALL	IN_BYTE
        MOVWF   TH_UB1

        CALL	IN_BYTE
        MOVWF   TL_UB2

        CALL	IN_BYTE		; throw these two away
        CALL	IN_BYTE

        CALL	IN_BYTE
        MOVWF	COUNT_REM

        CALL	IN_BYTE
        MOVWF   COUNT_D_C

        CALL	IN_BYTE
        MOVWF   CRC
        
	CALL	DISPLAY		; displays the above info on LCD

	MOVLW .120		; 30 second delay (120 * 250 msecs)
	MOVWF LOOP3
MAIN_1
	CALL DELAY_LONG
	DECFSZ LOOP3, F
	GOTO MAIN_1

        GOTO	MAIN		; do it again

DISPLAY:	; display BUFF_SIZE bytes on Line 1 of serial LCD	
	CALL LCD_CLR
	CALL LCD_LINE1

	MOVLW DATA_BUFF		; now read from buffer and display
	MOVWF FSR		
	MOVLW BUFF_SIZE
	MOVWF N
DISPLAY_1:
	MOVF INDF, W		; fetch the data byte from the buffer
	CALL LCD_VAL		; display it
	MOVLW " "			
	CALL LCD_CHAR		; send two spaces
	CALL LCD_CHAR        
	INCF FSR, F
	DECFSZ N, F
	GOTO DISPLAY_1
      
	RETURN

; The following are standard 1-Wire routines.

INIT:
        CALL	PIN_HI
        CALL	PIN_LO

	MOVLW	.50              ; 500 us delay
	CALL DELAY_10USEC

	CALL	PIN_HI		  
        MOVLW 	.50		; 500 usec delay
        CALL DELAY_10USEC

        RETURN

WAIT:        
        CALL 	IN_BYTE
        MOVLW 	0FFH
        SUBWF 	I_BYTE, W
        BTFSS 	STATUS, Z
        GOTO 	WAIT
	RETURN  

IN_BYTE:              ; returns byte in W
	MOVLW	.8
	MOVWF	 _N
        CLRF	I_BYTE

IN_BYTE_1:
	CALL PIN_LO		; momentary low on DATA_PIN
        NOP
	CALL PIN_HI
	NOP
	NOP
	NOP
	NOP
	NOP
        NOP
        MOVF	PORTB, W	; 7 usecs later, fetch from DATA_PIN
	MOVWF	TEMP                                                        
	BTFSS	TEMP, DATA_PIN
	BCF STATUS, C		; its a zero
	BTFSC	TEMP, DATA_PIN
	BSF STATUS, C		; its a one

        RRF	I_BYTE, F
	MOVLW .6		; now delay 60 usecs
        CALL	DELAY_10USEC
        DECFSZ	_N, F
        GOTO	IN_BYTE_1

        MOVFW	I_BYTE		; return the result in W
        RETURN

OUT_BYTE:
	MOVLW	.8
        MOVWF	_N
OUT_BYTE_1:
	RRF	O_BYTE, F
        BTFSS	STATUS, C
	GOTO	OUT_0
	GOTO	OUT_1	
OUT_BYTE_2:
	DECFSZ	_N, F
        GOTO	OUT_BYTE_1
        RETURN

OUT_0:
	CALL	PIN_LO		; bring DATA_PIN low
	MOVLW	.6		; for 60 usecs
	CALL 	DELAY_10USEC
        CALL	PIN_HI
        GOTO	OUT_BYTE_2

OUT_1:
	CALL	PIN_LO		; momentary low
        CALL	PIN_HI
        MOVLW .6
	CALL DELAY_10USEC
        GOTO	OUT_BYTE_2

;;;;;;

PIN_HI:
	BSF	STATUS, RP0
        BSF	TRISB, DATA_PIN		; high impedance
        BCF	STATUS, RP0
        
        RETURN

PIN_LO:
	BCF	PORTB, DATA_PIN
	BSF	STATUS, RP0
        BCF	TRISB, DATA_PIN		; low impedance zero
        BCF	STATUS, RP0
        
        RETURN

DELAY_LONG
	MOVLW .250	; 250 msec delay
	MOVWF LOOP1
DELAY_N_MS:
OUTTER
	MOVLW	.110	; close to 1.0 msec delay when set to .110
	MOVWF 	LOOP2
INNER
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	DECFSZ	LOOP2, F	; decrement and leave result in LOOP2 
				; skip next statement if zero
	GOTO INNER
	DECFSZ 	LOOP1, F
	GOTO OUTTER
	RETURN

DELAY_10USEC:	; provides a delay equal to W * 10 usecs
	MOVWF LOOP1
DELAY_100USEC_1:
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	DECFSZ LOOP1, F
	GOTO DELAY_10USEC_1
	RETURN

#include <a:\lcd\lcd_ctrl.asm>

	END