From 68714511f58f88f8e5ab330744ca0e46c01fcd4a Mon Sep 17 00:00:00 2001
From: Whammo <38296423+Whammo@users.noreply.github.com>
Date: Tue, 24 Dec 2024 15:33:34 -0800
Subject: [PATCH 1/2] Update words.adoc

 Fixed typo of stack diagramming of IEC words.  Also considering IEC words use default device rather than stack input.
---
 manual/words.adoc | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/manual/words.adoc b/manual/words.adoc
index acc626e8..8b24f1b2 100644
--- a/manual/words.adoc
+++ b/manual/words.adoc
@@ -347,11 +347,11 @@ These words allow access to serial devices without accessing the file system, an
 ((listen)) _( dv -- ioresult )_ :: Send IEC listen to dv.
 ((second)) _( command+sa -- ioresult )_ :: Send IEC command and secondary address after listen.
 ((unlisten)) _( -- )_ :: Send IEC unlisten to all channels.
-((ciout)) _( -- u )_ ::  Puts a data byte onto the serial bus using full handshaking.
+((ciout)) _( u -- )_ ::  Puts a data byte onto the serial bus using full handshaking.
 ((talk)) _( dv -- ioresult )_ :: Send IEC talk to dv.
 ((tksa)) _( command+sa -- ioresult )_ :: Send IEC command and secondary address after talk.
 ((untalk)) _( -- )_ :: Send IEC untalk to all channels.
-((acptr)) _( u -- )_ :: Get a byte of data from the serial bus using full handshaking.
+((acptr)) _( -- u )_ :: Get a byte of data from the serial bus using full handshaking.
 
 
 ====

From 25aebaffb54ad162f5cac6d9a7572b9499edead4 Mon Sep 17 00:00:00 2001
From: Whammo <38296423+Whammo@users.noreply.github.com>
Date: Tue, 24 Dec 2024 20:19:56 -0800
Subject: [PATCH 2/2]  Only the examples require io

 It should be clear that iec routines don't require io, nor do they touch $BA, although the examples do.
---
 forth/iec.fs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/forth/iec.fs b/forth/iec.fs
index 01a0a54c..805d2361 100644
--- a/forth/iec.fs
+++ b/forth/iec.fs
@@ -1,4 +1,3 @@
-require io
 
 code listen ( dv -- )
 here 1+
@@ -67,6 +66,8 @@ $ffa5 jsr, \ acptr
 w ldx, lsb sta,x
 rts, end-code
 
+require io
+
 : iqt readst ioabort ; \ legacy of if quit then
 
 : tfname ( addr len -- )