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