fix off-by-one for read msg

This commit is contained in:
Iris Lightshard 2023-03-23 16:37:20 -06:00
parent d6b0ec63c8
commit 73ca404097
Signed by: Iris Lightshard
GPG key ID: 3B7FBC22144E6398

View file

@ -246,7 +246,7 @@ JMP2r
READ_MAIL .Console/write DEO
#0002 SWP .Console/write DEO .Console/write DEO
.list LB_SELECT_IDX LDZ2 SWP .Console/write DEO .Console/write DEO
.list LB_SELECT_IDX LDZ2 INC2 SWP .Console/write DEO .Console/write DEO
JMP2r
@ -1110,4 +1110,4 @@ JMP2r
@word $ff
@selected_mbox "INBOX 00 $f9 ( default mailbox is INBOX, total space #06 + #f9 = #ff bytes )
@list_data $8000
@mbox_data $1000
@mbox_data $1000