move modem q variables to the direct page, adjust CDA hexdump to show most recent 16*8 bytes.

vt.equ.S

@@ -84,6 +84,14 @@ saved_x	ds 2
 saved_y	ds 2
 saved_decom ds 2
 
+
+* async read/write pointers.
+*
+read_q_head	ds 2
+read_q_tail	ds 2
+write_q_head	ds 2
+write_q_tail	ds 2
+
 	do *>256
 	err "too big"
 	fin

vt100.cda.S

@@ -535,13 +535,20 @@ hexdump
 
 	php
 	lda #0
+
+	stz :offset
+
 	sep #$20
 
 	ldx #4*2
 	stx :row
 
-	ldy #0
+	lda DPAGE+read_q_tail
-	sty :offset
+	sec
+	sbc #8*16
+	sta :offset
+
+
 
 :one_row
 

vt100.modem.S

@@ -6,7 +6,7 @@
 
 	mx %11
 	cas se
-*	use vt.equ
+	use vt.equ
 
 SCCBREG		equ $c038
 SCCAREG		equ $c039
@@ -35,13 +35,15 @@ init_modem ent
 	php
 	sei
 
-	stz q_head
+	stz read_q_head
-	stz q_tail
+	stz read_q_tail
+	stz write_q_head
+	stz write_q_tail
 
 
 * zero out the buffer [for CDA debugger]
 	ldx #0
-]loop	stz buffer,x
+]loop	stz read_buffer,x
 	inx
 	bne ]loop
 
@@ -144,7 +146,7 @@ read_modem_sync ent
 :rts	rts
 
 
-buffer equ $1e00
+read_buffer equ $1e00
 
 modem_vector	ent
 	jml modem_int
@@ -171,9 +173,9 @@ modem_int
 
 :read
 	lda SCCBDATA
-	ldx q_tail
+	ldx DPAGE+read_q_tail
-	sta buffer,x
+	sta read_buffer,x
-	inc q_tail
+	inc DPAGE+read_q_tail
 
 * more?
 	stz SCCBREG
@@ -207,12 +209,12 @@ read_modem_async ent
 
 	php
 	sei
-	ldx q_head
+	ldx read_q_head
-	cpx q_tail
+	cpx read_q_tail
 	beq :nope
 
-	lda buffer,x
+	lda read_buffer,x
-	inc q_head
+	inc read_q_head
 	plp
 	sec
 	rts
@@ -226,13 +228,15 @@ reset_modem_buffer ent
 	mx %11
 	php
 	sei
-	stz q_head
+
-	stz q_tail
+	stz read_q_head
+	stz read_q_tail
+	stz write_q_head
+	stz write_q_tail
+
 	plp
 	rts
 
-q_head	ds 2
-q_tail	ds 2
 *buffer	ds 256
 
 	sav vt100.modem.L