SCRUB

COLD

( 16-BIT
HEX
: SPI0-INIT
   14 SPI0 MBAUD ( 20M 
   10 SPI0 BITS
     SPI0 MSB-FIRST
     SPI0 ACTIVE-HIGH
     SPI0 LEADING-EDGE
     SPI0 MASTER
   PE3 ON
; EEWORD

: IO
  SPI0 TX-SPI
  SPI0 RX-SPI
; EEWORD

: OUTCS
  PE3 OFF
  PE3 ON  ( RISING EDGE TRANSFERS
; EEWORD

DECIMAL 
\ Display floating data
: FDATA ( n --- ) 0 0.5 D* D>F 65535.0E F/ DECIMAL F. ;
EEWORD

HEX
 
: CH1
   FF IO DROP OUTCS
   FE IO DROP OUTCS
   FF IO OUTCS FDATA 
;
EEWORD 

: CH2
   FF IO DROP OUTCS
   FD IO DROP OUTCS
   FF IO OUTCS FDATA
;
EEWORD 

: CH3
   FF IO DROP OUTCS
   FB IO DROP OUTCS
   FF IO OUTCS FDATA
;
EEWORD 

: CH4
   FF IO DROP OUTCS
   F7 IO DROP OUTCS
   FF IO OUTCS FDATA
;
EEWORD 

: CH5
   FF IO DROP OUTCS
   EF IO DROP OUTCS
   FF IO OUTCS FDATA
;
EEWORD 

: CH6
   FF IO DROP OUTCS
   DF IO DROP OUTCS
   FF IO OUTCS FDATA
;
EEWORD 

: CH7
   FF IO DROP OUTCS
   BF IO DROP OUTCS
   FF IO OUTCS FDATA
;
EEWORD 

: CH8
   FF IO DROP OUTCS
   7F IO DROP OUTCS
   FF IO OUTCS FDATA
;
EEWORD 

( Continously display data on all channels )
: CH1-8
    SPI0-INIT
    BEGIN
      CR CH1 CH2 CH3 CH4 CH5 CH6 CH7 CH8 
    ?TERMINAL UNTIL  
; EEWORD

CH1-8