|
Возвращаясь к напечатанному - Компьютер и звук.
|
ВОЗВРАЩАЯСЬ К НАПЕЧАТАННОМУ
Компьютер и звук
сигнал - например, музыку или речь.
Даже при минимальном числе команд, звук не будет таким чистым, как хотелось бы. Что же мешает этому?
Программа, представленная в листинге 2, "распечатывает" в файле атрибутов значения 6 бита, который указывает на наличие сигнала на магнитофонном входе.
(С) Сергей Белов,
г.Москва, 1995.
00010 00020 00030 00040 00050 00060 00070
SeBco prog.
present the programm "GRAPHIC OF 6-TH BIT
PORT No254" written by Below S. (C) 1995
Под таким названием на странице 195 ZX-PEBI0-93 напечатана любопытная статья (автор: Збитнев В.А.). Продолжая идею воспроизведения человеческого голоса или музыки хочу сказать, что на "Спектруме" из-за малой памяти (для звуковой информации) и частоты работы процессора, звук получается не очень реалистичным. Программа, представленная на листинге 1, это явно показывает.
|
|
|
|
|
|
00080 |
|
ORG |
40000 |
|
|
|
|
|
Листинг 1. |
00090 |
|
ENT |
|
|
|
|
|
|
|
00100 |
|
DI |
|
|
00010 |
|
|
ORG |
40000 |
00110 |
|
LD |
D, 0 |
|
00020 |
|
|
ENT |
|
00120 |
|
LD |
B,D |
|
00030 |
|
|
DI |
|
00130 |
|
LD |
C,3 |
|
00040 |
LOOP |
IN |
A,(254) |
00140 |
|
LD |
E,D |
|
00050 |
|
|
SRL |
A |
00150 |
OPROS |
IN |
A, (254) |
|
00060 |
|
|
SRL |
A |
00160 |
|
SRL |
A |
|
00070 |
|
|
OUT |
(254),A |
00170 |
|
SRL |
A |
|
00080 |
|
|
JR |
LOOP |
00180 |
|
OUT |
(254),A |
|
|
|
|
|
|
00190 |
|
BIT |
4,A |
|
Start |
of |
object: |
#9C40 (40000) |
00200 |
|
JR |
Z,PLOT1 |
|
Length |
|
: |
#000B (00011) |
00210 |
|
JR |
PLOT |
|
Executes |
|
: |
#9C40 (40000) |
00220 |
VOZWR |
INC |
DE |
|
|
|
|
|
|
00230 |
|
LD |
A,D |
|
9C40: F3 |
DB |
FE |
CB 3F |
CB 3F D3 :8F |
00240 |
|
CP |
С |
|
9C48: FE |
18 |
F6 |
00 00 |
00 00 00 :F0 |
00250 |
|
JR |
Z,ZERO |
|
|
|
|
|
|
00260 |
|
JR |
OPROS |
|
Запустите программу и подайте |
00270 |
ZERO |
LD |
DE, 0 |
|
на магнитофонный вход звуковой |
00280 |
|
CALL |
KEY |
НАПЕЧАТАННОМУ
|
|
OR |
OPROS |
|
PLOT |
LD |
HL,22528 |
|
|
ADD |
HL,DE |
|
|
LD |
B,63 |
|
|
LD |
(HL),В |
|
|
OR |
VOZWR |
|
PL0T1 |
LD |
HL,22528 |
|
|
ADD |
HL,DE |
|
|
LD |
B,0 |
|
|
LD |
(HL),В |
|
|
OR |
VOZWR |
|
KEY |
LD |
A, #7F |
|
|
IN |
A,(254) |
|
|
BIT |
1, A |
|
|
OR |
Z,KEY |
|
|
BIT |
0, A |
|
|
OR |
Z,END |
|
|
RET |
|
|
END |
POP |
AF |
|
|
EI |
|
|
|
RET |
|
Рис.1.
00290 00300 00310 00320 ООЗЗО 00340 00350 00360 00370 00380 00390 00400 00410 00420 00430 00440 00450 00460 00470 00480 00490
#9C40 (40000) #0046 (00070)
Executes : #9C40 (40000)
9C40: F3 16 00 42 0E 03 5A DB :6D
9C48: FE CB 3F CB 3F D3 FE CB :92
9C50: 67 28 1A 18 OF 13 7A B9 :02
9C58: 28 02 18 EB 11 00 00 CD :FF
9C60: 76 9C 18 E3 21 00 58 19 :9B
9C68: 06 3F 70 18 E8 21 00 58 :32
9C70: 19 06 00 70 18 DF 3E 7F :4F
9C78: DB FE CB 4F 28 F8 CB 47 :39
9C80: 28 01 C9 F1 FB C9 00 00 :C3
Зафиксировать картинку можно, нажав SYMBOL SHIFT (выход из программы - SPACE).
Если Вы подадите на магнитофонный вход звуковой сигнал, то увидите нечто похожее на на рис 1 или рис.2, причем результат зависит от качества работы входного компаратора. Если компаратор магнитофонного входа выполняет четкое переключение, то Вы увидите картину, больше похожую на рис.1. На рис.2 хорошо видны одиноко стоящие черные квадраты - это так называемые "быстрые нули" - они и являются главными источниками шу-иа (кстати, в приводимых программах при определенных комбинациях нажатых клавиш, например, B,N,M, происходит изменение цвета бордюра в такт звуку). 
Рис.2.
Программы, приведенные в листингах 3 и 4, позволяют записывать и воспроизводить звук. Причем, представленная в листинге 3, делает это при помощи БЕТ'анья, ИЕЗ'етанья и ротации регистра С. А в листинге 4 - при поиощи счетчика звуковых импульсов В. Она также содержит блок по удалению "быстрых нулей". Для обеспечения компенсационных задержек в программах применяются холостые операции, они в листингах выделены курсивом. В программе на листинге 4 нет счетчика заполняемости экрана. Дело в том, что он и не нужен, как только в регистре Н окажется число #5В, то значит, заполнение закончено.
|
ВОЗВРАЩАЯСЬ |
К |
НАПЕЧАТАННОМУ J |
|
|
00110
00120 BITE 00130 TO 00140 CICL 00150 00160 00170 00180 00190 00200 00210 ZED 00220
00230 LOOP 00240 00250 00260 00270 00280 00290 00300 00310 KEY 00320 00330 00340 00350 00360 00370 00380 00390 00400
00410 START
00420
00430
00440 BITE1
|
После |
запуска программы запи- |
00450 |
|
LD |
B, 8 |
|
сывают сигнал, поступающий с маг |
00460 |
T02 |
LD |
A,10 |
|
нитофонного входа. Этот процесс |
00470 |
CICLl |
DEC |
A |
|
отражается на экране. После пол |
00480 |
|
OR |
NZ,CICLl |
|
ного заполнения экрана можно на |
00490 |
|
BIT |
0,C |
|
жать ENTER для неоднократного |
00500 |
|
OR |
Z,ZEDl |
|
воспроизведения записанного фраг |
00510 |
|
LD |
A,16 |
|
мента. Выход из программы - нажа |
00520 |
|
OUT |
(254),A |
|
тием SPACE. |
00530 |
|
OR |
LOOP1 |
|
|
|
00540 |
ZEDl |
LD |
A, 0 |
|
|
Листинг 3. |
00550 |
|
OUT |
(254),A |
|
|
|
00560 |
|
LD |
AtO |
|
00010 |
;SeBco prog. |
00570 |
LOOP1 |
RLC |
С |
|
00020 |
; present |
00580 |
|
DJNZ |
TO 2 |
|
00030 |
;the programm |
00590 |
|
INC |
HL |
|
00040 |
;"PATEPHONE" |
00600 |
|
DEC |
DE |
|
00050 |
;written by Below S. |
00610 |
|
RL |
A |
|
00060 |
;(C) 1995 |
00620 |
|
RL |
A |
|
00070 |
ORG 40000 |
00630 |
|
LD |
A,E |
|
00080 |
ENT |
00640 |
|
OR |
D |
|
00090 |
LD HL,16384 |
00650 |
|
JR |
NZ,BITE1 |
|
00100 |
LD DE,6144 |
00660 |
|
JR |
KEY |
DI
LD
LD
DEC
JR
IN
BIT
OR
SET
OR
RES
LD
RLC
B,8 A, 10 A
NZ/CICL
A,(254)
6,A
Z,ZED
0,C
LOOP
0,C
A,0
С
(HL),C
HL
DE
A,E
D
NZ,BITE A,#BF A,(254) 0,A
Z,START A,#7F A,(254) 0,A
Z
KEY
HL,16384 DE,6144
C,(HL)
LD
INC
DEC
LD
OR
OR
LD
IN
BIT
OR
LD
IN
BIT
EI
RET
OR
LD
LD
DI
LD
Start of object: #9C40 (40000) Length : #0068 (00104)
Executes : #9C40 (40000)
00010 00020 00030 00040 00050 00060 00070 00080 00090 00100 GO 00110 00120
00130 TEST
|
9C40: |
21 |
00 |
40 |
11 |
00 |
18 |
F3 |
06 |
5F |
|
9C48: |
08 |
3E |
OA |
3D |
20 |
FD |
DB |
FE |
67 |
|
9C50: |
CB |
77 |
28 |
04 |
CB |
CI |
18 |
04 |
02 |
|
9C58: |
CB |
81 |
3E |
00 |
CB |
01 |
10 |
E9 |
43 |
|
9C60: |
71 |
23 |
IB |
7B |
B2 |
20 |
EO |
3E |
16 |
|
9C68: |
BF |
DB |
FE |
CB |
47 |
28 |
OA |
3E |
IE |
|
9C70: |
7F |
DB |
FE |
CB |
47 |
FB |
C8 |
18 |
51 |
|
9C78: |
EE |
21 |
00 |
40 |
11 |
00 |
18 |
F3 |
7F |
|
9C80: |
4E |
06 |
08 |
3E |
OA |
3D |
20 |
FD |
1A |
|
9C88: |
CB |
41 |
28 |
06 |
3E |
10 |
D3 |
FE |
7D |
|
9C90: |
18 |
06 |
3E |
00 |
D3 |
FE |
3E |
00 |
97 |
|
9C98: |
CB |
01 |
10 |
E7 |
23 |
IB |
CB |
17 |
17 |
|
9CA0: |
CB |
17 |
7B |
B2 |
20 |
DA |
18 |
BF |
1С |
Листинг 4.
SeBco prog.
present the programm "PATEPHONE 2" written by Below S. (C) 1995
HL,16384
B,1
C, 255 A,(254)
40000
ORG
ENT
DI
LD
LD
LD
IN
|
ВОЗВРАЩАЯСЬ |
К |
НАПЕЧАТАННОМУ |
|
----- |
|
00140 |
|
BIT |
6/A |
00700 |
|
|
LD |
A,4 |
A |
|
|
00150 |
|
OR |
Z,TEST |
00710 |
|
|
LD |
E, |
0 |
|
|
00160 |
OPRQS |
IN |
A,(254) |
00720 |
|
|
AND |
24 |
|
|
|
00170 |
|
BIT |
6,A |
00730 |
|
|
LD |
(HL),D |
|
|
00180 |
|
OR |
Z,ZED |
00740 |
|
|
OUT |
(254),A |
|
|
00190 |
|
XOR |
A |
00750 |
|
|
DONZ |
ZVUK |
|
|
00200 |
|
DEC |
A |
00760 |
|
|
INC |
D |
|
|
|
00210 |
|
OR |
TO |
00770 |
|
|
OR |
Z,HERE |
|
|
00220 |
ZED |
XOR |
A |
00780 |
|
|
CPL |
|
|
|
|
00230 |
|
INC |
DE |
00790 |
HERE |
LD |
E,. |
A |
|
|
00240 |
ТО |
CP |
С |
00800 |
|
|
INC |
HL |
|
|
|
00250 |
|
OR |
Z,PLUS |
00810 |
|
|
LD |
A,1 |
H |
|
|
00260 |
|
LD |
DE,0 |
00820 |
|
|
CP |
С |
|
|
|
00270 |
|
LD |
(DE),A |
00830 |
|
|
LD |
A,: |
E |
|
|
00280 |
|
LD |
A,A |
00840 |
|
|
OR |
NZ |
, ZAGR |
|
|
00290 |
|
LD |
A,A |
00850 |
KEY |
LD |
A, |
#BF |
|
|
ООЗОО |
|
DEC |
В |
00860 |
|
|
IN |
A, |
(254) |
|
|
00310 |
|
OR |
Z,T03 |
00870 |
|
|
BIT |
0„ |
|
|
|
00320 |
|
INC |
в |
00880 |
|
|
OR |
z,i |
START |
|
|
00330 |
ТО 4 |
LD |
(HL),B |
00890 |
|
|
LD |
A, |
#7F |
|
|
00340 |
|
INC |
HL |
00900 |
|
|
IN |
A, |
(254) |
|
|
00350 |
|
LD |
С, A |
00910 |
|
|
BIT |
0„ |
|
|
|
00360 |
|
LD |
B,1 |
00920 |
|
|
OR |
z,: |
END |
|
|
00370 |
|
LD |
A,H |
00930 |
|
|
OR |
KEY |
|
|
00380 |
|
CP |
88 |
00940 |
END |
EI |
|
|
|
|
00390 |
|
OR |
NZ,OPROS |
00950 |
|
|
RET |
|
|
|
|
00400 |
|
OR |
SPROS |
|
|
|
|
|
|
|
|
|
00410 |
PLUS |
INC |
В |
Start |
of |
object: #9C40 (40000) |
|
00420 |
|
LD |
С,A |
Length |
|
: #0094 (00148) |
|
00430 |
|
LD |
А,В |
Executes |
|
: #9C40 (40000) |
|
00440 |
|
CP |
255 |
|
|
|
|
|
|
|
|
|
00450 |
|
LD |
А,С |
9C40 |
F3 |
21 |
00 |
40 06 |
01 |
OE FF |
44 |
|
00460 |
|
OR |
Z,T04 |
9C48 |
DB |
FE |
CB |
77 28 |
FA |
DB FE |
FA |
|
00470 |
|
LD |
A,A |
9C50 |
CB |
77 |
28 |
04 AF |
3D |
18 02 |
60 |
|
00480 |
|
LD |
A,A |
9C58 |
AF |
13 |
B9 |
28 16 |
11 |
00 00 |
BE |
|
00490 |
|
LD |
(0),BC |
9C60 |
12 |
7F |
7F |
05 28 |
ID |
04 70 |
CA |
|
00500 |
|
OR |
OPROS |
9C68 |
23 |
4F |
06 |
01 7C |
FE |
58 20 |
6F |
|
00510 |
тоз |
CPL |
|
9C70 |
DD |
18 |
1A |
04 4F |
78 |
FE FF |
E3 |
|
00520 |
|
LD |
С, A |
9C78 |
79 |
28 |
EC |
7F 7F |
ED |
43 00 |
CF |
|
00530 |
|
LD |
B, 2 |
9C80 |
00 |
18 |
CB |
2F 4F |
06 |
02 11 |
96 |
|
00540 |
|
LD |
DE ,0 |
9C88 |
00 |
00 |
56 |
18 CI |
3E |
BF DB |
2B |
|
00550 |
|
LD |
D,(HL) |
9C90 |
FE |
CB |
47 |
20 F8 |
21 |
00 40 |
B5 |
|
00560 |
|
OR |
OPROS |
9C98 |
3E |
18 |
OE |
58 46 |
50 |
ED 43 |
B6 |
|
00570 |
SPROS |
LD |
A, #BF |
9CA0 |
00 |
00 |
ED |
43 00 |
00 |
ED 43 |
9C |
|
00580 |
|
IN |
A, (254) |
9CA8 |
00 |
00 |
70 |
7F IE |
00 |
E6 18 |
4F |
|
00590 |
|
BIT |
0,A |
9CB0 |
72 |
D3 |
FE |
10 E9 |
14 |
28 01 |
C5 |
|
00600 |
|
OR |
NZ,SPROS |
9CB8 |
2F |
5F |
23 |
7C B9 |
7B |
20 DC |
B1 |
|
00610 |
START |
LD |
HL,16384 |
9CC0 |
3E |
BF |
DB |
FE CB |
47 |
28 CD |
39 |
|
00620 |
|
LD |
A,24 |
9CC8 |
3E |
7F |
DB |
FE CB |
47 |
28 02 |
36 |
|
00630 |
|
LD |
C, #58 |
9CD0 |
18 |
EE |
FB |
C9 00 |
00 |
00 00 |
36 |
|
00640 |
ZAGR |
LD |
B,(HL) |
|
|
|
|
|
|
|
|
|
00650 |
|
LD |
D,B |
Надеюсь, |
эти програнны помогут |
|
00660 |
ZVUK |
LD |
(0),BC |
Вам |
в оформлении Ваших |
собствен- |
|
00670 |
|
LD |
(0),BC |
ных программ. |
|
|
|
|
|
00680 |
|
LD |
(0),BC |
|
|
|
|
|
|
|
|
|
00690 |
|
LD |
(HL), В |
|
|
* |
|
* |
* |
|
|
|
|