From 900dccb3d1a57bd74f0da26a647ed9351953526c Mon Sep 17 00:00:00 2001
From: Kelvin Sherlock <ksherlock@gmail.com>
Date: Sat, 15 Jan 2022 16:31:38 -0500
Subject: [PATCH] head/tail swapped.

---
 vt100.modem.S | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/vt100.modem.S b/vt100.modem.S
index a8ff523..3a2bfc5 100644
--- a/vt100.modem.S
+++ b/vt100.modem.S
@@ -169,6 +169,7 @@ modem_int
 	phk
 	plb
 
+	lda SCCBREG ; sync
 	stz SCCBREG
 	lda SCCBREG
 	and #%0000_0001 ; rx ready.
@@ -176,9 +177,9 @@ modem_int
 
 :read
 	lda SCCBDATA
-	ldx DPAGE+read_q_tail
+	ldx DPAGE+read_q_head
 	sta read_buffer,x
-	inc DPAGE+read_q_tail
+	inc DPAGE+read_q_head
 
 * more?
 	stz SCCBREG
@@ -329,12 +330,12 @@ read_modem_async ent
 
 	php
 	sei
-	ldx read_q_head
-	cpx read_q_tail
+	ldx read_q_tail
+	cpx read_q_head
 	beq :nope
 
 	lda read_buffer,x
-	inc read_q_head
+	inc read_q_tail
 	plp
 	sec
 	rts