Mercurial > hg > Members > kono > nitros9-code

view level1/modules/ddiskdesc.asm @ 3036:42861a1dd59e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Low level driver update to CoCoSDC provided by Darren.
author David Ladd <drencor-xeen@users.sf.net>
date Fri, 09 Jan 2015 12:32:56 -0600
parents be0c9c15f08a
children
line wrap: on
line source

********************************************************************
* ddiskdesc - ddisk Device Descriptor Template
*
* $Id$
*
* Edt/Rev  YYYY/MM/DD  Modified by
* Comment
* Converted rb1773 to ddisk for Dragon disks.
* ------------------------------------------------------------------
*
* 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

tylg    	set   	Devic+Objct
atrv    	set   	ReEnt+rev
rev     	set   	$00

		IFNDEF	DNum
DNum    	set   	0
		ENDC
		IFNE  	D35
Type    	set   	TYP.CCF+TYP.3
		ELSE
Type    	set   	TYP.CCF+TYP.5
		ENDC
		IFNDEF	Density
Density 	set   	DNS.MFM
		ENDC
		IFNDEF	Step
Step    	set   	STP.6ms
		ENDC
		IFNDEF	Cyls
Cyls    	set   	40
		ENDC
		IFNDEF	Sides
Sides   	set   	1
		ENDC
Verify  	set   	1
		IFNDEF	SectTrk
SectTrk 	set   	18
		ENDC
		IFNDEF	SectTrk0
SectTrk0	set   	18
		ENDC
		IFNDEF	Interlv
Interlv 	set   	2
		ENDC
		IFNDEF	SAS
SAS     	set   	8
		ENDC

		mod   	eom,name,tylg,atrv,mgrnam,drvnam

		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/

		emod
eom     	equ   *
		end