emailler/ip65/url_c.s

35 lines
430 B
ArmAsm
Raw Normal View History

2018-07-20 16:12:51 +00:00
.include "../inc/common.inc"
.export _url_parse
.export _url_host
2018-07-20 16:12:51 +00:00
.export _url_ip
.export _url_port
.export _url_selector
.import url_parse
.import url_host
2018-07-20 16:12:51 +00:00
.import url_ip
.import url_port
.import url_selector
.import popax
.importzp tmp1
2018-07-20 16:12:51 +00:00
_url_parse:
sta tmp1
jsr popax
ldy tmp1
2018-07-20 16:12:51 +00:00
jsr url_parse
ldx #$00
txa
rol
rts
_url_host := url_host
2018-07-20 16:12:51 +00:00
_url_ip := url_ip
_url_port := url_port
_url_selector := url_selector