emailler/ip65/httpd_c.s

57 lines
834 B
ArmAsm
Raw Normal View History

.include "../inc/common.inc"
2017-12-07 22:03:04 +00:00
.export _httpd_start
.export _httpd_send_response
.import httpd_start
.import httpd_port_number
.import httpd_send_response
.import httpd_response_buffer_length
.import tcp_remote_ip
.import http_get_value
.import pushax, pusheax, popax, popa
.importzp sreg
.data
callback:
ldax tcp_remote_ip+2
stax sreg
ldax tcp_remote_ip
jsr pusheax
lda #$01
jsr http_get_value
jsr pushax
lda #$02
jsr http_get_value
jmpvector:
jsr $ffff
sec
rts
.code
_httpd_start:
stax jmpvector+1
jsr popax
stax httpd_port_number
ldax #callback
jmp httpd_start
_httpd_send_response:
stax httpd_response_buffer_length
jsr popax
pha
jsr popa
tay
pla
cpy #$04
bcc :+
lda #$00
sta httpd_response_buffer_length
sta httpd_response_buffer_length+1
: jmp httpd_send_response