标题打印机接口用于A/D转换

　　这两个电路可以不与总线打交道。对便携机来说这点犹为适用。也可用不同的ADC芯片代替ADC0809以满足不同的需要。
　　10　 DIM C(7)，N(7):FOR　I=0　 TO　7:M(I)=0:N(I)=255:NEXT:X=0:
　　Y=50:CLS
　　20　 ADDW=&H378:ADDR=&H379:SCREEN　2:D=7
　　30　 ADDW=&H3BC:ADDR=&H3BD:SCREEN　2:D=7
　　40　 FOR　I=0　TO　D:WA=&H18+I:WRC=I:RA=&H20+I:RB=&H60+I
　　50　 OUT　ADDW，WA:OUT ADDW，WRC
　　60　 OUT　ADDW， RA:A=INP(ADDR)\16:OUT ADDW，RB:B=INP(ADDR)\16:OUT ADDW，WRC
　　70　 C(I)=A*16+B
　　80　 IF　M(I)<C(I)　THEN　M(I)=C(I)
　　90　 IF　N(I)>C(I)　THEN　N(I)=C(I)
　　100　 NEXT:LOCATE　1，1　110 PRINT" A/D#";:FOR　I=0 TO　7:PRINT　USING"#####";I;:NEXT:PRINT:PRINT
　　120　PRINT"A/D=";FOR　I=0　TO　7:PRINT　USING　"#####";C　(I);:NEXT:PRINT:PRINT
　　130　PRINT"MAD=";:FOR　I=0　TO　7:RPINT　USIG　"#####";N(I);:NEXT :PRINT:PRINT
　　140　PRTINT"MIN=";:FOR　I=0　TO　7:RPINT　USING　"#####"N(I);:NEXT:PRINT:PRINT
　　150　PRINT" M-N=";:FOR　I=0　TO 7:RPINT　USING　"#####";M(I)-N(I);:NEXT :PRINT
　　160 YY=Y+C(0):PSET(X，YY):X=X+1:IF　X>599　THEN　X=0
　　170　A$=INKEY$ :IF　A$=""THEN　 40　ELSE　：PRINT:LIST
　　(武汉　刘晓兵)