Rainbow Electronics ADC12L038 - Manual (Page 34)

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 ADC12038 (see Mode Table on data sheet)‘
DI$
INPUT ‘ADC12038 output word length (8 9 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 41 TO 8
Temp$ 4MID$(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) 416 THEN
DO$ 4DO$0‘0‘
ELSE
DO$
4DO$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 H16) 4 H16 THEN
DO$ 4DO$0‘0‘
ELSE
DO$ 4DO$0‘1‘
END IF
NEXT N
END IF
OUT
H3FC ( HFA AND INP( H3FC)) ’SCLK low and DI high
FOR N 41 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
34