;›; bzero(ptr, nbytes)›;›  .globl  _bzero›_bzero:›  jsr  popax    ; get nbytes›  sta  tmp1›  stx  tmp2›  jsr  popax    ; get ptr›  sta  ptr1›  stx  ptr1+1›  lda  #0›bz1:›  ldx  tmp2    ; get nbytes^›  beq  bz3    ; zero, try lo›  ldy  #0›bz2:›  sta  (ptr1),y  ; zap a byte›  iny›  bne  bz2›  inc  ptr1+1    ; bump ptr^›  dec  tmp2    ; dec nbytes^›  bne  bz1    ; around again›bz3:›  ldy  tmp1›  beq  bz5›  ldy  #0›bz4:›  sta  (ptr1),y  ; zap a byte›  iny›  cpy  tmp1    ; done?›  bne  bz4›bz5:›  rts›