git.sur5r.net Git - cc65/blob - libsrc/geos-common/file/writerecord.s

   1 ;
   2 ; Maciej 'YTM/Elysium' Witkowiak
   3 ;
   4 ; 25.12.1999, 2.1.2003
   5
   6 ; char WriteRecord  (char *buffer, int length);
   7
   8             .export _WriteRecord
   9             .import popax, setoserror
  10
  11             .include "jumptab.inc"
  12             .include "geossym.inc"
  13
  14 _WriteRecord:
  15         sta r2L
  16         stx r2H
  17         jsr popax
  18         sta r7L
  19         stx r7H
  20         jsr WriteRecord
  21         jmp setoserror