DECRDSV   Уменьшение на 1 номера элемента и выдача элемента стек-вектора

 SYSTEM DECRDSV

 <DECRDSV SbSn>
                  где Sb - символ-ссылка - имя стек-вектора  или
                           символ-метка - имя ящика, содержащего имя
                           стек-вектора,
                      Sn - номер элемента стек-вектора.

   Уменьшение на 1 номера элемента Sn и выдача элемента стек-вектора по
   новому номеру.

   Значение:  Результатом замены является Sn-1 - уменьшенный на единицу
              номер элемента, за которым следуют макроцифры по 16 бит -
              элемент стек-вектора.

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

                   START
                   ENTRY task
                   SYSTEM NEWSV,WTR,POPSVE,DECRDSV,SYMB,PROUT
                   SWAP box

         printres
               S0S1S2 = <PROUT '/'<SYMB S0>'//'<SYMB S1>'//'<SYMB S2>'/'>
               Ex     = <PROUT 'Error!'>

         task =    <WTR /box/<NEWSV 'F'/1/>>  +
                   <POPSVE /box//1111//2222/>       +
                   <POPSVE /box//3333//4444/>       +
                   <POPSVE /box//5555//6666/>       +
                   <printres <DECRDSV /box//1/>> +
                   <printres <DECRDSV /box//2/>> +
                   <printres <DECRDSV /box//3/>> +
                   <printres <DECRDSV /box//4/>> +
                   <printres <DECRDSV /box//5/>>
                   END

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

             C:\PRIMER>primer.exe
             /0//65535//65535/
             /1//1111//2222/
             /2//3333//4444/
             /3//5555//6666/
             Error!

             C:\PRIMER>

Seealso:


 INCRDSV