Mercurial > hg > Members > kono > nitros9-code

view level2/modules/mr0.asm @ 3131:e1aadba01e81

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add new Level 2 port for Multicomp09 "mc09l2" Add infrastructure (directories, makefiles etc). Target name is mc09l2 to distinguish it from the Level 1 port (target name mc09). In the code, the name mc09 is used for platform-dependent code, whether for Level 1 or Level 2.
author Neal Crook <foofoobedoo@gmail.com>
date Mon, 05 Dec 2016 17:39:03 +0000
parents e14f53955e86
children
line wrap: on
line source

********************************************************************
* MR0 - myram RAM Disk Device Descriptor
*
* $Id$
*
* Edt/Rev  YYYY/MM/DD  Modified by
* Comment
* ------------------------------------------------------------------

         nam   MR0
         ttl   myram RAM Disk Device Descriptor

         ifp1
         use   defsfile
         endc

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

         IFNDEF RAMSize
RAMSize  set   128
         ENDC
         IFNDEF SAS
SAS      set   4
         ENDC

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

         fcb   DIR.+PREAD.+PWRIT.+PEXEC.+READ.+WRITE.+EXEC. mode byte
         fcb   $00        extended controller address
         fdb   $0000      physical controller address
         fcb   initsize-*-1 initialization table size
         fcb   DT.RBF     device type:0=scf,1=rbf,2=pipe,3=scf
         fcb   $00        drive number
         fcb   $00        step rate
         fcb   $00        drive device type
         fcb   $00        media density:0=single,1=double
         fdb   $0000      number of cylinders (tracks)
         fcb   $01        number of sides
         fcb   $00        verify disk writes:0=on
         fdb   RAMSize    # of sectors per track
         fdb   $0000      # of sectors per track (track 0)
         fcb   $00        sector interleave factor
         fcb   SAS        minimum size of sector allocation

initsize equ   *

         IFNE  DD
name     fcs   /DD/
         ELSE
name     fcs   /R0/
         ENDC
mgrnam   fcs   /RBF/
drvnam   fcs   /MRAM/

         emod  
eom      equ   *
         end