asm code problem.

[Emil_halim]

this was discussion in OXYEditor under tools section , but i see it is better to put it here.

Charles ,

this did not work as expect

$ filename "test2.exe"
#include "..\..\inc\RTL32.inc"

addr ecx,xx
[ecx] = 100
print hex [ecx]
end

.xx
dd  0

   

[Peter]

Hi Emil,

end means in OxygenBasic  "marks the end of a code block"
 
Isn't termination!

[Emil_halim]

Hi Peter ,

yes i know that end will tell the compiler to stop at that point and don't execute the following  instruction.

but how this help in this case?   

[Emil_halim]

i was playing with my old strcpy function in Ziron and start to compile it under Oxygen and......

it compiled ok with a Little changes , but it refused to run as the above problem.

Code: [Select]


$ filename "test3.exe"
#include "..\..\inc\RTL32.inc"

function  H_strcpy(Dword dst,src)
{
 ' uses edx ebx;
  push edx : push ebx
  Eax = dst;
  Edx = src;
  push Eax;
  BL =  char[Edx];
  while ( BL != 0)  
   {
      char[Eax] = BL;
      Eax++; Edx++;
      BL =  char[Edx];
   }  
  char[Eax] = 0;
  pop Eax;
  pop ebx : pop edx
}

dim as string * 1024 buf

H_strcpy(&buf,"Emil Halim")

print buf


[Peter]

Code: [Select]

indexbase 0
'$ filename "test3.exe"
'#include "..\..\inc\RTL32.inc"

string buf  

Sub H_strcpy(string dst, string src)
  pushad
  mov Eax,dst
  mov Edx,src
.w  
  
      mov CL, [Edx]
      mov [Eax], CL
      inc Eax
      inc Edx
      mov CL, [Edx]
    
  cmp CL,0
  jnz w
  popad
End Sub

H_strcpy(buf,"Emil Halim ")

print buf


[Emil_halim]

ok ,Peter thanks for converting.

but i really want to know Oxygen compiled it with no error and what could be the op-code that came out?

[Charles Pegge]

Hi Emil, Peter,

the '=' operator usually translates to something like this

a=b

---->

mov eax,b
mov a,eax



copy is a built-in function and works on the var address or strpr for strings

'copying from b to a , n bytes:

copy @a,@b,n
or
copy &a,&b,n


Using Oxygen Asm with block feature:

zstring a[]="ABCDE"
zstring b[]="12345"
sys n=len a

mycopy:
addr esi,b
addr edi,a
mov ecx,n
(
  dec ecx
  jl exit
  mov al,[esi]
  mov [edi],al
  inc esi
  inc edi
  repeat
)
print b


NB: I noticed that addr does not handle bstrings and strings correctly, so I will add the mod to my next release.

zstrings / char is ok

Charles

[Peter]

I use Assembler in old style, I have no problems.

[Emil_halim]

Hi Peter ,

this is old style but still did not work

Code: [Select]

addr ecx,xx
mov [ecx] , 100
print hex [ecx]
end

.xx
dd  0


[Peter]

Hi Emil,



X

[Emil_halim]

this is very strange , it compiled okay but refused to run.

can Mr Charles give any hint here please!!!!!!!!!!  

[Peter]

can Mr Charles give any hint here please!!!!!!!!!! 

LOL 

[Emil_halim]

Hi Peter ,

i think Oxygen has some troubles with 32bit version of windows , to ensure that , want to test it with
other 32bit machine , do you have one ? 

[JRS]

I run 32 bit XP in a VirtualBox under Ubuntu 64. I have Win7 64 bit in a separate bootable partition. (64 bit Windows testing only)  For me this is a great way to test both 32 & 64 bit Windows and still use a sane OS for development. For quick tests without having to fire up the XP VirtiualBox, I use Wine.

[Peter]

No, I haven't.
But you can knock at Aurel. He drives ancient WinXP 32 Bit.