emailler/ip65/tcp_c.s

.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, popptr1
.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 popptr1
  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
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`

Make use of recently added popptr1. 2018-08-14 09:20:29 +00:00			`.import pushax, popax, popeax, popptr1`
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`
Make use of recently added popptr1. 2018-08-14 09:20:29 +00:00			`jsr popptr1`
Added C interface to TCP functions. 2017-11-06 22:36:44 +00:00			`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`