Kernel 0.93+

BIN/SH.S.EXP.txt

@@ -94,13 +94,17 @@ EXP.TEST		lda (ZPArgVBufPtr)
 
 				jsr CORE.ArgV.Next
 				beq .9
+
 .8				cmp #']'
 				bne .9
+
 				ldy #1
 				lda (ZPArgVBufPtr),y
 				bne .9
+
 				jsr CORE.ArgV.Next
 				beq .80
+
 				>LDYA L.EXP.OP.LOGIC
 				jsr CORE.LookupArgVBuf
 				bcs .9
@@ -136,7 +140,8 @@ EXP.TEST.UNARY 	jsr CORE.ArgV.Next
 EXP.OP.UNARY.ESYN
 				jmp EXP.E.ESYN
 
-EXP.OP.UNARY.D	jsr IO.StatArgVBufPtr
+EXP.OP.UNARY.D	
+				jsr IO.StatArgVBufPtr
 				bcs EXP.OP.UNARY.DEF.9
 
 				cmp #S.FI.T.DIR
@@ -164,7 +169,7 @@ EXP.OP.UNARY.DEF.9
 				lda #0
 				rol
 				
-				clc
+*				clc
 EXP.OP.UNARY.DEF.RTS
 				rts
 *--------------------------------------
@@ -187,15 +192,19 @@ EXP.OP.UNARY.N	jsr EXP.OP.UNARY.Z
 EXP.OP.UNARY.Z	lda (ZPArgVBufPtr)		[ -Z ] ?
 
 				cmp #']'
-				beq EXP.OP.UNARY.DEF.8	TRUE
+				bne .1
+				lda #$80				TRUE
+				clc
+				rts
 
-				jsr CORE.ArgV.Next
+.1				jsr CORE.ArgV.Next
 				beq EXP.TEST.BINARY.ESYN
 
-				cmp #']'
+				eor #']'
 				bne EXP.TEST.BINARY.ESYN
 
-				bra EXP.OP.UNARY.DEF.9	FALSE
+				clc						FALSE
+				rts
 *--------------------------------------
 EXP.OP.UNARY.X	jsr CMD.CALL.GETFUNC
 				bcs EXP.OP.UNARY.DEF.9	FALSE

SYS/KERNEL.S.DRV.txt

@@ -149,8 +149,14 @@ DRV.SmartPort	cld
 				lsr
 				sta .2
 				tax
-				lda DRV.SmartPort.Cnt-1,x
-				sta (pIOCTL)			CmdList
+				lda DRV.SmartPort.Cnt,x
+				sta (pIOCTL)			S.IOCTL.CNT
+
+				ldy #S.FD.DEV.DEVID
+				lda (pFD),y
+				ldy #S.IOCTL.UNITNUM
+				sta (pIOCTL),y
+
 				ldy #S.FD.DEV.BUSPTR
 				lda (pFD),y
 				sta .1+1