From 8ea7c876d6d7ca1284e9b9f92e9bfb7c4f628d90 Mon Sep 17 00:00:00 2001
From: "ol.sc" <ol.sc@b7a2c559-68d2-44c3-8de9-860c34a00d81>
Date: Sun, 13 Dec 2009 11:23:20 +0000
Subject: [PATCH] Added macro for ssc slot selection.

git-svn-id: svn://svn.cc65.org/cc65/trunk@4528 b7a2c559-68d2-44c3-8de9-860c34a00d81
---
 libsrc/apple2/apple2-ssc.s | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

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
-- 
2.39.5