mirror of
https://github.com/bobbimanners/emailler.git
synced 2024-07-31 23:28:55 +00:00
54 lines
746 B
ArmAsm
54 lines
746 B
ArmAsm
|
.include "../inc/common.inc"
|
||
|
|
||
|
.export _url_parse
|
||
|
.export _url_download
|
||
|
.export _url_ip
|
||
|
.export _url_port
|
||
|
.export _url_selector
|
||
|
|
||
|
.import url_parse
|
||
|
.import url_download
|
||
|
.import url_download_buffer
|
||
|
.import url_download_buffer_length
|
||
|
.import url_ip
|
||
|
.import url_port
|
||
|
.import url_selector
|
||
|
.import resource_buffer
|
||
|
|
||
|
.import popax
|
||
|
|
||
|
_url_parse:
|
||
|
jsr url_parse
|
||
|
ldx #$00
|
||
|
txa
|
||
|
rol
|
||
|
rts
|
||
|
|
||
|
_url_download:
|
||
|
stax url_download_buffer_length
|
||
|
jsr popax
|
||
|
stax url_download_buffer
|
||
|
jsr popax
|
||
|
jsr url_download
|
||
|
bcs error
|
||
|
sec
|
||
|
lda resource_buffer
|
||
|
sbc url_download_buffer
|
||
|
tay
|
||
|
lda resource_buffer+1
|
||
|
sbc url_download_buffer+1
|
||
|
tax
|
||
|
tya
|
||
|
rts
|
||
|
|
||
|
error:
|
||
|
ldx #$00
|
||
|
txa
|
||
|
rts
|
||
|
|
||
|
_url_ip := url_ip
|
||
|
|
||
|
_url_port := url_port
|
||
|
|
||
|
_url_selector := url_selector
|