git.sur5r.net Git - cc65/blob - libsrc/runtime/land.s

   1 ;
   2 ; Ullrich von Bassewitz, 06.08.1998
   3 ;
   4 ; CC65 runtime: and on longs
   5 ;
   6
   7         .export         tosand0ax, tosandeax
   8         .import         addysp1
   9         .importzp       sp, sreg, tmp1
  10
  11
  12 tosand0ax:
  13         ldy     #$00
  14         sty     sreg
  15         sty     sreg+1
  16
  17 tosandeax:
  18         ldy     #0
  19         and     (sp),y          ; byte 0
  20         sta     tmp1
  21         iny
  22         txa
  23         and     (sp),y          ; byte 1
  24         tax
  25         iny
  26         lda     sreg
  27         and     (sp),y          ; byte 2
  28         sta     sreg
  29         iny
  30         lda     sreg+1
  31         and     (sp),y          ; byte 3
  32         sta     sreg+1
  33
  34         lda     tmp1
  35         jmp     addysp1
  36