\ 2006-07-27 EW adv2_lcd.fs

\ always display a sign
: sign! 0 < IF 45 ELSE 43 ENDIF hold ;
\ always display 4,2 digits
: p4!  s>d <# # # # # #> ;
: p2!  s>d <# # # #> ;
\ start next lcdtype at lcdposition
\ row (0,1) col (0..15)
: lcdpos ( row col -- )
  swap $40 * + $80 + lcdctrl! &1 ms
;
\ display current date/time on LCD
: show.DT ( -- )
  year @  p4! lcdtype
  month @ p2! lcdtype
  day  @  p2! lcdtype s" -" lcdtype
  hour @  p2! lcdtype
  min  @  p2! lcdtype
  sec  @  p2! lcdtype
;