git.sur5r.net Git - cc65/blob - libsrc/cbm/c_load.s

   1 ;
   2 ; Ullrich von Bassewitz, 03.06.1999
   3 ;
   4 ; unsigned int __fastcall__ cbm_k_load (unsigned char flag, unsigned addr);
   5 ;
   6
   7         .export         _cbm_k_load
   8         .import         LOAD
   9         .import         __oserror
  10         .import         popa
  11         .importzp       ptr1
  12
  13 _cbm_k_load:
  14         sta     ptr1
  15         stx     ptr1+1
  16         jsr     popa            ; get flag
  17         ldx     ptr1
  18         ldy     ptr1+1
  19         jsr     LOAD
  20         bcc     @Ok
  21         sta     __oserror
  22         ldx     ptr1
  23         ldy     ptr1+1
  24 @Ok:    txa
  25         pha
  26         tya
  27         tax
  28         pla
  29         rts
  30