emailler/test/parser.s
2022-09-14 13:02:41 -04:00

242 lines
3.7 KiB
ArmAsm

.include "../inc/common.inc"
.include "../inc/commonprint.inc"
.include "../inc/net.inc"
.export start
.import exit_to_basic
.import print_a
.import get_key
.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
; keep LD65 happy
.segment "INIT"
.segment "ONCE"
.segment "STARTUP"
; switch to lower case charset
lda #14
jsr print_a
start:
jsr print_cr
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:
jmp exit_to_basic
test_url_parse:
stax temp_url_ptr
ldax #parsing
jsr print
ldax temp_url_ptr
jsr print
jsr print_cr
ldax temp_url_ptr
ldy #1
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 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 --