100 DEFine PROCedure aa
110 drive
120 DELETE dv$&'i2cbuff_bas'
130 SAVE dv$&'i2cbuff_bas'
140 END DEFine aa
150 :
160 DEFine PROCedure drive
170 dv$='flp1_'
180 END DEFine drive
190 DEFine PROCedure vars
200 BUFFer=ALCHP(64*1024)
210 bsize=60000
211 control=4
212 address=72
230 END DEFine vars
300 :
305 CLEAR:adc:CLEAR
310 DEFine PROCedure adc
320 vars
325 INPUT#0;'File: '!f$ TO
330 I2CADC BUFFer,bsize,address,control
332 DELETE f$
335 SBYTES f$,BUFFer,bsize
350 END DEFine adc
360 :
520 :
530 DEFine PROCedure filter
540 vars:REMark get buffer size/address
560 a1=ALCHP(bsize/4)
570 a2=ALCHP(bsize/4)
580 a3=ALCHP(bsize/4)
590 a4=ALCHP(bsize/4)
600 a5=ALCHP(bsize/8)
610 a6=ALCHP(bsize/8)
620 a7=ALCHP (bsize/8)
630 SCATTER BUFFer,bsize,a1,a2,a3,a4
640 han 'a1',a1
650 han 'a2',a2
660 han 'a3',a3
670 han 'a4',a4
690 plot 'a1','a2','a3','a4'
700 :
710 END DEFine filter
720 :
730 DEFine PROCedure han(addrn$,addr)
740 HANNING addr,bsize/4 :SCATTER addr,bsize/4,a6,a7
750 HANNING a6,bsize/8 :SCATTER a6,bsize/8,a5,a7
760 HANNING a5,bsize/16:SCATTER a5,bsize/16,a6,a7
770 HANNING a6,bsize/32:SCATTER a6,bsize/32,a5,a7
790 DELETE 'ram1_'&addrn$
800 SBYTES 'ram1_'&addrn$,a5,512
810 END DEFine han
820 :
830 DEFine PROCedure plot(f0$,f1$,f2$,f3$)
840 out=FOPEN('scr_512x256a0x0')
850 CLS#out
860 plot1 61,f0$,d0$
870 plot1 125,f1$,d1$
880 plot1 189,f2$,d2$
890 plot1 252,f3$,d3$
900 PAUSE -1
910 END DEFine plot
920 :
930 DEFine PROCedure plot1(y,file$,desc$)
940 REMark PRINT y
950 LINE#out,1,100*(1-y/256) TO 500,100*(1-y/256)
960 file=FOP_IN('ram1_'&file$)
970 FOR x=0 TO 500:BGET#file,a:BLOCK#out,1,1,x,y-INT(a/8),7
980 AT#out,INT(y/11),78:PRINT#out,desc$;
990 CLOSE#file
1000 END DEFine plot1
