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

   1 ;
   2 ; Ullrich von Bassewitz, 03.06.1999
   3 ;
   4 ; unsigned __fastcall__ cbm_k_load (unsigned char flag, unsigned addr);
   5 ;
   6
   7         .include        "cbm.inc"
   8
   9         .export         _cbm_k_load
  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         ldx     #0
  21         bcc     @Ok
  22         inx
  23         rts
  24 @Ok:    txa
  25         rts