catch up

console.bas

@@ -2,6 +2,11 @@
 ' console.bas
 '               
 
+'
+' need to redesign:
+'  I/O port should be used to read, but block waiting on single character.
+'
+
 #include "console.bi"
 #include "storage.bi"
 #include "bus.bi"
@@ -189,6 +194,7 @@ sub console_cycle_serial(byval userdata as any ptr)
         if console_bytes_waiting > 0 then
             message_print "console_cycle_serial():  reading " & console_bytes_waiting & " bytes from console"
             console_input_buffer &= input(console_bytes_waiting, console_file_number)
+            message_print "console_cycle_serial():  console buffer now " & console_input_buffer
         end if
 
 '        mutexunlock console_mutex

disk.bas

@@ -45,6 +45,8 @@ sub disk_init()
 
     redim installed_disks(installed_disk_count) as installed_disk_t        
 
+    message_print "disk_init():  disk adapter configured"
+
     for i = 0 to installed_disk_count - 1
         
 
@@ -62,7 +64,7 @@ sub disk_init()
 
         disk_build_seek_table i
 
-        message_print "disk_init():  channel " & trim(str(i)) & ": " & disk_header.track_count & " tracks, " & disk_header.sectors_per_track & " sectors/track (host file " & installed_disks(i).host_file & ")"
+        message_print "disk_init():  channel #" & trim(str(i)) & ": " & disk_header.track_count & " tracks, " & disk_header.sectors_per_track & " sectors/track (host file " & installed_disks(i).host_file & ")"
 
     next i