
$2080 constant adc-ch1
$2090 constant adc-ch2
$20A0 constant adc-ch3
$20B0 constant adc-ch4
$20C0 constant adc-ch5
$20D0 constant adc-ch6


: analog ( -- )
  begin
    adc-ch6 io@ adc-ch5 io@ adc-ch4 io@ adc-ch3 io@ adc-ch2 io@ adc-ch1 io@
    6 u.r       6 u.r       6 u.r       6 u.r       6 u.r       6 u.r cr
  key? until
;
