small cleanup in BASIC

2020-06-22 18:45:24 +02:00
1 parent 37b32759dc
commit 524d532433
@@ -0,0 +1,27 @@
+// #LAYOUT# STD *       #TAKE
+// #LAYOUT# *   BASIC_0 #TAKE
+// #LAYOUT# *   *       #IGNORE
+
+//
+// Fetches 8-bit unsigned integer
+//
+
+
+fetch_coma_uint8:
+
+	jsr injest_comma
+	bcs !+
+
+	// FALLTROUGH
+
+fetch_uint8:
+
+	jsr injest_spaces
+	jsr basic_parse_line_number
+	// XXX this should also detect errors
+	lda LINNUM+1
+	bne_16 do_ILLEGAL_QUANTITY_error
+	lda LINNUM+0
+	clc
+!:	
+	rts