Panther: http://retro.h1.ru/RK86/Sound/EdtMusTbl1.txt

2008-12-03T09:27:56Z

http://retro.h1.ru/RK86/Sound/EdtMusTbl1.txt

Новая страница

{{ДИ|Автор=А. СОРОКИН| Источник= http://retro.h1.ru/RK86/Sound/EdtMusTbl1.txt}}
<pre>
ТАБЛИЦА 1
5 REM *********************************************
10 REM **** МУЗЫКАЛЬНЫЙ РЕДАКТОР ДЛЯ РАДИО-86РК ****
20 REM ******** НА ОСНОВЕ ТАЙМЕРА К580ИВ53 *********
30 REM * ПРИСВОЕНИЕ ЗНАЧЕНИЙ ПЕРЕМЕННЫМ
40 REM * BS - НАЧАЛЬНЫЙ АДРЕС РАСПОЛОЖЕНИЯ НОТ В ОЗУ
50 REM * А0,A1,А2,A3 -АДРЕСА ПОРТОВ ТАЙМЕРА К580ИВ53
60 A0=&A000:A1=&A001:A2=&A002:A3=&A003:BS=&4200
70 V=30:R$="<-":Z°=" ":GOTO 640
80 REM * ПОДПРОГРАММА ВВОДА НОВОЙ КОМАНДЫ
90 В=А
100 A=USR(-2021):IF А=В OR А=255 THEN 100
110 RETURN
120 REM * ИНИЦИАЛИЗАЦИЯ РЕДАКТОРА
130 PRINTAT36,17;"NEW ?";:Y$=CHR$(USR(-2045))
140 PRINTAT36,17;SPC(12):IF YD="Y" THEN 200
150 REM * ПОИСК КОНЦА НОТНОЙ ЗАПИСИ
160 B1=BS+&2000:FOR 1=BS TO B1
170 IP PEEK(I)=255 THEN KX=I-BS:GOTO 410
180 NEXTI:CUR36,17:INPUT"ДЛИHA";X:X=X*4
190 PRINTAT36,17;SPC(20)$:POKEBS+X+1,255:GOTO 410
200 X=0:Y=11:PRINTATV,11;R$;:KX=0
210 PRINTAT36,24;"HOTA - 1"
220 REM * ЦИКЛ ВВОДА И ЗАПИСИ НОТ
240 A=USR(-2021):IF А=255 THEN 240
250 IF (Y=24 AND A=25) OR (Y=0 AND A=26) THEN 240
260 IF A=8 THEN 1100
270 IF A=0 THEN KX=X:A=2
280 IF A=24 THEN 1150
290 IF A>57 OR A=1 OR A=46 THEN GOSUB 1060
300 IF A=25 THEN PRINTATV,Y;Z$;:Y=Y+1:PRINTATV,Y;R$;
310 IF A=26 THEN PRINTATV,Y;Z$;:Y=Y-1:PRINTATV,Y;R$;
320 IF A=2 THEN PRINTATV,Y;Z$;:POKEBS+X,255:GOTO 410
330 IF A<>27 THEN TS=S(Y):TM=M(Y)
340 IF A=27 THEN TS=S(Y):TM=DM(Y):GOSUB 90
350 IF A=32 THEN GOSUB 1280
360 POKE A0,TM:POKE A0,TS:POKE А2,20
370 IF A>48 AND A<58 THEN GOSUB 1330
380 GOTO 240
400 REM * ВВОД ПАРАМЕТРОВ ВОСПРОИЗВЕДЕНИЯ
410 CUR36,22:INPUT"TEMП",Z:R=28/Z:X1=KX-4
420 PRINTAT36,20;"STAC. NORM. LEG.": K$=CHR$(USR(-2045))
430 PRINTAT36,22;SPC(20):PRINTAT36,20;SPC(20)
440 PPINTAT36,17;"TEMП - ";Z;" ";K$".":PRINTAT36,24; "НОТА -"
450 K=0.0015:IF K$="S" THEN K=R*0.5
460 IF K$="N" THEN K=R*0.1
470 REM * ЦИКЛ ВОСПРОИЗВЕДЕНИЯ
490 FOR X=0 TO X1 STEP4:K2=PEEK(BS+X+1): Y=PEEK(BS+X+3)
500 IF K2=0 THEN POKE A3,54
510 IF K2<>0 THEN POKE A0,PEEK(BS+X):POKE A0,K2: POKE A2,100:PRINTATV,Y;R$;
520 PRINTAT 42,24;X/4+1:PAUSE R*PEEK(BS+X+2): POKE A3,54:PAUSE К
530 PRINTAT V,Y;Z$;:NEXTX
550 REW * ВЫВОД ДИРЕКТИВ РЕДАКТОРА
560 PRINTAT36,24;"1 - ПОВTOPИTb":PRINTTAB(36) "2 - ДОПИСАТЬ"
570 PRINTTAB(36)"3 - ИCПPABИTb":PRINTTAB(36) "4 - РАСПЕЧАТАТЬ"
580 PRINTTAB(36)"5 - ОТТРАНСЛИРОВАТЬ": PRINTTAB(36)"6 - NEW"
590 A=USR(-2045):FORI=0TO5:PRINTAT36,24-1;SPC(20); NEXTI
600 IF PA<49 OR A>54 THEN 1810
610 REM * АДРЕСАЦИЯ ПО ДИРЕКТИВАМ
620 A=A-8:ON A GOTO 410, 1380, 1410, 1470, 1530, 200
630 REM * НАСТРОЙКА ПАРАМЕТРОВ ТАЙМЕРА К580ИВ53
640 НОМЕ:РОКЕ АЗ,54:РОКЕ АЗ,102:РОКЕ A3,144: POKE A1,110
650 REM * ОПИСАНИЕ ФУНКЦИЙ РАЗБИЕНИЯ ДЕСЯТИЧНОГО ЧИСЛА НА БАЙТЫ
660 REM * FNS(X) - СТАРШИЙ БАЙТ,FNM(X) - МЛАДШИЙ БАЙТ
670 DEFFNS(X)=INT(X/256)
680 DEFFNM(X)=X-INT(X/256)*256
690 REM * ОПИСАНИЕ МАССИВОВ
700 REM * SO,WO - МАССИВЫ КОЭФФИЦИЕНТОВ ДЕЛЕНИЯ ДЛЯ ТОНОВ
710 REM * DM0,DSO - МАССИВЫ КОЭФФИЦ. ДЕЛЕНИЯ ДЛЯ ПОЛУТОНОВ
720 DIM S(24),M(24),DM(25),DS(25),K(24)
730 REM * РИСУНОК НОТНОГО СТАНА
740 PRINT"СОЛЬ #";SPC(21);"-0"
750 PRINT"ФA #";SPC(21);"-0"
760 РRINТ"МИ";5РС(24);"-0-"
770 PRINT"PE #";SPC(19);"-0-"
780 РRINТ"ДО #";SPC(18);"-0---"
790 PRINT"CИ";SPC(21);"-0----"
800 PRINT"ЛЯ";SPC(16);"-0-----"
810 PRINT"COЛЬ #"SPC(16);"0"
820 PRINT"ФA #----------0---- "
830 PRINT"MИ";SPC(18);"0";SPC(15);"CИ$ = ЛЯ#"
840 PRINT"PE #-------0-----";SPC (7) ; "ЛЯ$ = СОЛЬ#"
850 PRINT"ДO #";SPC(12);"0";SPC(17);"COЛЬ$ = ФА#"
860 PRINT"CИ -------0-------";SPC(7); "МИ$ = РЕ#"
870 РРINТ"ЛЯ #";SPC(10);"0";SPC(19);"PE$ = ЛЯ#"
880 PRINT"COЛЬ #------0----------";SPC(7); "ДО$ = СИ"
890 PRINT"ФA #";SPC(8);"0";SPC(21);"$ - БЕМОЛЬ, # - ДИЕЗ"
900 PRINT"MИ ----О---------"
910 PRINT"PE #";SPC(6);"0";SPC(23); "<-- НА 1 НОТУ НАЗАД"
920 PRINT"ДO #-------0-";SPC(23); "--> HA 1 НОТУ ВПЕРЕД"
930 PRINT"CИ --о-"
940 РРINТ"ЛЯ #------0-";SРС(25);"ДИЕЗ - АР2"
950 PRINT"COЛЬ #--0-";SPC(26);"BЫXOД - F3"
960 PRINT"ФA #-0-";SРС(27);"УСТАНОВКА КОНЦА НОТНОЙ"
970 РРINТ"МИ -0-";SРС(28);"ЗАПИСИ - F1"
980 PRINT"PE #O-";
990 REM * ЗАПОЛНЕНИЕ МАССИВОВ КОЭФИЦИЕНТАМИ ДЕЛЕНИЯ
1000 FORI=0T024:READH:S(I)=FNS(H):M(I)=FNM(H):NEXTI
1010 FORI=1T018:READH,J:DS(J)=FNS(H):DM(J)=FNM(H): NEXTI
1020 REM * ЗАПОЛНЕНИЕ МАССИВА КОДАМИ КЛАВИШ СООТВЕТСТВ. НОТАМ
1030 FORI=0T024:READH:K(I)=H:PRINTAT33,I;CHR$(H); : NEXTI
1040 GOTO 130
1050 REM * ПОДПРОГРАММА ВЫБОРА ПОЛОШЕНИЯ УКАЗАТЕЛЯ ПО КЛАВИШАМ
1060 FORI=0T024
1070 IFA=K(I)THEN PRINTATV,Y;Z$;:Y=1:PRINTATV,Y;R$; : RETURN
1080 NEXTI:RETURN
1090 REM * ПОДПРОГРАММА ВОЗВРАТА К ПРЕДЫДУЩЕЙ НОТЕ
1100 IF X=0 THEN 240
1110 IF KX=0 THEN KX=X
1120 X=X-4:PRINTATV,Y;Z$;: K1=PEEK(BS+X) :K2==PEEK(BS+1+X)
1130 IF K1=0 AND K2=0 THEN 1220
1140 GOTO 1240
1150 REM ПОДПРОГРАММА ПЕРЕХОДА К СЛЕДУЮЩЕЙ НОТЕ
1160 IF КХ=0 OR Х=КХ THEN 240
1170 IF KX=X+4 THEN X=X+4:PRINTAT42,24;X/4+1:GOTO 240
1180 X=X+4:PRINTATV,Y;Z$;: K1=PEEK(BS+X) :K2=PEEK(BS+1+X)
1190 IF K1=0 AND K2=0 THEN 1220
1200 GOTO 1240
1210 REM * ПОДПРОГРАММА ОТОБРАЖЕНИЯ ПАУЗЫ
1220 PRINTAT36,22;"ПАУ3A":PRINTAT42,24;X/4+1:GOTO 240
1230 REM * ПООДПРОГРАММА ОТОБРАЖЕНИЯ НОТЫ
1240 POKE A0,K1:POKE A0,K2
1250 POKE A2,PEEK(BS+2+X)+20:Y=PEEK(BS+3+X): PRINTATV,Y;R$;
1260 PRINTAT42,24;X/4+1:PRINTAT36,22;" ":GOTO 240
1270 REM * ПОДПРОГРАММА ЗАПИСИ ПАУЗЫ
1280 POKEBS+X+1,0:POKEBS+X,0:POKEBS+X+3,1: PRINTATV,Y;Z$;
1290 GOSUB 90:POKE BS+X+2,A-48:POKE BS+X+3,Y:X=X+4: PRINTAT42,24;X/4+1
1300 IF KX<XTHEN KX=X
1310 PAUSE0.3:GOTO 240
1320 REM * ПОДПРОГРАММА ЗАПИСИ НОТЫ
1330 POKEBS+X,TM:POKEBS+X+1,TS:POKEBS+X+2,A-48
1340 POKEBS+X+3,Y:X=X+4:PRINTAT42,24;X=/4+1: PRINTAT36,22;" "
1350 IF KX<XTHEN KX=X
1360 PAUSE0.3:RETURN
1370 REM * НАСТРОЙКА НА ДОПИСЫВАНИЕ НОТНОЙ ЗАПИСИ
1380 Y=PEEK(BS+X-1):PRINTATV,Y;R$;:KX=0
1390 PRINTAT36,24;"HOTA-":PRINTAT42,24;X/4+1: GOTO 240
1400 REM * ИСПРАВЛЕНИЕ НОТНОЙ ЗАПИСИ
1410 PRINTAT36,24;"C НОТЫ (BCEГО";KX/4;")";:INPUT N
1420 IF N>KX THEN 1410
1430 X=(N-1)*4:POKE A0,PEEK(BS+X): POKE A0,PEEK(BS+X+1)
1440 POKE A2,20:Y=PEEK(BS+X+3):PRINTATV,Y;R$;
1450 PRINTAT36,24;"HOTA -";SPC(15):PRINTAT42,24;N: GOTO 240
1460 REM * ПЕЧАТЬ НОТНОЙ ЗАПИСИ ДЛЯ DATA
1470 HOME:PRINT"PACПEЧATKA НОТНОЙ ЗАПИСИ ДЛЯ DATA "
1480 PRINT"MЛ. БАЙТ";SРС(5);**СТ. БАЙТ";SРС(5); "ДЛИТЕЛЬН." "
1490 KX=KX-4:FOR X=0 TO KX STEP 4
1500 PRINTPEEK(BS+X),PEEK(BS+X+1),PEEK(BS+X+2)
1510 NEXT X
1515 STOP
1520 REM * ТРАНСЛЯЦИЯ НОТНОЙ ЗАПИСИ
1530 HOME
1540 РRINT"СВОБОЛНАЯ ОБЛАСТЬ-С";@(КХ+4+ВS); "Н ПО 75FFH"
1550 INPUT"HAЧAЛЬHЫй АДРЕС ДЛЯ ТРАНСЛЯЦИИ (ЧЕРЕЗ &)";NA
1560 REM * ЗАПИСЬ УПРАВЛЯЮЩЕЙ ПРОГРАММЫ В ПАМЯТЬ И
1570 REM * ЕЕ КОРРЕКТИРОВКА ПО АДРЕСАМ ПЕРЕХОДА
1580 RESTORE 1940: FOR I=NA TO NA+65:READ R:POKE 1,R: NEXTI
1590 KA=1:TT=INT(600/2):POKE NA+36,TT
1600 M1=FNS(65536+A0):M2=FNM(65536+A0):POKE NA+8,M2
1610 POKE NA+9,M1:POKE NA+17,M2:POKE NA+18,M1
1620 POKE NA+22,FNM(A2*65536): POKE NA+23,FNS(A2+65536)
1630 POKE NA+30,FNM(A3+65536): POKE NA+31,FNS(A3*65536)
1640 POKE NA+52,FNM(A3+65536): POKE NA+53,FNS(A3+65536)
1650 POKE NA+1,FNM(KA):POKE NA+2,FNS(KA)
1660 IF K$="S" THEN POKE NA+56,TT*.8
1670 IF K$="L" THEN POKE NA+51,0:POKE NA+52,0: POKE NA+53,0
1680 IF K$="N" THEN POKE NA+56,TT*.6
1690 POKE NA+14,FNM(NA+27):POKENA+15,FNS(NA+27)
1700 POKE NA+25,FNM(NA+32):POKE NA+26,FNS(NA+32)
1710 POKE NA+47,FNM(NA+43):POKENA+48,FNS(NA+43)
1720 POKE NA+61,FNM(NA+57):POKE NA+62,FNS(NA+57)
1750 POKE NA+64,FNM(NA+3):POKE NA+65,FNS(NA+3)
1740 REM ТРАНСЛЯЦИЙ САМОЙ НОТНОЙ ЗАПИСИ
1750 FOR X=0 TO KX STEP 4
1760 POKEKA,PEEK(BS+X):KA=KA+1:POKE KA,PEEK(BS+X+1)
1770 KA=KA+1:POKE KA,PEEK(BS+X+2):KA=KA+1:NEXTX: POKE KA,255
1780 РРINТ:РRINТ"МУЗЫКАЛЬНЫй МОДУЛЬ РАСПОЛОЖЕН :"
1790 PRINT"HAЧДЛЬHЫй AAPEC";@NA: РRINТ"КОНЕЧНЫй АДРЕС";@КА
1800 Y=USR(&F86C)
1810 НОМЕ:РRINТ"НЕТРАНСЛИРОВАННAЯ НОТНАЯ ЗАПИСЬ НАХОДИТСЯ :"
1820 PRINT"C АДРЕСА ";@BS
1830 PRINT"ПO АДРЕС ";@(BS+KX+4)
1840 U=USR(&F86C)
1850 REM *******************************************
1860 DATA12108,10787,10181,9070,8081,7199,6795,6054
1870 DATA 5393,5091,4535,4040,3600,3398,3027,2697
1880 DATA 2545,2268,2020,1800,1699,1513,1348,1273
1890 DATA 1134,11428,0,9610,2,8561,3,7627,4,6670,6
1900 DATA 5714,7,4805,9,4281,10,3814,11,3207,13,2857
1910 DATA 14,2402,16,2140,17,1907,18,1603,20,1428,21
1920 DATA 1201,23,1070,24,74,67,85,75,69,78,71,91,93
1930 DATA 90,72,58,1,70,89,87,65,80,82,79,76,68,86,92,46
1940 DATA &21,0,0,&7E,&FE,&FF,&C8,&32,0,0,&23
1950 DATA &7E,&B7,&CA,0,0,&32,0,0,&3E,&C8,&32,0,0
1960 DATA &C3,0,0,&3E,&36,&32,0,0,&23,&7E,&23,&C6
1970 DATA 0,&87,&87,&87,&87,&57,&5F,&1B,&7A,&B3,&C2
1980 DATA 0,0,&3Е, &36,&32,0,0,&01,2,О,&0В,&79,&В0
1990 DATA &С2,0,0,&СЗ,0,0
2000 REM ********************************************
</pre>
[[Категория:Радио-86РК/Публикации|421]]

Радио-86РК/Радио 08-89/Музыкальный редактор/Таблица 1 - История изменений

Panther: http://retro.h1.ru/RK86/Sound/EdtMusTbl1.txt