From ec6df3087d8596dd18fe9798d6883102d60545a9 Mon Sep 17 00:00:00 2001
From: Virgil Dupras <hsoft@hardcoded.net>
Date: Sat, 22 Feb 2020 14:43:07 -0500
Subject: [PATCH] recipes/trs80: add "recv" command

This allows us to write contents from RS-232 directly to floppy! it works!
---
 recipes/trs80/README.md | 14 ++++++++++++-
 recipes/trs80/glue.asm  | 52 +++++++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 65 insertions(+), 1 deletion(-)

diff --git a/recipes/trs80/README.md b/recipes/trs80/README.md
index 52d3cf8..cee02f1 100644
--- a/recipes/trs80/README.md
+++ b/recipes/trs80/README.md
@@ -204,4 +204,16 @@ get a usable Collapse OS prompt!
 Like with the `recv` program, nothing stops you from dumping that binary to a
 floppy.
 
-Have fun!
+## Configuration
+
+In addition to the generic basic shell, this build of Collapse OS has support
+for floppy drive `:1` as a block device (mapped to device `0`). Block device
+commands work as expected.
+
+In addition to this, there is a `flush` command to ensure that dirty buffers are
+synced to disk. Make sure you run this after a write operation or before
+swapping disks.
+
+There is also a custom `recv` command that does the same "ping pong" as in
+`recv.asm`, but once. It puts the result in `A`. This can be useful to send down
+a raw CFS: you just need a while loop that repeatedly call `recv:putb a`.
diff --git a/recipes/trs80/glue.asm b/recipes/trs80/glue.asm
index ee689ed..159c2ef 100644
--- a/recipes/trs80/glue.asm
+++ b/recipes/trs80/glue.asm
@@ -1,5 +1,7 @@
 ; RAMSTART is a label at the end of the file
 .equ	RAMEND		0xcfff
+; Address of the *CL driver. Same as in recv.asm
+.equ	COM_DRV_ADDR	0x0238
 
 ; Free memory in TRSDOS starts at 0x3000
 .org	0x3000
@@ -73,11 +75,61 @@ printcr:
 	pop	af
 	ret
 
+; Receive a byte from *cl and put it in A.
+; Returns A > 0xff when receiving the last byte
+recvCmd:
+	xor	a
+	ld	(VAR_TBL+1), a	; pre-set MSB
+	; put a 0xff mask in B, which will become 0x7f if we receive a 0x20
+	ld	b, 0xff
+.inner:
+	ld	a, 0x03		; @GET
+	ld	de, COM_DRV_ADDR
+	rst	0x28
+	jr	nz, .maybeerror
+	or	a
+	jr	z, .eof		; Sending a straight NULL ends the comm.
+	; @PUT that char back
+	ld	c, a
+	ld	a, 0x04		; @PUT
+	ld	de, COM_DRV_ADDR
+	rst	0x28
+	ret	nz		; error
+	ld	a, c
+	cp	0x20
+	jr	z, .escapechar
+	; not an escape char, good
+	and	b		; apply mask
+	ld	(VAR_TBL), a
+	xor	a		; ensure Z
+	ret
+.maybeerror:
+	; was it an error?
+	or	a
+	jr	z, .inner	; not an error, just loop
+	ret			; error
+.escapechar:
+	ld	b, 0x7f
+	jr	.inner
+.eof:
+	dec	a		; A = 0xff
+	ld	(VAR_TBL+1), a
+	xor	a		; ensure Z
+	ret
+
 basFindCmdExtra:
 	ld	hl, basFloppyCmds
 	call	basFindCmd
 	ret	z
 	ld	hl, basBLKCmds
+	call	basFindCmd
+	ret	z
+	ld	hl, .cmds
 	jp	basFindCmd
 
+.cmds:
+	.db	"recv", 0
+	.dw	recvCmd
+	.db	0xff		; end of table
+
 RAMSTART: