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

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