mirror of
https://github.com/bobbimanners/emailler.git
synced 2024-10-10 10:23:37 +00:00
git-svn-id: http://svn.code.sf.net/p/netboot65/code@259 93682198-c243-4bdb-bd91-e943c89aac3b
This commit is contained in:
parent
c1d8df0898
commit
55c54ac5df
Binary file not shown.
Binary file not shown.
@ -14,15 +14,20 @@ CLEAR=$A65E ;clears BASIC variables
|
|||||||
.import dhcp_init
|
.import dhcp_init
|
||||||
.import ip65_init
|
.import ip65_init
|
||||||
.import cfg_get_configuration_ptr
|
.import cfg_get_configuration_ptr
|
||||||
|
.import tcp_listen
|
||||||
|
.import tcp_callback
|
||||||
|
.import tcp_connect_ip
|
||||||
|
.import tcp_send
|
||||||
|
.import tcp_send_data_len
|
||||||
.zeropage
|
.zeropage
|
||||||
temp_buff: .res 2
|
temp_buff: .res 2
|
||||||
|
|
||||||
.segment "STARTUP" ;this is what gets put at the start of the file on the C64
|
.segment "STARTUP" ;this is what gets put at the start of the file on the C64
|
||||||
.word jump_table ; load address
|
.word jump_table ; load address
|
||||||
jump_table:
|
jump_table:
|
||||||
jmp init ; this should be at $4000 ie SYS(16384)
|
jmp init ; this should be at $4000 ie SYS 16384
|
||||||
|
jmp listen_on_port ; this should be at $4003 ie SYS 16387
|
||||||
|
jmp send_data ; this should be at $4006 ie SYS 16390
|
||||||
.code
|
.code
|
||||||
|
|
||||||
init:
|
init:
|
||||||
@ -61,13 +66,45 @@ init:
|
|||||||
@init_failed:
|
@init_failed:
|
||||||
print_failed
|
print_failed
|
||||||
jsr print_errorcode
|
jsr print_errorcode
|
||||||
|
jmp set_error_var
|
||||||
@init_ok:
|
@init_ok:
|
||||||
jsr print_ip_config
|
jsr print_ip_config
|
||||||
|
|
||||||
exit_to_basic:
|
exit_to_basic:
|
||||||
|
rts
|
||||||
|
|
||||||
|
|
||||||
|
listen_on_port:
|
||||||
|
ldax #tcp_data_arrived
|
||||||
|
stax tcp_callback
|
||||||
|
lda #0
|
||||||
|
sta ip65_error
|
||||||
|
|
||||||
|
jsr get_io_var
|
||||||
|
jsr tcp_listen
|
||||||
|
bcs @error
|
||||||
|
ldax #connected
|
||||||
|
jsr print_ascii_as_native
|
||||||
|
ldax #tcp_connect_ip
|
||||||
|
jsr print_dotted_quad
|
||||||
|
jsr print_cr
|
||||||
|
@error:
|
||||||
jmp set_error_var
|
jmp set_error_var
|
||||||
|
|
||||||
|
send_data:
|
||||||
|
jsr get_io_string_ptr
|
||||||
|
sty tcp_send_data_len
|
||||||
|
ldy #0
|
||||||
|
sty tcp_send_data_len+1
|
||||||
|
|
||||||
|
jsr tcp_send
|
||||||
|
bcs @error
|
||||||
|
lda #0
|
||||||
|
sta ip65_error
|
||||||
|
@error:
|
||||||
|
jmp set_error_var
|
||||||
|
|
||||||
|
|
||||||
set_error_var:
|
set_error_var:
|
||||||
ldy #16 ;we want to set 3rd & 4th byte of 3rd entry in variable table entry
|
ldy #16 ;we want to set 3rd & 4th byte of 3rd entry in variable table entry
|
||||||
ldx #0
|
ldx #0
|
||||||
@ -85,6 +122,27 @@ set_var:
|
|||||||
sta (VARTAB),y ; set low byte
|
sta (VARTAB),y ; set low byte
|
||||||
rts
|
rts
|
||||||
|
|
||||||
|
get_io_var:
|
||||||
|
ldy #9 ;we want to read 3rd & 4th byte of 2nd entry in variable table entry
|
||||||
|
lda (VARTAB),y ; set high byte
|
||||||
|
tax
|
||||||
|
iny
|
||||||
|
lda (VARTAB),y ; set low byte
|
||||||
|
rts
|
||||||
|
|
||||||
|
get_io_string_ptr:
|
||||||
|
ldy #4 ;we want to read 1st entry in variable table entry
|
||||||
|
lda (VARTAB),y ; ptr high byte
|
||||||
|
tax
|
||||||
|
dey
|
||||||
|
lda (VARTAB),y ; ptr low byte
|
||||||
|
pha
|
||||||
|
dey
|
||||||
|
|
||||||
|
lda (VARTAB),y ; length
|
||||||
|
tay
|
||||||
|
pla
|
||||||
|
rts
|
||||||
|
|
||||||
set_io_string:
|
set_io_string:
|
||||||
stax copy_src
|
stax copy_src
|
||||||
@ -110,6 +168,10 @@ set_io_string:
|
|||||||
|
|
||||||
rts
|
rts
|
||||||
|
|
||||||
|
tcp_data_arrived:
|
||||||
|
|
||||||
|
rts
|
||||||
|
|
||||||
.data
|
.data
|
||||||
|
|
||||||
basic_vartable_entries:
|
basic_vartable_entries:
|
||||||
@ -128,8 +190,8 @@ basic_vartable_entries:
|
|||||||
.byte 0,0,0 ;3 dummy bytes
|
.byte 0,0,0 ;3 dummy bytes
|
||||||
|
|
||||||
basic_vartable_entries_length=*-basic_vartable_entries
|
basic_vartable_entries_length=*-basic_vartable_entries
|
||||||
hello_world:
|
connected:
|
||||||
.byte "HELLO WORLD!",0
|
.byte "connected - ",0
|
||||||
.bss
|
.bss
|
||||||
transfer_buffer: .res $100
|
transfer_buffer: .res $100
|
||||||
|
|
||||||
|
9
client/kipperterm2/TODO.txt
Normal file
9
client/kipperterm2/TODO.txt
Normal file
@ -0,0 +1,9 @@
|
|||||||
|
redo directory listing code (not hardcoded to 1541 disk format)
|
||||||
|
scrollback buffer
|
||||||
|
log session to disk
|
||||||
|
punter protocol
|
||||||
|
tftp individual files
|
||||||
|
allow changing of default drive from telnet menu
|
||||||
|
send dos command to current drive
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue
Block a user