.include "../inc/common.i" .include "../inc/commonprint.i" .include "../inc/net.i" .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 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 "",0 title: .byte "",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 --