Multiple drives version

Author: nihirash

bin/cpm.bin

@@ -11,6 +11,13 @@
 _start:
 	push ix
 	push iy
+
+;	ld a, mos_sysvars
+;	rst.lil $08
+
+;	xor a
+;	ld (ix+$28), a
+
 	call _main
 	pop iy
 	pop ix

bootstrap/crt.inc

@@ -85,34 +85,26 @@ f_handle: db 0
 _drive_change:
 	add a, 'a'
 	ld (drive_letter), a
+
 	xor a
 	ld mb, a
 
-	ld a, (f_handle)
+	ld c, 0
 	MOSCALL mos_fclose
 
 	ld hl, drive
 	ld c, fa_read+fa_write
 	MOSCALL mos_fopen
 
-	ld (f_handle), a
-	or a
-	jr z, _dr_change_err
+	ld c, a
 
-	push af
 	ld a, CPM_SEG
 	ld mb, a
-	pop af
-	ret.lil
+	ld a, c
 
-_dr_change_err:
-	xor a
-	call.lil _drive_change
-
-	ld a, CPM_SEG
-	ld mb, a
-	xor a
-	ret.lil	
+	ld (f_handle), a
+	or a
+	ret.lil
 
 fs_init:
 	ld c, 0
@@ -123,6 +115,12 @@ fs_init:
 	MOSCALL mos_fopen
 	ld (f_handle), a
 	or a
+	push af
+	MOSCALL mos_sysvars
+	xor a
+	ld (ix+$28), a
+	ld ix, (sys_ix)
+	pop af
 	ret 
 
 fs_seek:
@@ -148,6 +146,7 @@ fs_read:
 	ld hl, (_dma)
 
 	MOSCALL mos_fread
+
 	ret
 
 fs_write:
@@ -157,3 +156,5 @@ fs_write:
 	ld hl, (_dma)
 	MOSCALL mos_fwrite
 	ret
+
+

bootstrap/drive_emu.inc

@@ -175,10 +175,6 @@ seldisk:
 
 sp_save: dw 0
 
-    ds $ff
-stack = $ - 1 
-
-
 
 all00:  ds 128
 all01:  ds 128 
@@ -196,7 +192,7 @@ all12:  ds 128
 all13:  ds 128 
 all14:  ds 128 
 all15:  ds 128
-
 dirbf:  ds 128
 
+stack = $ffff
     DISPLAY "BIOS END: ", $