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

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