some work towards SECOND in the internal DOS

src/dos_m65/dos_second_tksa.s

@@ -7,19 +7,25 @@
 
 dos_SECOND:
 
+	phx
+	cmp #$60
+	bcs dos_SECOND_OPEN
+
 	; XXX provide implementation
 
+	plx
 	sec
 	rts
 
+dos_SECOND_OPEN:
 
-dos_TKSA:
+	and #$1F
 
-	phx
+	ldx IDX1_LISTENER          ; store channel
-	pha
+	sta XX_CHANNEL, X
-	and #$60
+
-	bne dos_TKSA_OPEN
+	cmp #$0F
-	pla
+	beq dos_SECOND_OPEN_cmd
 
 	; XXX provide implementation
 
@@ -28,9 +34,31 @@ dos_TKSA:
 	rts
 
 
+dos_SECOND_OPEN_cmd:
+
+	; XXX provide implementation
+
+	plx
+	clc
+	rts
+
+
+
+
+dos_TKSA:
+
+	phx
+	cmp #$60
+	bcs dos_TKSA_OPEN
+
+	; XXX provide implementation
+
+	plx
+	sec
+	rts
+
 dos_TKSA_OPEN:
 
-	pla
 	and #$1F
 
 	ldx IDX1_TALKER          ; store channel

src/kernal/iec/open_iec.s

@@ -18,14 +18,11 @@ open_iec:
 
 	; We have a command to send to IEC device
 	jsr LISTEN
-	bcc @1
+	+bcs kernalerror_DEVICE_NOT_FOUND
-	jmp kernalerror_DEVICE_NOT_FOUND
+
-@1:
 	lda SA
 	jsr iec_cmd_open
-	bcc @2
+	+bcs kernalerror_DEVICE_NOT_FOUND
-	jmp kernalerror_DEVICE_NOT_FOUND
-@2:
 
 !ifdef CONFIG_MEMORY_MODEL_60K {
 	; We need our helpers to get to filenames under ROMs or IO area