COLD

HEX

404 DP !


( AD CONVERSION TEST PROGRAM
( READS ANALOG FROM 8 CHANNELS
( CONVERTS INTO DIGITAL VALUES
( DISPLAYS EVERY xx SECOND
( written by Yu-Seok Kim, New Micros,Inc.
( December 28,1992


B030 CONSTANT ADCTL
B031 CONSTANT ADR1
B032 CONSTANT ADR2
B033 CONSTANT ADR3
B034 CONSTANT ADR4

B00E CONSTANT TCNT
B023 CONSTANT TFLG1
B01E CONSTANT TOC5

DECIMAL 50000 HEX CONSTANT Q
DECIMAL   239 HEX CONSTANT P

VARIABLE CNT

: COMPARE-SUCCESS? BEGIN TFLG1 C@ 8 AND 0= NOT UNTIL ;
: CLEAR-FLAG 8 TFLG1 C! ;

: INIT
  0 CNT !
  TCNT @ 1000 + TOC5 !
  CLEAR-FLAG
;

DECIMAL

: BCD S>F 5E0 F* 255E0 F/ BASE @ DECIMAL F. BASE ! ;

HEX

: READ-ANALOG
  CR
  10 ADCTL C!
  ADR1 C@ BCD
  ADR2 C@ BCD
  ADR3 C@ BCD
  ADR4 C@ BCD

  14 ADCTL C!
  ADR1 C@ BCD
  ADR2 C@ BCD
  ADR3 C@ BCD
  ADR4 C@ BCD
;


: RUN
  CR ." Starting A/D conversion..." CR
  INIT
  BEGIN
    BEGIN
      COMPARE-SUCCESS?
      Q TOC5 @ + TOC5 !
      CLEAR-FLAG
      CNT 1+!
      CNT @ P =
    UNTIL

    COMPARE-SUCCESS?
    Q TOC5 @ + TOC5 !
    READ-ANALOG
    0 CNT !
  ?TERMINAL
  UNTIL
  ABORT
;
RUN