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

   1 ;
   2 ; Ullrich von Bassewitz, 05.08.1998
   3 ;
   4 ; CC65 runtime: long add
   5 ;
   6
   7         .export         tosaddeax
   8         .import         addysp1
   9         .importzp       sp, sreg, tmp1
  10
  11 ; EAX = TOS + EAX
  12
  13 tosaddeax:
  14         ldy     #0
  15         clc
  16         adc     (sp),y          ; byte 0
  17         sta     tmp1            ; use as temp storage
  18         iny
  19         txa
  20         adc     (sp),y          ; byte 1
  21         tax
  22         iny
  23         lda     sreg
  24         adc     (sp),y          ; byte 2
  25         sta     sreg
  26         iny
  27         lda     sreg+1
  28         adc     (sp),y          ; byte 3
  29         sta     sreg+1
  30         lda     tmp1            ; load byte 0
  31         jmp     addysp1         ; drop TOS
  32