Apple-2-SW/emailler
1
0
Fork 0
mirror of https://github.com/bobbimanners/emailler.git synced 2025-01-22 18:32:06 +00:00
Code Issues Projects Releases Wiki Activity

git-svn-id: http://svn.code.sf.net/p/netboot65/code@147 93682198-c243-4bdb-bd91-e943c89aac3b

Browse Source
This commit is contained in:
jonnosan 2009-07-04 10:48:13 +00:00
parent eae6af0475
commit a3c2899880
2 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
client/ip65/tcp.s
View File

@ -677,7 +677,7 @@ tcp_process:
bne @fin bne @fin
jmp @not_fin jmp @not_fin
@fin: @fin:
.byte $92
;is this the current connection? ;is this the current connection?
jsr check_current_connection jsr check_current_connection
bcc :+ bcc :+

12
client/test/test_tcp.s
View File

@ -240,12 +240,13 @@ init:
stax tcp_connect_ip+2 stax tcp_connect_ip+2
lda #0
sta cxn_closed
ldax #80 ldax #80
jsr tcp_connect jsr tcp_connect
jsr check_for_error jsr check_for_error
lda #0
sta cxn_closed
ldax #http_get_length ldax #http_get_length
stax tcp_send_data_len stax tcp_send_data_len
ldax #http_get_msg ldax #http_get_msg
@ -254,10 +255,12 @@ init:
@loop_till_end: @loop_till_end:
jsr ip65_process jsr ip65_process
lda cxn_closed lda #1
cmp #1 cmp cxn_closed
beq @loop_till_end beq @loop_till_end
rts
ldax #tcp_callback_routine ldax #tcp_callback_routine
@ -295,6 +298,7 @@ init:
tcp_callback_routine: tcp_callback_routine:
lda tcp_inbound_data_length lda tcp_inbound_data_length
cmp #$ff cmp #$ff
bne @not_end_of_file bne @not_end_of_file