Rainbow Electronics ADC12138 - Manual (Page 36)

Application Hints
(Continued)
’variables DOL 4Data Out word length DI4Data string for A D DI input
’ DO 4A D result string
’SET CS HIGH
OUT H3FC ( H2 OR INP ( H3FC) ’set RTS HIGH
OUT H3FC ( HFE AND INP( H3FC) ’SET DTR LOW
OUT H3FC ( HFD AND INP ( H3FC) ’SET RTS LOW
OUT H3FC ( HEF AND INP( H3FC)) ’set B4 low
10
LINE INPUT ‘DI data for ADC12138 (see Mode Table on data sheet)‘
DI$
INPUT ‘ADC12138 output word length (12 13 16 or 17)‘ DOL
20
’SET CS HIGH
OUT H3FC ( H2 OR INP ( H3FC) ’set RTS HIGH
OUT H3FC ( HFE AND INP( H3FC) ’SET DTR LOW
OUT H3FC ( HFD AND INP ( H3FC) ’SET RTS LOW
’SET CS LOW
OUT H3FC ( H2 OR INP ( H3FC) ’set RTS HIGH
OUT H3FC ( H1 OR INP( H3FC) ’SET DTR HIGH
OUT H3FC ( HFD AND INP ( H3FC) ’SET RTS LOW
DO$ 4‘‘ ’reset DO variable
OUT H3FC ( H1 OR INP( H3FC) ’SET DTR HIGH
OUT H3FC ( HFD AND INP( H3FC)) ’SCLK low
FOR N 4 1 TO 8
Temp$ 4 MID$(DI$ N 1)
IF Temp$ 4‘0‘ THEN
OUT H3FC ( H1 OR INP( H3FC))
ELSE OUT H3FC ( HFE AND INP( H3FC))
END IF ’out DI
OUT H3FC ( H2 OR INP( H3FC)) ’SCLK high
IF (INP( H3FE) AND 16) 4 16 THEN
DO$ 4 DO$ 0 ‘0‘
ELSE
DO$
4 DO$ 0 ‘1‘
END IF ’Input DO
OUT H3FC ( H1 OR INP( H3FC) ’SET DTR HIGH
OUT H3FC ( HFD AND INP( H3FC)) ’SCLK low
NEXT N
IF DOL
l 8 THEN
FOR N 49 TO DOL
OUT H3FC ( H1 OR INP( H3FC) ’SET DTR HIGH
OUT H3FC ( HFD AND INP( H3FC)) ’SCLK low
OUT H3FC ( H2 OR INP( H3FC)) ’SCLK high
IF (INP( H3FE) AND H1O) 4 H1O THEN
DO$ 4 DO$ 0 ‘0‘
ELSE
DO$
4 DO$0‘1‘
END IF
NEXT N
END IF
OUT
H3FC ( HFA AND INP( H3FC)) ’SCLK low and DI high
FOR N
4 1 TO 500
NEXT N
PRINT DO$
INPUT ‘Enter ‘C‘ to convert else ‘RETURN‘ to alter DI data‘
s$
IF s$ 4 ‘C‘ OR s$ 4 ‘c‘ THEN
GOTO 20
ELSE
GOTO 10
END IF
END
36