Радио-86РК/Радио 04-87/О вводе данных с магнитной ленты/Программа: различия между версиями
Panther (обсуждение | вклад) |
Panther (обсуждение | вклад) м (cat sort) |
||
Строка 59: | Строка 59: | ||
</pre> | </pre> | ||
[[Категория:Радио-86РК/Публикации]] | [[Категория:Радио-86РК/Публикации|11]] |
Текущая версия от 00:00, 22 июля 2012
10 REM АНАЛИЗ КАЧЕСТВА ВВОДА С МАГНИТНОЙ ЛЕНТЫ 20 REM ПРОГРАММА ДЛЯ "РАДИО-86РК" (ОЗУ 16 КБАЙТ) 30 I0=12288:REM АДРЕС П/П ИЗМЕРЕНИЯ ИНТЕРВАЛОВ 40 FOR I=I0 TO I0+107:READ A:POKE I,A:NEXT 50 AI=13871:REM АДРЕС КОНСТ. ВОСПР.(ДЛЯ 32 КБАЙТ 30255) 60 DIM P(127):M=1:Z=1 70 L=PEEK(I0+106)+PEEK(I0+107)*256:REM ЧИСЛО ОТСЧЕТОВ 80 CLS 90 CUR 0,24:PRINT"ГОТОВ" 100 A=USR(-2045):REM ВВОД КОМАНДЫ 110 IF A=3 THEN 2000 120 IF A=24 THEN D=1:GOSUB 1000:GOTO 100 130 IF A=8 THEN D=-1:GOSUB 1000:GOTO 100 140 IF A>48 AND A<53 THEN M=A-48:GOTO 170 150 IF A<>2 THEN PRINT "?":GOTO 100 160 A=USR(I0):Z=0:REM ИЗМЕРЕНО L ИНТЕРВАЛОВ 170 FOR J=0 TO 127:P(J)=0:NEXT 180 CLS:M1=25*M:D=0:GOSUB 1000 190 I=I0-3*(L+1) 200 C0=PEEK(I):D0=PEEK(I+1)+256*PEEK(I+2) 210 FOR J=1 TO L:I=I+3:REM ЦИКЛ ПОСТРОЕНИЯ ГИСТОГРАММЫ 220 C=PEEK(I):D=PEEK(I+1)+256*PEEK(I+2) 230 H=123+14*(C-C0)+3599*(D-D0):REM ИНТЕРВАЛ В МАШ. ТАКТАХ 240 C0=C:D0=D 250 X=INT(N/M1+0.5):IF X>127 THEN X=127 260 P(X)=P(X)+1:Y=P(X)+4:IF Y>49 THEN Y=49 270 PLOT X,Y,1 280 NEXT 290 GOTO 90 1000 REM ПОДПРОГРАММА ИЗМЕРЕНИЯ КОНСТАНТЫ ВОСПРОИЗВЕДЕНИЯ 1010 REM И ЕЕ ВЫВОДА НА ЭКРАН ДИСПЛЕЯ 1020 IF Z THEN RETURN 1030 KI=(PEEK(AI)+D) AND 255:POKE AI,KI 1040 X1=INT((KI+3.72)/M+0.5) AND 127 1050 X2=(INT((KI+6.56)/M+1.5) AND 127)-1 1060 PLOT 0,4,1:LINE X1-1,4 1070 PLOT X1,4,0:LINE X2,4 1080 PLOT X2+1,4,1:LINE 127,4 1090 CUR 0,1:PRINT"КОНСТАНТА ВОСПРОИЗВЕДЕНИЯ - "; 1100 GOSUB 1200:PRINT 1110 RETURN 1200 REM ПЕЧАТЬ ШЕСТНАДЦАТЕРИЧНОГО ЧИСЛА 1210 K1=INT(KI/16):GOSUB 1230 1220 K1=KI AND 15 1230 IF K1>9 THEN K1=K1+7 1240 PRINT CHR$(K1+48); 1250 RETURN 2000 DATA 229,213,197,245,33,0,0,57,34,108,48,49,112,49,33,63 2010 DATA 48,229,33,67,48,14,127,229,13,194,23,48,42,106,48 2020 DATA 124,47,87,125,47,95,33,0,48,25,25,25,17,0,0,58,2,128 2030 DATA 71,230,16,194,46,48,62,128,50,8,224,195,67,48,49,112 2040 DATA 48,19,58,2,128,184,200,71,34,110,48,33,144,207,57,77 2050 DATA 42,110,48,113,35,115,35,114,35,124,254,48,192,42,108 2060 DATA 48,249,205,45,248,241,193,209,225,201,255,0