mirror of
https://github.com/bobbimanners/emailler.git
synced 2024-11-19 12:30:51 +00:00
79028c849b
- 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.
122 lines
2.3 KiB
ArmAsm
122 lines
2.3 KiB
ArmAsm
.include "../inc/common.i"
|
|
.include "../inc/commonprint.i"
|
|
.include "../inc/net.i"
|
|
|
|
.import exit_to_basic
|
|
|
|
.import cfg_get_configuration_ptr
|
|
.import copymem
|
|
.importzp copy_src
|
|
.importzp copy_dest
|
|
|
|
.import tftp_upload
|
|
.import tftp_upload_from_memory
|
|
.import tftp_set_callback_vector
|
|
.import tftp_ip
|
|
.import tftp_filesize
|
|
.importzp tftp_filename
|
|
|
|
|
|
.segment "STARTUP"
|
|
|
|
; switch to lower case charset
|
|
lda #14
|
|
jsr print_a
|
|
|
|
jsr print_cr
|
|
init_ip_via_dhcp
|
|
jsr print_ip_config
|
|
|
|
ldax #upload_callback
|
|
jsr tftp_set_callback_vector
|
|
lda #0
|
|
sta block_number
|
|
ldax #test_file
|
|
stax tftp_filename
|
|
lda #$ff
|
|
ldx #$3
|
|
: sta tftp_ip,x
|
|
dex
|
|
bpl :-
|
|
|
|
ldax #sending_via_callback
|
|
jsr print
|
|
jsr tftp_upload
|
|
bcs @error
|
|
print_ok
|
|
|
|
ldax #basic_file
|
|
stax tftp_filename
|
|
|
|
ldax #$2000
|
|
stax tftp_filesize
|
|
ldax #sending_ram
|
|
jsr print
|
|
jsr tftp_upload_from_memory
|
|
bcs @error
|
|
print_ok
|
|
rts
|
|
|
|
@error:
|
|
print_failed
|
|
rts
|
|
upload_callback:
|
|
stax copy_dest
|
|
ldax #buffer1
|
|
stax copy_src
|
|
inc block_number
|
|
lda block_number
|
|
ldx #00
|
|
@next_byte:
|
|
sta buffer1,x
|
|
sta buffer2,x
|
|
inx
|
|
bne @next_byte
|
|
cmp #7
|
|
beq @last_block
|
|
ldax #512
|
|
jmp :+
|
|
@last_block:
|
|
ldax #129
|
|
: stax block_length
|
|
jsr copymem
|
|
ldax block_length
|
|
rts
|
|
|
|
|
|
.rodata
|
|
|
|
test_file: .byte "TESTFILE.BIN",0
|
|
basic_file: .byte "CBMBASIC.BIN",0
|
|
sending_via_callback: .byte "SENDING VIA CALLBACK...",0
|
|
sending_ram: .byte "SENDING RAM...",0
|
|
|
|
|
|
.bss
|
|
|
|
block_number: .res 1
|
|
block_length: .res 2
|
|
buffer1: .res 256
|
|
buffer2: .res 256
|
|
|
|
|
|
|
|
; -- LICENSE FOR testtftp.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 --
|