git.sur5r.net Git - cc65/blob - libsrc/common/zerobss.s

   1 ;
   2 ; Ullrich von Bassewitz, 1998-09-17, 2005-02-26.
   3 ;
   4 ; Zero the bss segment.
   5 ;
   6
   7         .export         zerobss
   8         .import         __BSS_RUN__, __BSS_SIZE__
   9         .importzp       ptr1
  10
  11
  12 .code
  13
  14 zerobss:
  15         lda     #<__BSS_RUN__
  16         sta     ptr1
  17         lda     #>__BSS_RUN__
  18         sta     ptr1+1
  19         lda     #0
  20         tay
  21
  22 ; Clear full pages
  23
  24 L1:     ldx     #>__BSS_SIZE__
  25         beq     L3
  26 L2:     sta     (ptr1),y
  27         iny
  28         bne     L2
  29         inc     ptr1+1
  30         dex
  31         bne     L2
  32
  33 ; Clear remaining page (y is zero on entry)
  34
  35 L3:     cpy     #<__BSS_SIZE__
  36         beq     L4
  37         sta     (ptr1),y
  38         iny
  39         bne     L3
  40
  41 ; Done
  42
  43 L4:     rts