git.sur5r.net Git - cc65/blob - libsrc/geos/disk/setoserror.s

   1
   2 ;
   3 ; Maciej 'YTM/Elysium' Witkowiak
   4 ;
   5 ; 2.1.2003
   6 ;
   7
   8             .export setoserror
   9             .import __oserror
  10
  11 setoserror:
  12             stx __oserror
  13             txa
  14             ldx #0              ; X is cleared (high byte for promoting char to int)
  15             tay                 ; Y register is used just to save flags state
  16             rts