Kernel 0.9.2

SYS/KERNEL.S.CORE.txt

@@ -385,17 +385,14 @@ CORE.ScrSel		and #$0F
 				lda A2osX.SCRNDEVS-1,x
 				beq .8					No device claimed this screen
 
+				tay
+				
+				>PUSHBI 0
+				lda #IOCTL.CONTROL
 				>DEBUG
+				jsr K.IOCTL
 				
-				jsr K.GetDevByID		x unmodified.....
-				bcs .8					??? 
-				
-				stx A2osX.ASCREEN
-				
-				>STYA .1+1
 
-				ldx #IOCTL.CONTROL
-.1				jmp $ffff				SELF MODIFED
 				
 .8				rts
 *--------------------------------------

SYS/KERNEL.S.DEV.txt

@@ -58,7 +58,7 @@ K.GetDevByName	>STYA ZPPtr1
 				bne .2					no....loop
 				
 				ldy ZPPtr2
-				lda ZPPtr3+1
+				lda ZPPtr2+1
 				clc
 				rts
 				

SYS/KERNEL.S.IO.txt

@@ -189,9 +189,8 @@ IO.WRITE.FIFO	ldy #S.FD.FIFO.S
 * **Out:**
 *  Y,A = ...
 *\--------------------------------------
-K.IOCTL			tax						op
+K.IOCTL			sta	.7+1				op
-				>PULLB .1+1				param LO
+				>PULLW pIOCTL
-				>PULLB .2+1				param HI
 				
 				tya						id
 				
@@ -199,11 +198,16 @@ K.IOCTL			tax						op
 				bcs K.IOCTL.9
 				
 				>STYA pFD
-				
-.1				ldy #$ff				SELF MODIFIED
-.2				lda #$ff				SELF MODIFIED
 
-				jmp (pFD)				x = op
+				ldy #S.FD.DEV.DRVPTR
+				lda (pFD),y
+				sta .8+1
+				iny
+				lda (pFD),y
+				sta .8+2
+
+.7				ldx #$ff				SELF MODIFIED
+.8				jmp $ffff				SELF MODIFIED x = op
 				
 K.IOCTL.9		rts
 */--------------------------------------