emov
emov( eone, y );
emov(x, x2);
void eabs(), eneg(), emov(), eclear(), einfin(), efloor();
emov( eone, a );
emov( eone, b );
emov( eone, qj );
emov( eone, z );
emov( x, w );
emov( w, z );
emov( eone, z );
emov( eone, z );
emov( x, r );
emov( etwo, m2 );
emov( j, e );
emov (a, c);
emov(b,c);
emov(a,c);
emov(b,c);
emov(a,c);
emov(b,c);
emov(a,c);
emov(b,c);
emov(a,c);
emov(b,c);
emov( x, y ); /* retain external format */
emov( eone, t );
emov( y, u );
emov( t, u );
emov( u, y );
emov( eone, t );
emov( y, w );
emov( eone, t );
emov( eone, xt );
emov( x, f ); /* leave in external format */
emov( f, y );
emov( eone, q5 );
emov( eone, q5 );
emov( q5, fullp );
emov( eone, q5 );
emov( q5, fullp );
emov( q5, fullp );
emov( eone, q5 );
emov( eone, q5 );
emov( e3, e2 );
emov( e3, e2 );
emov( e, rprint );
emov( er, rscan );