2 ;;; Copyright (c) 1999 Massachusetts Institute of Technology
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.
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.
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.
20 ; Canonical symbol definition macro, FOO==BAR with error check.
27 IFN Z-$$TEM1,.ERR Z MULTIPLY .QUOTE`.QUOTE/DEFINED/`
35 ; Disk Physical Parameters for RM80
37 ; The RM80 actually has 561 cylinders, but it appears that the onboard
38 ; microprocessor diagnostics may scribble on the last two cylinders, so
39 ; we just leave them out of this.
41 DEFSYM NCYLS==556. ; # CYLINDERS NORMALLY USED
42 DEFSYM XCYLS==559.-NCYLS ; # EXTRA CYLINDERS FOR SPARES, HACKS, ETC.
43 DEFSYM NHEDS==14. ; # TRACKS/CYLINDER
44 DEFSYM NSECS==30. ; # SECTORS/TRK
45 DEFSYM SECBLK==8 ; # SECTORS/BLOCK
46 DEFSYM NBLKSC==NHEDS*NSECS/SECBLK ; # BLKS/CYL
47 DEFSYM NBLKS==NCYLS*NBLKSC ; TOTAL # REG BLKS
48 DEFSYM XBLKS==XCYLS*NBLKSC ; # XTRA BLKS
49 DEFSYM TBLKS==NBLKS+XBLKS ; TOTAL BLKS
51 ; TUTs are 3 bits per disk block, or 12*1024=12288 disk blocks per TUT
52 ; block. TBLKS works out to be 29172, so it takes 3 blocks to TUT an
53 ; RM80. This leaves plenty of room for the extra words at the beginning of
55 DEFSYM NTUTBL==3 ; 3 BLOCKS PER TUT
57 ; Allocate whole cylinders at a time.
58 DEFSYM DECADE==NBLKSC ; NUMBER OF BLOCKS TO ALLOCATE AT A TIME.
59 ; QSWAPA AND QLASTB MUST BE MULTIPLES OF THIS.
61 IFN $$TEMP,EXPUNG DEFSYM