Kernel version 0.9 : CP/MV/RM....

BIN/X.CPMV.S.txt

@@ -234,10 +234,12 @@ CS.RUN.DIR		ldy #bRecurse
 				>SYSCALL MKDirYA
 
 				jsr CS.RUN.PrintErr
-				bcs .9
+				bcc .1
+				cmp #MLI.ERR.DUPFILE
+				beq .1
 				.FIN
 				
-				>LDYA ZPPtr1
+.1				>LDYA ZPPtr1
 				jmp EnterSubDirYA
 
 .8				clc
@@ -294,11 +296,10 @@ CS.RUN.PrintFile
 *--------------------------------------
 				.DO X.COPY.TO.DEST=1
 *--------------------------------------
-*--------------------------------------
 CS.RUN.CopyStart
-				ldy #S.STAT.P.AUXTYPE
+				ldy #S.STAT.P.AUXTYPE+1
 				>PUSHB (ZPPtr2),y
-				iny
+				dey
 				>PUSHB (ZPPtr2),y			
 				ldy #S.STAT.P.TYPE
 				>PUSHB (ZPPtr2),y
@@ -314,9 +315,9 @@ CS.RUN.CopyStart
 				ldy #hSrcFile
 				sta (pData),y
 				
-				ldy #S.STAT.P.AUXTYPE
+				ldy #S.STAT.P.AUXTYPE+1
 				>PUSHB (ZPPtr2),y
-				iny
+				dey
 				>PUSHB (ZPPtr2),y
 				ldy #S.STAT.P.TYPE
 				>PUSHB (ZPPtr2),y
@@ -328,7 +329,7 @@ CS.RUN.CopyStart
 				
 				>SYSCALL FOpen
 				bcc .1
-				
+				>DEBUG
 				pha
 				ldy #hSrcFile
 				lda (pData),y
@@ -361,8 +362,10 @@ CS.RUN.Copy		stz .90+1
 				>PUSHB (pData),y
 				>SYSCALL FRead
 				bcc .1
-				eor #MLI.ERR.EOF
-				beq .9
+				cmp #MLI.ERR.EOF
+				bne .9
+				lda #0
+				bra .9
 				
 .1				>STYA ZPPtr2
 				
@@ -373,6 +376,9 @@ CS.RUN.Copy		stz .90+1
 				>SYSCALL FWrite
 				bcs .9
 				
+				lda .90+1
+				>SYSCALL FreeMemA
+				
 				lda #'.'
 				>SYSCALL PutCA
 				rts			
@@ -382,7 +388,7 @@ CS.RUN.Copy		stz .90+1
 				
 .90				lda #$00
 				beq CS.RUN.CopyEnd
-				>SYSCALL FreeMemA	
+				>SYSCALL FreeMemA
 *--------------------------------------
 CS.RUN.CopyEnd	ldy #hDstFile
 				lda (pData),y

README.md

@@ -85,7 +85,8 @@ In Progress : moving TCPIP to socket API
 ## Internal Shell commands:  
 | Name | Status | Comment |
 | ---- | ------ | ------- |
-| CD/PWD | Working | Improved syntax : now, 'CD ../BIN' works |
+| CD | Working | Improved syntax : now, 'CD ../BIN' works |
+| PWD | Working  | |
 | DATE | Working  | |
 | ECHO | Working | \b,\e,\f,\n,\\ and \% supported |
 | EXIT | Working | |
@@ -120,6 +121,7 @@ note : '$VAR' does NOT expand Variable
 | PIC.DRV | In Progress | Apple "Parallel Interface Card" Driver, renamed from PPIC.DRV | 0.8 |
 | Mouse.DRV | Working | Apple Mouse Card,//c Mouse Port | 0.9 |
 | DHGR.DRV | In Progress | except bitblt... | 0.8 |
+| ---- | ------ | ------- | ----- |
 | Uthernet.DRV | Working | | 0.9 |
 | Uthernet2.DRV | Working | | 0.9 |
 | Uther2.AI.DRV | In Progress | With ARP/IP Offloading | 0.8 | 
@@ -148,6 +150,7 @@ note : '$VAR' does NOT expand Variable
 | | | -S : Suppress repeated empty output lines | |
 | EDIT | Working | still missing : find/replace | 0.9 |
 | NSCUTIL | Working | Tool for setting time in NSC/DL1216E | 0.9 |
+| ---- | ------ | ------- | ----- |
 | ARP | Working | dump ARP cache, setup a static ARP entry | 0.9 |
 | PING | Working | | 0.9 |
 | DNSINFO | Working | dump DNS cache, setup a static DNS entry | 0.9 |

SYS/KM.NSC.S.txt

@@ -211,36 +211,36 @@ NSCDRV			php
 				lda $C304				Reset DS1216E comparison register with READ A2=1
 				
 				ldy #7					Read 8 bytes...
-				
+
 NSCDRV.1		
 NSCDRV.R1		lda DS1216E.PATTERN,y
 				phy
 				ldy #8					....of 8 bits
-				
+
 NSCDRV.2		ldx #0
 				lsr
 				bcc NSCDRV.21
 				inx
-				
+
 NSCDRV.21		bit $C300,x				Write Pattern bit in A0, with A2=0
 				dey
 				bne NSCDRV.2
-				
+
 				ply
 				dey
 				bpl NSCDRV.1
-				
+
 				ldx #7
-				
+
 NSCDRV.4		ldy #8
 NSCDRV.5		lda $C304				Read Byte...
-				
+
 				lsr
 NSCDRV.R2		ror DS1216E.DATA,x
-				
+
 				dey
 				bne NSCDRV.5
-				
+
 NSCDRV.R3		lda DS1216E.DATA,x
 				pha
 				lsr
@@ -272,7 +272,7 @@ NSCDRV.R6		lda	DS1216E.DATA+5		Get mm
 				
 NSCDRV.R7		lda	DS1216E.DATA+1		Get MM
 				asl
-				asl	
+				asl
 				asl
 				asl
 				asl
@@ -281,7 +281,7 @@ NSCDRV.R8		ora	DS1216E.DATA+2		Get DD
 NSCDRV.R9		lda	DS1216E.DATA		Get YY
 				rol	
 				sta	DATELO+1			
-				
+
 				plp
 				rts
 *--------------------------------------