Kernel 0.92

BIN/SHELL.S.CL.txt

@@ -267,7 +267,7 @@ CL.GetLine		>LDYA ZPFileBufPtr
 				lda (ZPFileBufPtr)
 				beq .9
 						
-				>STZ.G CL.bInQuote
+				ldx #0					not in "
 						
 				ldy #0
 				
@@ -280,20 +280,20 @@ CL.GetLine		>LDYA ZPFileBufPtr
 				cmp #'"'
 				bne .2
 				
-				phy
-				>EOR.G CL.bInQuote
-				sta (pData),y
-				ply
+				txa
+				eor #$80				toggle " switch
+				tax
 				
+				lda #'"'
 				bra .5
 				
 .2				cmp #';'
 				bne .5
 				
-				phy
-				>LDA.G CL.bInQuote
+				txa
 				beq .6
-				ply
+				
+				lda #';'
 				
 .5				sta (ZPCLBuf),y
 				iny