--- a/level1/modules/ddiskdesc.asm	Tue Jun 21 00:23:41 2005 +0000
+++ b/level1/modules/ddiskdesc.asm	Tue Jun 21 00:24:19 2005 +0000
@@ -7,65 +7,76 @@
 * Comment
 * Converted rb1773 to ddisk for Dragon disks.
 * ------------------------------------------------------------------
-
-         nam   ddiskdesc
-         ttl   ddisk Device Descriptor Template
+* 
+* 2005-06-20, P.Harvey-Smith.
+*	Added DragonAlpha define to correctly define the I/O port on the
+*	Dragon ALpha/Professional
+* 
+*
+		nam   ddiskdesc
+		ttl   ddisk Device Descriptor Template
 
 * Disassembled 98/08/23 17:09:41 by Disasm v1.6 (C) 1988 by RML
 
-         ifp1  
-         use   defsfile
-         endc  
+		ifp1  
+		use   defsfile
+		endc  
 
-tylg     set   Devic+Objct
-atrv     set   ReEnt+rev
-rev      set   $00
+tylg    	set   	Devic+Objct
+atrv    	set   	ReEnt+rev
+rev     	set   	$00
 
-DNum     set   0
-         IFNE  D35
-Type     set   TYP.CCF+TYP.3
-         ELSE
-Type     set   TYP.CCF+TYP.5
-         ENDC
-Density  set   DNS.MFM
-Step     set   STP.6ms
-Cyls     set   40
-Sides    set   1
-Verify   set   1
-SectTrk  set   18
-SectTrk0 set   18
-Interlv  set   2
-SAS      set   8
+DNum    	set   	0
+		IFNE  	D35
+Type    	set   	TYP.CCF+TYP.3
+		ELSE
+Type    	set   	TYP.CCF+TYP.5
+		ENDC
+Density 	set   	DNS.MFM
+Step    	set   	STP.6ms
+Cyls    	set   	40
+Sides   	set   	1
+Verify  	set   	1
+SectTrk 	set   	18
+SectTrk0	set   	18
+Interlv 	set   	2
+SAS     	set   	8
 
-         mod   eom,name,tylg,atrv,mgrnam,drvnam
+		mod   	eom,name,tylg,atrv,mgrnam,drvnam
 
-         fcb   DIR.!SHARE.!PEXEC.!PWRIT.!PREAD.!EXEC.!UPDAT. mode byte
-         fcb   HW.Page    extended controller address
-         fdb   $FF40      physical controller address
-         fcb   initsize-*-1 initalization table size
-         fcb   DT.RBF     device type:0=scf,1=rbf,2=pipe,3=scf
-         fcb   DNum       drive number
-         fcb   Step       step rate
-         fcb   Type       drive device type
-         fcb   Density    media density:0=single,1=double
-         fdb   Cyls       number of cylinders (tracks)
-         fcb   Sides      number of sides
-         fcb   Verify     verify disk writes:0=on
-         fdb   SectTrk    # of sectors per track
-         fdb   SectTrk0   # of sectors per track (track 0)
-         fcb   Interlv    sector interleave factor
-         fcb   SAS        minimum size of sector allocation
-initsize equ   *
+		fcb   	DIR.!SHARE.!PEXEC.!PWRIT.!PREAD.!EXEC.!UPDAT. mode byte
+		fcb   	HW.Page    	extended controller address
+		
+		IFEQ	DragonAlpha-1
+		fdb   	$FF2C      	physical controller address
+		ELSE
+		fdb   	$FF40      	physical controller address
+		ENDC
+		
+		fcb   	initsize-*-1 	initalization table size
+		fcb   	DT.RBF     	device type:0=scf,1=rbf,2=pipe,3=scf
+		fcb   	DNum       	drive number
+		fcb   	Step       	step rate
+		fcb   	Type       	drive device type
+		fcb   	Density    	media density:0=single,1=double
+		fdb   	Cyls       	number of cylinders (tracks)
+		fcb   	Sides      	number of sides
+		fcb   	Verify     	verify disk writes:0=on
+		fdb   	SectTrk    	# of sectors per track
+		fdb   	SectTrk0   	# of sectors per track (track 0)
+		fcb   	Interlv    	sector interleave factor
+		fcb   	SAS        	minimum size of sector allocation
+initsize	equ   	*
 
-         IFNE  DD
-name     fcs   /DD/
-         ELSE
-name     fcb   'D,'0+DNum+$80
-         ENDC
-mgrnam   fcs   /RBF/
-drvnam   fcs   /DDisk/
+		IFNE  	DD
+name    	fcs   	/DD/
+		ELSE
+name    	fcb   	'D,'0+DNum+$80
+		ENDC
+mgrnam  	fcs   	/RBF/
+drvnam  	fcs   	/DDisk/
 
-         emod  
-eom      equ   *
-         end   
+		emod  
+eom     	equ   *
+		end