mirror of
https://github.com/bobbimanners/emailler.git
synced 2024-10-14 05:24:07 +00:00
CHANGE: added a 'wait for keypress' after succesful xmodem upload
ADD: change border colour to indicate telnet connect/disconnect also fixed type in Glenn's surname git-svn-id: http://svn.code.sf.net/p/netboot65/code@242 93682198-c243-4bdb-bd91-e943c89aac3b
This commit is contained in:
parent
fa44153d63
commit
7fc7bcfcc0
@ -15,6 +15,7 @@
|
|||||||
KEY_BACK_IN_HISTORY=KEYCODE_F3
|
KEY_BACK_IN_HISTORY=KEYCODE_F3
|
||||||
KEY_NEW_SERVER=KEYCODE_F5
|
KEY_NEW_SERVER=KEYCODE_F5
|
||||||
|
|
||||||
|
|
||||||
XMODEM_IN_TELNET = 1
|
XMODEM_IN_TELNET = 1
|
||||||
|
|
||||||
.import xmodem_iac_escape
|
.import xmodem_iac_escape
|
||||||
@ -35,6 +36,9 @@
|
|||||||
.import dotted_quad_value
|
.import dotted_quad_value
|
||||||
.import parse_integer
|
.import parse_integer
|
||||||
|
|
||||||
|
.import tcp_send
|
||||||
|
.import tcp_send_data_len
|
||||||
|
|
||||||
.import io_read_catalogue
|
.import io_read_catalogue
|
||||||
.import io_device_no
|
.import io_device_no
|
||||||
|
|
||||||
@ -288,6 +292,9 @@ telnet_menu:
|
|||||||
|
|
||||||
jsr save_screen_settings
|
jsr save_screen_settings
|
||||||
jsr setup_screen
|
jsr setup_screen
|
||||||
|
|
||||||
|
@show_menu:
|
||||||
|
|
||||||
jsr cls
|
jsr cls
|
||||||
|
|
||||||
ldax #menu_header_msg
|
ldax #menu_header_msg
|
||||||
@ -307,7 +314,29 @@ telnet_menu:
|
|||||||
jsr xmodem_upload
|
jsr xmodem_upload
|
||||||
jmp @exit
|
jmp @exit
|
||||||
:
|
:
|
||||||
|
cmp #KEYCODE_F5
|
||||||
|
bne :+
|
||||||
|
@get_ascii_value:
|
||||||
|
ldax #enter_ascii
|
||||||
|
jsr print_ascii_as_native
|
||||||
|
ldy #3 ;max chars
|
||||||
|
ldax #filter_number
|
||||||
|
jsr get_filtered_input
|
||||||
|
bcs @show_menu
|
||||||
|
;AX now points a string containing 0..999
|
||||||
|
.import parse_integer
|
||||||
|
jsr parse_integer
|
||||||
|
cpx #0
|
||||||
|
bne @get_ascii_value
|
||||||
|
sta ascii_packet
|
||||||
|
lda #1
|
||||||
|
stax tcp_send_data_len
|
||||||
|
jsr restore_screen_settings ;since we won't return from tcp_send
|
||||||
|
ldax #ascii_packet
|
||||||
|
jmp tcp_send
|
||||||
|
|
||||||
|
|
||||||
|
:
|
||||||
cmp #KEYCODE_F7
|
cmp #KEYCODE_F7
|
||||||
beq @exit
|
beq @exit
|
||||||
jmp @get_menu_option
|
jmp @get_menu_option
|
||||||
@ -368,8 +397,16 @@ xmodem_upload:
|
|||||||
jsr open_file
|
jsr open_file
|
||||||
ldax #read_byte
|
ldax #read_byte
|
||||||
jsr xmodem_send
|
jsr xmodem_send
|
||||||
|
bcc @no_error
|
||||||
|
print_failed
|
||||||
|
jsr print_errorcode
|
||||||
|
jmp :+
|
||||||
|
@no_error:
|
||||||
|
print_ok
|
||||||
|
:
|
||||||
jsr close_file
|
jsr close_file
|
||||||
rts
|
jmp wait_for_keypress
|
||||||
|
|
||||||
|
|
||||||
read_byte:
|
read_byte:
|
||||||
lda eof
|
lda eof
|
||||||
@ -558,6 +595,7 @@ telnet_menu_msg:
|
|||||||
.byte 10,10,10
|
.byte 10,10,10
|
||||||
.byte "F1: D/L File (XMODEM)",10
|
.byte "F1: D/L File (XMODEM)",10
|
||||||
.byte "F3: U/L File (XMODEM)",10
|
.byte "F3: U/L File (XMODEM)",10
|
||||||
|
.byte "F5: Send ASCII char",10
|
||||||
.byte "F7: Return",10,10
|
.byte "F7: Return",10,10
|
||||||
.byte 0
|
.byte 0
|
||||||
|
|
||||||
@ -571,6 +609,12 @@ prompt_for_filename: .byte "save file as?",10,0
|
|||||||
current:
|
current:
|
||||||
.byte "current ",0
|
.byte "current ",0
|
||||||
|
|
||||||
|
enter_ascii:
|
||||||
|
.byte 10,"ASCII value (0..255)? ",0
|
||||||
|
|
||||||
|
byte_sent:
|
||||||
|
.byte 10,"byte sent.",0
|
||||||
|
|
||||||
new:
|
new:
|
||||||
.byte"new ",0
|
.byte"new ",0
|
||||||
|
|
||||||
@ -594,7 +638,7 @@ credits:
|
|||||||
.byte 10
|
.byte 10
|
||||||
.byte 10,"Contributors:",10
|
.byte 10,"Contributors:",10
|
||||||
.byte 10,"Jonno Downes"
|
.byte 10,"Jonno Downes"
|
||||||
.byte 10,"Glenn Holmmer"
|
.byte 10,"Glenn Holmer"
|
||||||
.byte 10,"Per Olofsson"
|
.byte 10,"Per Olofsson"
|
||||||
.byte 10,"Lars Stollenwerk"
|
.byte 10,"Lars Stollenwerk"
|
||||||
.byte 10,10
|
.byte 10,10
|
||||||
@ -611,6 +655,7 @@ temp_screen_chars: .res $400
|
|||||||
temp_colour_ram: .res $400
|
temp_colour_ram: .res $400
|
||||||
command_buffer: .res $80
|
command_buffer: .res $80
|
||||||
eof: .res 1
|
eof: .res 1
|
||||||
|
ascii_packet: .res 1
|
||||||
|
|
||||||
;-- LICENSE FOR kipperterm.s --
|
;-- LICENSE FOR kipperterm.s --
|
||||||
; The contents of this file are subject to the Mozilla Public License
|
; The contents of this file are subject to the Mozilla Public License
|
||||||
|
Loading…
Reference in New Issue
Block a user