Kernel 0.94

BIN/SH.S.CMD.txt

@@ -431,7 +431,7 @@ CMD.RD			lda (ZPArgVBufPtr)
 				cmp #S.FI.T.DIR
 				bne CMD.REN.CSYN
 
-				>PUSHW ZPArgVBufPtr
+				>LDYA ZPArgVBufPtr
 				>SYSCALL Remove
 .99				rts
 *--------------------------------------

BIN/X.CPMVRM.S.txt

@@ -199,9 +199,9 @@ CS.RUN			ldy #S.PS.hStdIn
 
 				ldy #hSrcFullPath
 				jsr CS.RUN.GetPathY
-				>PUSHYA
 				>SYSCALL Remove
 				bcs .22
+				
 				jsr CS.RUN.CheckErr		Success!!!
 				jsr CS.RUN.IncCount
 				jmp CS.RUN.NEXT
@@ -251,14 +251,18 @@ CS.RUN.LEAVE 	jsr LeaveSubDir			exit this sub dir....
 *				.DO X.COPY.TO.DEST=0
 
 				jsr GetEntry
-				bcs *
 				jsr CS.RUN.BuildFilePath
 				jsr CS.RUN.DIR.MSG
 				bcs CS.RUN.LEAVE.RTS			
 
 				ldy #hSrcFullPath
 				jsr CS.RUN.GetPathY
-
+*				pha
+*				phy
+*			>SYSCALL puts	
+*			>DEBUG
+*				ply
+*				pla
 				>SYSCALL Remove
 				jsr CS.RUN.CheckErr
 				bcs .99
@@ -707,5 +711,5 @@ CS.QUIT			jsr LeaveSubDir
 *--------------------------------------
 MAN
 SAVE USR/SRC/BIN/X.CPMVRM.S
-LOAD USR/SRC/BIN/CP.S
+LOAD USR/SRC/BIN/RM.S
 ASM

DRV/UTHER2.AI.DRV.S.txt

@@ -391,6 +391,8 @@ READ			php
 
 				>STYA ZPIOCTL
 
+				ldx DEVSLOTx0
+
 				ldy #Sn.cnt-1
 				
 .20				lda Sn.IO.BASE,y

LIB/LIBBLKDEV.S.D2.txt

@@ -47,14 +47,10 @@ D2MoveHead		>PULLB MoveTo
 			    sta MoveFrom
 				jsr D2.PhaseOn
 
-				lda #30
+				lda #0
 				jsr D2.Wait100msA		Trash X
 
-				ldx Slotn0
-				lda IO.D2.Ph0Off,x		make sure all motor phases are off
-				lda IO.D2.Ph1Off,x
-				lda IO.D2.Ph2Off,x
-				lda IO.D2.Ph3Off,x
+				jsr D2.PhaseOff
 				bra .1
 
 .3				tya
@@ -96,6 +92,21 @@ D2.PhaseOn		bit #1					1,3,5,7 ?
 				plp
 .8				rts
 *--------------------------------------
+D2.PhaseOff		lda MoveFrom
+				bit #1					1,3,5,7 ?
+				beq .1
+				
+				pha
+				inc
+				jsr .1
+				pla
+				
+.1				and #6
+				ora Slotn0
+				tax
+				lda IO.D2.Ph0Off,x
+				rts
+*--------------------------------------
 D2.Wait100msA	sec
 
 .1				ldx #19

ProDOS.FX/ProDOS.S.XRW.txt

@@ -760,10 +760,10 @@ XRW.Seek		ldx XRW.UnitIndex
 
 				jsr XRW.PhaseOn
 				
-				lda #35					wait 3.500 usec
+				lda #0				wait 3.500 usec
 				jsr XRW.Wait100msA		Trash X
 
-				jsr XRW.AllPhaseOff
+				jsr XRW.PhaseOff
 				bra .1
 				
 .3				tya
@@ -798,10 +798,25 @@ XRW.PhaseOn		bit #1					1,3,5,7 ?
 				ora A2L					Slot $n0
 				tax
 				lda IO.D2.Ph0On,x		turn on one phase
-				jsr XRW.Wait100ms		wait 100 usec
+*				jsr XRW.Wait100ms		wait 100 usec
 				plp
 				
 .8				rts
+*--------------------------------------
+XRW.PhaseOff	lda XRW.CurrentQTrack
+				bit #1					1,3,5,7 ?
+				beq .1
+				
+				pha
+				inc
+				jsr .1
+				pla
+				
+.1				and #6
+				ora A2L
+				tax
+				lda IO.D2.Ph0Off,x
+				rts
 *--------------------------------------			
 XRW.AllPhaseOff	ldx A2L
 

SYS/KERNEL.S.STDIO.txt

@@ -597,15 +597,15 @@ K.FTell			jsr PFT.CheckNodeA
 * int remove(const char *pathname);
 * ## ASM
 * **In:**
-* `>PUSHW pathname`
+* `>LDYA pathname`
 * `>SYSCALL remove`
 * ## RETURN VALUE
 *\--------------------------------------
-K.Remove		jsr PFT.CheckPath0
+K.Remove		jsr PFT.CheckPathYA
 				bcs .9
 
 				>MLICALL MLIDESTROY
-.9				>RET 2
+.9				rts
 */--------------------------------------
 * # Rename
 * Rename a file