From 8c84566e53ee7695ae140b06c0dd89c229d5f8b3 Mon Sep 17 00:00:00 2001
From: Paul Gardner-Stephen <paul@servalproject.org>
Date: Sun, 28 Apr 2019 22:37:11 +0930
Subject: [PATCH] begin implementing LIST command printing of line bodies

---
 c64/basic/cmd_list.s | 34 ++++++++++++++++++++++++++++++++++
 1 file changed, 34 insertions(+)

diff --git a/c64/basic/cmd_list.s b/c64/basic/cmd_list.s
index 6e416fcb..f82867d6 100644
--- a/c64/basic/cmd_list.s
+++ b/c64/basic/cmd_list.s
@@ -27,7 +27,41 @@ list_more_lines:
 	tax
 	pla
 	jsr print_integer
+	lda #$20
+	jsr $ffd2
 
+	;; Iterate through printing out the line
+	;; contents
+	lda #0
+	sta quote_mode_flag
+	
+	ldy #4
+list_print_loop:	
+	ldx #<basic_current_line_ptr
+	jsr peek_under_roms
+	cmp #$00
+	beq list_end_of_line
+	cmp #$22
+	bne list_not_quote
+	lda quote_mode_flag
+	eor #$ff
+	sta quote_mode_flag
+	jmp list_is_literal
+list_not_quote:	
+	cmp #$7f
+	bcc list_is_literal
+
+	;; Display a token
+
+	iny
+	bne list_print_loop
+
+list_is_literal:
+	jsr $ffd2
+	iny
+	bne list_print_loop
+	
+list_end_of_line:	
 	;; Print end of line
 	lda #$0d
 	jsr $ffd2