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

client/clients/rrnetboot.s

@@ -16,7 +16,7 @@
   .import cls
   .import get_key
   .import beep
-
+  .import exit_to_basic
 
   .importzp tftp_filename
   .import tftp_load_address
@@ -67,7 +67,7 @@ init:
 
 
   
-  ldax  #startup_msg
+  ldax  #startup_msg 
   jsr print
  
   ;relocate our r/w data
@@ -156,9 +156,10 @@ init:
 
 
 bad_boot:
-  ldax  #failed_msg
-  jmp print   ;this will also exit
-
+  ldax  #press_a_key_to_continue
+  jsr print
+  jsr get_key
+  jmp $fe66   ;do a wam start
 
 download:
   stax tftp_filename
@@ -198,3 +199,6 @@ tftp_download_ok_msg:
   
 tftp_dir_filemask:  
   .asciiz "*.PRG"
+
+press_a_key_to_continue:
+  .byte "PRESS A KEY TO CONTINUE",13,0

client/inc/net.i

@@ -28,12 +28,10 @@
   print_dhcp_init
   
   jsr dhcp_init
-	bcc :+
-
-  
+	bcc :+  
 	print_failed
   sec
-	rts
+  jmp @end_macro
 :
   print_ok
   clc