https://emuverse.ru/w/index.php?action=history&feed=atom&title=%D0%A0%D0%B0%D0%B4%D0%B8%D0%BE-86%D0%A0%D0%9A%2F%D0%A0%D0%B0%D0%B4%D0%B8%D0%BE_03-91%2F%D0%A1%D0%BE%D1%80%D1%82%D0%B8%D1%80%D0%BE%D0%B2%D0%BA%D0%B0%2F%D0%A2%D0%B0%D0%B1%D0%BB%D0%B8%D1%86%D0%B0_3
Радио-86РК/Радио 03-91/Сортировка/Таблица 3 - История изменений
2026-05-03T22:05:11Z
История изменений этой страницы в вики
MediaWiki 1.40.0
https://emuverse.ru/w/index.php?title=%D0%A0%D0%B0%D0%B4%D0%B8%D0%BE-86%D0%A0%D0%9A/%D0%A0%D0%B0%D0%B4%D0%B8%D0%BE_03-91/%D0%A1%D0%BE%D1%80%D1%82%D0%B8%D1%80%D0%BE%D0%B2%D0%BA%D0%B0/%D0%A2%D0%B0%D0%B1%D0%BB%D0%B8%D1%86%D0%B0_3&diff=1210&oldid=prev
Panther: http://retro.h1.ru/RK86/Programm/SortTbl3.txt
2008-12-08T11:09:07Z
<p>http://retro.h1.ru/RK86/Programm/SortTbl3.txt</p>
<p><b>Новая страница</b></p><div>{{ДИ|Автор=M. ОВЕЧКИН| Источник= http://retro.h1.ru/RK86/Programm/SortTbl3.txt}}<br />
<pre><br />
Таблица 3<br />
;СОРТИРОВКА СПИСКА НА РУССКОМ ЯЗЫКЕ<br />
; (ДОПУСТИМЫ ЦИФРОВЫЕ ДАННЫЕ).<br />
;ПРЕДПОЛАГАЕТСЯ,ЧТО СЧЕТЧИК PSR<br />
;ХРАНИТ ЧИСЛО СИМВОЛОВ СТРОКИ;<br />
;СТРОКИ РАСШИРЕНЫ;<br />
;В BUF3 НАХОДИТСЯ АДРЕС КОНЦА СПИСКА.<br />
;СРАВНЕНИЕ ИДЕТ ОТ НАЧАЛА СТРОКИ.<br />
JMP NEWO ; ПЕРЕЙТИ К СОРТИРОВКЕ<br />
WYH: POP D ;<br />
LDA FL ; БЫЛ ЛИ ОБМЕН?<br />
ORA А ;<br />
JZ 0F86CH ;<br />
XRA А ; БЫЛ,СБРОСИТЬ ПРИЗНАК<br />
STA FL ; ОБМЕНА.<br />
;ОЧЕРЕДНОЙ ПРОСМОТР СПИСКА<br />
NEWO: LHLD BUF ; ЗАПОМНИТЬ ИСХОДНЫЙ<br />
SHLD BUF1 ; АДРЕС ТЕКСТОВОГО БУФЕРА.<br />
; ПРОСМОТР СТРОК<br />
NEW1: LHLD BUF1 ; ВСТАТЬ НА НАЧАЛО<br />
XCHG ; ТЕКУЩЕЙ СТРОКИ.<br />
LHLD BUF1 ; ВЫЧИСЛИТЬ АДРЕС<br />
LDA PSR ; НАЧАЛА<br />
INR А ; СЛЕДУЮЩЕЙ<br />
CALL SUM ; СТРОКИ.<br />
SHLD BUF2 ; СОХРАНИТЬ.<br />
PUSH D ; ПРОВЕРИТЬ ВЫХОД<br />
CALL STR2 ; ЗА ПРЕДЕЛЫ СПИСКА<br />
JNC WYH ; ЕСЛИ KOHEЦ,TO ПРОВЕРИТЬ<br />
POP D ; НАЛИЧИЕ ОБМЕНА.<br />
R0: LDAX D ; СИМВОЛ ТЕКУЩЕЙ СТРОКИ-<br />
СРI 60Н ; БУКВА РУССКОГО АЛФАВИТА?<br />
JC N1 ; ЕСЛИ "ДА",ТО<br />
R1: MOV А,М ; СИМВОЛ СЛЕДУЮЩЕЙ<br />
СРI 60Н ; СТРОКИ- БУКВА РУССКОГО<br />
JC N1 ; АЛФАВИТА?<br />
R2: PUSH D ; ДА,ПЕРЕКОДИРОВАТЬ<br />
PUSH Н ; СИМВОЛЫ<br />
LDAX D ; ДЛЯ<br />
CALL PER ; СОРТИРОВКИ<br />
XCHG ;<br />
POP Н ;<br />
PUSH Н ;<br />
MOV А,М ;<br />
CALL PER ;<br />
LDAX D ; НОВЫЙ КОД СИМВОЛА<br />
SUB М ; ТЕКУЩЕЙ СТРОКИ<br />
POP Н ; МЕНЬШЕ НОВОГО<br />
POP D ; КОДА СИМВОЛА<br />
JMP N2 ; ПОСЛЕДУЮЩЕЙ?<br />
N1: LDAX D ;<br />
SUB М ; РАВЕН,ВЗЯТЬ СЛЕДУЮЩИЕ<br />
M2: JZ PUZZ ; позиции СТРОК.<br />
JM CORR ; МЕНЬШЕ :ОБМЕН НЕ НУЖЕН,<br />
;ОБМЕН ПО РЕЗУЛЬТАТУ СРАВНЕНИЯ ПЕРВЫХ ПОЗИЦИЙ<br />
PUZ1: MVI А,0FFН ;ИНАЧЕ УСТАНОВИТЬ ПРИЗНАК<br />
STA FL ; ОБМЕНА<br />
LDA PSR ;<br />
MOV С,А ; И<br />
LHLD BUF1 ;<br />
XCHG ; ПОМЕНЯТЬ СТРОКИ <br />
LHLD BUF2 ; МЕСТАМИ. <br />
PO: MOV 8, M ; <br />
LDAX D ; <br />
MOV M,A ; <br />
MOV A,B ; <br />
STAX D ; <br />
INX D ; <br />
INX H ; <br />
DCR C ; <br />
JNZ PO ; <br />
JMP CORR ;<br />
; ПРОДОЛЖЕНИЕ СРАВНЕНИЯ ОСТАЛЬНЫХ ПОЗИЦИЙ <br />
PUZ2: INX H ; ПОДГОТОВИТЬ СЛЕДУМИЕ<br />
INX D ; ПОЗИЦИИ СТРОК. <br />
LDAX D ;<br />
СРI 0DН ; ЕСЛИ КОНЕЦ СТРОКИ,ТО <br />
JNZ RO;<br />
CORR: LHLD BUF2 ; ПОСЛЕДУЮЩУЮ СТРОКУ <br />
SHLD BUF1 ; СДЕЛАТЬ ТЕКУЩЕЙ. <br />
JMP NEW1 ; СОРТИРОВАТЬ.<br />
;ПРЕОБРАЗ0ВАНИЕ КОДА СИМВОЛА ДЛЯ СРАВНЕНИЯ <br />
PER: SUI 60Н ; ВЗЯТЬ<br />
LXI Н,ТАВ1 ;НОВЫЙ КОД <br />
SUM: MVI В,0 ; СИМВОЛА.<br />
MOV С,А ; <br />
DAD В ; <br />
RET ;<br />
;ПРОВЕРКА КОНЦА СПИСКА <br />
STR2: LHLD BUF3 ; АДРЕС СЛЕДУЮВЕй <br />
DCX H ; СТРОКИ СПИСКА <br />
XCHG ; СРАВНИТЬ <br />
LHLD BUF2 ; С АДРЕСОМ ПОСЛЕДНЕЙ <br />
MOV А,Н ; "00Н" СТРОКИ <br />
СМР D ; <br />
RNZ ;<br />
MOV A,L ; <br />
СМР Е ; <br />
RET ;<br />
;БУКВЫ РУССКОГО АЛФАВИТА,УПОРЯДОЧЕННЫЕ <br />
;ПО ОТНОШЕНИЮ К КОДУ ASCII <br />
TABL: DB 1DH,00H,01H,16H ; Ю,А,Б,Ц <br />
DB 04Н,05Н,14Н,0ЗН ; Д,Е,ф,Г <br />
DB 15Н,08Н,09Н,0АН ; X,И,Й,К <br />
DB 0ВН,0СН,0DН,0ЕН ; Л,М,Н,О <br />
DВ 0FH,1EH,10H,11H ; П,Я,Р,С <br />
DB 12H,13H,06H,02H ; Т,У,Ж,В <br />
DВ 1АН,1ВН,07Н,18Н ; Ь,Ы,3,Ю <br />
DB 1СН,19Н,17Н,1FН ; Э,Щ,Ч,DEL<br />
BUF: DW 2100H ;исходный АДРЕС Т кетового БУФЕРА <br />
BUF1: DW 0 ; АДРЕС НАЧАЛА ТЕКУЧЕЙ СТРОКИ <br />
BUF2: DW 0 ; АДРЕС НАЧАЛА СЛЕДУЮЩЕЙ СТРОКИ <br />
BUF3: DW 0 ; АДРЕС КОНЦА РАСВИРЕННОГО СПИСКА <br />
PSR: DB 0 ; СЧЕТЧИК "МАХ" ЧИСЛА СИМВОЛОВ СТРОКИ <br />
FL: DВ 0 ; ФЛАГ ОБМЕНА<br />
END ;<br />
<+> -А-Я(г), 0-9 <L) -ДАТ <R) - РУС<br />
</pre><br />
[[Категория:Радио-86РК/Публикации|602]]</div>
Panther