OpenEuphoria

Re: Bios

• Posted by Mike Burrell <Mike.Burrell at GEOCITIES.COM> May 03, 1997
• 745 views

i was under the impression that when you used euphoria's standard
procedures to write text to the screen, it did it through the
bios...that's why i made my own procedures to write text directly to
the screen (it's faster)...  so anyway i guess you'll have to use
inline assembly to make a new procedure (or to take out an exisiting
one)...  here's a really BAD example of how to do it (it you want a
better way, wait for jacques dechenes to come on):

------------ start code -------------
include machine.e

procedure write_text(object string,integer page_number)
  atom address
  sequence code

  if atom(string) then
    string = {string}
  end if
  code = {
    #50,
    #53,
    #51,
    #B4,#0A,
    #B7,page_number,
    #B9,#01,#00
    }

  for i = 1 to length(string) do
    code = code & {#B3,string[i]}
  end for

  code = code & {#C3}
  a = allocate(length(code))
  poke(a,code)
  call(address)
  free(address)
end procedure

------------------ end code ----------

this requires that you plug in which video page you're on at the time
and all that so it might get very annoying to use...  also it might
not work at all because i haven't tried yet... ahhaha...  anyway i
don't know bios codes very well and how to use them, etc.  you're
better off waiting until someone who knows what they're talking about
answers your question (i.e. jacques deschenes)




    .   o   O   Mike Burrell   O   o   .
. o O http://www.geocities.com/SoHo/9036 O o .
   .  o  O burrellm at geocities.com O  o  .