dschsv    Поиск элемента под маской в стек-векторе в заданном диапазоне

 system dschsv

 <schsv SbS1S2Ex>
                  где Sb - символ-ссылка - имя стек-вектора  или
                           символ-метка - имя ящика, содержащего имя
                           стек-вектора,
                      S1 - номер элемента стек-вектора с которого
                           производится поиск,
                      S2 - номер элемента стек-вектора по который
                           производится поиск,
                      Ex - тело искомого элемента - макроцифры по 16 бит.

   Поиск элемента под маской в стек-векторе в заданном диапазоне и выдача
   найденного элемента и его номера.

   Значение:  Результатом замены в случае успешного поиска является:
              SbSnEy
              где  Sb - имя стек-вектора, 
                   Sn - номер найденного элемента,
                   Ey - выражение.
              Иначе, если элемент не найден:
              Sb'*'Ex

  -------------------------------- Пример ----------------------------------
               start
               entry task
               system newsv,wtr,popsve,dschsv,symb,ftochar,prout
               swap box

     printres
               S0'*'Ey = <prout 'Not found!'>
               S0S1S2S3S4 = <prout '/'<ftochar S0>'//'<symb S1>'//' +
                                      <symb S2>'//'<symb S3>'//'<symb S4>'/'>

     task =    <wtr /box/<newsv 'F'/1/>>  +
               <popsve /box//1111//2222/>       +
               <popsve /box//3333//4444/>       +
               <popsve /box//5555//6666/>       +
               <popsve /box//7777//8888/>       +
               <printres <dschsv /box//1//3//3333//4444/>> +
               <printres <dschsv /box//3//4//3333//4444/>>
               end

     Даст в результате выполнения:

       C:\PRIMER>primer.exe
       /BOX//2//-3333//-4444//4444/
       Not found!

       C:\PRIMER>

Seealso:


 schsv