diff --git a/libsrc/runtime/ltest.s b/libsrc/runtime/ltest.s
new file mode 100644
index 000000000..2c6630042
--- /dev/null
+++ b/libsrc/runtime/ltest.s
@@ -0,0 +1,22 @@
+;
+; 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				  
+
+