system/rp06.defs1

   1 ; -*- Midas -*-
   2 ;;; Copyright (c) 1999 Massachusetts Institute of Technology
   3 ;;;
   4 ;;; This program is free software; you can redistribute it and/or
   5 ;;; modify it under the terms of the GNU General Public License as
   6 ;;; published by the Free Software Foundation; either version 3 of the
   7 ;;; License, or (at your option) any later version.
   8 ;;;
   9 ;;; This program is distributed in the hope that it will be useful,
  10 ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  11 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  12 ;;; General Public License for more details.
  13 ;;;
  14 ;;; You should have received a copy of the GNU General Public License
  15 ;;; along with this program; if not, write to the Free Software
  16 ;;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  17
  18 .AUXIL
  19
  20 ; Canonical symbol definition macro, FOO==BAR with error check.
  21 IFNDEF DEFSYM,[
  22 DEFINE DEFSYM X/
  23 IRPS Z,,[X]
  24 IFNDEF Z,X
  25 .ELSE [ $$TEM1==Z
  26         X
  27         IFN Z-$$TEM1,.ERR Z MULTIPLY .QUOTE`.QUOTE/DEFINED/`
  28       ]
  29 .ISTOP
  30 TERMIN TERMIN
  31 $$TEMP==1
  32 ] ;IFNDEF DEFSYM
  33 .ELSE, $$TEMP==0
  34
  35 ; Disk Physical Parameters for RP06
  36
  37 DEFSYM  NCYLS==812.             ; # CYLINDERS NORMALLY USED
  38 DEFSYM  XCYLS==815.-NCYLS       ; # EXTRA CYLINDERS FOR SPARES, HACKS, ETC.
  39 DEFSYM  NHEDS==19.              ; # TRACKS/CYLINDER
  40 DEFSYM  NSECS==20.              ; # SECTORS/TRK
  41 DEFSYM  SECBLK==8               ; # SECTORS/BLOCK
  42 DEFSYM  NBLKSC==NHEDS*NSECS/SECBLK      ; # BLKS/CYL
  43 DEFSYM  NBLKS==NCYLS*NBLKSC     ; TOTAL # REG BLKS
  44 DEFSYM  XBLKS==XCYLS*NBLKSC     ; # XTRA BLKS
  45 DEFSYM  TBLKS==NBLKS+XBLKS      ; TOTAL BLKS
  46
  47 ; TUTs are 3 bits per disk block, or 12*1024=12288 disk blocks per TUT
  48 ; block.  TBLKS works out to be 38305, so it takes a little more than 3
  49 ; blocks to TUT an RP06.  This leaves plenty of room for the extra words at
  50 ; the beginning of the TUT.
  51 DEFSYM  NTUTBL==4               ; 4 BLOCKS PER TUT
  52
  53 ; Allocate whole cylinders at a time.
  54 DEFSYM  DECADE==NBLKSC          ; NUMBER OF BLOCKS TO ALLOCATE AT A TIME.
  55                                 ; QSWAPA AND QLASTB MUST BE MULTIPLES OF THIS.
  56
  57 IFN $$TEMP,EXPUNG DEFSYM