Apple-2-SW/emailler
1
0
Fork 0
mirror of https://github.com/bobbimanners/emailler.git synced 2025-08-14 20:27:37 +00:00
Code Issues Projects Releases Wiki Activity

Allow tcp_send_string to send strings > 255 chars.

Browse Source
This commit is contained in:
Oliver Schmidt
2018-10-30 21:07:15 +01:00
parent 5fcfb2beeb
commit 1813ce7f7d
1 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
ip65/tcp.s
View File

@@ -369,7 +369,7 @@ tcp_close:
; inputs: ; inputs:
; tcp connection should already be opened ; tcp connection should already be opened
; AX: pointer to buffer - data up to (but not including) ; AX: pointer to buffer - data up to (but not including)
; the first nul byte will be sent. max of 255 bytes will be sent. ; the first nul byte will be sent.
; outputs: ; outputs:
; carry flag is set if an error occured, clear otherwise ; carry flag is set if an error occured, clear otherwise
tcp_send_string: tcp_send_string:
@@ -388,6 +388,9 @@ tcp_send_string:
inc tcp_send_data_len inc tcp_send_data_len
iny iny
bne @find_end_of_string bne @find_end_of_string
inc tcp_send_data_len+1
inc ptr1+1
jmp @find_end_of_string
@done: @done:
ldax tcp_send_data_ptr ldax tcp_send_data_ptr
; now we can fall through into tcp_send ; now we can fall through into tcp_send