Kernel 0.93

SYS/KERNEL.S.STDIO.txt

@@ -811,7 +811,62 @@ PrintF.COut		phy
 K.FGetS			jsr PFT.CheckNodeA
 				bcs .9
 
+				lda (pFD)
+				bne K.FGetS.Special
+				
 				lda (pStack)
+*				clc
+				sbc #0
+				sta ZPPtr2				s-1
+				
+				ldy #1
+
+				lda (pStack),y
+				sbc #0
+				sta ZPPtr2+1			s-1
+
+				iny
+				
+				lda (pStack),y			n-1
+*				clc				
+				sbc #0
+				sta (pStack),y
+				
+				iny
+				
+				lda (pStack),y			n-1
+				sbc #0
+				sta (pStack),y
+				
+				jsr IO.READ.REG
+				bcs .9
+
+				pha
+				tya
+*				clc				
+				adc ZPPtr2
+				sta ZPPtr2
+
+				pla
+				adc ZPPtr2+1
+				sta ZPPtr2+1
+				
+				lda (ZPPtr2)
+				cmp #C.CR
+				beq .8
+
+				inc ZPPtr2
+				bne .8
+
+				inc ZPPtr2+1
+				
+.8				lda #0
+				sta (ZPPtr2)			terminate string
+				clc
+				
+.9				rts				
+*--------------------------------------				
+K.FGetS.Special	lda (pStack)
 				sta ZPPtr2				s
 				
 				ldy #1