Fluke CombiScope PM3370B User Manual page 242

THE CPL PROTOCOL
Example program:
100 COUNT=512
110 PRINT "Generating trace samples ..."
120 DIM WAVE(2*COUNT)
130 FOR I=1 TO COUNT
140 SAMPLE = INT(19200*SIN(I/40.744))
150 LSB = SAMPLE AND &HFF
160 MSB = ((SAMPLE-LSB) / 256) AND &HFF :'Calculate Most Sign. Byte
170 WAVE(2*I) = LSB
180 WAVE(2*I-1) = MSB
190 NEXT
200 PRINT "Transmitting trace administration ..."
210 PRINT #1,"PW",41,
220 PRINT #1,"m4.1",
230 PRINT #1,"V",
240 PRINT #1,"s",
250 PRINT #1,+3,
260 PRINT #1,-8.625E-6,
270 PRINT #1,78.13E-3,
280 PRINT #1,1E-6,
290 PRINT #1,65535,
300 PRINT #1,"E25-01-1994",
310 PRINT #1,"14:32:56:00",
320 PRINT #1,375E-3,
330 PRINT #1,0,
340 PRINT #1,32,
350 PRINT #1,5,
360 PRINT #1,"0","0",
370 PRINT #1,COUNT
380 GOSUB 1000
390 SUM=0
400 PRINT "Transmitting trace samples ..."
410 FOR I=1 TO 2*COUNT
420 PRINT #1,CHR$(WAVE(I));
430 SUM=(SUM+WAVE(I))MOD(256)
440 NEXT I
450 PRINT #1,CHR$(SUM);
460 GOSUB 1000
:'Number of samples
:'Display operator message
:'Declare waveform array
:'For all samples
:'Generate sine value
:'Calculate Least Sign. Byte
:'Put LSB in array
:'Put MSB in array
:'Display operator message
:'Program waveform (m4.1)
:'Trace_name (ignored)
:'Y_unit (Volts)
:'X_unit (seconds)
:'Y_zero (3 V offset)
:'X_zero (ignored)
:'Y_resolution
:'X_resolution
:'Y_range (ignored)
:'Date
:'Time
:'Delta T correction
:'Min Max trace off
:'Mult_shot_tot
:'Mult_shot_nr
:'Reserved field 1,2
(ignored)
:'Number of 16 bit samples
:'Sync on acknowledge
:'Display operator message
:'2 bytes per sample
:'Send each sample byte
:'Calculate checksum
:'Send checksum
:'Sync on acknowledge
6 - 25