Subversion Repositories Kolibri OS

Rev

Rev 205 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 205 Rev 238
Line 170... Line 170...
170 
   else
 170 
   else
171 
      sub arg1,arg2
 171 
      sub arg1,arg2
172 
   end if
 172 
   end if
173 
 }
 173 
 }
Line 174... Line -...
174 
 
 - 
 
175 
macro mov arg1,arg2
 - 
 
176 
 {
 - 
 
177 
   if (arg1 in __regs) & ((arg2 eqtype 0) | (arg2 eqtype '0'))
 - 
 
178 
      if (arg2) = 0
 - 
 
179 
         xor arg1,arg1
 - 
 
180 
      else if (arg2) = 1
 - 
 
181 
         xor arg1,arg1
 - 
 
182 
         inc arg1
 - 
 
183 
      else if (arg2) = -1
 - 
 
184 
         or  arg1,-1
 - 
 
185 
      else if (arg2) > -128 & (arg2) < 128
 - 
 
186 
         push arg2
 - 
 
187 
         pop  arg1
 - 
 
188 
      else
 - 
 
189 
         mov  arg1,arg2
 - 
 
190 
      end if
 - 
 
191 
   else
 - 
 
192 
      mov arg1,arg2
 - 
 
193 
   end if
 - 
 
194 
 }
 - 
 
195 
 
 - 
 
196 
 
 174 
 
197 
macro struct name
 175 
macro struct name
198 
 {
 176 
 {
199 
  virtual at 0
 177 
  virtual at 0
200 
   name name
 178 
   name name