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

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