The IEE Flip VFD is a display that has a onboard voltage converter and microcontroller to handle driving the display. The interface is very simple. There is a 8bit parallel bus. You control the display by placing the data on the 8bit bus then pull the WR line to low briefly then back to high. All the commands are sent this way. You can pull data off the display but I did not implement it as there is not really any need to do so.

The display also supports serial connection which saves 9 I/O pins. I will work on a driver soon for that method.

Files

Datasheet
Parallel Spin Driver Demo

Flip VFD Driver Code

CON

  _CLKMODE      = XTAL1 + PLL16X                        
  _XINFREQ      = 5_000_000

  _1ms  = 1_000_000 /     1_000

  RESET = 1
  CS    = 2
  RD    = 3
  A0    = 4
  WRI   = 5
  B0    = 13
  B7    = 6

PUB flip_display_init

  DIRA[RESET] := %1
  DIRA[CS] := %1
  DIRA[RD] := %1
  DIRA[WRI] := %1
  DIRA[A0] := %1
  DIRA[B0..B7] := %11111111

  OUTA[WRI] := %1
  OUTA[RD] := %1
  OUTA[CS] := %0

return

PUB flip_backspace

  OUTA[A0] := %0
  OUTA[B0..B7] := $08
  OUTA[WRI] := %0
  pause
  OUTA[WRI] := %1

return

PUB flip_advance

  OUTA[A0] := %0    
  OUTA[B0..B7] := $09
  OUTA[WRI] := %0
  pause
  OUTA[WRI] := %1
  
return

PUB flip_linefeed

  OUTA[A0] := %0    
  OUTA[B0..B7] := $0A
  OUTA[WRI] := %0
  pause
  OUTA[WRI] := %1
  
return

PUB flip_cr

  OUTA[A0] := %0    
  OUTA[B0..B7] := $0D
  OUTA[WRI] := %0
  pause
  OUTA[WRI] := %1
  
return

PUB flip_clear

  OUTA[A0] := %0    
  OUTA[B0..B7] := $0A
  OUTA[WRI] := %0
  pause
  OUTA[WRI] := %1

  OUTA[B0..B7] := $0D
  OUTA[WRI] := %0
  pause
  OUTA[WRI] := %1
  
return

PUB flip_reset

  OUTA[A0] := %1    
  OUTA[B0..B7] := $40 
  OUTA[WRI] := %0
  pause
  OUTA[WRI] := %1
  
return

PUB flip_display_char(char)

  OUTA[A0] := %0    
  OUTA[B0..B7] := char         
  OUTA[WRI] := %0
  pause
  OUTA[WRI] := %1
  
return

PUB flip_display_str(stringptr)

  repeat STRSIZE(stringptr)
    flip_display_char(BYTE[stringptr++])

return

PUB flip_cursor_on

  OUTA[A0] := %0    
  OUTA[B0..B7] := $0F         
  OUTA[WRI] := %0
  pause
  OUTA[WRI] := %1
  
return

PUB flip_cursor_off

  OUTA[A0] := %0    
  OUTA[B0..B7] := $0E         
  OUTA[WRI] := %0
  pause
  OUTA[WRI] := %1
  
return

PUB flip_scroll_mode_on

  OUTA[A0] := %0    
  OUTA[B0..B7] := $13        
  OUTA[WRI] := %0
  pause
  OUTA[WRI] := %1
  
return

PUB flip_scroll_mode_off

  OUTA[A0] := %0    
  OUTA[B0..B7] := $11        
  OUTA[WRI] := %0
  pause
  OUTA[WRI] := %1
  
return

PUB flip_move_cursor(loc)

  OUTA[A0] := %1    
  OUTA[B0..B7] := ($3F & loc)      
  OUTA[WRI] := %0
  pause
  OUTA[WRI] := %1
  
return

PRI pause | clkcycles

  clkcycles := ((clkfreq / _1ms * 1) - 4296) #> 381     ' Calculate 1 ms time unit
  waitcnt((clkcycles/4) + cnt)

return