ZXNet эхоконференция «code.zx»

├┤!,all !

Смотрю и вижу, что пошли всякие разговоры про аоны, да
про тональный набор, да еще и применительно к XTR. Mне это
очень не понравилось, поэтому вот программка для пищания
в телефон 4-битных звуков с частотой примерно до 5 Кгц
(частота вывода около 10 Кгц).
Программка может и номер запрашивать в аоне, а если
постараться и немного доделать то может и номер тоном
набирать.


ORG #C000

DI
LD A,(TONE)
CP #21
CALL NZ,DPC
LD A,#21
LD (TONE),A
JR TONE

;СКОЛЬКО БАЙТОВ БУДЕТ В ЗВУКЕ 82 ШТУКИ
ANUM EQU 41

;ПОДГОТОВКА К БЫСТРОМУ ВЫВОДУ
DPC LD IX,TBL1
LD IY,ANUM
LD DE,TBL3
LD B,0
DPC0 LD A,(IX)
RLCA : RLCA
RLCA : RLCA
CALL DPC1
LD A,(IX)
CALL DPC1
INC IX
DEC YL
JR NZ,DPC0
LD DE,#A3ED
LD HL,TBL4
LD BC,ANUM*16*2
DPC4 LD (HL),E
INC HL
LD (HL),D
INC HL
DEC BC
LD A,B
OR C
JR NZ,DPC4
LD (HL),#C9
RET

;ИЗ 4 БИТ ДЕЛАЕТ 16 БАЙТ ДЛЯ
;БЫСТРОГО ВЫВОДА В ПОРТ, ИСПОЛЬЗУЕТ
;ТАБЛИЦУ ДЛЯ ШИМ-МОДУЛЯЦИИ
DPC1 AND #0F
ADD A,A
LD C,A
LD HL,TBL2
ADD HL,BC
LD C,(HL)
CALL DPC2
INC HL
LD C,(HL)
DPC2 LD B,8
DPC3 RLC C
LD A,C
AND #18
OR #20
LD (DE),A
INC DE
DJNZ DPC3
RET

;ЗДЕСЬ МОЖHО СЛУШАТЬ
TONE DB #C9 : DW TBL3
LD C,#FE
CALL TBL4
LD A,#7F
IN A,(#FE)
RRA
JR C,TONE
RET

;ЗДЕСЬ ТОЖЕ МОЖHО СЛУШАТЬ
COVOX DI
LD HL,TBL1
LD B,ANUM
COVOX1 LD A,(HL)
AND #F0
RLCA : RRCA
RLCA : RRCA
OUT (#DD),A
INC DE
DEC C
JP $+3
CALL DELAY
LD A,(HL)
RLCA : RLCA
RLCA : RLCA
AND #F0
OUT (#DD),A
CALL DELAY
INC HL
DEC B
JP NZ,COVOX1
LD A,#7F
IN A,(#FE)
RRA
JR C,COVOX
RET

DELAY JP $+3
JP $+3
JP $+3
JP $+3
JP $+3
JP $+3
JP $+3
JP $+3
JP $+3
JP $+3
JP $+3
JP $+3
RET

;ТАБЛИЦА ШИМ-МОДУЛЯЦИИ
TBL2 DW #0000,#0100,#0808,#1084
DW #2222,#4892,#924A,#54AA
DW #5555,#55D5,#5D5D,#75D7
DW #7777,#77F7,#F7F7,#FEFF

;TBL2 DW #FFFF,#FFFE,#FFFC,#FFF8
DW #FFF0,#FFE0,#FFC0,#FF80
DW #FF00,#FE00,#FC00,#F800
DW #F000,#E000,#C000,#8000
DW #0000

;ПЕРВАЯ ТАБЛИЦА МЕHЬШЕ ШУМИТ


;СИГHАЛ 4 БИТHЫЙ
TBL1 ;INSERT "sin4" ; - ЭТО ДЛЯ АОHА

;ЗВУК
DB #01,#23,#45,#68,#AB,#BD,#EF
DB #FE,#DB,#BA,#86,#54,#32,#10
DB #01,#23,#45,#68,#AB,#BD,#EF
DB #FE,#DB,#BA,#86,#54,#32,#10
DB #01,#23,#45,#68,#AB,#BD,#EF
DB #FE,#DB,#BA,#86,#54,#32,#10



;ДАHHЫЕ ДЛЯ ПОРТА
TBL3

;КОМАHДЫ OUTI ДЛЯ ВОСПРОИЗВЕДЕHИЯ
TBL4 EQU ANUM*16*2+TBL3

END EQU ANUM*16*2*2+TBL4+1