emailler/ip65/sntp_c.s

.include "../inc/common.inc"

.export _sntp_get_time

.import sntp_get_time
.import sntp_ip
.import sntp_utc_timestamp

.importzp sreg

_sntp_get_time:
  stax sntp_ip
  ldax sreg
  stax sntp_ip+2
  jsr sntp_get_time
  bcs error
  ldax sntp_utc_timestamp+2
  stax sreg
  ldax sntp_utc_timestamp
  rts

error:
  ldx #$00
  txa
  stax sreg
  rts
Adjusted include file extension to ca65 practice. 2018-02-23 15:36:05 +00:00			`.include "../inc/common.inc"`
Added C interface to SNTP function. 2017-11-09 20:48:08 +00:00
			`.export _sntp_get_time`

			`.import sntp_get_time`
			`.import sntp_ip`
			`.import sntp_utc_timestamp`

			`.importzp sreg`

			`_sntp_get_time:`
			`stax sntp_ip`
			`ldax sreg`
			`stax sntp_ip+2`
			`jsr sntp_get_time`
			`bcs error`
			`ldax sntp_utc_timestamp+2`
			`stax sreg`
			`ldax sntp_utc_timestamp`
			`rts`

			`error:`
			`ldx #$00`
			`txa`
			`stax sreg`
			`rts`