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         .include        "cbm.inc"
   8
   9         .export         _cbm_k_load
  10         .import         __oserror
  11         .import         popa
  12         .importzp       ptr1
  13
  14 _cbm_k_load:
  15         sta     ptr1
  16         stx     ptr1+1
  17         jsr     popa            ; get flag
  18         ldx     ptr1
  19         ldy     ptr1+1
  20         jsr     LOAD
  21         bcc     @Ok
  22         sta     __oserror
  23         ldx     ptr1
  24         ldy     ptr1+1
  25 @Ok:    txa
  26         pha
  27         tya
  28         tax
  29         pla
  30         rts