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.
112 lines
2.1 KiB
ArmAsm
112 lines
2.1 KiB
ArmAsm
.include "../inc/common.i"
|
|
.include "../inc/commonprint.i"
|
|
.include "../inc/net.i"
|
|
|
|
.import exit_to_basic
|
|
|
|
.import parse_dotted_quad
|
|
.import dotted_quad_value
|
|
|
|
|
|
.segment "STARTUP"
|
|
|
|
; switch to lower case charset
|
|
lda #14
|
|
jsr print_a
|
|
|
|
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 testdottedquad.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 --
|