Последние темы
» Вити больше нет!автор bug19 Пн Фев 20 2023, 19:54
» Собираем оригинальный Орион 128
автор bug19 Пн Фев 20 2023, 19:47
» Проблема плющеного экрана ОРИОНА
автор kanzler Пн Ноя 28 2022, 12:05
» Орион 128 и его клоны возрождение 2019-2022 год
автор kanzler Пн Ноя 28 2022, 12:03
» Электроника КР-04. Информация, документы, фото.
автор kanzler Пн Ноя 28 2022, 12:02
» Новости форума
автор kanzler Пн Ноя 28 2022, 11:52
» Орион-128 НГМД запуск 2021 года
автор matrixplus Сб Сен 10 2022, 17:36
» ПЗУ F800 для РК86
автор ведущий_специалист Сб Сен 10 2022, 10:37
» Микропроцессорная лаборатория "Микролаб К580ИК80", УМК-80, УМПК-80 и др.
автор Электротехник Вт Июл 26 2022, 19:33
» Орион-128 SD карта в Орионе
автор matrixplus Чт Июн 02 2022, 09:00
» 7 Мая. День Радио!
автор Viktor2312 Чт Май 12 2022, 10:58
» Серия: Массовая радио библиотека. МРБ
автор Viktor2312 Ср Май 11 2022, 12:17
» Полезные книги
автор Viktor2312 Пн Май 09 2022, 15:07
» Орион 128 Стандарты портов и системной шины Х2
автор matrixplus Вс Май 08 2022, 23:08
» Орион-128 и Орион ПРО еще раз про блоки питания
автор matrixplus Вс Май 08 2022, 19:09
» Орион-128 Программаторы
автор matrixplus Вс Май 08 2022, 19:02
» Орион ПРО история сборки 2021 до 2022
автор matrixplus Вс Май 08 2022, 18:47
» Анонсы монет (New coin).
автор Viktor2312 Сб Май 07 2022, 23:11
» Хочу свой усилок для квартиры собрать не спеша
автор Viktor2312 Сб Май 07 2022, 19:33
» Амфитон 25у-002С
автор Viktor2312 Сб Май 07 2022, 09:38
» Майнер: T-Rex
автор Viktor2312 Вс Май 01 2022, 09:12
» GoWin. Изучение документации. SUG100-2.6E_Gowin Software User Guide. Среда разработки EDA.
автор Viktor2312 Пн Апр 25 2022, 01:01
» GoWin. Изучение документации. UG286-1.9.1E Gowin Clock User Guide.
автор Viktor2312 Сб Апр 23 2022, 18:22
» GoWin. Documentation Database. Device. GW2A.
автор Viktor2312 Ср Апр 20 2022, 14:08
» GOWIN AEC IP
автор Viktor2312 Ср Апр 20 2022, 12:08
Самые активные пользователи за месяц
Нет пользователей |
Поиск
ПЭВМ "Специалист": Разное
Страница 1 из 1 • Поделиться
ПЭВМ "Специалист": Разное
1
Данная тема создана с перспективой на будущее и вообще потому, что такое существует в природе. Я выложу здесь ту информацию, которая мне доступна и как вроде связанна с данной темой. В надежде, что пользователи поправят меня, если что, и дополнят тему в будущей перспективе...
Viktor2312- RIP
- Сообщения : 15492
Дата регистрации : 2012-08-10
Возраст : 45
Откуда : Пятигорск
Viktor2312- RIP
- Сообщения : 15492
Дата регистрации : 2012-08-10
Возраст : 45
Откуда : Пятигорск
.
3
Скорее всего данный исходник давно не новость и мелькал в каких-нибудь архивах для Специалиста, но перед тем как удалить у себя, выложу тут, это как раз подходит под "разное", может кому пригодится при написании игры для Специалиста. Вероятно это код выдранный из какой-то игры Синклера. Воспроизводит текст речью. Понятно, что звук из однобитового аудио-выхода не особо качественный, к тому же программа скорее всего была рассчитана под английский язык. Сигнал выводится на МГ-выход и на динамик.
Исходник в КОИ-7 пригодный для трансляции только асссемблером МИКРОН (естественно для МИКРОН-а стандартные межстрочные разделители $0D, $0A заменить только на $0D (при редакциях исходника также помните, что убогий МИКРОН не выносит пустые строки: в пустых строках надо ставить точку с запятой). Текст взятый из поста форума иногда в тексте содержит символы $FF. Перекодировать ни в КОИ-8, ни в АЛЬТ, ни в CP-1251 исходник нельзя, т.к тогда перекодируюся и данные. Это потому что дизассемблировалось убогим дизассемблером МИКРОН. Если надо получить блок данных в виде HEX-дампа, то странслируйте и дизассемблируйте нормальным дизассемблером.
Исходник в КОИ-7 пригодный для трансляции только асссемблером МИКРОН (естественно для МИКРОН-а стандартные межстрочные разделители $0D, $0A заменить только на $0D (при редакциях исходника также помните, что убогий МИКРОН не выносит пустые строки: в пустых строках надо ставить точку с запятой). Текст взятый из поста форума иногда в тексте содержит символы $FF. Перекодировать ни в КОИ-8, ни в АЛЬТ, ни в CP-1251 исходник нельзя, т.к тогда перекодируюся и данные. Это потому что дизассемблировалось убогим дизассемблером МИКРОН. Если надо получить блок данных в виде HEX-дампа, то странслируйте и дизассемблируйте нормальным дизассемблером.
- Спойлер:
- ;
; *************************
; * *
; * sintezator re~i *
; * lqhowskij w.|. *
; * lenigrad 1990 g *
; * *
; *************************
;
;* tekst dlq wywoda - w konce programmy
;
;----------------------------------------
;
; zna~eniq konstant opredelq`tsq opytnym putem
;
;* ~etkostx:
;
ZAD: EQU 10H ; korotkaq zadervka ( 1 bajt )
;
;* skorostx:
;
DZAD: EQU 0400H ; bolx{aq zadervka ( 2 bajta )
;
;---------------------------
;
MSSG: EQU 0C818H
CONIN: EQU 0C803H
PC: EQU 0FF02H
;
;=============================
;
;* demonstr.programma
;
BEGIN: LXI H,TMSSG
CALL MSSG
LXI H,TEXT
CALL VOICE
CALL CONIN
CPI 1FH ; kod klawi{i <STR>
JNZ BEGIN
RET
;
TMSSG: DB 1FH,13,10,10,10,10
DB ' priwet, wladimir !',13,10,10
DB ' |to probnaq programma sintezatora re~i.'
DB 13,10,10
DB ' kak tebe |to nrawitsq ?',13,10,10
DB ' ha-ha-ha...',13,10,10,0
;
;============================
;
;* p/p sintezatora re~i
; whod : HL-adres na~ala soob}eniq,
; poslednij bajt = 00
;
VOICE: MVI B,0BBH
L0D: MOV A,B
MOV C,B
MOV B,M
ORA A
RZ
MOV A,C
CPI 41H
JM L08
CPI 5BH
JP L08
CPI 43H
MOV A,B
JNZ L09
CPI 48H
JZ L0A
L09: CPI '@'
MOV A,C
JNZ L0B
L0A: ADI 1AH
MVI B,0BBH
L0B: PUSH B
PUSH H
CALL PHONE
POP H
POP B
L14: INX H
JMP L0D
L08: LXI D,0
CPI 2EH
JZ L0F
LXI D,8000H
CPI 2CH
JZ L0F
LXI D,4000H
CPI 20H
JNZ L14
L0F: CALL PAUSE
JMP L14
;
PAUSE: DCX D
MOV A,D
ORA E
JNZ PAUSE
RET
;
;===========================
;
;* fonemnyj sintezator
; whod : A-kod simwola
;
PHONE: LXI B,MAS0-41H
MOV L,A
MVI H,0
DAD B
LXI B,MAS1
MOV L,M
MVI H,0
DAD B
L20: MOV A,M
ANI 0FH
MOV C,A
INX H
MOV A,M
ANI 80H
ORA C
MOV C,A
DCX H
L1F: MOV A,M
RLC
RLC
RLC
ANI 07H
PUSH H
JZ L17
LXI D,MAS3
MOV L,A
MVI H,0
DAD D
MOV B,M
POP H
INX H
MOV A,M
DCX H
PUSH H
RAL
LXI D,MAS2
MOV L,A
MVI H,0
DAD D
MVI A,80H
L1D: PUSH PSW
ANA M
JZ L1A
MVI A,0E0H ; 1110.0000
L1A: STA PC
MVI A,ZAD
L1C: DCR A
JNZ L1C
POP PSW
DCR B
JZ L17
ORA A
RRC
JNC L1D
INX H
JMP L1D
;
L17: LXI H,DZAD
XCHG
XRA A
CALL PAUSE
DCR C
MOV A,C
ANI 0FH
POP H
JNZ L1F
MOV A,C
RAL
RC
INX H
INX H
JMP L20
;
;* rabo~ie tablicy
;
MAS0: DB 0
DB 02H
DB 06H
DB 0AH
DB 0EH
DB 10H
DB 12H
DB 16H
DB 1AH
DB 1CH
DB '"&*.248BHJNPPV'
DB 1AH
DB '\dfptz|'
DB 0C2H
DB 84H
DB 86H
DB 0C2H
DB 0C2H
DB 0C2H
DB 88H
DB 8CH
DB 92H
DB 94H
DB 0C2H
DB 9EH
DB 0A6H
DB 0A8H
DB 0AEH
DB 0B0H
DB 0C2H
DB 0C2H
DB 86H
DB 0BCH
;
MAS1: DB '6'
DB 81H
DB '4'
DB 19H
DB '1'
DB 0ABH
DB 18H
DB 19H
DB 91H
DB 0C3H
DB '4'
DB 19H
DB '1'
DB 0E0H
DB '6'
DB 84H
DB 92H
DB 0E3H
DB '5'
DB 19H
DB 'Q'
DB 9CH
DB '114'
DB 96H
DB '6'
DB 87H
DB '3:2=2'
DB 0C0H
DB 18H
DB 19H
DB 'Q'
DB 9CH
DB '3"1'
DB 0B1H
DB '116'
DB 0A5H
DB '116'
DB 0A8H
DB '6'
DB 8AH
DB 18H
DB 19H
DB '1'
DB 0ABH
DB 18H
DB 19H
DB 'Q'
DB 1CH
DB '41242'
DB 0B7H
DB '"'
DB 10H
DB 13H
DB 19H
DB '!'
DB 0AEH
DB 92H
DB 0C3H
DB 18H
DB 19H
DB '1'
DB 0E0H
DB '6'
DB 8DH
DB '41242'
DB 0B7H
DB 18H
DB 19H
DB 'q'
DB 1CH
DB 92H
DB 0C3H
DB '212C2D2'
DB 0C5H
DB '?'
DB 81H
DB '4'
DB 19H
DB '1+3:2=2'
DB 0C0H
DB 18H
DB 19H
DB 91H
DB 0D3H
DB '3'
DB 19H
DB 'qm2'
DB 93H
DB '>'
DB 84H
DB 92H
DB 'c3:2=2'
DB 0C0H
DB 92H
DB 0F3H
DB '>'
DB 87H
DB '116%115%2'
DB 93H
DB '>'
DB 8AH
DB 18H
DB 19H
DB '1+3:2=2'
DB 0C0H
DB 13H
DB 19H
DB '2`'
DB 13H
DB 19H
DB 'q'
DB 0DDH
DB 92H
DB 0D3H
DB 18H
DB 19H
DB 'qm2'
DB 93H
DB '>'
DB 8DH
DB '4124273:2=2'
DB 0C0H
DB '2S2T2'
DB 0D5H
;
MAS2: DB 1AH
DB 99H
DB 0E1H
DB 0C3H
DB 0E1H
DB 0C7H
DB 8FH
DB 0FH
DB 0F8H
DB 03H
DB 0FH
DB 07H
DB 0C1H
DB 0E3H
DB 0FFH
DB '@'
DB 17H
DB 0FFH
DB 0
DB 03H
DB 0F8H
DB '|'
DB 0C1H
DB 0F1H
DB 0F8H
DB 03H
DB 0FEH
DB 0
DB '?'
DB 0FCH
DB 0
DB 03H
DB 0F8H
DB 0FH
DB 09H
DB 0F1H
DB 0FEH
DB 03H
DB 0EFH
DB '@'
DB 17H
DB 0FFH
DB 0
DB 03H
DB 0E1H
DB '\5'
DB 0C5H
DB 0AAH
DB '5'
DB 0
DB 0
DB 0
DB 0
DB 0
DB 0
DB '>'
DB 8EH
DB '8s'
DB 0CFH
DB 0F8H
DB 'x'
DB 0C3H
DB 0DFH
DB 1CH
DB 0F1H
DB 0C7H
DB 0FEH
DB 03H
DB 0C0H
DB 0FFH
DB 0
DB 0
DB 0FFH
DB 0F8H
DB 0
DB '?'
DB 0F8H
DB 03H
DB 0FFH
DB 0F0H
DB 01H
DB 0FFH
DB 0E0H
DB 03H
DB 0AAH
DB 0CAH
DB 'Z'
DB 0D5H
DB '!='
DB 0FEH
DB 1FH
DB 0F8H
DB 0
DB 0
DB 1FH
DB 0FFH
DB 0FCH
DB ' '
DB 0
DB 0
DB 03H
DB 0FFH
DB 0FFH
DB 08H
DB 'y'
DB 0
DB 02H
DB 0FFH
DB 0E1H
DB 0C7H
DB 1FH
DB 0E0H
DB 03H
DB 0FFH
DB 0D0H
DB 01H
DB 0FFH
DB 0F0H
DB 03H
DB '?'
DB 01H
DB 0FAH
DB '_'
DB 0C0H
DB 07H
DB 0F8H
DB 0FH
DB 0C0H
DB 0FFH
DB 0
DB 'B'
DB 0AAH
DB 0A5H
DB 'UZ'
DB 0AAH
DB 0AAH
DB 'Z'
DB 0A5H
DB 'Z'
DB 0AAH
DB 'UU'
DB 0AAH
DB 0AAH
DB 0A5H
DB 'U'
DB 0AAH
DB 'Z'
DB 0AAH
DB 0A5H
DB 'U'
DB 0AAH
DB 0AAH
DB 0A5H
DB 'U'
DB 0AAH
DB 0AAH
DB 'U'
DB 0A5H
DB 0A5H
DB 0AAH
DB 0A5H
DB 0B7H
DB 'fl'
DB 0D8H
DB 0F9H
DB 0B3H
DB 'l'
DB 0ADH
DB '77f'
DB 0FCH
DB 9BH
DB 87H
DB 0F6H
DB 0C0H
DB 0D3H
DB 0B6H
DB '`'
DB 0F7H
DB 0F7H
DB '>M'
DB 0FBH
DB 0FEH
DB ']'
DB 0B7H
DB 0DEH
DB 'F'
DB 0F6H
DB 96H
DB 0B4H
DB 'O'
DB 0AAH
DB 0A9H
DB 'U'
DB 0AAH
DB 0AAH
DB 0A5H
DB 'iY'
DB 9AH
DB 'j'
DB 95H
DB 'U'
DB 95H
DB 'Uj'
DB 0A5H
DB 'U'
DB 0A9H
DB 'Mfj'
DB 92H
DB 0ECH
DB 0A5H
DB 'U'
DB 0D2H
DB 96H
DB 'U'
DB 0A2H
DB 0BAH
DB 0CDH
DB 0
DB 'f'
DB 99H
DB 0CCH
DB 'g1'
DB 8EH
DB 'f9'
DB 0A6H
DB 'k'
DB 19H
DB 'fY'
DB 0C6H
DB 'q'
DB 09H
DB 'g'
DB 19H
DB 0CBH
DB 01H
DB 'q'
DB 0CCH
DB 's'
DB 19H
DB 99H
DB 0CCH
DB 0C6H
DB 'g'
DB 19H
DB 9AH
DB 0C6H
DB 'Y'
MAS3: DB 0
DB '.Z^'
DB 0FEH,4AH,53H,45H
;
;===========================================
;
;* zdesx movno pisatx l`boj tekst
; (tolxko lat.bukwy), konec = 00
;
TEXT: DB ' PRIWET WLADIMIR. ETO PROBNAJA'
DB ' PROGRAMMA SINTEZATORA RECHI.'
DB ' KAK T@EB@E ETO NRAWITSJA'
DB ' HA HA HAAA'
DB 0
;
END
barsik- Ветеран
- Сообщения : 1032
Дата регистрации : 2016-11-10
Откуда : Россия, СПб
Похожие темы
» ПЭВМ "Специалист-2a"
» ПЭВМ Специалист-М
» ПЭВМ Специалист-МХ
» ПЭВМ "Специалист МХ2" ПЛМ
» ПЭВМ "Специалист": Бейсик
» ПЭВМ Специалист-М
» ПЭВМ Специалист-МХ
» ПЭВМ "Специалист МХ2" ПЛМ
» ПЭВМ "Специалист": Бейсик
Страница 1 из 1
Права доступа к этому форуму:
Вы не можете отвечать на сообщения