Kernel version 0.8 : BUGFIX in #3 "CAT -S -N FILE1 mis-formats."

BIN/CAT.S.txt

@@ -159,29 +159,17 @@ CS.RUN			ldy #bCANCEL
 CS.RUN.PRINT	sty	BytesRead			Y,A = Bytes read
 				stz ByteIndex
 				
-				ldy #bLineNum
-				lda (pData),y
-				bpl .10
-				
 				ldy #LineNum
 				lda (pData),y
 				clc
 				adc #1
 				sta (pData),y
-				pha
+				bcc .10
 				
 				iny
 				lda (pData),y
-				adc #0
+				inc
 				sta (pData),y
-				ply
-
-				>PUSHYA
-				>LDYA L.MSG.LINENUM
-				>SYSCALL PrintFYA
-				bcc .10
-				rts
-*				bcs .9
 
 .10				lda BytesRead
 				beq .12
@@ -209,6 +197,9 @@ CS.RUN.PRINT	sty	BytesRead			Y,A = Bytes read
 				lda #0
 				sta (pData),y
 				
+				jsr CS.RUN.PRINTNUM
+				bcs .9
+				
 .20				ldx ByteIndex
 				lda UsrBuf256,x
 				cmp #' '
@@ -254,6 +245,24 @@ CS.RUN.PRINT	sty	BytesRead			Y,A = Bytes read
 				
 .9				rts				
 *--------------------------------------
+CS.RUN.PRINTNUM	clc
+				ldy #bLineNum
+				lda (pData),y
+				bpl .8
+
+				ldy #LineNum
+				lda (pData),y
+				pha
+				
+				iny
+				lda (pData),y
+				ply
+				
+				>PUSHYA
+				>LDYA L.MSG.LINENUM
+				>SYSCALL PrintFYA
+.8				rts
+*--------------------------------------
 CS.RUN.OPEN		>SYSCALL GetFullPathYA
 				bcs .9
 				stx hFullPath