\ 2011-01-01  EW

\ --- wird von make marker geladen ---
\ include lib/misc.frt            \ within? .(  .res calc-baudrate .base
\ include lib/bitnames.frt        \ portpin: high low pin_{out,in}put
\ include lib/ans94/marker.frt    \ marker
\ include devices/atmega32.frt    \ special register and bit names
\ --- end make marker ---

marker --start--

\ *** station id *******************************************
$61   to    stationID
$0002 value swVersion

PORTB 0 portpin: lederr
PORTB 1 portpin: ledsec
PORTB 2 portpin: ledsensor
PORTB 3 portpin: leddata

\ --- famous includes --------------------------------------

include ewlib/mpc.fs
: ~end  -emit +mpc7 ;
: ~id   mpc_ID c@ ;
: ~call mpc_call ;

decimal


: init-io
  lederr    low   lederr    pin_output
  ledsec    high  ledsec    pin_output
  ledsensor high  ledsensor pin_output
  leddata   high  leddata   pin_output
;

: run-init
  stationID mpc_ID !
  init-io
  lederr low

  &1000 0 do 1ms loop
  lederr high
;

: run-turnkey
  init-user
  +usart
  +int
  rs485.init
  -emit
  ~end          \ go quiet
  
  run-init
  \ run-loop
;

\ fin