Subversion Repositories Kolibri OS

Rev

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

Rev 238 Rev 248
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 -... Line 174...
- 
 
 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 
 
174 
 
 196 
 
175 
macro struct name
 197 
macro struct name
176 
 {
 198 
 {
177 
  virtual at 0
 199 
  virtual at 0
178 
   name name
 200 
   name name