User 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 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 N41TO8
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 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 &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 N41TO500
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