OpenEuphoria

Fast Puts() ?

• Posted by Patrick Quist <quistnet at HOTMAIL.COM> Mar 26, 1999
• 658 views

Hy,

I had an idea and it worked.
But it's not so special, isn't it?
(But it is fast)

[MPUTS.E]
include machine.e

sequence vc
vc=machine_func(13,0)

atom screen
if vc[1] then
 screen = #B8000
else
 screen = #B0000
end if

global procedure Mputs(object xy,sequence txt,object color)
object
tmp=0
string=repeat(0,length(txt)*2)
xy=xy-1
for a=1 to length(string)/2 do
 string[a+tmp]=txt[a]
 string[a+tmp+1]=color
 tmp+=1
end for
string_space=allocate(length(string)+1)
screen_location=screen+xy[1]*80*2+xy[2]*2
string_copy_code =
      {#50,                            -- push eax
       #53,                            -- push ebx
       #52,                            -- push edx
       #B8} &                          -- mov eax,
       int_to_bytes(string_space) &    -- string address (source)
      {#BA} &                          -- mov edx,
       int_to_bytes(screen_location) & -- screen address (destination)
      {#8A, #18,                       -- L1: mov bl, [eax]
       #40,                            -- inc eax
       #88, #1A,                       -- mov [edx],bl
       #83, #C2, #01,                  -- add edx, #1
       #80, #38, #00,                  -- cmp byte ptr [eax], #00
       #75, #F3,                       -- jne L1
       #5A,                            -- pop edx
       #5B,                            -- pop ebx
       #58,                            -- pop eax
       #C3}                            -- ret
code_space=allocate(length(string_copy_code))
poke(code_space,string_copy_code)
poke(string_space,string&0)
call(code_space)
free(code_space)
free(string_space)
end procedure

[EOF]

Bye,
PQ
QC
Get Your Private, Free Email at http://www.hotmail.com