separated commands from functions

c64/basic/basic_commands/cmd_list.s

@@ -0,0 +1,44 @@
+// #LAYOUT# STD *       #TAKE
+// #LAYOUT# *   BASIC_0 #TAKE
+// #LAYOUT# *   *       #IGNORE
+
+
+// LIST basic text.
+// XXX - Does not currently support line number ranges
+
+cmd_list:
+
+	// Set current line pointer to start of memory
+	jsr init_oldtxt
+
+	// Always start with empty line, for readability
+	jsr print_return
+
+list_loop:
+
+	ldy #1
+
+#if CONFIG_MEMORY_MODEL_60K
+	ldx #<OLDTXT+0
+	jsr peek_under_roms
+	cmp #$00
+#else // CONFIG_MEMORY_MODEL_38K
+	lda (OLDTXT),y
+#endif
+
+	bne list_more_lines
+
+	// LIST terminates any running program,
+	// because it has fiddled with the current line pointer.
+	// (Confirmed by testing on a C64)
+	jmp basic_main_loop
+
+list_more_lines:
+	lda STKEY
+	bmi !+
+	jmp cmd_stop
+!:
+	jsr list_single_line
+	// Now link to the next line
+	jsr basic_find_next_line
+	jmp list_loop