Commit 207a762e authored by John P. Willis's avatar John P. Willis
Browse files

catch up

parent 0e3f3add
...@@ -2,6 +2,11 @@ ...@@ -2,6 +2,11 @@
' console.bas ' console.bas
' '
'
' need to redesign:
' I/O port should be used to read, but block waiting on single character.
'
#include "console.bi" #include "console.bi"
#include "storage.bi" #include "storage.bi"
#include "bus.bi" #include "bus.bi"
...@@ -189,6 +194,7 @@ sub console_cycle_serial(byval userdata as any ptr) ...@@ -189,6 +194,7 @@ sub console_cycle_serial(byval userdata as any ptr)
if console_bytes_waiting > 0 then if console_bytes_waiting > 0 then
message_print "console_cycle_serial(): reading " & console_bytes_waiting & " bytes from console" message_print "console_cycle_serial(): reading " & console_bytes_waiting & " bytes from console"
console_input_buffer &= input(console_bytes_waiting, console_file_number) console_input_buffer &= input(console_bytes_waiting, console_file_number)
message_print "console_cycle_serial(): console buffer now " & console_input_buffer
end if end if
' mutexunlock console_mutex ' mutexunlock console_mutex
......
...@@ -45,6 +45,8 @@ sub disk_init() ...@@ -45,6 +45,8 @@ sub disk_init()
redim installed_disks(installed_disk_count) as installed_disk_t 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 for i = 0 to installed_disk_count - 1
...@@ -62,7 +64,7 @@ sub disk_init() ...@@ -62,7 +64,7 @@ sub disk_init()
disk_build_seek_table i 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 next i
......
File added
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment