?login_element?

Subversion Repositories NedoOS

Rev

Blame | Last modification | View Log | Download

  1. openstream_file
  2. ;de=filename
  3. ;out: A!=0 => error
  4.         OS_OPENHANDLE
  5. ;b=new file handle
  6.         push af
  7.         ld a,b
  8.         ld (filehandle),a
  9.         pop af;
  10.         ret
  11.  
  12. readstream_file
  13. ;de=buf
  14. ;hl=size
  15. filehandle=$+1
  16.         ld b,0
  17.         OS_READHANDLE
  18. ;hl=actual size
  19.         ret
  20.  
  21. closestream_file
  22. ;close current stream
  23.         ld a,(filehandle)
  24.         ld b,a
  25.         OS_CLOSEHANDLE
  26.         ret
  27.