Update Survey.asm

- Make SURVEY.COM port probing compatible with Z280
6 years ago · ee2d8d31f4
1 changed files with 5 additions and 3 deletions
--- 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: