mim/development/mim/vax/disk-defs.mud

   1 "Definitions for VAX disk i/o"
   2
   3 <NEWSTRUC I$DISK-CHANNEL VECTOR
   4           NS-JFN FIX                    ; "File descriptor"
   5           NS-DEV <OR ATOM STRING FALSE> ; "CHOMPING UNIX!!!"
   6           NS-SNM <OR ATOM STRING FALSE>
   7           NS-NM1 <OR STRING FALSE>
   8           NS-NM2 <OR STRING FALSE>
   9           NS-DSN <OR STRING FALSE>
  10           NS-STATUS FIX                 ; "Flags for i/o system"
  11           NS-MODE FIX                   ; "Mode for open"
  12           NS-BINARY? <OR ATOM FALSE>    ; "True if simulating 32-bit output"
  13           NS-PTR FIX
  14           NS-SPTR FIX
  15           NS-TBUF <OR STRING BYTES UVECTOR FALSE>
  16           NS-BUF <OR STRING BYTES UVECTOR FALSE>
  17           NS-BC FIX
  18           NS-OBC FIX
  19           NS-WRITE-BUF? <OR ATOM FALSE>>
  20
  21 <GDECL (I$SBUF1) STRING (I$UBUF1) UVECTOR>
  22
  23 <MSETG BUFLEN 80>
  24
  25 <MSETG BYTES/WORD 4>
  26
  27 <MSETG SBUFLEN <* ,BYTES/WORD ,BUFLEN>>
  28