: LPT-OUT ( мануал по управляющим кодам принтера ) ;
: INTERPRET ( КРАТКОЕ ВВЕДЕНИЕ В фОРТ ) ;
: FFT ( ОБЩАЯ ТЕОРИЯ ПРЕОБРАЗОВАНИЯ фУРЬЕ ) ;

CODE RSHIFT ( x1 u -- x2 ) \ 94
( *** RSHIFT { x1 u -- x2  }
Сдвинуть x1 на u бит вправо. Поместить нули в наиболее значимые биты, освобождаемые при сдвиге.
Неоднозначная ситуация возникает, если u больше или равно числу бит в ячейке. )
     MOV ECX, EAX
     MOV EAX, [EBP]
     SHR EAX, CL
     LEA EBP, 4 [EBP]     
     RET
END-CODE