;
; Ullrich von Bassewitz, 07.08.1998
;
; CC65 runtime: test long in eax
;

        .export         utsteax, tsteax
        .importzp       sreg, tmp1

tsteax:
utsteax:
        tay                     ; Save value
        stx     tmp1
        ora     tmp1
        ora     sreg
        ora     sreg+1
        beq     L9
        tya
        ldy     #1              ; Force NE
L9:     rts