mirror of
https://github.com/bobbimanners/emailler.git
synced 2024-11-19 12:30:51 +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.
114 lines
2.4 KiB
ArmAsm
114 lines
2.4 KiB
ArmAsm
.include "../inc/common.i"
|
|
.include "../inc/commonprint.i"
|
|
.include "../inc/net.i"
|
|
|
|
.import exit_to_basic
|
|
|
|
.import cfg_get_configuration_ptr
|
|
.import cifs_l1_encode
|
|
.import cifs_l1_decode
|
|
.import cifs_start
|
|
|
|
|
|
.segment "STARTUP"
|
|
|
|
; switch to lower case charset
|
|
lda #14
|
|
jsr print_a
|
|
|
|
jsr print_cr
|
|
init_ip_via_dhcp
|
|
|
|
; jsr ip65_init
|
|
|
|
ldx #3
|
|
: lda static_ip,x
|
|
sta cfg_ip,x
|
|
dex
|
|
bpl :-
|
|
|
|
jsr print_ip_config
|
|
|
|
ldax #hostname_1
|
|
jsr do_encoding_test
|
|
|
|
ldax #hostname_2
|
|
jsr do_encoding_test
|
|
|
|
ldax #hostname_3
|
|
jsr do_encoding_test
|
|
|
|
ldax #cifs_hostname
|
|
jsr cifs_start
|
|
jmp exit_to_basic
|
|
|
|
do_encoding_test:
|
|
stax hostname_ptr
|
|
jsr print
|
|
lda #' '
|
|
jsr print_a
|
|
lda #':'
|
|
jsr print_a
|
|
lda #' '
|
|
jsr print_a
|
|
ldax hostname_ptr
|
|
jsr cifs_l1_encode
|
|
stax hostname_ptr
|
|
jsr print
|
|
jsr print_cr
|
|
ldax hostname_ptr
|
|
jsr cifs_l1_decode
|
|
jsr print
|
|
jsr print_cr
|
|
rts
|
|
|
|
|
|
.rodata
|
|
|
|
hostname_ptr:
|
|
.addr 0
|
|
|
|
hostname_1:
|
|
.byte "Neko",0 ; this should be an A record
|
|
|
|
hostname_2:
|
|
.byte "NEKO",0 ; this should be a CNAME
|
|
|
|
hostname_3:
|
|
.byte "HOSTNAMEWITHLOTSOFCHARSINNAME",0 ; this should be another CNAME
|
|
|
|
cifs_hostname:
|
|
.byte "KIPPERCIFS",0
|
|
|
|
static_ip:
|
|
.byte 10,5,1,64
|
|
|
|
sample_msg:
|
|
.byte $ff, $ff, $ff, $ff, $ff, $ff, $f8, $1e, $df, $dc, $47, $a1, $08, $00, $45, $00
|
|
.byte $00, $4e, $9e, $cf, $00, $00, $40, $11, $c4, $c5, $0a, $05, $01, $02, $0a, $05
|
|
.byte $01, $ff, $fe, $66, $00, $89, $00, $3a, $86, $0a, $00, $02, $01, $10, $00, $01
|
|
.byte $00, $00, $00, $00, $00, $00, $20, $45, $48, $45, $50, $45, $50, $45, $43, $45
|
|
.byte $46, $46, $43, $43, $41, $43, $41, $43, $41, $43, $41, $43, $41, $43, $41, $43
|
|
.byte $41, $43, $41, $43, $41, $43, $41, $00, $00, $20, $00, $01
|
|
|
|
|
|
|
|
; -- LICENSE FOR testdns.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 --
|