Mercurial > hg > Members > kono > nitros9-code

view level2/modules/ramddesc_coco3fpga.asm @ 3226:9749d0dfc4a2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Changed a puls PC to rts to save cycles
author David Ladd <drencor-xeen@users.sourceforge.net>
date Sat, 20 Jan 2018 19:32:22 -0600
parents 37737e5ec640
children
line wrap: on
line source

********************************************************************
* ramddesc - SDRAM Disk Device Descriptor Template
*
* $Id$
*
* Edt/Rev  YYYY/MM/DD  Modified by
* Comment
* ------------------------------------------------------------------
*   1      2016/12/09  Gary Becker
* Ramdisk driver for the Coco3FPGA DRAM
*

         nam   ramddesc
         ttl   RAMD 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
Type     set   TYP.HARD
	IFNDEF	Density
Density  set   DNS.MFM
	ENDC
Step     set   STP.6ms
	IFNDEF	Cyls
Cyls     set   256
	ENDC
	IFNDEF	Cyls_Hi
Cyls_Hi  set   1
	ENDC
Verify   set   1
	IFNDEF	SectTrk
SectTrk  set   128
	ENDC
	IFNDEF	SectTrk0
SectTrk0 set   128
	ENDC
	IFNDEF	Interlv
Interlv  set   1
	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   $FF84      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       low number of cylinders (tracks)
         fcb   Cyls_Hi    high number of cylinders (tracks)
         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   'R,'0+DNum+$80
         ENDC
mgrnam   fcs   /RBF/
drvnam   fcs   /ramd/

         emod
eom      equ   *
         end