Apple-2-SW/emailler
1
0
Fork 0
mirror of https://github.com/bobbimanners/emailler.git synced 2024-11-05 00:04:46 +00:00
Code Issues Projects Releases Wiki Activity
7ac8c55603
emailler/ip65/tcp_c.s

95 lines
1.2 KiB
ArmAsm
Raw Normal View History

Adjusted include file extension to ca65 practice.
2018-02-23 15:36:05 +00:00
.include "../inc/common.inc"
Added C interface to TCP functions.
2017-11-06 22:36:44 +00:00
.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
Made tcp_listen return the client IP address. Together with the recent change to provide the inbound data buffer address and length to the TCP callback function as C parameters this change allows the TCP API to get along without any global variable :-)
2017-11-08 19:59:06 +00:00
.import tcp_remote_ip
Added C interface to TCP functions.
2017-11-06 22:36:44 +00:00
.import tcp_connect_ip
.import tcp_send_data_len
Use parameters for TCP C callback. In contrast to the multiple UDP callbacks there's only one TCP callback so it easy to provide a wrapper for the C callback that pushes C parameters on the stack.
2017-11-07 22:05:05 +00:00
.import pushax, popax, popeax
Added C interface to TCP functions.
2017-11-06 22:36:44 +00:00
.importzp ptr1, sreg
Use parameters for TCP C callback. In contrast to the multiple UDP callbacks there's only one TCP callback so it easy to provide a wrapper for the C callback that pushes C parameters on the stack.
2017-11-07 22:05:05 +00:00
.data
callback:
ldax tcp_inbound_data_ptr
jsr pushax
ldax tcp_inbound_data_length
jmpvector:
Minor style adjustment.
2017-11-12 14:05:06 +00:00
jmp $ffff
Use parameters for TCP C callback. In contrast to the multiple UDP callbacks there's only one TCP callback so it easy to provide a wrapper for the C callback that pushes C parameters on the stack.
2017-11-07 22:05:05 +00:00
.code
Added C interface to TCP functions.
2017-11-06 22:36:44 +00:00
_tcp_listen:
Use parameters for TCP C callback. In contrast to the multiple UDP callbacks there's only one TCP callback so it easy to provide a wrapper for the C callback that pushes C parameters on the stack.
2017-11-07 22:05:05 +00:00
stax jmpvector+1
ldax #callback
Added C interface to TCP functions.
2017-11-06 22:36:44 +00:00
stax tcp_callback
jsr popax
jsr tcp_listen
Made tcp_listen return the client IP address. Together with the recent change to provide the inbound data buffer address and length to the TCP callback function as C parameters this change allows the TCP API to get along without any global variable :-)
2017-11-08 19:59:06 +00:00
bcs error
ldax tcp_remote_ip+2
stax sreg
ldax tcp_remote_ip
rts
error:
Added C interface to TCP functions.
2017-11-06 22:36:44 +00:00
ldx #$00
txa
Made tcp_listen return the client IP address. Together with the recent change to provide the inbound data buffer address and length to the TCP callback function as C parameters this change allows the TCP API to get along without any global variable :-)
2017-11-08 19:59:06 +00:00
stax sreg
Added C interface to TCP functions.
2017-11-06 22:36:44 +00:00
rts
_tcp_connect:
Use parameters for TCP C callback. In contrast to the multiple UDP callbacks there's only one TCP callback so it easy to provide a wrapper for the C callback that pushes C parameters on the stack.
2017-11-07 22:05:05 +00:00
stax jmpvector+1
ldax #callback
Added C interface to TCP functions.
2017-11-06 22:36:44 +00:00
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
Reference in New Issue Copy Permalink