I/O stack refactoring completed

c64/kernal/f13e.getin.s

@@ -5,12 +5,24 @@
 // - [RG64] C64 Programmer's Reference Guide   - page 283
 // - [CM64] Compute's Mapping the Commodore 64 - page 227/228
 //
-// CPU registers that has to be preserved (see [RG64]): .X, .Y
+// CPU registers that has to be preserved (see [RG64]): for RS-232: .X, .Y
 //
 
 
 GETIN:
 
-	// XXX this should be a dispatcher for several different devices!
+	// Determine the device number
+	lda DFLTN
 
-	jmp read_kb_buf
+	// Try $00 - keyboard
+	beq_far getin_keyboard
+
+#if HAS_RS232
+
+	// Try $02 - RS-232
+	cmp #$02
+	beq_far getin_rs232
+
+#endif // HAS_RS232
+
+	jmp chrin_getin

c64/kernal/iec/chrout_iec.s

@@ -0,0 +1,12 @@
+
+//
+// IEC part of the CHROUT routine
+//
+
+
+chrout_iec:
+
+	lda SCHAR
+	jsr JCIOUT
+	bcc_far chrout_done_success
+	jmp chrout_done_fail

c64/kernal/iostack/f157.chrin.s

@@ -35,6 +35,8 @@ CHRIN:
 
 #endif // HAS_RS232
 
+chrin_getin: // jump entry for GETIN
+
 #if CONFIG_IEC
 
 	// Try IEC devices

c64/kernal/iostack/f1ca.chrout.s

@@ -6,7 +6,7 @@
 // - [CM64] Compute's Mapping the Commodore 64 - page 228
 //
 // CPU registers that has to be preserved (see [RG64]): .Y
-// Additionally we have to preserve .X for out CHRIN implementation
+// Additionally we have to preserve .X for out CHRIN and implementation
 //
 
 CHROUT:
@@ -27,17 +27,17 @@ CHROUT:
 	lda DFLTO
 
 	cmp #$03 // screen
-	bne !+
-	jmp chrout_screen
-!:
+	beq_far chrout_screen
+
+#if HAS_RS232
+	cmp #$02 
+	beq_far chrout_rs232
+#endif
+
+#if CONFIG_IEC
 	jsr iec_check_devnum_oc
-	bcs chrout_done_unknown_device // not a supported device
-
-chrout_iec:
-
-	lda SCHAR
-	jsr JCIOUT
-	bcc chrout_done_success
+	bcc_far chrout_iec
+#if CONFIG_IEC
 
 	// FALLTROUGH
 

c64/kernal/iostack/f4a5.load.s

@@ -40,9 +40,19 @@ LOAD:
 	// Check whether we support the requested device
 	lda FA
 
+#if CONFIG_TAPE_NORMAL
+	cmp #$01
+	beq_far load_tape_normal
+#endif
+
+#if CONFIG_TAPE_TURBO
+	cmp #$07
+	beq_far load_tape_turbo
+#endif
+
 #if CONFIG_IEC
 	jsr iec_check_devnum_lvs
 	bcc_far load_iec
-#endif // CONFIG_IEC
+#endif
 
 	jmp lvs_illegal_device_number

c64/kernal/keyboard/f142.getin_keyboard.s

@@ -6,7 +6,7 @@
 //
 
 
-read_kb_buf:
+getin_keyboard: // XXX confirm that here is really a part of GETIN!
 
 	// Check for a key
 	lda NDX

c64/kernal/rs232/chrout_rs232.s

@@ -3,8 +3,6 @@
 // RS-232 part of the CHROUT routine
 //
 
-// XXX connect to I/O stack
-
 
 #if HAS_RS232
 

c64/kernal/rs232/getin_rs232.s

@@ -3,8 +3,6 @@
 // RS-232 part of the GETIN routine
 //
 
-// XXX connect to I/O stack
-
 
 #if HAS_RS232
 

c64/kernal/tape/load_tape_normal.s

@@ -0,0 +1,14 @@
+
+//
+// Tape (normal) part of the LOAD routine
+//
+
+
+#if CONFIG_TAPE_NORMAL
+
+
+load_tape_normal:
+	STUB_IMPLEMENTATION()
+
+
+#endif

c64/kernal/tape/load_tape_turbo.s

@@ -0,0 +1,14 @@
+
+//
+// Tape (turbo) part of the LOAD routine
+//
+
+
+#if CONFIG_TAPE_TURBO
+
+
+load_tape_turbo:
+	STUB_IMPLEMENTATION()
+
+
+#endif