mirror of
https://github.com/bobbimanners/emailler.git
synced 2024-11-18 21:07:03 +00:00
95 lines
1.2 KiB
ArmAsm
95 lines
1.2 KiB
ArmAsm
.include "../inc/common.inc"
|
|
|
|
.export _tcp_listen
|
|
.export _tcp_connect
|
|
.export _tcp_close
|
|
.export _tcp_send
|
|
.export _tcp_send_keep_alive
|
|
|
|
.import tcp_listen
|
|
.import tcp_connect
|
|
.import tcp_close
|
|
.import tcp_inbound_data_ptr
|
|
.import tcp_inbound_data_length
|
|
.import tcp_send
|
|
.import tcp_send_keep_alive
|
|
|
|
.import tcp_callback
|
|
.import tcp_remote_ip
|
|
.import tcp_connect_ip
|
|
.import tcp_send_data_len
|
|
|
|
.import pushax, popax, popeax
|
|
.importzp ptr1, sreg
|
|
|
|
|
|
.data
|
|
|
|
callback:
|
|
ldax tcp_inbound_data_ptr
|
|
jsr pushax
|
|
ldax tcp_inbound_data_length
|
|
jmpvector:
|
|
jmp $ffff
|
|
|
|
|
|
.code
|
|
|
|
_tcp_listen:
|
|
stax jmpvector+1
|
|
ldax #callback
|
|
stax tcp_callback
|
|
jsr popax
|
|
jsr tcp_listen
|
|
bcs error
|
|
ldax tcp_remote_ip+2
|
|
stax sreg
|
|
ldax tcp_remote_ip
|
|
rts
|
|
|
|
error:
|
|
ldx #$00
|
|
txa
|
|
stax sreg
|
|
rts
|
|
|
|
_tcp_connect:
|
|
stax jmpvector+1
|
|
ldax #callback
|
|
stax tcp_callback
|
|
jsr popax
|
|
stax ptr1
|
|
jsr popeax
|
|
stax tcp_connect_ip
|
|
ldax sreg
|
|
stax tcp_connect_ip+2
|
|
ldax ptr1
|
|
jsr tcp_connect
|
|
ldx #$00
|
|
txa
|
|
rol
|
|
rts
|
|
|
|
_tcp_close:
|
|
jsr tcp_close
|
|
ldx #$00
|
|
txa
|
|
rol
|
|
rts
|
|
|
|
_tcp_send:
|
|
stax tcp_send_data_len
|
|
jsr popax
|
|
jsr tcp_send
|
|
ldx #$00
|
|
txa
|
|
rol
|
|
rts
|
|
|
|
_tcp_send_keep_alive:
|
|
jsr tcp_send_keep_alive
|
|
ldx #$00
|
|
txa
|
|
rol
|
|
rts
|