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

   1 ;
   2 ; Marc 'BlackJack' Rintsch, 11.06.1999
   3 ;
   4 ; unsigned char __fastcall__ cbm_k_save(unsigned int start, unsigned int end);
   5 ;
   6
   7         .export         _cbm_k_save
   8         .import         SAVE
   9         .import         popptr1
  10         .importzp       ptr1, tmp1
  11
  12
  13 _cbm_k_save:
  14         sta     tmp1            ; store end address
  15         stx     tmp1+1
  16         jsr     popptr1         ; pop start address
  17         lda     #ptr1
  18         ldx     tmp1
  19         ldy     tmp1+1
  20         jsr     SAVE
  21         ldx     #0              ; Clear high byte
  22         bcs     @NotOk
  23         txa
  24 @NotOk: rts