Fixed line numbers at edit error

basic/scripts/errors.py

@@ -35,6 +35,7 @@
 	array : 	array not declared
 	hardware : 	hardware error
 	mos : 		mos command error
+	badline : 	illegal line number
 """
 
 err = []

basic/sources/editing/editing/warmstart.asm

@@ -40,6 +40,7 @@ WarmStartNoClear:
 
 _WSNotSerialLinkMos:		
 		stz 	ControlStatus 				; clear break flag.
+
 		jsr 	TOKTokenise 				; tokenise it.
 		lda 	tokLineNumber 				; any line number ? if not, execute it.
 		ora 	tokLineNumber+1

basic/sources/editing/tokenise/tokenise.asm

@@ -26,6 +26,9 @@ TOKTokenise:
 		sta 	tokLineSize 				; line length itself and the line numbers.
 		stz 	tokLineNumber
 		stz 	tokLineNumber+1
+		stz 	ERRLine 					; suppresses line # on error
+		stz 	ERRLine+1
+
 		;
 		stz 	inputPos 					; input position.
 _TOKMainLoop:

basic/sources/editing/tokenise/workers/tok_intconstant.asm

@@ -47,7 +47,7 @@ _TICLineNumber:
 		sta 	tokLineNumber+1
 		rts
 _TICSyntax:
-		.error_syntax
+		.error_badline
 
 		.send code
 

basic/test.bsc

@@ -1,14 +1 @@
-sfx 0,19
-end
-
-proc snd(ch,fq,ms,sl,ty,v)
-	while peek($FF00):wend
-	poke $FF04,ch
-	doke $FF05,fq
-	doke $FF07,ms
-	doke $FF09,sl
-	poke $FF0B,ty
-	poke $FF0C,v
-	poke $FF01,7
-	poke $FF00,8
-endproc
+print "98765";