Testing percent prefix

OBJ

  PST    :  "FullDuplexSerial"
  GPS    :  "FullDuplexSerial"

CON

  _clkmode = xtal1 + pll16x
  _xinfreq = 5_000_000

  GetLat   = $05
  GetLong  = $06

PUB main 

  PST.start(31, 30, 0, 115200)
  GPS.start(0, 0, %1100, 9600)                ' GPS connected to pin0
   
  repeat
    GPS.str(string("!GPS"))                   ' GPS command header
    GPS.tx(GetLat)                            '  for latitude  
    WriteVal
   
    PST.str(string(",")) 
    GPS.str(string("!GPS"))                   ' GPS command header
    GPS.tx(GetLong)                           '  for longitude 
    WriteVal
    PST.str(string(13))
    WaitCnt(ClkFreq + Cnt)                    ' Wait 1 second
  
PRI  WriteVal | Degrees, Minutes, MinutesD, Dir, workVal

  WaitCnt(ClkFreq / 10 + Cnt)                 ' 1/10 second wait

  Degrees := GPS.rx                           ' Retrieve bytes from GPS
  Minutes := GPS.rx
  MinutesD := (GPS.rx << 8) | GPS.rx
  Dir := GPS.rx==1
  
  if dir == -1                                ' If Dir = -1, prepend - sign
    PST.str(string("-"))
  PST.dec(Degrees)
  PST.str(string("."))

  workVal := (Minutes * 1000 / 6) + (MinutesD / 60)
  PST.dec(workVal)
“Impossible is just a big word thrown around by small men who find it easier to live in the world they’ve been given than to explore the power they have to change it. Impossible is not a fact. It’s an opinion. Impossible is not a declaration. It’s a dare. Impossible is potential. Impossible is temporary. Impossible is nothing.” –Muhammad Ali

Comments

  • 8 Comments sorted by Date Added Votes
  • GordonMcCombGordonMcComb Posts: 2,570
    edited March 2012 Vote Up0Vote Down
    Copy and pasted from Notepad:
    OBJ
    
      PST    :  "FullDuplexSerial"
      GPS    :  "FullDuplexSerial"
    
    CON
    
      _clkmode = xtal1 + pll16x
      _xinfreq = 5_000_000
    
      GetLat   = $05
      GetLong  = $06
    
    PUB main 
    
      PST.start(31, 30, 0, 115200)
      GPS.start(0, 0, %1100, 9600)                ' GPS connected to pin0
       
      repeat
        GPS.str(string("!GPS"))                   ' GPS command header
        GPS.tx(GetLat)                            '  for latitude  
        WriteVal
       
        PST.str(string(",")) 
        GPS.str(string("!GPS"))                   ' GPS command header
        GPS.tx(GetLong)                           '  for longitude 
        WriteVal
        PST.str(string(13))
        WaitCnt(ClkFreq + Cnt)                    ' Wait 1 second
      
    PRI  WriteVal | Degrees, Minutes, MinutesD, Dir, workVal
    
      WaitCnt(ClkFreq / 10 + Cnt)                 ' 1/10 second wait
    
      Degrees := GPS.rx                           ' Retrieve bytes from GPS
      Minutes := GPS.rx
      MinutesD := (GPS.rx << 8) | GPS.rx
      Dir := GPS.rx==1
      
      if dir == -1                                ' If Dir = -1, prepend - sign
        PST.str(string("-"))
      PST.dec(Degrees)
      PST.str(string("."))
    
      workVal := (Minutes * 1000 / 6) + (MinutesD / 60)
      PST.dec(workVal)
    
  • GordonMcCombGordonMcComb Posts: 2,570
    edited March 2012 Vote Up0Vote Down
    Copy and pasted from WordPad (can support Unicode)
    OBJ
    
      PST    :  "FullDuplexSerial"
      GPS    :  "FullDuplexSerial"
    
    CON
    
      _clkmode = xtal1 + pll16x
      _xinfreq = 5_000_000
    
      GetLat   = $05
      GetLong  = $06
    
    PUB main 
    
      PST.start(31, 30, 0, 115200)
      GPS.start(0, 0, %1100, 9600)                ' GPS connected to pin0
       
      repeat
        GPS.str(string("!GPS"))                   ' GPS command header
        GPS.tx(GetLat)                            '  for latitude  
        WriteVal
       
        PST.str(string(",")) 
        GPS.str(string("!GPS"))                   ' GPS command header
        GPS.tx(GetLong)                           '  for longitude 
        WriteVal
        PST.str(string(13))
        WaitCnt(ClkFreq + Cnt)                    ' Wait 1 second
      
    PRI  WriteVal | Degrees, Minutes, MinutesD, Dir, workVal
    
      WaitCnt(ClkFreq / 10 + Cnt)                 ' 1/10 second wait
    
      Degrees := GPS.rx                           ' Retrieve bytes from GPS
      Minutes := GPS.rx
      MinutesD := (GPS.rx << 8) | GPS.rx
      Dir := GPS.rx==1
      
      if dir == -1                                ' If Dir = -1, prepend - sign
        PST.str(string("-"))
      PST.dec(Degrees)
      PST.str(string("."))
    
      workVal := (Minutes * 1000 / 6) + (MinutesD / 60)
      PST.dec(workVal) 
    
  • GordonMcCombGordonMcComb Posts: 2,570
    edited March 2012 Vote Up0Vote Down
    And now copied and pasted, then edited
    OBJ
    
      PST    :  "FullDuplexSerial"
      GPS    :  "FullDuplexSerial"
    
    CON
    
      _clkmode = xtal1 + pll16x
      _xinfreq = 5_000_000
    
      GetLat   = $05
      GetLong  = $06
    
    PUB main 
    
      PST.start(31, 30, 0, 115200)
      GPS.start(0, 0, 00, 9600)                ' GPS connected to pin0
       
      repeat
        GPS.str(string("!GPS"))                   ' GPS command header
        GPS.tx(GetLat)                            '  for latitude  
        WriteVal
       
        PST.str(string(",")) 
        GPS.str(string("!GPS"))                   ' GPS command header
        GPS.tx(GetLong)                           '  for longitude 
        WriteVal
        PST.str(string(13))
        WaitCnt(ClkFreq + Cnt)                    ' Wait 1 second
      
    PRI  WriteVal | Degrees, Minutes, MinutesD, Dir, workVal
    
      WaitCnt(ClkFreq / 10 + Cnt)                 ' 1/10 second wait
    
      Degrees := GPS.rx                           ' Retrieve bytes from GPS
      Minutes := GPS.rx
      MinutesD := (GPS.rx << 8) | GPS.rx
      Dir := GPS.rx==1
      
      if dir == -1                                ' If Dir = -1, prepend - sign
        PST.str(string("-"))
      PST.dec(Degrees)
      PST.str(string("."))
    
      workVal := (Minutes * 1000 / 6) + (MinutesD / 60)
      PST.dec(workVal) 
    
  • GordonMcCombGordonMcComb Posts: 2,570
    edited March 2012 Vote Up0Vote Down
    Posts without editing: OK.
    Posts with editing: Seems to drop characters, at least for me.

    Using Firefox 10.0.2 under Windows XP SP3.

    -- Gordon
  • GordonMcCombGordonMcComb Posts: 2,570
    edited March 2012 Vote Up0Vote Down
    Per Phil's suggestion I'm now using the forum's plain text editor. After posting this I will edit it, to see if the percent prefix goes awry.
    OBJ
    
      PST    :  "FullDuplexSerial"
      GPS    :  "FullDuplexSerial"
    
    CON
    
      _clkmode = xtal1 + pll16x
      _xinfreq = 5_000_000
    
      GetLat   = $05
      GetLong  = $06
    
    PUB main 
    
      PST.start(31, 30, 0, 115200)
      GPS.start(0, 0, %1100, 9600)                ' GPS connected to pin0
       
      repeat
        GPS.str(string("!GPS"))                   ' GPS command header
        GPS.tx(GetLat)                            '  for latitude  
        WriteVal
       
        PST.str(string(",")) 
        GPS.str(string("!GPS"))                   ' GPS command header
        GPS.tx(GetLong)                           '  for longitude 
        WriteVal
        PST.str(string(13))
        WaitCnt(ClkFreq + Cnt)                    ' Wait 1 second
      
    PRI  WriteVal | Degrees, Minutes, MinutesD, Dir, workVal
    
      WaitCnt(ClkFreq / 10 + Cnt)                 ' 1/10 second wait
    
      Degrees := GPS.rx                           ' Retrieve bytes from GPS
      Minutes := GPS.rx
      MinutesD := (GPS.rx << 8) | GPS.rx
      Dir := GPS.rx==1
      
      if dir == -1                                ' If Dir = -1, prepend - sign
        PST.str(string("-"))
      PST.dec(Degrees)
      PST.str(string("."))
    
      workVal := (Minutes * 1000 / 6) + (MinutesD / 60)
      PST.dec(workVal)
    
  • Phil Pilgrim (PhiPi)Phil Pilgrim (PhiPi) Posts: 19,524
    edited March 2012 Vote Up0Vote Down
    'Looks like it worked! I wonder what the fancy editor thinks when it sees %nn? Hex codes, maybe?

    -Phil
    “Impossible is just a big word thrown around by small men who find it easier to live in the world they’ve been given than to explore the power they have to change it. Impossible is not a fact. It’s an opinion. Impossible is not a declaration. It’s a dare. Impossible is potential. Impossible is temporary. Impossible is nothing.” –Muhammad Ali
  • Phil Pilgrim (PhiPi)Phil Pilgrim (PhiPi) Posts: 19,524
    edited March 2012 Vote Up0Vote Down
    Testing percent prefix using the WYSIWYG editor: %40, A, B, C.
    [noparse]
    %40, A, B, C
    [/noparse]
    

    I entered the hex codes for "@", "A", "B", and "C". It interpreted all but the %40. In the code section, I even included a [noparse][noparse][/noparse] tag, but to no avail. This is seriously screwed up and needs to be fixed.

    -Phil
    “Impossible is just a big word thrown around by small men who find it easier to live in the world they’ve been given than to explore the power they have to change it. Impossible is not a fact. It’s an opinion. Impossible is not a declaration. It’s a dare. Impossible is potential. Impossible is temporary. Impossible is nothing.” –Muhammad Ali
Sign In or Register to comment.