Trailing-Edge
-
PDP-10 Archives
-
BB-H348C-RM_1982
-
swskit-v21/listings/tkb-vnp/filsw.rpt
There are no other files named filsw.rpt in the archive.
DSK:FILSW.REQ[4,31] 31-Aug-79 14:16
!
! DEFINE THE STORAGE BLOCK USED TO DESCRIBE A FILE SWITCH
!
!
! DEFINE MAX LENGTH OF A SWITCH NAME
!
LITERAL
LEN_FSW_NAME = 7;
!
! DEFINE MAX LENGTH OF A TEXT ARGUMENT
!
LITERAL
LEN_FSW_TEXT = 7;
!
!
SBLOCK (FILSW, 4) !FILE SWITCHES
HEADER (FILSW) !
ABLOCK (FSW_NAME, CH$ALLOCATION(LEN_FSW_NAME)*%BPVAL, 2) !SWITCH NAME
ABLOCK (FSW_TEXT, CH$ALLOCATION(LEN_FSW_NAME)*%BPVAL, 2) !SWITCH TEXT ARG
ABLOCK (FSW_VAL, %BPVAL, 2) !SWITCH VALUE
ABLOCK (FSW_TEXT_PRES, 1, 2) ! = 1 IF TEXT PRESENT
ABLOCK (FSW_VAL_PRES, 1, 0) ! = 1 IF VALUE PRESENT
EBLOCK (FILSW) !
!