Owner's manual

Application Hints (Continued)
’variables DOL4Data Out word length, DI4Data string for A/D DI input,
’DO4A/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 1TO8
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 N49TODOL
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 1TO500
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