From: ol.sc <ol.sc@b7a2c559-68d2-44c3-8de9-860c34a00d81>
Date: Sun, 13 Dec 2009 11:23:20 +0000 (+0000)
Subject: Added macro for ssc slot selection.
X-Git-Tag: V2.13.1~5
X-Git-Url: https://git.sur5r.net/?a=commitdiff_plain;h=8ea7c876d6d7ca1284e9b9f92e9bfb7c4f628d90;p=cc65

Added macro for ssc slot selection.

git-svn-id: svn://svn.cc65.org/cc65/trunk@4528 b7a2c559-68d2-44c3-8de9-860c34a00d81
---

diff --git a/libsrc/apple2/apple2-ssc.s b/libsrc/apple2/apple2-ssc.s
index 9da257f84..cb9ff2ec1 100644
--- a/libsrc/apple2/apple2-ssc.s
+++ b/libsrc/apple2/apple2-ssc.s
@@ -356,18 +356,18 @@ STATUS:
 ; Must return an SER_ERR_xx code in a/x.
 
 IOCTL:
-	; Check code to be 0
-	tax
+	; Check data msb and code to be 0
+	ora	ptr1+1
 	bne	:+
 
-	; Check data to be [1..7]
-	lda	(ptr1,x)
+	; Check data lsb to be [1..7]
+	ldx	ptr1
 	beq	:+
-	cmp	#7+1
+	cpx	#7+1
 	bcs	:+
 
-	sta	Slot
-	txa			; SER_ERR_OK
+	stx	Slot
+	tax			; SER_ERR_OK
 	rts
 
 :	lda	#<SER_ERR_INV_IOCTL