Ретро - 40 лучших процедур: Поиск строки.

<b>Ретро</b> - 40 лучших процедур: Поиск строки.


       8.6. Поиск строки

  Длина: 155
  Количество переменных: 2
  Контрольная сумма: 17221
  Назначение: эта программа осу-
ществляет поиск по  БЕЙСИК-прог-
рамме и выводит  каждую  строку,
содержащую набор символов, опре-
деленных пользователем.
  Переменные:
     Имя: data start
     Длина: 2
     Ячейка: 23296
     Комментарий: адрес  первого
байта данных.
     Имя:  string length
     Длина:  1
     Ячейка: 23298
     Комментарий:  число  симво-
лов в строке.
     Вызов программы:
     RANDOMIZE USR адрес
  Контроль ошибок: если в  памя-
ти нет БЕЙСИК-программы или сим-
вольная  строка  имеет   нулевую
длину - возврат в BASIC.
  Комментарий: время  выполнения
этой  программы  пропорционально
двум величинам: длине  строковой
переменной и длине  БЕЙСИК-прог-
раммы. Строка для поиска  должна
быть  помещена  в  ячейку   выше
RAMTOP, а  адрес  первого  байта
строки  должен  быть  помещен  в
ячейки  23296/7.  Длина   строки
должна быть сохранена  в  ячейке
23298.

   ЛИСТИНГ МАШИННЫХ КОДОВ
МЕТКА  АССЕМБЛЕР      ЧИСЛА ДЛЯ ВВОДА147.

       RES 0,(IY+2)  253 203 2 134
       LD IX,(23296) 221  42 0  91
       LD HL,(23635)  42  83  92
RESTAR LD A,(23298)   58   2  91
       LD E,A         95
       CP 0          254   0
       RET Z         200
       PUSH HL       229
RESTOR PUSH IX       221 229
       POP BC        193
       LD D,0         22   0
       INC HL         35
       INC HL         35
       INC HL         35
CHECK  INC HL         35
       PUSH DE       213
       LD DE,(23627) 237 91 75 92
       AND A         167
       SBC HL,DE     237  82
       ADD HL,DE      25
       POP DE        209
       JR C,ENTER     56   4
       POP HL        225
       RET           201
LONG_J JR RESTAR      24 223
ENTER  LD A,(HL)     126
       CP 13         254  13
       JR NZ,NUMBER   32   5
       INC HL         35
       POP BC        193
       PUSH HL       229
       JR RESTOR      24 221
NUMBER CALL 6326     205 182  24
       JR NZ,COMPAR   32   8
       DEC HL         43
DIFFER PUSH IX       221 229
       POP BC        193
       LD D,0         22   0
       JR CHECK       24 216
COMPAR LD A,(BC)      10
       CP (HL)       190
       JR NZ,DIFFER   32 245
       INC BC          3
       INC D          20
       LD A,D        122
       CP E          187
       JR NZ,CHECK    32 206
       LD A,13        62  13
       RST 16        215
       POP HL        225
       PUSH HL       229
       LD B,(HL)      70
       INC HL         35
       LD L,(HL)     110
       LD H,B         96
       LD DE,1000     17 232   3
       LD A,47        62  47
THOUS  INC A          60
       AND A         167
       SBC HL,DE     237  82
       JR NZ,THOUS    48 250
       ADD HL,DE      25
       RST 16        215
       LD DE,100      17 100   0
       LD A,47        62  47
HUNDR  INC A          60
       AND A         167
       SBC HL,DE     237  82
       JR NC,HUNDR    48 250
       ADD HL,DE      25
       RST 16        215
       LD DE,10       17  10   0
       LD A,47        62  47
TENS   INC A      !   60
       AND A         167
       SBC HL,DE     237  82
       JR NC,TENS     48 250
       ADD HL,DE      25
       RST 16        215
       LD A,L        125
       ADD A,48      198  48
       RST 16        215
       POP HL        225
       INC HL         35
       INC HL         35
       INC HL         35
140.
NEXT_C INC HL         35
       LD A,(HL)     126
LINEND CP 13         254  13
       JR NZ,CHR_14   32   4
       RST 16        215
       INC HL         35
       JR LONG_J      24 155
CHR_14 CALL 6326     205 182  24
       JR Z,LINEND    40 243
       CP 32         254  32
       JR C,NEXT_C    56 237
       RST 16        215
       JR NEXT_C      24 23
2
  Как она работает:
  Бит  0  байта, хранящегося  по
адресу 23612, сбрасывается, что-
бы символы, выводимые на печать,
появлялись в верхней части экра-
на. В IX загружается адрес  пер-
вого байта  данных.  Это  позво-
ляет загрузить этот адрес в дру-
гую пару регистров, используя  в
меньшей степени буфер  принтера.
В HL  загружается  адрес  начала
БЕЙСИК-программы.
  В аккумулятор загружается дли-
на эталонной строки и это значе-
ние копируется в E-регистр. Если
длина строки равна  0, программа
возвращается в BASIC. Адрес в HL
помещается в стек, храня положе-
ние искомой в  настоящий  момент
строки в памяти.
  Адрес данных копируется из  IX
в BC для большей доступности.  В
D-регистр  загружается  0,  т.е.
количество  найденных  символов,
равнозначных  введенным  данным.
Пара регистров HL  увеличивается
на 3, указывая на  старший  байт
указателя длины строки. HL  уве-
личивается, указывая на  следую-
щий символ.  Пара  регистров  DE
сохраняется в стеке.
  В DE загружается адрес  облас-
ти переменных и это значение вы-
читается из HL.  Если  результат
отрицательный, программа перехо-
дит к ENTER  после  восстановле-
ния HL и  возвращения  из  стека
DE. Если результат  был  положи-
тельным, стек  восстанавливается
до своего первоначального разме-
ра и выполняется возврат  в  BA-
SIC, т.к. достигнут  конец  БЕЙ-
СИК-программы.
  В процедуре ENTER в  аккумуля-
тор загружается  байт, хранящий-
ся по адресу в HL. Если  это  не
признак ENTER, происходит  пере-
ход к NUMBER. Если признак ENTER
найден, HL увеличивается, указы-
вая на начало следующей  строки.
Адрес предыдущей строки удаляет-
ся из стека и  замещается  новым
значением в HL.  Затем  делается
переход к  RESTOR.  В  процедуре
NUMBER  вызывается  подпрограмма
ПЗУ, расположенная там по  адре-
су 6326. Если символ в аккумуля-
торе является  признаком  NUMBER
(CHR_14), HL увеличивается, ука-
зывая на первый символ после пя-
тибайтного представления  числа,
определенного подпрограммой ПЗУ.
Если признак NUMBER  не  обнару-
жен,  программа   переходит    к
COMPAR, иначе HL  уменьшается  и
программа переходит к DIFFER. BC
копируется  из   IX,  количество
найденных символов  сбрасывается
в 0 и делается переход к CHECK.
  В процедуре COMPAR в аккумуля-
тор загружается  байт, хранящий-
ся по адресу в BC. Если это зна-
чение  не  то  же  самое, что  и
байт, хранящийся по адресу в HL,
программа возвращается в DIFFER.
  BC увеличивается, указывая  на
следующий байт  данных, и  коли-
чество   определенных   символов
увеличивается. Если  это  значе-
ние не  равно  длине  символьной
строки, программа возвращается к
CHECK.
  В аккумулятор загружается  код
признака ENTER, и  это  значение
выводится  на  печать, используя
команду RST 16. Адрес строки для
вывода на печать загружается  из
стека в HL. Номер  строки  затем
копируется в HL через B-регистр.
В DE загружается 1000 и в  акку-
мулятор загружается значение, на
1 меньшее, чем  код  символа  0.
Аккумулятор  уменьшается,  а  DE
повторно вычитается из HL до тех
пор, пока HL не  станет  отрица-
тельным. Затем DE прибавляется к
HL, чтобы получить положительный
остаток. Символ из  аккумулятора
выводится на печать.
  Вышеописанный прием повторяет-
ся затем для DE=100 и DE=10. За-
тем остаток загружается в  акку-
мулятор, прибавляется 48 и в ре-
зультате полученный символ выво-
дится на печать.
  Адрес начала строки восстанав-
ливается из стека и  загружается
в HL.  Затем  HL  увеличивается,
указывая на старший байт  указа-
теля длины  строки, HL  увеличи-
вается, и байт с  адресом  в  HL
загружается в аккумулятор.  Если
этот байт  не  является  призна-
ком  ENTER, делается  переход  к
CHR_14, иначе ENTER выводится на
печать. HL увеличивается и прог-
рамма возвращается к RESTAR.
  В процедуре CHR_14  вызывается
подпрограмма ПЗУ по адресу 6326.
Если символ в  аккумуляторе  яв-
ляется признаком числа, HL  уве-
личивается, указывая  на  первый
символ, стоящий после  найденно-
го числа. Этот символ загружает-
ся в аккумулятор и делается  пе-
реход к LINEND. Затем, если сим-
вол  в  аккумуляторе  имеет  код
меньший,  чем  32,  подпрограмма
возвращается к NEXT_C. Если  код
больше, чем 31,  найденный  сим-
вол выводится на печать и  прои-
содит переход к NEXT_C.