mirror of
https://github.com/bobbimanners/emailler.git
synced 2024-09-13 09:54:45 +00:00
now displays an error message and gracefully exits if DHCP or TFTP fails (rather than crashing)
git-svn-id: http://svn.code.sf.net/p/netboot65/code@49 93682198-c243-4bdb-bd91-e943c89aac3b
This commit is contained in:
parent
647a0047da
commit
69cd7ba69e
@ -16,7 +16,7 @@
|
|||||||
.import cls
|
.import cls
|
||||||
.import get_key
|
.import get_key
|
||||||
.import beep
|
.import beep
|
||||||
|
.import exit_to_basic
|
||||||
|
|
||||||
.importzp tftp_filename
|
.importzp tftp_filename
|
||||||
.import tftp_load_address
|
.import tftp_load_address
|
||||||
@ -156,9 +156,10 @@ init:
|
|||||||
|
|
||||||
|
|
||||||
bad_boot:
|
bad_boot:
|
||||||
ldax #failed_msg
|
ldax #press_a_key_to_continue
|
||||||
jmp print ;this will also exit
|
jsr print
|
||||||
|
jsr get_key
|
||||||
|
jmp $fe66 ;do a wam start
|
||||||
|
|
||||||
download:
|
download:
|
||||||
stax tftp_filename
|
stax tftp_filename
|
||||||
@ -198,3 +199,6 @@ tftp_download_ok_msg:
|
|||||||
|
|
||||||
tftp_dir_filemask:
|
tftp_dir_filemask:
|
||||||
.asciiz "*.PRG"
|
.asciiz "*.PRG"
|
||||||
|
|
||||||
|
press_a_key_to_continue:
|
||||||
|
.byte "PRESS A KEY TO CONTINUE",13,0
|
||||||
|
@ -29,11 +29,9 @@
|
|||||||
|
|
||||||
jsr dhcp_init
|
jsr dhcp_init
|
||||||
bcc :+
|
bcc :+
|
||||||
|
|
||||||
|
|
||||||
print_failed
|
print_failed
|
||||||
sec
|
sec
|
||||||
rts
|
jmp @end_macro
|
||||||
:
|
:
|
||||||
print_ok
|
print_ok
|
||||||
clc
|
clc
|
||||||
|
Loading…
Reference in New Issue
Block a user