separated commands from functions

c64/basic/basic_commands/cmd_save.s

@@ -0,0 +1,39 @@
+// #LAYOUT# STD *       #TAKE
+// #LAYOUT# *   BASIC_0 #TAKE
+// #LAYOUT# *   *       #IGNORE
+
+
+cmd_save:
+
+	// Set default device and secondary address; channel is not important now
+
+	jsr select_device
+	ldy #$00
+	jsr JSETFLS
+
+	// Fetch the file name
+
+	jsr fetch_filename
+	bcs_16 do_MISSING_FILENAME_error
+
+	// Try to fetch device
+
+	jsr fetch_device_secondary
+
+	// Setup the start and end addresses
+
+	lda #TXTTAB
+
+	// Setup the end address
+
+	ldx VARTAB+0
+	ldy VARTAB+1
+
+	// Perform saving
+
+	jsr JSAVE
+	jsr cmd_load_save_handle_result
+
+	// The end
+
+	jmp execute_statements