From 67ac64174148ed8a42520c518f8ebfb5e698b53d Mon Sep 17 00:00:00 2001
From: Paul Gardner-Stephen <paul@servalproject.org>
Date: Mon, 29 Apr 2019 21:08:53 +0930
Subject: [PATCH] make LIST command honour REM and quotes.

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

diff --git a/c64/basic/cmd_list.s b/c64/basic/cmd_list.s
index c0ceca4a..108d1c57 100644
--- a/c64/basic/cmd_list.s
+++ b/c64/basic/cmd_list.s
@@ -38,7 +38,7 @@ list_more_lines:
 	ldy #4
 list_print_loop:	
 	ldx #<basic_current_line_ptr
-	jsr peek_under_roms
+	jsr peek_under_roms	
 	cmp #$00
 	beq list_end_of_line
 	cmp #$22
@@ -49,6 +49,10 @@ list_print_loop:
 	lda #$22
 	jmp list_is_literal
 list_not_quote:	
+	;; Check quote mode, and display as literal if required
+	ldx quote_mode_flag
+	bne list_is_literal
+	
 	cmp #$7f
 	bcc list_is_literal
 
@@ -56,6 +60,7 @@ list_not_quote:
 
 	;; Save registers
 	tax
+	pha
 	tya
 	pha
 
@@ -77,6 +82,16 @@ list_not_quote:
 
 	pla
 	tay
+	pla
+
+	cmp #$8f
+	bne list_not_rem
+	;; REM command locks quote flag on until the end of the line, allowing
+	;; funny characters in REM statements without problem.
+	inc $0427
+	sta quote_mode_flag 	; Any value other than $00 or $FF will lock quote mode on, so the token value of REM is fine here
+	;; FALL THROUGH
+list_not_rem:		
 	
 	iny
 	bne list_print_loop