.TITLE  DWTAB
        .IDENT  /01/
;
; SYSTEM TABLES
;
; MACRO LIBRARY CALLS
;
         .MCALL  CLKDF$
         .MCALL  KRBDF$
         .MCALL  SCBDF$
         .MCALL  UCBDF$
 
         CLKDF$                  ;DEFINE CLOCK BLOCK OFFSETS
         KRBDF$
         SCBDF$                  ;DEFINE SCB OFFSETS
         UCBDF$                  ;DEFINE UCB OFFSETS
 
;
;
 
$DWDAT::
;
;                                               DW CTB
;
        .WORD   0               ; L.ICB
$CTB0:
        .WORD   $CTB1           ; L.LNK
        .ASCII  /DW/            ; L.NAM
        .WORD   .DC0            ; L.DCB
        .BYTE   2               ; L.NUM
        .BYTE   0               ; L.STS
$DWCTB::                        ; L.KRB
        .WORD   $DWA
        .WORD   $DWB
;
;                                               DW DCB
;
$DWTBL=0                        ;LOADABLE DWDRV
$DWDCB::
.DC0:
        .WORD   .DC1            ; D.LNK
        .WORD   .DW0            ; D.UCB
        .ASCII  /DW/            ; D.NAM
        .BYTE   0,1             ; D.UNIT
        .WORD   DWND-DWST       ; D.UCBL
        .WORD   $DWTBL          ; D.DSP
        .WORD   177477,70,0,177200,377,0,0,377 ; D.MSK
        .WORD   0               ; D.PCB
;
;                                               DW UCB'S
;
DWST=.
        .IF     DF M$$MUP
        .WORD   0
        .ENDC
.DW0::
        .WORD   .DC0
        .WORD   .-2
        .BYTE   UC.ALG!1,US.MNT
        .BYTE   0,US.OFL
        .WORD   DV.DIR!DV.MSD!DV.UMD!DV.F11!DV.MNT
        .WORD   0
        .WORD   39103.
        .WORD   512.
        .WORD   $DW0
        .WORD   0,0,0,0,0,0,0,0
        .BYTE   16.,4.
        .WORD   611.
DWND=.
 
        .IF     DF M$$MUP
        .WORD   0
        .ENDC
.DW1::
        .WORD   .DC0
        .WORD   .-2
        .BYTE   UC.ALG!1,US.MNT
        .BYTE   0,US.OFL
        .WORD   DV.DIR!DV.MSD!DV.UMD!DV.F11!DV.MNT
        .WORD   0
        .WORD   39103.
        .WORD   512.
        .WORD   $DW1
        .WORD   0,0,0,0,0,0,0,0
        .BYTE   16.,4.
        .WORD   611.
;
;                                               DW SCB'S
;
$DW0::
        .WORD   0,.-2           ; S.LHD
        .WORD   0,0,0,0         ; S.FRK
        .WORD   0               ; S.KS5
        .WORD   0               ; S.PKT
        .BYTE   0               ; S.CTM
        .BYTE   4.              ; S.ITM
        .BYTE   0               ; S.STS
        .BYTE   S3.OPT          ; S.ST3
        .WORD   0!S2.LOG!S2.OPT!0       ; S.ST2
        .WORD   $DWA            ; S.KRB
        .BYTE   9.              ; S.RCNT
        .BYTE   -20             ; S.ROFF
        .WORD   0               ; S.EMB
 
$DW1::
        .WORD   0,.-2           ; S.LHD
        .WORD   0,0,0,0         ; S.FRK
        .WORD   0               ; S.KS5
        .WORD   0               ; S.PKT
        .BYTE   0               ; S.CTM
        .BYTE   4.              ; S.ITM
        .BYTE   0               ; S.STS
        .BYTE   S3.OPT          ; S.ST3
        .WORD   0!S2.LOG!S2.OPT!0       ; S.ST2
        .WORD   $DWB            ; S.KRB
        .BYTE   9.              ; S.RCNT
        .BYTE   -20             ; S.ROFF
        .WORD   0               ; S.EMB
;
;                                               DWA  KRB
;
        .BYTE   PR4             ; K.PRI
        .BYTE   300/4           ; K.VCT
        .BYTE   0*2,0           ; K.CON, K.IOC
        .WORD   0!KS.OFL        ; K.STS
$DWA::  .WORD   174020          ; K.CSR
        .WORD   DWA-$DWA        ; K.OFF
        .BYTE   0,0             ; K.HPU
        .WORD   0               ; K.OWN
        .WORD   0,.-2           ; K.CRQ
        .BLKW   6               ; MAPPING ASSIGNMENT BLOCK
        .WORD   0               ; KE.RHB
DWA:
;
;                                               DWB  KRB
;
        .BYTE   PR4             ; K.PRI
        .BYTE   310/4           ; K.VCT
        .BYTE   1*2,0           ; K.CON, K.IOC
        .WORD   0!KS.OFL        ; K.STS
$DWB::  .WORD   174060          ; K.CSR
        .WORD   DWB-$DWB        ; K.OFF
        .BYTE   0,0             ; K.HPU
        .WORD   0               ; K.OWN
        .WORD   0,.-2           ; K.CRQ
        .BLKW   6               ; MAPPING ASSIGNMENT BLOCK
        .WORD   0               ; KE.RHB
DWB:
;
;                         DW Configuration
;
;                       Physical Unit Number
;
;       0       1       2       3       4       5       6       7
;
; DWA   DW0:
; DWB           DW1:
;
;
$DWEND::
 
.DC1 = 0                                ; END OF DCB LIST FOR DW:
 
$CTB1 = 0                               ; END OF CTB LIST FOR DW:
 
        .END