read_gps lat lon saat tarih.mac

reading gps data from serial

	NOLIST
; PicBasic Pro Compiler 2.44, (c) 1998, 2003 microEngineering Labs, Inc. All Rights Reserved. 

LABEL?L macro Label
        RST?RP
    ifdef PM_USED
        LALL
Label
        XALL
    else
Label
    endif
    endm

CMPNE?TCL macro Regin, Bitin, Cin, Label
    if (Cin == 0)
        CLRWDT?
        BIT?GOTO 1, Regin, Bitin, Label
    else
      if (Cin == 1)
        CLRWDT?
        BIT?GOTO 0, Regin, Bitin, Label
      else
        L?GOTO  Label
      endif
    endif
    endm

END? macro
    local loop
loop    sleep
        L?GOTO  loop
    endm

GOTO?L macro Label
        L?GOTO  Label
    endm

LCDOUT?C macro Cin
        MOVE?CA Cin
        L?CALL  LCDOUT
    endm
LCDOUT_USED = 1

LCDOUTCOUNT?C macro Cin
        MOVE?CB Cin, R4 + 1
    endm

LCDOUTNUM?B macro Bin
        MOVE?BW Bin, R2
    endm

LCDOUTDEC? macro
        MOVE?CW LCDOUTJ, R8
        L?CALL  SEROUT2DEC
    endm
LCDOUTJ_USED = 1
SEROUT2DEC_USED = 1

PAUSE?C macro Cin
    if (high (Cin) == 0)
        MOVE?CA Cin
        L?CALL  PAUSE
    else
        MOVE?CB high (Cin), R1 + 1
        MOVE?CA low (Cin)
        L?CALL  PAUSEL
    endif
    endm
PAUSE_USED = 1

SERIN2DPIN?T macro Regin, Bitin
        BIT?R1  Regin, Bitin
    endm

SERIN2MODE?C macro Cin
        MOVE?CW Cin, R5
    endm

SERIN2COUNT?C macro Cin
        MOVE?CB Cin, R4 + 1
    endm

SERIN2WAIT?CL macro Cin, Label
        L?CALL  SERIN2
        sublw   Cin
        BIT?GOTO 0, STATUS, Z, Label
    endm
SERIN2_USED = 1

SERIN2SKIP? macro
        MOVE?CW SERIN2, R8
        L?CALL  SERIN2SKIP
    endm
SERIN2_USED = 1
SERIN2SKIP_USED = 1

SERIN2DEC?B macro Bin
        MOVE?CW SERIN2, R8
        L?CALL  SERIN2DEC
        MOVE?AB Bin
    endm
SERIN2_USED = 1
SERIN2DEC_USED = 1


	LIST