git-svn-id: http://svn.code.sf.net/p/netboot65/code@155 93682198-c243-4bdb-bd91-e943c89aac3b

client/drivers/c64inputs.s

@@ -4,7 +4,7 @@
 .export filter_ip
 .export filter_dns
 .export check_for_abort_key
-
+.export get_key_if_available
 .importzp copy_src
 
 .include "../inc/common.i"
@@ -20,6 +20,12 @@ get_key:
   beq get_key
   rts
 
+;use C64 Kernel ROM function to read a key
+;inputs: none
+;outputs: A contains ASCII value of key just pressed (0 if no key pressed)
+get_key_if_available=$ffe4
+  
+
 ;check whether the RUN/STOP key is being pressed
 ;inputs: none
 ;outputs: sec if RUN/STOP pressed, clear otherwise

client/test/test_gopher.s

@@ -5,6 +5,7 @@
   .include "../inc/c64keycodes.i"
 
   .import get_key
+  .import get_key_if_available
   .import  __CODE_LOAD__
   .import  __CODE_SIZE__
   .import  __RODATA_SIZE__
@@ -227,8 +228,8 @@ display_resource_in_buffer:
   sta this_is_last_page
 @done:
 @get_keypress:
-  jsr ip65_process  ;keep polling the network, so we respond to pings etc
-  jsr get_key
+  jsr ip65_process  ;keep polling the network, so we respond to arps/pings/late packets etc etc
+  jsr get_key_if_available
   cmp #' '
   beq @go_next_page  
   cmp #KEYCODE_F7
@@ -261,7 +262,6 @@ display_resource_in_buffer:
   dex
   jsr select_resource
 @not_a_resource:  
-  jsr print_hex
   jmp @get_keypress  
 @back_in_history:
   ldx current_resource_history_entry
@@ -528,10 +528,10 @@ gopher_download_callback:
   lda #'*'
   jsr print_a
   
-  lda tcp_inbound_data_length+1
-  jsr print_hex
-  lda tcp_inbound_data_length
-  jsr print_hex
+;  lda tcp_inbound_data_length+1
+;  jsr print_hex
+;  lda tcp_inbound_data_length
+;  jsr print_hex
   
   rts