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

 system schsv

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

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

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

  -------------------------------- Пример ----------------------------------

                start
                entry task
                system newsv,wtr,popsve,schsv,symb,ftochar,prout
                swap box

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

      task =    <wtr /box/<newsv 'F'/1/>>  +
                <popsve /box//1111//2222/>       +
                <popsve /box//3333//4444/>       +
                <popsve /box//5555//6666/>       +
                <printres <schsv /box//2//5555//6666/>> +
                <printres <schsv /box//2//1111//2222/>>
                end

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

         C:\PRIMER>
         /BOX//3//-5555//-6666/
         Not Found!

         C:\PRIMER>

Seealso:


 dschsv