mirror of
https://github.com/bobbimanners/emailler.git
synced 2024-07-11 05:29:32 +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
|