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

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