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

   1 ;
   2 ; Ullrich von Bassewitz, 05.08.1998
   3 ;
   4 ; CC65 runtime: sub ints
   5 ;
   6
   7         .export         tossuba0, tossubax
   8         .import         addysp1
   9         .importzp       sp, ptr1
  10
  11 ;
  12 ; AX = TOS - AX
  13 ;
  14
  15 tossuba0:
  16         ldx     #0
  17 tossubax:
  18         ldy     #0
  19         sta     ptr1
  20         stx     ptr1+1
  21         lda     (sp),y          ; lo byte
  22         sec
  23         sbc     ptr1
  24         sta     ptr1            ; save lo byte
  25         iny
  26         lda     (sp),y
  27         sbc     ptr1+1
  28         tax
  29         lda     ptr1
  30         jmp     addysp1         ; drop TOS, set condition codes
  31