changeset 1832:4ea2e417a48e

Fix for non-booting Alpha port.
author afra
date Sun, 08 May 2005 20:16:14 +0000
parents 6fe4ae830c4d
children ed9f51e468fa
files level1/modules/boot_d64.asm level1/modules/ddisk.asm
diffstat 2 files changed, 7 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- a/level1/modules/boot_d64.asm	Sun May 08 20:14:46 2005 +0000
+++ b/level1/modules/boot_d64.asm	Sun May 08 20:16:14 2005 +0000
@@ -12,6 +12,8 @@
 *
 * Double sided Disk code added 2004-11-25, P.Harvey-Smith.
 *
+* 2005-05-08, P.Harvey-Smith, added code to force 5/8 line low on
+* Alpha so correct clock selected.
 *
 		nam   Boot
          ttl   os9 system module    
@@ -449,9 +451,9 @@
 	andb	#%11111100	; mask out drive number
 	stb	,s
 	ora	,s		; recombine
+	anda	#Mask58		; make sure 5/8 bit forced low to select 5.25" clock
 	sta	,s
 		
-		
 	lda	#AYIOREG	; AY-8912 IO register
 	sta	PIA2DB		; Output to PIA
 	ldb	#AYREGLatch	; Latch register to modify
--- a/level1/modules/ddisk.asm	Sun May 08 20:14:46 2005 +0000
+++ b/level1/modules/ddisk.asm	Sun May 08 20:16:14 2005 +0000
@@ -16,7 +16,7 @@
 *	I am not sure of how to disable NMI on the Alpha, it is
 *	simulated in software using the NMIFlag.
 *
-*   The Dragon Alpha/Professional uses the same FDC chip as 
+*   	The Dragon Alpha/Professional uses the same FDC chip as 
 *	DragonDos, however it is mapped between FF2C and FF2F,
 *	also the register order is REVERSED, so command/status is at
 * 	FF2F.
@@ -102,7 +102,7 @@
 MotorOn  	EQU   	MotorOnA 
 
 ; These are the bits that we know the function of on the Alpha interface
-KnownBits	EQU	Drive0A+Drive1A+Drive2A+Drive3A+MotorOnA+WPCEnA
+KnownBits	EQU	Drive0A+Drive1A+Drive2A+Drive3A+MotorOnA+SDensEnA+WPCEnA
 
 		ELSE
 		
@@ -949,9 +949,8 @@
 
 	clra			; No, turn off other bits.
 MotorRunning
-	anda	#KnownBits	; Mask out bits we do not know the function of
-	sta	,s
-		
+	anda	#Mask58		; Mask out 5/8 bit to force the use of 5.25" clock
+	sta	,s	
 		
 	lda	#AYIOREG	; AY-8912 IO register
 	sta	PIA2DB		; Output to PIA