fixed memory damage in CBDOS

src/dos_m65/dos_memchk.s

@@ -6,6 +6,9 @@
 
 dos_MEMCHK:
 
+	pha
+	phx
+
 	; Check for magic string
 
 	ldx #$04
@@ -34,10 +37,14 @@ dos_MEMCHK:
 	cmp code_RTS_03
 	bne @fail
 
+	plx
+	pla
 	clc 
 	rts
 
 @fail:
 
+	plx
+	pla
 	sec
 	rts

src/dos_m65/dos_unitchk.s

@@ -6,13 +6,13 @@
 
 dos_UNITCHK:
 
-	jsr dos_ENTER
+	; Before the start make sure memory content is not damaged
-
-	; Check if memory content is not damaged
 
 	jsr dos_MEMCHK
-	bcs dos_UNITCHK_fail
+	bcc @ok
-	lda REG_A
+	rts
+@ok:
+	jsr dos_ENTER
 
 	; Check for unit
 

src/dos_m65/dos_unitnum.s

@@ -6,13 +6,14 @@
 
 dos_UNITNUM:
 
-	jsr dos_ENTER
+	; Before the start make sure memory content is not damaged
-
-	; Check if memory content is not damaged
 
 	jsr dos_MEMCHK
-	bcs dos_UNITNUM_fail
+	bcc @ok
-	lda REG_A
+	lda #$00 ; failure
+	rts
+@ok:
+	jsr dos_ENTER
 
 	; Check what kind of device was requested
 

src/dos_m65/dos_unitset.s

@@ -6,14 +6,14 @@
 
 dos_UNITSET:
 
-	jsr dos_ENTER
+	; Before the start make sure memory content is not damaged
-
-	; Check if memory content is not damaged
 
 	jsr dos_MEMCHK
-	bcc @1
+	bcc @ok
 	rts
-@1:
+@ok:
+	jsr dos_ENTER
+
 	; XXX do not allow illegal device numbers... above 30 or below 8 ?
 
 	; Check what kind of device was requested