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 RM03
37 DEFSYM NCYLS==820. ; # CYLINDERS NORMALLY USED
38 DEFSYM XCYLS==823.-NCYLS ; # EXTRA CYLINDERS FOR SPARES, HACKS, ETC.
39 DEFSYM NHEDS==5 ; # TRACKS/CYLINDER
40 DEFSYM NSECS==30. ; # 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
47 ; TUTs are 3 bits per disk block, or 12*1024=12288 disk blocks per TUT
48 ; block. TBLKS works out to be 14814, so it takes 2 blocks to TUT an
49 ; RM03. This leaves plenty of room for the extra words at the beginning of
51 DEFSYM NTUTBL==2 ; 2 BLOCKS PER TUT
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.
57 IFN $$TEMP,EXPUNG DEFSYM