2 ; Piotr Fusik, 15.04.2002
3 ; originally by Ullrich von Bassewitz
5 ; Long int compare function - used by the compare operators
10 .importzp sp, sreg, ptr1
15 stx ptr1+1 ; EAX now in sreg:ptr1
39 plp ; Restore the flags
42 lda #$FF ; Set the N flag
45 L3: lda #$01 ; Clear the N flag
49 eor #$FF ; Fix the N flag if overflow
50 ora #$01 ; Clear the Z flag