git.sur5r.net Git - cc65/blob - libsrc/geos-common/memory/cmpfstring.s

   1 ;
   2 ; Maciej 'YTM/Elysium' Witkowiak
   3 ;
   4 ; 22.12.99, 29.07.2000
   5
   6 ; char CmpFString (char length, char *dest, char* source);
   7
   8             .import DoubleSPop, SetPtrXY
   9             .import popa, return0, return1
  10             .export _CmpFString
  11
  12             .include "jumptab.inc"
  13
  14 _CmpFString:
  15         jsr DoubleSPop
  16         jsr popa
  17         jsr SetPtrXY
  18         jsr CmpFString
  19         bne L1
  20         jmp return0
  21 L1:     jmp return1