Kernel 0.92

.Docs/KERNEL.md

@@ -452,17 +452,6 @@ Y,A = ZPMemMgrSPtr = PTR to S.MEM
 ## RETURN VALUE  
  Buffer filled with memory stats  
 
-# NewStr  
-Create a new copy of this C-String  
-Y,A = Ptr to source C-String  
-
-## RETURN VALUE  
-CC : success   
- Y,A = PTR to String  
- X = hMem (PSTR)  
-CS : error  
- A = SYS error code  
-
 # SListGetByID  
  PUSHB = hSList  
  PUSHW = KeyID  
@@ -1144,6 +1133,17 @@ Copy string
 ## RETURN VALUE   
 Y,A = destination  
 
+# StrDup  
+Create a new copy of this C-String  
+Y,A = Ptr to source C-String  
+
+## RETURN VALUE  
+CC : success   
+ Y,A = PTR to String  
+ X = hMem (PSTR)  
+CS : error  
+ A = SYS error code  
+
 # StrUpr/StrLwr  
 Convert string to UPPERCASE/lowercase  
 

SYS/KERNEL.S.STDIO.txt

@@ -709,17 +709,17 @@ PrintF.Cnt		.BS 2
 K.FGetS			jsr PFT.CheckNodeA
 				bcs .90
 
-				>PULLW ZPPtr1			s
+				>PULLW ZPPtr2			s
 
 				>PULLA
 				sec
 				sbc #2
 				eor #$ff
-				sta	ZPPtr2				!n
+				sta	ZPPtr1				!n
 				>PULLA
 				sbc #0
 				eor #$ff
-				sta	ZPPtr2+1			!n
+				sta	ZPPtr1+1			!n
 				
 				jsr K.GetC.I
 				bcs .9
@@ -728,24 +728,19 @@ K.FGetS			jsr PFT.CheckNodeA
 				cmp #C.CR
 				beq .8
 				
-				sta (ZPPtr1)
-				inc ZPPtr1
-				bne .2
-				inc ZPPtr1+1
+				jsr MEM.PutCharPtr2
 				
-.2				inc ZPPtr2
-				bne .3
-				inc ZPPtr2+1
+				jsr MEM.NextCharPtr1
 				beq .8
-				
-.3				jsr K.GetC.I
+			
+				jsr K.GetC.I
 				bcc .1
 				
 .8				clc
 				
 .9				pha
 				lda #0
-				sta (ZPPtr1)
+				sta (ZPPtr2)
 				pla
 .99				rts
 
@@ -819,14 +814,10 @@ K.SScanF		>STYA ZPPtr2			String to Scan
 				stz .5+1				reset LStack Ptr
 				stz .80+1				rest Arg processed
 
-.1				lda (ZPPtr1)			End Of format?
+.1				jsr MEM.GetCharPtr1		End Of format?
 				beq .8
 
-				inc ZPPtr1
-				bne .11
-				inc ZPPtr1+1
-
-.11				cmp #'%' 				Escape ?
+				cmp #'%' 				Escape ?
 				beq .2
 				
 				cmp #' '				Space ?
@@ -848,14 +839,10 @@ K.SScanF		>STYA ZPPtr2			String to Scan
 				beq .12
 				bne .1
 				
-.2				lda (ZPPtr1)			Get specifier after %
+.2				jsr MEM.GetCharPtr1		Get specifier after %
 				beq .9					unexpected End of format after "%" ?
 
-				inc ZPPtr1
-				bne .21
-				inc ZPPtr1+1
-
-.21				ldx #K.SScanFJMP-K.SScanFTBL-2
+				ldx #K.SScanFJMP-K.SScanFTBL-2
 				
 .3				cmp K.SScanFTBL,x
 				beq .4