Omega Engineering OMB-CHARTSCAN 1400, Руководство пользователя

Страница: 253 / 273

ChartScan Program Examples Appendix D
D-16 ChartScan User’s Manual
'Query the ChartScan for the # of scans available in the Buffer
PRINT "An SRQ has been detected.."
PRINT #1, "SPOLL07"
INPUT #2, sp%
PRINT "spoll response before :"; sp%
PRINT #1, "OUTPUT 07;U0X"
PRINT #1, "ENTER 07"
INPUT #2, EVENT%
PRINT "EVent Status before :"; EVENT%
PRINT #1, "OUTPUT 07;U6X"
PRINT #1, "ENTER 07"
LINE INPUT #2, U$
PRINT U$
UA$ = MID$(U$, 9, 7)
UA& = VAL(UA$)
PRINT UA&
PRINT "The ChartScan collected "; UA&; " scans of data"
'Upload available data
B& = UA& * 24
PRINT "Total number of Bytes available : "; B&
PRINT #1, "OUTPUT 07;R3X"
PRINT "Uploading data.."
PRINT #1, "ENTER 07 #8"
a$ = INPUT$(8, 2)
PRINT "The preamble is :"; a$
pre& = VAL(MID$(a$, 2, 7))
loops = INT(pre& / s!)
PRINT "loops "; loops
FOR i = 1 TO loops
PRINT #1, "ENTER 07 #"; s!; " BUFFER "; buffseg%; ":"; buffoff%; " DMA"
PRINT #3, DataBuffer$;
NEXT i
rema! = pre& - (s! * loops)
PRINT "remainder of preamble"; rema!
PRINT #1, "ENTER 07 #"; rema!; " BUFFER "; buffseg%; ":"; buffoff%; " DMA"
PRINT #3, MID$(DataBuffer$, 1, rema!);
PRINT #1, "OUTPUT 07;U0X"
PRINT #1, "ENTER 07"
INPUT #2, EVENT%
PRINT "EVent Status after :"; EVENT%
PRINT #1, "SPOLL07"
INPUT #2, sp%
PRINT "Spoll response after uploading :"; sp%
PRINT #1, "OUTPUT 07;U6X"
PRINT #1, "ENTER 07"
LINE INPUT #2, U$
PRINT U$
PRINT "Waiting for 75% Full..": PRINT
c = CSRLIN
SLEEP 1
PRINT #1, "ARM SRQ"
RETURN