mirror of
https://github.com/bobbimanners/emailler.git
synced 2024-11-18 21:07:03 +00:00
6b50c4b638
- Added exit_to_basic symbol. - Aligned linker config with C64 linker config. - Made switch to lower charset compatible. Allow all test programs to run with LANceGS card. Aligned C64 input file name.
229 lines
3.6 KiB
ArmAsm
229 lines
3.6 KiB
ArmAsm
.include "../inc/common.i"
|
|
.include "../inc/commonprint.i"
|
|
.include "../inc/net.i"
|
|
|
|
.import print_a
|
|
.import get_key
|
|
.import cfg_get_configuration_ptr
|
|
.import ascii_to_native
|
|
.import parser_init
|
|
.import parser_skip_next
|
|
.importzp copy_src
|
|
.importzp copy_dest
|
|
.import url_ip
|
|
.import url_port
|
|
.import url_selector
|
|
.import url_resource_type
|
|
.import url_parse
|
|
|
|
temp_buff = copy_dest
|
|
|
|
|
|
.segment "STARTUP"
|
|
|
|
; switch to lower case charset
|
|
lda #14
|
|
jsr print_a
|
|
|
|
init_ip_via_dhcp
|
|
jsr print_ip_config
|
|
|
|
ldax #url_1
|
|
jsr test_url_parse
|
|
jsr wait_key
|
|
|
|
ldax #url_2
|
|
jsr test_url_parse
|
|
ldax #url_3
|
|
jsr test_url_parse
|
|
ldax #url_4
|
|
jsr test_url_parse
|
|
jsr wait_key
|
|
|
|
ldax #url_5
|
|
jsr test_url_parse
|
|
ldax #url_6
|
|
jsr test_url_parse
|
|
ldax #url_7
|
|
jsr test_url_parse
|
|
ldax #url_8
|
|
jsr test_url_parse
|
|
jsr wait_key
|
|
|
|
ldax #url_9
|
|
jsr test_url_parse
|
|
ldax #url_a
|
|
jsr test_url_parse
|
|
ldax #url_b
|
|
jsr test_url_parse
|
|
ldax #url_c
|
|
jsr test_url_parse
|
|
|
|
jsr wait_key
|
|
|
|
ldax #atom_file
|
|
jsr parser_init
|
|
|
|
; ldax #entry
|
|
; jsr parser_skip_next
|
|
; bcs @done
|
|
|
|
@next_title:
|
|
ldax #title
|
|
jsr parser_skip_next
|
|
bcs @done
|
|
|
|
jsr print_tag_contents
|
|
jsr print_cr
|
|
|
|
jmp @next_title
|
|
@done:
|
|
rts
|
|
|
|
test_url_parse:
|
|
stax temp_url_ptr
|
|
ldax #parsing
|
|
jsr print
|
|
ldax temp_url_ptr
|
|
jsr print
|
|
jsr print_cr
|
|
ldax temp_url_ptr
|
|
jsr url_parse
|
|
bcc :+
|
|
jmp print_errorcode
|
|
: stax selector_ptr
|
|
jmp print_parsed_url
|
|
|
|
print_tag_contents:
|
|
stax temp_buff
|
|
lda #0
|
|
sta string_offset
|
|
@next_byte:
|
|
ldy string_offset
|
|
lda (temp_buff),y
|
|
beq @done
|
|
cmp #'<'
|
|
beq @done
|
|
jsr ascii_to_native
|
|
jsr print_a
|
|
inc string_offset
|
|
beq @done
|
|
jmp @next_byte
|
|
@done:
|
|
rts
|
|
|
|
print_parsed_url:
|
|
ldax #ip
|
|
jsr print
|
|
ldax #url_ip
|
|
jsr print_dotted_quad
|
|
ldax #port
|
|
jsr print
|
|
ldax url_port
|
|
jsr print_integer
|
|
ldax #type
|
|
jsr print
|
|
lda url_resource_type
|
|
jsr print_a
|
|
jsr print_cr
|
|
ldax #selector
|
|
jsr print
|
|
ldax selector_ptr
|
|
jsr print
|
|
jmp print_cr
|
|
|
|
wait_key:
|
|
ldax #press_a_key
|
|
jsr print
|
|
jmp get_key
|
|
|
|
|
|
.bss
|
|
|
|
string_offset: .res 1
|
|
selector_ptr: .res 2
|
|
temp_url_ptr: .res 2
|
|
|
|
|
|
.data
|
|
|
|
entry:
|
|
.byte "<entry>",0
|
|
title:
|
|
.byte "<title>",0
|
|
|
|
url_1:
|
|
.byte "http://www.jamtronix.com/",13,"not part of URL!",0
|
|
|
|
url_2:
|
|
.byte "http://www.jamtronix.com/goober",0
|
|
|
|
url_3:
|
|
.byte "http://www.jamtronix.com:8080/foo",0
|
|
|
|
url_4:
|
|
.byte "gopher://gopher.floodgap.com/",0
|
|
|
|
url_5:
|
|
.byte "gopher://10.5.1.164/0goober",0
|
|
|
|
url_6:
|
|
.byte "gopher://gopher.floodgap.com:7070/7/goober",0
|
|
|
|
url_7:
|
|
.byte "www.jamtronix.com",0
|
|
|
|
url_8:
|
|
.byte "jamtronix.com:70",0
|
|
|
|
url_9:
|
|
.byte "gopher.floodgap.com",0
|
|
|
|
url_a:
|
|
.byte "10.5.1.123:70",0
|
|
|
|
url_b:
|
|
.byte "gopher.floodgap.com:80",0
|
|
|
|
url_c:
|
|
.byte "gopher.floodgap.com:70",0
|
|
|
|
parsing:
|
|
.asciiz "PARSING "
|
|
ip:
|
|
.asciiz "IP: "
|
|
port:
|
|
.asciiz " PORT: "
|
|
type:
|
|
.asciiz " TYPE:"
|
|
selector:
|
|
.asciiz "SELECTOR: "
|
|
press_a_key:
|
|
.byte "PRESS ANY KEY TO CONTINUE",13,0
|
|
|
|
atom_file:
|
|
; .incbin "atom_test.xml"
|
|
|
|
.byte 0
|
|
|
|
|
|
|
|
; -- LICENSE FOR test_parser.s --
|
|
; 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/
|
|
;
|
|
; 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.
|
|
;
|
|
; The Original Code is ip65.
|
|
;
|
|
; The Initial Developer of the Original Code is Jonno Downes,
|
|
; jonno@jamtronix.com.
|
|
; Portions created by the Initial Developer are Copyright (C) 2009
|
|
; Jonno Downes. All Rights Reserved.
|
|
; -- LICENSE END --
|