.include "../inc/common.inc" .include "../inc/commonprint.inc" .include "../inc/net.inc" .export start .import exit_to_basic .import parse_dotted_quad .import dotted_quad_value ; keep LD65 happy .segment "INIT" .segment "ONCE" .segment "STARTUP" ; switch to lower case charset lda #14 jsr print_a start: jsr print_cr ldax #dotted_quad_1 jsr test_dotted_quad_string ldax #dotted_quad_2 jsr test_dotted_quad_string ldax #dotted_quad_3 jsr test_dotted_quad_string ldax #dotted_quad_4 jsr test_dotted_quad_string ldax #dotted_quad_5 jsr test_dotted_quad_string ldax #dotted_quad_6 jsr test_dotted_quad_string ldax #dotted_quad_7 jsr test_dotted_quad_string jmp exit_to_basic test_dotted_quad_string: stax temp_ax jsr print lda #':' jsr print_a lda #' ' jsr print_a ldax temp_ax jsr parse_dotted_quad bcs @error ldax #dotted_quad_value jsr print_dotted_quad jsr print_cr rts @error: ldax #failed_msg jsr print jsr print_cr rts .bss temp_ax: .res 2 .rodata dotted_quad_1: .byte "1.1.1.1",0 ; should work dotted_quad_2: .byte "GOOBER",0 ; should fail dotted_quad_3: .byte "255.255.255.0",0 ; should work dotted_quad_4: .byte "111.222.333.444",0 ; should fail dotted_quad_5: .byte "111.22.3",0 ; should fail dotted_quad_6: .byte "111.22.3.4",0 ; should work dotted_quad_7: .byte "3.4.5.6X",0 ; should fail ; -- LICENSE FOR dottedquad.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 --