Apple-2-SW/emailler
1
0
Fork 0
mirror of https://github.com/bobbimanners/emailler.git synced 2024-11-05 00:04:46 +00:00
Code Issues Projects Releases Wiki Activity
6971e9216f
emailler/ip65/url.s

312 lines
6.4 KiB
ArmAsm
Raw Normal View History

Split url.s into url.s and download.s. url_parse() doesn't require TCP so it makes sense to allow a program using url_parse() to link successfully without TCP support.
2018-07-22 17:22:57 +00:00
; routine for parsing a URL
Distilled IP65 out of NETBOOT65.
2013-12-13 21:24:03 +00:00
Replaced custom zeropage variables with cc65 default zeropage variables.
2014-07-07 18:56:21 +00:00
.include "zeropage.inc"
Adjusted include file extension to ca65 practice.
2018-02-23 15:36:05 +00:00
.include "../inc/common.inc"
.include "../inc/error.inc"
Distilled IP65 out of NETBOOT65.
2013-12-13 21:24:03 +00:00
.import output_buffer
.import ip65_error
.import parser_init
.import parser_skip_next
.import dns_set_hostname
.import dns_resolve
.import parse_integer
.import dns_ip
General source code cleanup. - Tab chars were partially used with the unusual width of two blanks. I removed them altogether. - Line endings were inconsistent even iniside individual files. I normalized them. - I introduced a consistent coding style regarding comment indenting and blank line usage. - I removed trailing spaces. - I removed newlines following unnamed labels. - ...
2013-12-27 13:57:56 +00:00
.export url_ip
.export url_port
.export url_selector
Distilled IP65 out of NETBOOT65.
2013-12-13 21:24:03 +00:00
.export url_resource_type
.export url_parse
Improved URL selector handling. parse_url stores the URL selector in the output_buffer - which is currently 520 bytes. A new entry point called parse_url_buffer was added which instead stores the URL selector in a buffer provided by the user. url_download now calls the new parse_url_buffer instead of parse_url. The buffer for the URL selector is simply the download_buffer. So the download_buffer is used twice: First to hold the URL selector to be sent as request to the server and then to hold the response received from the server. However, the URL selector still can't exceed the MSS (aka 1460 bytes). Note: The User-Agent string was shortened by two bytes as that allows a "default" URL (incl. 'http://' but without port number) of exactly 1400 bytes to end up as 1460 bytes URL selector.
2018-11-13 12:14:49 +00:00
.export url_parse_buffer
Distilled IP65 out of NETBOOT65.
2013-12-13 21:24:03 +00:00
Split url.s into url.s and download.s. url_parse() doesn't require TCP so it makes sense to allow a program using url_parse() to link successfully without TCP support.
2018-07-22 17:22:57 +00:00
search_string = ptr1
General source code cleanup. - Tab chars were partially used with the unusual width of two blanks. I removed them altogether. - Line endings were inconsistent even iniside individual files. I normalized them. - I introduced a consistent coding style regarding comment indenting and blank line usage. - I removed trailing spaces. - I removed newlines following unnamed labels. - ...
2013-12-27 13:57:56 +00:00
Distilled IP65 out of NETBOOT65.
2013-12-13 21:24:03 +00:00
Removed several custom segments.
2014-04-27 16:59:58 +00:00
.bss
Distilled IP65 out of NETBOOT65.
2013-12-13 21:24:03 +00:00
General source code cleanup. - Tab chars were partially used with the unusual width of two blanks. I removed them altogether. - Line endings were inconsistent even iniside individual files. I normalized them. - I introduced a consistent coding style regarding comment indenting and blank line usage. - I removed trailing spaces. - I removed newlines following unnamed labels. - ...
2013-12-27 13:57:56 +00:00
url_string: .res 2
url_ip: .res 4 ; will be set with ip address of host in url
url_port: .res 2 ; will be set with port number of url
url_selector: .res 2 ; will be set with address of selector part of URL
url_type: .res 1
url_resource_type: .res 1
url_type_unknown = 0
url_type_gopher = 1
url_type_http = 2
Split url.s into url.s and download.s. url_parse() doesn't require TCP so it makes sense to allow a program using url_parse() to link successfully without TCP support.
2018-07-22 17:22:57 +00:00
src_ptr: .res 1
dest_ptr: .res 1
Distilled IP65 out of NETBOOT65.
2013-12-13 21:24:03 +00:00
.code
General source code cleanup. - Tab chars were partially used with the unusual width of two blanks. I removed them altogether. - Line endings were inconsistent even iniside individual files. I normalized them. - I introduced a consistent coding style regarding comment indenting and blank line usage. - I removed trailing spaces. - I removed newlines following unnamed labels. - ...
2013-12-27 13:57:56 +00:00
; parses a URL into a form that makes it easy to retrieve the specified resource
Allow URLs and URL selectors > 255 chars. Note: The URL selector is stored in the output_buffer - which is currently 520 bytes. Beside all of the URL (apart from a potential "http://") the 'get' and the 'http_preamble' have to fit into that buffer. Therefore URLs mustn't exceed 450 chars. However, we omit a check to avoid further code size increase as most of the time URLs are known to be much shorter anyhow. If the URLs might become large we just leave it up to the user to check their length.
2018-10-30 21:02:47 +00:00
; caution - the resulting selector part of URL must fit into the output_buffer !!!
General source code cleanup. - Tab chars were partially used with the unusual width of two blanks. I removed them altogether. - Line endings were inconsistent even iniside individual files. I normalized them. - I introduced a consistent coding style regarding comment indenting and blank line usage. - I removed trailing spaces. - I removed newlines following unnamed labels. - ...
2013-12-27 13:57:56 +00:00
; inputs:
; AX = address of URL string
; any control character (i.e. <$20) is treated as 'end of string', e.g. a CR or LF, as well as $00
; outputs:
Distilled IP65 out of NETBOOT65.
2013-12-13 21:24:03 +00:00
; sec if a malformed url, otherwise:
; url_ip = ip address of host in url
; url_port = port number of url
Improved URL selector handling. parse_url stores the URL selector in the output_buffer - which is currently 520 bytes. A new entry point called parse_url_buffer was added which instead stores the URL selector in a buffer provided by the user. url_download now calls the new parse_url_buffer instead of parse_url. The buffer for the URL selector is simply the download_buffer. So the download_buffer is used twice: First to hold the URL selector to be sent as request to the server and then to hold the response received from the server. However, the URL selector still can't exceed the MSS (aka 1460 bytes). Note: The User-Agent string was shortened by two bytes as that allows a "default" URL (incl. 'http://' but without port number) of exactly 1400 bytes to end up as 1460 bytes URL selector.
2018-11-13 12:14:49 +00:00
; url_selector = address of selector part of URL
Distilled IP65 out of NETBOOT65.
2013-12-13 21:24:03 +00:00
url_parse:
Don't trash parameter in AX.
2018-12-09 18:49:30 +00:00
ldy #<output_buffer
sty url_selector
ldy #>output_buffer
sty url_selector+1
Improved URL selector handling. parse_url stores the URL selector in the output_buffer - which is currently 520 bytes. A new entry point called parse_url_buffer was added which instead stores the URL selector in a buffer provided by the user. url_download now calls the new parse_url_buffer instead of parse_url. The buffer for the URL selector is simply the download_buffer. So the download_buffer is used twice: First to hold the URL selector to be sent as request to the server and then to hold the response received from the server. However, the URL selector still can't exceed the MSS (aka 1460 bytes). Note: The User-Agent string was shortened by two bytes as that allows a "default" URL (incl. 'http://' but without port number) of exactly 1400 bytes to end up as 1460 bytes URL selector.
2018-11-13 12:14:49 +00:00
; parses a URL into a form that makes it easy to retrieve the specified resource
; caution - the resulting selector part of URL must fit into the provided buffer !!!
; inputs:
; AX = address of URL string
; any control character (i.e. <$20) is treated as 'end of string', e.g. a CR or LF, as well as $00
; url_selector = points to a buffer that selector part of URL will be placed into
; outputs:
; sec if a malformed url, otherwise:
; url_ip = ip address of host in url
; url_port = port number of url
url_parse_buffer:
Distilled IP65 out of NETBOOT65.
2013-12-13 21:24:03 +00:00
stax url_string
Improved handling of abbreviated URLs. - There was already an explicit code path for something like 'wwww.google.com/' but that code path ended up with the protocol type unset and the port set to 0. Now the protocol defaults to HTTP and the port defaults to 80. - There was no provision for something like http://www.google.com', rather it was just assumed that the slash after the hostname is always found. Now there's a check if the slash is actually found, and if it isn't found then an empty path is explicitly used.
2018-08-02 22:46:17 +00:00
ldy #url_type_http
Distilled IP65 out of NETBOOT65.
2013-12-13 21:24:03 +00:00
sty url_type
Improved handling of abbreviated URLs. - There was already an explicit code path for something like 'wwww.google.com/' but that code path ended up with the protocol type unset and the port set to 0. Now the protocol defaults to HTTP and the port defaults to 80. - There was no provision for something like http://www.google.com', rather it was just assumed that the slash after the hostname is always found. Now there's a check if the slash is actually found, and if it isn't found then an empty path is explicitly used.
2018-08-02 22:46:17 +00:00
ldy #80
Distilled IP65 out of NETBOOT65.
2013-12-13 21:24:03 +00:00
sty url_port
Improved handling of abbreviated URLs. - There was already an explicit code path for something like 'wwww.google.com/' but that code path ended up with the protocol type unset and the port set to 0. Now the protocol defaults to HTTP and the port defaults to 80. - There was no provision for something like http://www.google.com', rather it was just assumed that the slash after the hostname is always found. Now there's a check if the slash is actually found, and if it isn't found then an empty path is explicitly used.
2018-08-02 22:46:17 +00:00
ldy #0
Fixed recent change. Brought back re-initialization of port hi-byte.
2018-08-02 22:49:56 +00:00
sty url_port+1
Distilled IP65 out of NETBOOT65.
2013-12-13 21:24:03 +00:00
sty url_resource_type
jsr skip_to_hostname
bcc :+
ldax url_string
jmp @no_protocol_specifier
General source code cleanup. - Tab chars were partially used with the unusual width of two blanks. I removed them altogether. - Line endings were inconsistent even iniside individual files. I normalized them. - I introduced a consistent coding style regarding comment indenting and blank line usage. - I removed trailing spaces. - I removed newlines following unnamed labels. - ...
2013-12-27 13:57:56 +00:00
: ldax url_string
stax search_string
Distilled IP65 out of NETBOOT65.
2013-12-13 21:24:03 +00:00
lda (search_string),y
General source code cleanup. - Tab chars were partially used with the unusual width of two blanks. I removed them altogether. - Line endings were inconsistent even iniside individual files. I normalized them. - I introduced a consistent coding style regarding comment indenting and blank line usage. - I removed trailing spaces. - I removed newlines following unnamed labels. - ...
2013-12-27 13:57:56 +00:00
cmp #'g'
Distilled IP65 out of NETBOOT65.
2013-12-13 21:24:03 +00:00
beq @gopher
General source code cleanup. - Tab chars were partially used with the unusual width of two blanks. I removed them altogether. - Line endings were inconsistent even iniside individual files. I normalized them. - I introduced a consistent coding style regarding comment indenting and blank line usage. - I removed trailing spaces. - I removed newlines following unnamed labels. - ...
2013-12-27 13:57:56 +00:00
cmp #'G'
Distilled IP65 out of NETBOOT65.
2013-12-13 21:24:03 +00:00
beq @gopher
General source code cleanup. - Tab chars were partially used with the unusual width of two blanks. I removed them altogether. - Line endings were inconsistent even iniside individual files. I normalized them. - I introduced a consistent coding style regarding comment indenting and blank line usage. - I removed trailing spaces. - I removed newlines following unnamed labels. - ...
2013-12-27 13:57:56 +00:00
cmp #'h'
Improved handling of abbreviated URLs. - There was already an explicit code path for something like 'wwww.google.com/' but that code path ended up with the protocol type unset and the port set to 0. Now the protocol defaults to HTTP and the port defaults to 80. - There was no provision for something like http://www.google.com', rather it was just assumed that the slash after the hostname is always found. Now there's a check if the slash is actually found, and if it isn't found then an empty path is explicitly used.
2018-08-02 22:46:17 +00:00
beq @protocol_set
General source code cleanup. - Tab chars were partially used with the unusual width of two blanks. I removed them altogether. - Line endings were inconsistent even iniside individual files. I normalized them. - I introduced a consistent coding style regarding comment indenting and blank line usage. - I removed trailing spaces. - I removed newlines following unnamed labels. - ...
2013-12-27 13:57:56 +00:00
cmp #'H'
Improved handling of abbreviated URLs. - There was already an explicit code path for something like 'wwww.google.com/' but that code path ended up with the protocol type unset and the port set to 0. Now the protocol defaults to HTTP and the port defaults to 80. - There was no provision for something like http://www.google.com', rather it was just assumed that the slash after the hostname is always found. Now there's a check if the slash is actually found, and if it isn't found then an empty path is explicitly used.
2018-08-02 22:46:17 +00:00
beq @protocol_set
General source code cleanup. - Tab chars were partially used with the unusual width of two blanks. I removed them altogether. - Line endings were inconsistent even iniside individual files. I normalized them. - I introduced a consistent coding style regarding comment indenting and blank line usage. - I removed trailing spaces. - I removed newlines following unnamed labels. - ...
2013-12-27 13:57:56 +00:00
@exit_with_error:
Removed last KPR_* constants.
2018-02-23 15:41:33 +00:00
lda #IP65_ERROR_MALFORMED_URL
Distilled IP65 out of NETBOOT65.
2013-12-13 21:24:03 +00:00
sta ip65_error
General source code cleanup. - Tab chars were partially used with the unusual width of two blanks. I removed them altogether. - Line endings were inconsistent even iniside individual files. I normalized them. - I introduced a consistent coding style regarding comment indenting and blank line usage. - I removed trailing spaces. - I removed newlines following unnamed labels. - ...
2013-12-27 13:57:56 +00:00
@exit_with_sec:
Distilled IP65 out of NETBOOT65.
2013-12-13 21:24:03 +00:00
sec
rts
@gopher:
lda #url_type_gopher
sta url_type
lda #70
sta url_port
@protocol_set:
jsr skip_to_hostname
General source code cleanup. - Tab chars were partially used with the unusual width of two blanks. I removed them altogether. - Line endings were inconsistent even iniside individual files. I normalized them. - I introduced a consistent coding style regarding comment indenting and blank line usage. - I removed trailing spaces. - I removed newlines following unnamed labels. - ...
2013-12-27 13:57:56 +00:00
; now pointing at hostname
Distilled IP65 out of NETBOOT65.
2013-12-13 21:24:03 +00:00
bcs @exit_with_error
General source code cleanup. - Tab chars were partially used with the unusual width of two blanks. I removed them altogether. - Line endings were inconsistent even iniside individual files. I normalized them. - I introduced a consistent coding style regarding comment indenting and blank line usage. - I removed trailing spaces. - I removed newlines following unnamed labels. - ...
2013-12-27 13:57:56 +00:00
@no_protocol_specifier:
Distilled IP65 out of NETBOOT65.
2013-12-13 21:24:03 +00:00
jsr dns_set_hostname
bcs @exit_with_sec
jsr dns_resolve
bcc :+
Removed last KPR_* constants.
2018-02-23 15:41:33 +00:00
lda #IP65_ERROR_DNS_LOOKUP_FAILED
Distilled IP65 out of NETBOOT65.
2013-12-13 21:24:03 +00:00
sta ip65_error
jmp @exit_with_sec
General source code cleanup. - Tab chars were partially used with the unusual width of two blanks. I removed them altogether. - Line endings were inconsistent even iniside individual files. I normalized them. - I introduced a consistent coding style regarding comment indenting and blank line usage. - I removed trailing spaces. - I removed newlines following unnamed labels. - ...
2013-12-27 13:57:56 +00:00
: ; copy IP address
Distilled IP65 out of NETBOOT65.
2013-12-13 21:24:03 +00:00
ldx #3
General source code cleanup. - Tab chars were partially used with the unusual width of two blanks. I removed them altogether. - Line endings were inconsistent even iniside individual files. I normalized them. - I introduced a consistent coding style regarding comment indenting and blank line usage. - I removed trailing spaces. - I removed newlines following unnamed labels. - ...
2013-12-27 13:57:56 +00:00
: lda dns_ip,x
Distilled IP65 out of NETBOOT65.
2013-12-13 21:24:03 +00:00
sta url_ip,x
dex
bpl :-
jsr skip_to_hostname
General source code cleanup. - Tab chars were partially used with the unusual width of two blanks. I removed them altogether. - Line endings were inconsistent even iniside individual files. I normalized them. - I introduced a consistent coding style regarding comment indenting and blank line usage. - I removed trailing spaces. - I removed newlines following unnamed labels. - ...
2013-12-27 13:57:56 +00:00
; skip over next colon
Distilled IP65 out of NETBOOT65.
2013-12-13 21:24:03 +00:00
ldax #colon
jsr parser_skip_next
bcs @no_port_in_url
General source code cleanup. - Tab chars were partially used with the unusual width of two blanks. I removed them altogether. - Line endings were inconsistent even iniside individual files. I normalized them. - I introduced a consistent coding style regarding comment indenting and blank line usage. - I removed trailing spaces. - I removed newlines following unnamed labels. - ...
2013-12-27 13:57:56 +00:00
; AX now point at first thing past a colon - should be a number:
jsr parse_integer
Distilled IP65 out of NETBOOT65.
2013-12-13 21:24:03 +00:00
stax url_port
General source code cleanup. - Tab chars were partially used with the unusual width of two blanks. I removed them altogether. - Line endings were inconsistent even iniside individual files. I normalized them. - I introduced a consistent coding style regarding comment indenting and blank line usage. - I removed trailing spaces. - I removed newlines following unnamed labels. - ...
2013-12-27 13:57:56 +00:00
@no_port_in_url:
; skip over next slash
Distilled IP65 out of NETBOOT65.
2013-12-13 21:24:03 +00:00
ldax #slash
jsr parser_skip_next
Improved handling of abbreviated URLs. - There was already an explicit code path for something like 'wwww.google.com/' but that code path ended up with the protocol type unset and the port set to 0. Now the protocol defaults to HTTP and the port defaults to 80. - There was no provision for something like http://www.google.com', rather it was just assumed that the slash after the hostname is always found. Now there's a check if the slash is actually found, and if it isn't found then an empty path is explicitly used.
2018-08-02 22:46:17 +00:00
bcc :+
; No slash at all after hostname -> empty selector
ldax #zero
: ; AX now pointing at selector
Replaced custom zeropage variables with cc65 default zeropage variables.
2014-07-07 18:56:21 +00:00
stax ptr1
Improved URL selector handling. parse_url stores the URL selector in the output_buffer - which is currently 520 bytes. A new entry point called parse_url_buffer was added which instead stores the URL selector in a buffer provided by the user. url_download now calls the new parse_url_buffer instead of parse_url. The buffer for the URL selector is simply the download_buffer. So the download_buffer is used twice: First to hold the URL selector to be sent as request to the server and then to hold the response received from the server. However, the URL selector still can't exceed the MSS (aka 1460 bytes). Note: The User-Agent string was shortened by two bytes as that allows a "default" URL (incl. 'http://' but without port number) of exactly 1400 bytes to end up as 1460 bytes URL selector.
2018-11-13 12:14:49 +00:00
ldax url_selector
Replaced custom zeropage variables with cc65 default zeropage variables.
2014-07-07 18:56:21 +00:00
stax ptr2
Distilled IP65 out of NETBOOT65.
2013-12-13 21:24:03 +00:00
lda #0
sta src_ptr
sta dest_ptr
lda url_type
General source code cleanup. - Tab chars were partially used with the unusual width of two blanks. I removed them altogether. - Line endings were inconsistent even iniside individual files. I normalized them. - I introduced a consistent coding style regarding comment indenting and blank line usage. - I removed trailing spaces. - I removed newlines following unnamed labels. - ...
2013-12-27 13:57:56 +00:00
Distilled IP65 out of NETBOOT65.
2013-12-13 21:24:03 +00:00
cmp #url_type_gopher
General source code cleanup. - Tab chars were partially used with the unusual width of two blanks. I removed them altogether. - Line endings were inconsistent even iniside individual files. I normalized them. - I introduced a consistent coding style regarding comment indenting and blank line usage. - I removed trailing spaces. - I removed newlines following unnamed labels. - ...
2013-12-27 13:57:56 +00:00
bne @not_gopher
; first byte after / in a gopher url is the resource type
ldy src_ptr
Replaced custom zeropage variables with cc65 default zeropage variables.
2014-07-07 18:56:21 +00:00
lda (ptr1),y
General source code cleanup. - Tab chars were partially used with the unusual width of two blanks. I removed them altogether. - Line endings were inconsistent even iniside individual files. I normalized them. - I introduced a consistent coding style regarding comment indenting and blank line usage. - I removed trailing spaces. - I removed newlines following unnamed labels. - ...
2013-12-27 13:57:56 +00:00
beq @start_of_selector
Distilled IP65 out of NETBOOT65.
2013-12-13 21:24:03 +00:00
sta url_resource_type
General source code cleanup. - Tab chars were partially used with the unusual width of two blanks. I removed them altogether. - Line endings were inconsistent even iniside individual files. I normalized them. - I introduced a consistent coding style regarding comment indenting and blank line usage. - I removed trailing spaces. - I removed newlines following unnamed labels. - ...
2013-12-27 13:57:56 +00:00
inc src_ptr
Distilled IP65 out of NETBOOT65.
2013-12-13 21:24:03 +00:00
jmp @start_of_selector
General source code cleanup. - Tab chars were partially used with the unusual width of two blanks. I removed them altogether. - Line endings were inconsistent even iniside individual files. I normalized them. - I introduced a consistent coding style regarding comment indenting and blank line usage. - I removed trailing spaces. - I removed newlines following unnamed labels. - ...
2013-12-27 13:57:56 +00:00
@not_gopher:
Distilled IP65 out of NETBOOT65.
2013-12-13 21:24:03 +00:00
cmp #url_type_http
beq @build_http_request
General source code cleanup. - Tab chars were partially used with the unusual width of two blanks. I removed them altogether. - Line endings were inconsistent even iniside individual files. I normalized them. - I introduced a consistent coding style regarding comment indenting and blank line usage. - I removed trailing spaces. - I removed newlines following unnamed labels. - ...
2013-12-27 13:57:56 +00:00
jmp @done ; if it's not gopher or http, we don't know how to build a selector
@build_http_request:
Distilled IP65 out of NETBOOT65.
2013-12-13 21:24:03 +00:00
ldy #get_length-1
sty dest_ptr
General source code cleanup. - Tab chars were partially used with the unusual width of two blanks. I removed them altogether. - Line endings were inconsistent even iniside individual files. I normalized them. - I introduced a consistent coding style regarding comment indenting and blank line usage. - I removed trailing spaces. - I removed newlines following unnamed labels. - ...
2013-12-27 13:57:56 +00:00
: lda get,y
Replaced custom zeropage variables with cc65 default zeropage variables.
2014-07-07 18:56:21 +00:00
sta (ptr2),y
Distilled IP65 out of NETBOOT65.
2013-12-13 21:24:03 +00:00
dey
General source code cleanup. - Tab chars were partially used with the unusual width of two blanks. I removed them altogether. - Line endings were inconsistent even iniside individual files. I normalized them. - I introduced a consistent coding style regarding comment indenting and blank line usage. - I removed trailing spaces. - I removed newlines following unnamed labels. - ...
2013-12-27 13:57:56 +00:00
bpl :-
@start_of_selector:
Distilled IP65 out of NETBOOT65.
2013-12-13 21:24:03 +00:00
lda #'/'
General source code cleanup. - Tab chars were partially used with the unusual width of two blanks. I removed them altogether. - Line endings were inconsistent even iniside individual files. I normalized them. - I introduced a consistent coding style regarding comment indenting and blank line usage. - I removed trailing spaces. - I removed newlines following unnamed labels. - ...
2013-12-27 13:57:56 +00:00
inc dest_ptr
Distilled IP65 out of NETBOOT65.
2013-12-13 21:24:03 +00:00
jmp @save_first_byte_of_selector
@copy_one_byte:
General source code cleanup. - Tab chars were partially used with the unusual width of two blanks. I removed them altogether. - Line endings were inconsistent even iniside individual files. I normalized them. - I introduced a consistent coding style regarding comment indenting and blank line usage. - I removed trailing spaces. - I removed newlines following unnamed labels. - ...
2013-12-27 13:57:56 +00:00
ldy src_ptr
Replaced custom zeropage variables with cc65 default zeropage variables.
2014-07-07 18:56:21 +00:00
lda (ptr1),y
Distilled IP65 out of NETBOOT65.
2013-12-13 21:24:03 +00:00
cmp #$20
General source code cleanup. - Tab chars were partially used with the unusual width of two blanks. I removed them altogether. - Line endings were inconsistent even iniside individual files. I normalized them. - I introduced a consistent coding style regarding comment indenting and blank line usage. - I removed trailing spaces. - I removed newlines following unnamed labels. - ...
2013-12-27 13:57:56 +00:00
bcc @end_of_selector ; any control char (including CR,LF, and $00) should be treated as end of URL
inc src_ptr
Allow URLs and URL selectors > 255 chars. Note: The URL selector is stored in the output_buffer - which is currently 520 bytes. Beside all of the URL (apart from a potential "http://") the 'get' and the 'http_preamble' have to fit into that buffer. Therefore URLs mustn't exceed 450 chars. However, we omit a check to avoid further code size increase as most of the time URLs are known to be much shorter anyhow. If the URLs might become large we just leave it up to the user to check their length.
2018-10-30 21:02:47 +00:00
bne @save_first_byte_of_selector
inc ptr1+1
General source code cleanup. - Tab chars were partially used with the unusual width of two blanks. I removed them altogether. - Line endings were inconsistent even iniside individual files. I normalized them. - I introduced a consistent coding style regarding comment indenting and blank line usage. - I removed trailing spaces. - I removed newlines following unnamed labels. - ...
2013-12-27 13:57:56 +00:00
@save_first_byte_of_selector:
ldy dest_ptr
Replaced custom zeropage variables with cc65 default zeropage variables.
2014-07-07 18:56:21 +00:00
sta (ptr2),y
Distilled IP65 out of NETBOOT65.
2013-12-13 21:24:03 +00:00
inc dest_ptr
bne @copy_one_byte
Allow URLs and URL selectors > 255 chars. Note: The URL selector is stored in the output_buffer - which is currently 520 bytes. Beside all of the URL (apart from a potential "http://") the 'get' and the 'http_preamble' have to fit into that buffer. Therefore URLs mustn't exceed 450 chars. However, we omit a check to avoid further code size increase as most of the time URLs are known to be much shorter anyhow. If the URLs might become large we just leave it up to the user to check their length.
2018-10-30 21:02:47 +00:00
inc ptr2+1
jmp @copy_one_byte
Distilled IP65 out of NETBOOT65.
2013-12-13 21:24:03 +00:00
@end_of_selector:
General source code cleanup. - Tab chars were partially used with the unusual width of two blanks. I removed them altogether. - Line endings were inconsistent even iniside individual files. I normalized them. - I introduced a consistent coding style regarding comment indenting and blank line usage. - I removed trailing spaces. - I removed newlines following unnamed labels. - ...
2013-12-27 13:57:56 +00:00
ldx #1 ; number of CRLF at end of gopher request
Distilled IP65 out of NETBOOT65.
2013-12-13 21:24:03 +00:00
lda url_type
General source code cleanup. - Tab chars were partially used with the unusual width of two blanks. I removed them altogether. - Line endings were inconsistent even iniside individual files. I normalized them. - I introduced a consistent coding style regarding comment indenting and blank line usage. - I removed trailing spaces. - I removed newlines following unnamed labels. - ...
2013-12-27 13:57:56 +00:00
Distilled IP65 out of NETBOOT65.
2013-12-13 21:24:03 +00:00
cmp #url_type_http
bne @final_crlf
General source code cleanup. - Tab chars were partially used with the unusual width of two blanks. I removed them altogether. - Line endings were inconsistent even iniside individual files. I normalized them. - I introduced a consistent coding style regarding comment indenting and blank line usage. - I removed trailing spaces. - I removed newlines following unnamed labels. - ...
2013-12-27 13:57:56 +00:00
; now the HTTP version number & Host: field
Distilled IP65 out of NETBOOT65.
2013-12-13 21:24:03 +00:00
ldx #0
General source code cleanup. - Tab chars were partially used with the unusual width of two blanks. I removed them altogether. - Line endings were inconsistent even iniside individual files. I normalized them. - I introduced a consistent coding style regarding comment indenting and blank line usage. - I removed trailing spaces. - I removed newlines following unnamed labels. - ...
2013-12-27 13:57:56 +00:00
: lda http_preamble,x
Allow URLs and URL selectors > 255 chars. Note: The URL selector is stored in the output_buffer - which is currently 520 bytes. Beside all of the URL (apart from a potential "http://") the 'get' and the 'http_preamble' have to fit into that buffer. Therefore URLs mustn't exceed 450 chars. However, we omit a check to avoid further code size increase as most of the time URLs are known to be much shorter anyhow. If the URLs might become large we just leave it up to the user to check their length.
2018-10-30 21:02:47 +00:00
beq :++
Distilled IP65 out of NETBOOT65.
2013-12-13 21:24:03 +00:00
ldy dest_ptr
Replaced custom zeropage variables with cc65 default zeropage variables.
2014-07-07 18:56:21 +00:00
sta (ptr2),y
Allow URLs and URL selectors > 255 chars. Note: The URL selector is stored in the output_buffer - which is currently 520 bytes. Beside all of the URL (apart from a potential "http://") the 'get' and the 'http_preamble' have to fit into that buffer. Therefore URLs mustn't exceed 450 chars. However, we omit a check to avoid further code size increase as most of the time URLs are known to be much shorter anyhow. If the URLs might become large we just leave it up to the user to check their length.
2018-10-30 21:02:47 +00:00
inc dest_ptr
bne :+
inc ptr2+1
: inx
bne :--
General source code cleanup. - Tab chars were partially used with the unusual width of two blanks. I removed them altogether. - Line endings were inconsistent even iniside individual files. I normalized them. - I introduced a consistent coding style regarding comment indenting and blank line usage. - I removed trailing spaces. - I removed newlines following unnamed labels. - ...
2013-12-27 13:57:56 +00:00
: ; now copy the host field
Allow URLs and URL selectors > 255 chars. Note: The URL selector is stored in the output_buffer - which is currently 520 bytes. Beside all of the URL (apart from a potential "http://") the 'get' and the 'http_preamble' have to fit into that buffer. Therefore URLs mustn't exceed 450 chars. However, we omit a check to avoid further code size increase as most of the time URLs are known to be much shorter anyhow. If the URLs might become large we just leave it up to the user to check their length.
2018-10-30 21:02:47 +00:00
lda ptr2+1
pha
Distilled IP65 out of NETBOOT65.
2013-12-13 21:24:03 +00:00
jsr skip_to_hostname
General source code cleanup. - Tab chars were partially used with the unusual width of two blanks. I removed them altogether. - Line endings were inconsistent even iniside individual files. I normalized them. - I introduced a consistent coding style regarding comment indenting and blank line usage. - I removed trailing spaces. - I removed newlines following unnamed labels. - ...
2013-12-27 13:57:56 +00:00
; AX now pointing at hostname
Replaced custom zeropage variables with cc65 default zeropage variables.
2014-07-07 18:56:21 +00:00
stax ptr1
Improved URL selector handling. parse_url stores the URL selector in the output_buffer - which is currently 520 bytes. A new entry point called parse_url_buffer was added which instead stores the URL selector in a buffer provided by the user. url_download now calls the new parse_url_buffer instead of parse_url. The buffer for the URL selector is simply the download_buffer. So the download_buffer is used twice: First to hold the URL selector to be sent as request to the server and then to hold the response received from the server. However, the URL selector still can't exceed the MSS (aka 1460 bytes). Note: The User-Agent string was shortened by two bytes as that allows a "default" URL (incl. 'http://' but without port number) of exactly 1400 bytes to end up as 1460 bytes URL selector.
2018-11-13 12:14:49 +00:00
lda url_selector
Allow URLs and URL selectors > 255 chars. Note: The URL selector is stored in the output_buffer - which is currently 520 bytes. Beside all of the URL (apart from a potential "http://") the 'get' and the 'http_preamble' have to fit into that buffer. Therefore URLs mustn't exceed 450 chars. However, we omit a check to avoid further code size increase as most of the time URLs are known to be much shorter anyhow. If the URLs might become large we just leave it up to the user to check their length.
2018-10-30 21:02:47 +00:00
sta ptr2
pla
sta ptr2+1
Distilled IP65 out of NETBOOT65.
2013-12-13 21:24:03 +00:00
lda #0
sta src_ptr
General source code cleanup. - Tab chars were partially used with the unusual width of two blanks. I removed them altogether. - Line endings were inconsistent even iniside individual files. I normalized them. - I introduced a consistent coding style regarding comment indenting and blank line usage. - I removed trailing spaces. - I removed newlines following unnamed labels. - ...
2013-12-27 13:57:56 +00:00
Distilled IP65 out of NETBOOT65.
2013-12-13 21:24:03 +00:00
@copy_one_byte_of_hostname:
General source code cleanup. - Tab chars were partially used with the unusual width of two blanks. I removed them altogether. - Line endings were inconsistent even iniside individual files. I normalized them. - I introduced a consistent coding style regarding comment indenting and blank line usage. - I removed trailing spaces. - I removed newlines following unnamed labels. - ...
2013-12-27 13:57:56 +00:00
ldy src_ptr
Replaced custom zeropage variables with cc65 default zeropage variables.
2014-07-07 18:56:21 +00:00
lda (ptr1),y
Distilled IP65 out of NETBOOT65.
2013-12-13 21:24:03 +00:00
beq @end_of_hostname
cmp #':'
beq @end_of_hostname
cmp #'/'
beq @end_of_hostname
General source code cleanup. - Tab chars were partially used with the unusual width of two blanks. I removed them altogether. - Line endings were inconsistent even iniside individual files. I normalized them. - I introduced a consistent coding style regarding comment indenting and blank line usage. - I removed trailing spaces. - I removed newlines following unnamed labels. - ...
2013-12-27 13:57:56 +00:00
inc src_ptr
ldy dest_ptr
Replaced custom zeropage variables with cc65 default zeropage variables.
2014-07-07 18:56:21 +00:00
sta (ptr2),y
General source code cleanup. - Tab chars were partially used with the unusual width of two blanks. I removed them altogether. - Line endings were inconsistent even iniside individual files. I normalized them. - I introduced a consistent coding style regarding comment indenting and blank line usage. - I removed trailing spaces. - I removed newlines following unnamed labels. - ...
2013-12-27 13:57:56 +00:00
inc dest_ptr
Distilled IP65 out of NETBOOT65.
2013-12-13 21:24:03 +00:00
bne @copy_one_byte_of_hostname
Allow URLs and URL selectors > 255 chars. Note: The URL selector is stored in the output_buffer - which is currently 520 bytes. Beside all of the URL (apart from a potential "http://") the 'get' and the 'http_preamble' have to fit into that buffer. Therefore URLs mustn't exceed 450 chars. However, we omit a check to avoid further code size increase as most of the time URLs are known to be much shorter anyhow. If the URLs might become large we just leave it up to the user to check their length.
2018-10-30 21:02:47 +00:00
inc ptr2+1
jmp @copy_one_byte_of_hostname
Distilled IP65 out of NETBOOT65.
2013-12-13 21:24:03 +00:00
@end_of_hostname:
General source code cleanup. - Tab chars were partially used with the unusual width of two blanks. I removed them altogether. - Line endings were inconsistent even iniside individual files. I normalized them. - I introduced a consistent coding style regarding comment indenting and blank line usage. - I removed trailing spaces. - I removed newlines following unnamed labels. - ...
2013-12-27 13:57:56 +00:00
ldx #2 ; number of CRLF at end of HTTP request
Distilled IP65 out of NETBOOT65.
2013-12-13 21:24:03 +00:00
@final_crlf:
ldy dest_ptr
lda #$0d
Replaced custom zeropage variables with cc65 default zeropage variables.
2014-07-07 18:56:21 +00:00
sta (ptr2),y
Distilled IP65 out of NETBOOT65.
2013-12-13 21:24:03 +00:00
iny
Allow URLs and URL selectors > 255 chars. Note: The URL selector is stored in the output_buffer - which is currently 520 bytes. Beside all of the URL (apart from a potential "http://") the 'get' and the 'http_preamble' have to fit into that buffer. Therefore URLs mustn't exceed 450 chars. However, we omit a check to avoid further code size increase as most of the time URLs are known to be much shorter anyhow. If the URLs might become large we just leave it up to the user to check their length.
2018-10-30 21:02:47 +00:00
bne :+
inc ptr2+1
: lda #$0a
Replaced custom zeropage variables with cc65 default zeropage variables.
2014-07-07 18:56:21 +00:00
sta (ptr2),y
Distilled IP65 out of NETBOOT65.
2013-12-13 21:24:03 +00:00
iny
Allow URLs and URL selectors > 255 chars. Note: The URL selector is stored in the output_buffer - which is currently 520 bytes. Beside all of the URL (apart from a potential "http://") the 'get' and the 'http_preamble' have to fit into that buffer. Therefore URLs mustn't exceed 450 chars. However, we omit a check to avoid further code size increase as most of the time URLs are known to be much shorter anyhow. If the URLs might become large we just leave it up to the user to check their length.
2018-10-30 21:02:47 +00:00
bne :+
inc ptr2+1
: sty dest_ptr
Distilled IP65 out of NETBOOT65.
2013-12-13 21:24:03 +00:00
dex
bne @final_crlf
General source code cleanup. - Tab chars were partially used with the unusual width of two blanks. I removed them altogether. - Line endings were inconsistent even iniside individual files. I normalized them. - I introduced a consistent coding style regarding comment indenting and blank line usage. - I removed trailing spaces. - I removed newlines following unnamed labels. - ...
2013-12-27 13:57:56 +00:00
@done:
Distilled IP65 out of NETBOOT65.
2013-12-13 21:24:03 +00:00
lda #$00
Replaced custom zeropage variables with cc65 default zeropage variables.
2014-07-07 18:56:21 +00:00
sta (ptr2),y
Distilled IP65 out of NETBOOT65.
2013-12-13 21:24:03 +00:00
clc
rts
General source code cleanup. - Tab chars were partially used with the unusual width of two blanks. I removed them altogether. - Line endings were inconsistent even iniside individual files. I normalized them. - I introduced a consistent coding style regarding comment indenting and blank line usage. - I removed trailing spaces. - I removed newlines following unnamed labels. - ...
2013-12-27 13:57:56 +00:00
Distilled IP65 out of NETBOOT65.
2013-12-13 21:24:03 +00:00
skip_to_hostname:
ldax url_string
jsr parser_init
ldax #colon_slash_slash
jmp parser_skip_next
General source code cleanup. - Tab chars were partially used with the unusual width of two blanks. I removed them altogether. - Line endings were inconsistent even iniside individual files. I normalized them. - I introduced a consistent coding style regarding comment indenting and blank line usage. - I removed trailing spaces. - I removed newlines following unnamed labels. - ...
2013-12-27 13:57:56 +00:00
.rodata
get:
.byte "GET "
get_length = 4
http_preamble:
.byte " HTTP/1.0",$0d,$0a
Improved URL selector handling. parse_url stores the URL selector in the output_buffer - which is currently 520 bytes. A new entry point called parse_url_buffer was added which instead stores the URL selector in a buffer provided by the user. url_download now calls the new parse_url_buffer instead of parse_url. The buffer for the URL selector is simply the download_buffer. So the download_buffer is used twice: First to hold the URL selector to be sent as request to the server and then to hold the response received from the server. However, the URL selector still can't exceed the MSS (aka 1460 bytes). Note: The User-Agent string was shortened by two bytes as that allows a "default" URL (incl. 'http://' but without port number) of exactly 1400 bytes to end up as 1460 bytes URL selector.
2018-11-13 12:14:49 +00:00
.byte "User-Agent: IP65/0.65",$0d,$0a
General source code cleanup. - Tab chars were partially used with the unusual width of two blanks. I removed them altogether. - Line endings were inconsistent even iniside individual files. I normalized them. - I introduced a consistent coding style regarding comment indenting and blank line usage. - I removed trailing spaces. - I removed newlines following unnamed labels. - ...
2013-12-27 13:57:56 +00:00
.byte "Connection: close",$0d,$0a
.byte "Host: ",0
colon_slash_slash:
.byte ":/"
slash:
Improved handling of abbreviated URLs. - There was already an explicit code path for something like 'wwww.google.com/' but that code path ended up with the protocol type unset and the port set to 0. Now the protocol defaults to HTTP and the port defaults to 80. - There was no provision for something like http://www.google.com', rather it was just assumed that the slash after the hostname is always found. Now there's a check if the slash is actually found, and if it isn't found then an empty path is explicitly used.
2018-08-02 22:46:17 +00:00
.byte "/"
zero:
.byte 0
General source code cleanup. - Tab chars were partially used with the unusual width of two blanks. I removed them altogether. - Line endings were inconsistent even iniside individual files. I normalized them. - I introduced a consistent coding style regarding comment indenting and blank line usage. - I removed trailing spaces. - I removed newlines following unnamed labels. - ...
2013-12-27 13:57:56 +00:00
colon:
.byte ":",0
; -- LICENSE FOR url.s --
Distilled IP65 out of NETBOOT65.
2013-12-13 21:24:03 +00:00
; The contents of this file are subject to the Mozilla Public License
; Version 1.1 (the "License"); you may not use this file except in
; compliance with the License. You may obtain a copy of the License at
; http://www.mozilla.org/MPL/
General source code cleanup. - Tab chars were partially used with the unusual width of two blanks. I removed them altogether. - Line endings were inconsistent even iniside individual files. I normalized them. - I introduced a consistent coding style regarding comment indenting and blank line usage. - I removed trailing spaces. - I removed newlines following unnamed labels. - ...
2013-12-27 13:57:56 +00:00
;
Distilled IP65 out of NETBOOT65.
2013-12-13 21:24:03 +00:00
; Software distributed under the License is distributed on an "AS IS"
; basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See the
; License for the specific language governing rights and limitations
; under the License.
General source code cleanup. - Tab chars were partially used with the unusual width of two blanks. I removed them altogether. - Line endings were inconsistent even iniside individual files. I normalized them. - I introduced a consistent coding style regarding comment indenting and blank line usage. - I removed trailing spaces. - I removed newlines following unnamed labels. - ...
2013-12-27 13:57:56 +00:00
;
Distilled IP65 out of NETBOOT65.
2013-12-13 21:24:03 +00:00
; The Original Code is ip65.
General source code cleanup. - Tab chars were partially used with the unusual width of two blanks. I removed them altogether. - Line endings were inconsistent even iniside individual files. I normalized them. - I introduced a consistent coding style regarding comment indenting and blank line usage. - I removed trailing spaces. - I removed newlines following unnamed labels. - ...
2013-12-27 13:57:56 +00:00
;
Distilled IP65 out of NETBOOT65.
2013-12-13 21:24:03 +00:00
; The Initial Developer of the Original Code is Jonno Downes,
; jonno@jamtronix.com.
; Portions created by the Initial Developer are Copyright (C) 2009
General source code cleanup. - Tab chars were partially used with the unusual width of two blanks. I removed them altogether. - Line endings were inconsistent even iniside individual files. I normalized them. - I introduced a consistent coding style regarding comment indenting and blank line usage. - I removed trailing spaces. - I removed newlines following unnamed labels. - ...
2013-12-27 13:57:56 +00:00
; Jonno Downes. All Rights Reserved.
Distilled IP65 out of NETBOOT65.
2013-12-13 21:24:03 +00:00
; -- LICENSE END --
Reference in New Issue Copy Permalink