mirror of
https://github.com/bobbimanners/emailler.git
synced 2024-09-08 21:54:28 +00:00
after playing a SID, go back to last viewed dir listing, not main menu
git-svn-id: http://svn.code.sf.net/p/netboot65/code@247 93682198-c243-4bdb-bd91-e943c89aac3b
This commit is contained in:
parent
68fa7b4453
commit
f7e4ddf383
@ -56,6 +56,9 @@
|
|||||||
.import cfg_dns
|
.import cfg_dns
|
||||||
.import cfg_tftp_server
|
.import cfg_tftp_server
|
||||||
|
|
||||||
|
.import timer_read
|
||||||
|
.import timer_timeout
|
||||||
|
|
||||||
.import print_ascii_as_native
|
.import print_ascii_as_native
|
||||||
.import print_dotted_quad
|
.import print_dotted_quad
|
||||||
.import print_hex
|
.import print_hex
|
||||||
@ -91,7 +94,7 @@
|
|||||||
|
|
||||||
|
|
||||||
.bss
|
.bss
|
||||||
temp_ptr: .res 2
|
filemask_ptr: .res 2
|
||||||
.segment "SELF_MODIFIED_CODE"
|
.segment "SELF_MODIFIED_CODE"
|
||||||
|
|
||||||
call_downloaded_prg:
|
call_downloaded_prg:
|
||||||
@ -261,6 +264,7 @@ main_menu:
|
|||||||
@tftp_boot:
|
@tftp_boot:
|
||||||
|
|
||||||
ldax #tftp_dir_filemask
|
ldax #tftp_dir_filemask
|
||||||
|
stax filemask_ptr
|
||||||
jsr get_tftp_directory_listing
|
jsr get_tftp_directory_listing
|
||||||
bcs return_to_main
|
bcs return_to_main
|
||||||
|
|
||||||
@ -313,10 +317,14 @@ exit_cart_via_ax:
|
|||||||
jmp call_downloaded_prg
|
jmp call_downloaded_prg
|
||||||
|
|
||||||
get_tftp_directory_listing:
|
get_tftp_directory_listing:
|
||||||
stax temp_ptr
|
|
||||||
@get_listing:
|
|
||||||
stax kipper_param_buffer+KPR_TFTP_FILENAME
|
stax kipper_param_buffer+KPR_TFTP_FILENAME
|
||||||
|
stax copy_src
|
||||||
|
ldax #last_dir_mask
|
||||||
|
stax copy_dest
|
||||||
|
ldax #$80
|
||||||
|
jsr copymem
|
||||||
|
|
||||||
ldax #directory_buffer
|
ldax #directory_buffer
|
||||||
stax kipper_param_buffer+KPR_TFTP_POINTER
|
stax kipper_param_buffer+KPR_TFTP_POINTER
|
||||||
|
|
||||||
@ -358,7 +366,7 @@ get_tftp_directory_listing:
|
|||||||
bne @look_for_trailing_zero
|
bne @look_for_trailing_zero
|
||||||
|
|
||||||
; got trailing zero
|
; got trailing zero
|
||||||
ldax temp_ptr
|
ldax filemask_ptr
|
||||||
clc
|
clc
|
||||||
adc #1 ;skip the leading '$'
|
adc #1 ;skip the leading '$'
|
||||||
bcc :+
|
bcc :+
|
||||||
@ -368,7 +376,7 @@ get_tftp_directory_listing:
|
|||||||
ldax #$07
|
ldax #$07
|
||||||
jsr copymem
|
jsr copymem
|
||||||
ldax get_value_of_axy+1
|
ldax get_value_of_axy+1
|
||||||
jmp @get_listing
|
jmp get_tftp_directory_listing
|
||||||
|
|
||||||
@not_directory_name:
|
@not_directory_name:
|
||||||
ldax get_value_of_axy+1
|
ldax get_value_of_axy+1
|
||||||
@ -455,6 +463,9 @@ error_handler:
|
|||||||
netplay_sid:
|
netplay_sid:
|
||||||
|
|
||||||
ldax #sid_filemask
|
ldax #sid_filemask
|
||||||
|
stax filemask_ptr
|
||||||
|
@get_sid_dir:
|
||||||
|
|
||||||
jsr get_tftp_directory_listing
|
jsr get_tftp_directory_listing
|
||||||
bcc @sid_filename_set
|
bcc @sid_filename_set
|
||||||
jmp error_handler
|
jmp error_handler
|
||||||
@ -477,13 +488,27 @@ netplay_sid:
|
|||||||
jsr load_sid
|
jsr load_sid
|
||||||
jsr play_sid
|
jsr play_sid
|
||||||
|
|
||||||
|
jsr print_cr
|
||||||
jmp main_menu
|
;wait a little bit to allow the RUN/STOP key to be released
|
||||||
|
jsr timer_read
|
||||||
|
inx ;add 256 ms
|
||||||
|
inx ;add 256 ms
|
||||||
|
:
|
||||||
|
jsr timer_timeout
|
||||||
|
bcs :-
|
||||||
|
|
||||||
|
jsr ip65_process
|
||||||
|
lda #0
|
||||||
|
sta $cb
|
||||||
|
|
||||||
|
ldax #last_dir_mask
|
||||||
|
jsr @get_sid_dir
|
||||||
|
|
||||||
|
|
||||||
d64_download:
|
d64_download:
|
||||||
|
|
||||||
ldax #d64_filemask
|
ldax #d64_filemask
|
||||||
|
stax filemask_ptr
|
||||||
jsr get_tftp_directory_listing
|
jsr get_tftp_directory_listing
|
||||||
bcc @d64_filename_set
|
bcc @d64_filename_set
|
||||||
jmp main_menu
|
jmp main_menu
|
||||||
@ -672,6 +697,9 @@ resolving:
|
|||||||
|
|
||||||
remote_host: .byte "hostname (return to quit)",10,": ",0
|
remote_host: .byte "hostname (return to quit)",10,": ",0
|
||||||
|
|
||||||
|
.segment "APP_SCRATCH"
|
||||||
|
last_dir_mask: .res 128
|
||||||
|
|
||||||
;-- LICENSE FOR kipperkart.s --
|
;-- LICENSE FOR kipperkart.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
|
||||||
; Version 1.1 (the "License"); you may not use this file except in
|
; Version 1.1 (the "License"); you may not use this file except in
|
||||||
|
@ -1 +1 @@
|
|||||||
.byte "1.0.27"
|
.byte "1.0.28"
|
||||||
|
2
dist/version_number.txt
vendored
2
dist/version_number.txt
vendored
@ -1 +1 @@
|
|||||||
1.0.27
|
1.0.28
|
@ -1,3 +1,6 @@
|
|||||||
|
v1.0.28
|
||||||
|
- CHANGE: after playing a SID, go back to last viewed dir listing, not main menu
|
||||||
|
|
||||||
v1.0.27
|
v1.0.27
|
||||||
- FIX: more than 3 dots in a dotted quad would crash the hostname resolver
|
- FIX: more than 3 dots in a dotted quad would crash the hostname resolver
|
||||||
- FIX: parse_integer was treating digit '9' as marking end of string :-(
|
- FIX: parse_integer was treating digit '9' as marking end of string :-(
|
||||||
@ -11,7 +14,7 @@ v1.0.26
|
|||||||
- ADD: change border colour to indicate telnet connect/disconnect
|
- ADD: change border colour to indicate telnet connect/disconnect
|
||||||
|
|
||||||
v1.0.25
|
v1.0.25
|
||||||
- FIX: vt100 emulation was leaving a cursor after a "clear to end of line" command ( ]J )
|
- FIX: vt100 emulation was leaving a cursor after a "clear to end of line" command ( [J )
|
||||||
- ADD: XMODEM upload support
|
- ADD: XMODEM upload support
|
||||||
- CHANGE: removed 'line mode' from telnet
|
- CHANGE: removed 'line mode' from telnet
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user