view level1/modules/rbdesc.asm @ 3277:33d539c123cf

d64: Add mb.ddisk script for making Dragon boot floppy At least it works in XRoar when running off a 80d floppy and preparing a new 40d boot floppy in the second drive. The "format" must be run manually for now since there is not enough memory to run it from inside the script...
author Tormod Volden <debian.tormod@gmail.com>
date Sat, 07 Mar 2020 23:15:05 +0100
parents 4674aed99721
children
line wrap: on
line source

********************************************************************
* rbdesc - Device Descriptor Template
*
* $Id$
*
* Edt/Rev  YYYY/MM/DD  Modified by
* Comment
* 1/1	2013-12/10 Gene heskett
*	Raised default SAS to $10, shortens FD.SEG
*	usage for longer files
* ------------------------------------------------------------------

         nam   rbdesc
         ttl   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   $01

	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   35
	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   3
	ENDC
	IFNDEF	SAS
SAS      set   10
	ENDC

         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   *

         IFNE  DD
name     fcs   /DD/
         ELSE
name     fcc   /RTST/
         fcb   '0+DNum+$80
         ENDC
mgrnam   fcs   /RBF/
drvnam   fcs   /rbtest/

         emod
eom      equ   *
         end