From ee2d8d31f4e150aa5604e846ecd1bbbc786d3e3d Mon Sep 17 00:00:00 2001
From: Wayne Warthen <wwarthen@gmail.com>
Date: Tue, 9 Jun 2020 18:17:36 -0700
Subject: [PATCH] Update Survey.asm

- Make SURVEY.COM port probing compatible with Z280
---
 Source/Apps/Survey.asm | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/Source/Apps/Survey.asm b/Source/Apps/Survey.asm
index 33c71236..f049be90 100644
--- a/Source/Apps/Survey.asm
+++ b/Source/Apps/Survey.asm
@@ -600,9 +600,11 @@ PORTLP:
 	mov	c,a			; port number to reg c
 	mvi	b,0			; for 16 bit  port addressing
 	db	0edh,078h		; z80: in a,(c)
-; inactive port could return 0xFF or 0x78
-	CPI	0FFH
-	JZ	NEXTPT
+; inactive port could return 0xFF or 0x78 or the port address
+	cmp	c
+	jz	nextpt
+	cpi	0FFh
+	jz	nextpt
 	cpi	078h
 	jz	nextpt
 ISPORT: