Google
 

Trailing-Edge - PDP-10 Archives - BB-KL11L-BM_1990 - t20src/mxufil.r36
There are 13 other files named mxufil.r36 in the archive. Click here to see a list.
!	COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1985, 1989.
!	ALL RIGHTS RESERVED.
!
!	THIS SOFTWARE IS FURNISHED UNDER A  LICENSE AND MAY BE USED AND  COPIED
!	ONLY IN  ACCORDANCE  WITH  THE  TERMS OF  SUCH  LICENSE  AND  WITH  THE
!	INCLUSION OF THE ABOVE  COPYRIGHT NOTICE.  THIS  SOFTWARE OR ANY  OTHER
!	COPIES THEREOF MAY NOT BE PROVIDED  OR OTHERWISE MADE AVAILABLE TO  ANY
!	OTHER PERSON.  NO  TITLE TO  AND OWNERSHIP  OF THE  SOFTWARE IS  HEREBY
!	TRANSFERRED.
!
!	THE INFORMATION IN THIS  SOFTWARE IS SUBJECT  TO CHANGE WITHOUT  NOTICE
!	AND SHOULD  NOT  BE CONSTRUED  AS  A COMMITMENT  BY  DIGITAL  EQUIPMENT
!	CORPORATION.
!
!	DIGITAL ASSUMES NO  RESPONSIBILITY FOR  THE USE OR  RELIABILITY OF  ITS
!	SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL.
literal
       FILE_KEEP = 0,
       FILE_ABORT = 1,
       FILE_DELETE = 2,
       FILE_ACCESS_READ_ONLY = 1,       ! File is read only
       FILE_ACCESS_WRITE_ONLY = 2,      ! File is write only
       FILE_ACCESS_APPEND_ONLY = 3;	! File is APPEND only.

!
! File system interface (MXUFIL)
!

macro
     MX$FILE_INITIALIZE = UF_INI %,
     MX$FILE_DELETE = UF_DEL %,            !***
     MX$FILE_SET_WRITER = UF_SWR %,
     MX$FILE_SIZE = UF_SIZE %,      !***
     MX$FILE_EXISTS = UF_XST %,
     MX$FILE_COPY = UF_CPY %,
     MX$FILE_WRITTEN_DATE = UF_DAT %,      !***
     MX$FILE_RENAME = UF_REN %,            !***
     MX$FILE_OPEN = UF_OPEN %,
     MX$FILE_READ = UF_READ %,
     MX$FILE_WRITE = UF_WRITE %,
!    MX$FILE_SKIP = UF_SKIP %,
     MX$FILE_SEEK = UF_SEEK %,
     %if %SWITCHES(TOPS10)
     %then
        MX$FILE_BUILD_BUFFERS = UF_BLD %,
        MX$FILE_KILL_BUFFERS = UF_KIL %,
        MX$FILE_STRUCTURE = UF_STR %,
     %fi
     MX$FILE_CLOSE = UF_CLOSE %,

     MX$FILE_ROUTINES =
         MX$FILE_DELETE,
         MX$FILE_SET_WRITER,
         MX$FILE_SIZE,
         MX$FILE_EXISTS,
         MX$FILE_COPY,
         MX$FILE_WRITTEN_DATE,
         MX$FILE_RENAME,
         MX$FILE_OPEN,                 ! Open file
         MX$FILE_READ,                 ! Read record from file
         MX$FILE_WRITE,		! Write record to file
!        MX$FILE_SKIP,                 ! Skip over bytes in a file
         MX$FILE_SEEK,                 ! Seek to specified byte in file
	 MX$FILE_SIZE,
         %if %SWITCHES(TOPS10)
         %then
             MX$FILE_BUILD_BUFFERS,	! Allocate I/O buffer ring
             MX$FILE_KILL_BUFFERS: novalue,	! Deallocate I/O buffer ring
             MX$FILE_STRUCTURE,         !Return Sixbit structure name
         %fi
         MX$FILE_CLOSE                 ! Close file
     %;
!
! Macros:
!

!	$P (mask) - Calculate bit position of a literal mask
!
!		where mask is a literal or symbol which defines a
!               field as a series of contiguous bits
!
!		returns pos, which may be used in a context such
!               as, ADDRESS<pos,siz>, or FIELD_NAME = [ADDR,pos,siz,sgn]
!

MACRO $p (mask) =
      %NBITSU (mask  AND  - mask) - 1 % ;


!	$S (mask) - Calculate size in bits of a literal mask
!
!		where mask is a literal or symbol which defines a
!               field as a series of contiguous bits
!
!		returns siz, which may be used in a context such
!               as, ADDRESS<pos,siz>, or FIELD_NAME = [ADDR,pos,siz,sgn]
!

MACRO $s (mask) =
      %NBITSU (mask) - %NBITSU (mask  AND  - mask) + 1 % ;


!	$P$S (mask) - Calculate bit position and size of a literal mask
!
!		where mask is a literal or symbol which defines a
!               field as a series of contiguous bits
!
!		returns "pos , siz", which may be used in a context such
!               as, ADDRESS<pos,siz>, or FIELD_NAME = [ADDR,pos,siz,sgn]
!
!		E.g, XCB_1 = [2,$P$S(XCB_MASK),0]

MACRO $p$s (mask) =
      $p (mask) , $s (mask) % ;

! The following macro is already defined on Tops-10 in TENDEF.
%if not %SWITCHES(TOPS10) %then
macro
     FLD (VAL, MASK) =
         ((VAL) ^ (%nbitsu(MASK  and  - MASK) - 1)) %;
%fi

MACRO			!Find the length of ASCIZ string...
    ch$length(ptr) =
	CH$DIFF( CH$FIND_CH( max_line_length, ptr, 0 ), ptr) %;

MACRO
     transfer_bytes(cnt, src, dst) =
              BEGIN
              dst = $movslj(SLEN=cnt,SORC=.src,DEST=.dst,ERR=sljerr);
              src = CH$PLUS(.src, cnt);
              buffer [bd_remaining_count] = .buffer [bd_remaining_count] - cnt;
              file [fd_current_position] = .file [fd_current_position] + cnt;
     %IF %SWITCHES(TOPS20) %THEN
              buffer [bd_current_position] = .buffer [bd_current_position] +
                                              cnt;
     %FI
              END %;

%IF %SWITCHES(TOPS20) %THEN
MACRO
     file_sys_spec_fields =
         fd_jfn = [$INTEGER],           ! JFN of file
         fd_name = [$STRING (max_file_name_length + 1)], ! Buffer for file name
         fd_page_count = [$INTEGER]     ! Number of pages in file
         %;
%FI

%IF %SWITCHES(TOPS10) %THEN
MACRO
    file_sys_spec_fields =
	fd_channel = [$INTEGER],	! I/O channel for this file
	fd_lock_channel = [$INTEGER],	! I/O channel that we enqued on
	fd_filop_function = [$INTEGER],	! Filop Function to use for I/O
	fd_current_block = [$INTEGER],	! The current block number
	fd_block_count = [$INTEGER],	! Number of blocks in file
	fd_filop_block = [$sub_block($fofsp+1)],
        fd_lookup_block = [$sub_block(4)],
	fd_path_block = [$sub_block($ptmax)],
        fd_spec_block = [$sub_block(8)]
%;
%FI

MACRO
     file_data_block = BLOCK [file_data_block_size]
                       FIELD (file_data_fields) %;

MACRO
     buffer_data_block = BLOCK [buffer_data_block_size]
                         FIELD (buffer_data_fields) %;

MACRO
     file_name_block = BLOCK [file_name_fields_size]
                       FIELD (file_name_fields) %;

!
! Equated symbols:
!


LITERAL
       remote_buffer_length = 512,
       remote_buffer_allocation = CH$ALLOCATION (remote_buffer_length,8) * %UPVAL;

!
! Operating System Interface Definitions
!

%IF %SWITCHES(TOPS20) %THEN

LITERAL
       page_size = 512,
       bytes_per_page = 5 * page_size;

%FI

LITERAL
       max_line_length = 255;

!
! FILE DATA BLOCK Structure Field Names
!

$FIELD
      file_data_fields =
          SET
          file_sys_spec_fields,             ! system specific fields
          fd_access = [$TINY_INTEGER],      ! Accessing method
          fd_byte_size = [$TINY_INTEGER],   ! Byte size as per format
          fd_error = [$INTEGER],            ! Error code
          fd_current_position = [$INTEGER], ! Current byte offset as set by
                                            ! READ, SEEK, SKIP, or WRITE
          fd_file_position = [$INTEGER],    ! Position of next read from file
          fd_length = [$INTEGER],           ! Size of file in bytes
          fd_current_buffer = [$ADDRESS],   ! Address of current BD block
          fd_append_in_progress = [$BIT],   ! Seek to EOF done for APPEND
          fd_abort = [$BIT],                ! Do not save file on close
	  fd_delete = [$BIT],                ! Delete file on close
	  fd_light_new_mail_bit = [$BIT]    ! Light "new mail" bit on TOPS-10
          TES;

LITERAL
       file_data_block_size = $FIELD_SET_SIZE,
       file_data_block_allocation = $FIELD_SET_UNITS;

!
! BUFFER DATA BLOCK Structure Field Names
!

%IF %SWITCHES(TOPS20) %THEN
$FIELD
      buffer_data_fields =
          SET
          bd_next = [$ADDRESS],             ! Address of next BD in ring
          bd_address = [$ADDRESS],          ! Buffer base address
          bd_length = [$INTEGER],           ! Buffer length in bytes
          bd_allocation = [$INTEGER],       ! Buffer size in allocation units
          bd_file_position = [$INTEGER],    ! Buffer position in file
          bd_max_position = [$INTEGER],     ! End of buffer position in file
          bd_bias = [$INTEGER],             ! Buffer bias to start of data
          bd_current_position = [$INTEGER], ! Current position in buffer
          bd_pointer = [$POINTER],          ! Current pointer to buffer
          bd_data_count = [$INTEGER],       ! Bytes read/written in buffer
          bd_remaining_count = [$INTEGER],  ! Bytes yet to be read from
                                            ! or written to buffer
          bd_valid = [$BIT],                ! Buffer has valid data
          bd_end_of_file = [$BIT]           ! End of file flag
          TES;


%ELSE
$FIELD
      buffer_data_fields =
	SET
	bd_address		= [$INTEGER],	!$bfadr
	bd_pointer		= [$INTEGER],	!$bfptr
	bd_remaining_count	= [$INTEGER],	!$bfcnt
	bd_valid		= [$BIT],
	bd_end_of_file		= [$BIT]
	TES;
%FI

LITERAL
       buffer_data_block_size = $FIELD_SET_SIZE,
       buffer_data_block_allocation = $FIELD_SET_UNITS;

!
! File name block fields
!

$FIELD
      file_name_fields =
      SET
      fn_length = [$INTEGER],           ! Length of file specification string
      fn_pointer = [$POINTER]           ! Pointer file spec string
      TES;

LITERAL
       file_name_fields_size = $FIELD_SET_SIZE,
       file_name_fields_allocation = $FIELD_SET_UNITS;

MACRO
        left_half = 18,18,0 %,
        left_half_s = 18,18,1 %,
        right_half = 0,18,0 %;

%IF %SWITCHES(TOPS10) %THEN
!
! This macro computes the width of a bit mask
!

    MACRO
	wid (mask) = %NBITSU(mask) - (%NBITSU((mask) AND - (mask)) - 1) %,
	pos (mask) = (%NBITSU((mask) AND - (mask)) - 1) %,
	pw (mask) = pos(mask),wid(mask),0 %,
	wrd = 0,36,0 %;

    FIELD
	filop_block_fields =
	SET
	filop_channel = [$fofnc, pw(fo$chn)],
	filop_function = [$fofnc, pw(fo$fnc)],
	filop_flags = [$fofnc, wrd],
	filop_open_flags = [$foios, wrd],
	filop_device = [$fodev, wrd],
	filop_output_buffer_header = [$fobrh, left_half],
	filop_input_buffer_header = [$fobrh, right_half],
	filop_buffer_headers = [$fobrh, wrd],
	filop_output_buffer_number = [$fonbf, left_half],
	filop_input_buffer_number = [$fonbf, right_half],
	filop_rename_pointer = [$foleb, left_half],
	filop_lookup_pointer = [$foleb, right_half],
	filop_enter_pointer = [$foleb, right_half],
	filop_ppn = [$foppn, wrd],
	filop_path_length = [$fopat, left_half],
	filop_path_pointer = [$fopat, right_half],
        filop_spec_length = [$fofsp, left_half],
        filop_spec_block = [$fofsp, right_half]
	TES;

    FIELD
	lookup_block_fields =
	SET
	lookup_name = [0, wrd],
	lookup_ext = [1, left_half],
        lookup_ppn = [3,wrd],
	lookup_length = [3, left_half_s],
	lookup_path = [3, right_half]
	TES;

    FIELD
        extended_lookup_block_fields =
        SET
        exlookup_zero = [$rbcnt,left_half],
        exlookup_count = [$rbcnt,right_half],
        exlookup_ppn = [$rbppn,wrd],
        exlookup_path = [$rbppn,wrd],
        exlookup_name = [$rbnam,wrd],
        exlookup_ext = [$rbext,left_half],
        exlookup_create_udt = [$rbtim,wrd]
        TES;

    FIELD
	path_block_fields =
	SET
	path_project = [$ptppn, left_half],
	path_programmer = [$ptppn, right_half],
	path_sfd = [$ptsfd, 0, 0, 0]
	TES;

    FIELD
        spec_block_fields =
        SET
        spec_device = [$fofdv, wrd]
        TES;

MACRO set_in_your_behalf(filop_block,lookup_block) =
BEGIN
  LOCAL tmp;
	IF .lookup_block[0,left_half] NEQ 0 THEN
	  tmp = .lookup_block[3,wrd]
	ELSE
	  tmp = .lookup_block[$rbppn,wrd];	!get possible PPN
	IF .tmp<left_half> EQL 0 THEN
	  tmp = .(.tmp + $ptppn);		!from path block maybe
	IF (filop_block[filop_ppn] = .tmp) NEQ 0 THEN
	  filop_block[filop_flags] = .filop_block[filop_flags] OR fo$prv;
END %;
%FI

LINKAGE
    ercalr_linkage = PUSHJ (REGISTER = 1):
        LINKAGE_REGS(15,13,1)
        NOPRESERVE(2,3,4,5)
        PRESERVE(6,7,8,9,10,11,12,14);

LITERAL
    $ercalrop=%O'320',
    $ercalrac=%O'013',
    $extendop=%O'123',
    $movsljop=%O'016000000000';

KEYWORDMACRO
    $movslj(SORC,DEST,SLEN,DLEN=,ERR=,FILL=0) =
        BEGIN
        BUILTIN MACHOP;
        STACKLOCAL
            arg: VECTOR[2];

        REGISTER
            T1=1,
            T2=2,
            T3=3,
            T4=4,
            T5=5,
            T6=6;

        glerr = 0;
        arg[0] = $movsljop;
        arg[1] = (FILL);
        t1 = (SLEN);
        t2 = (SORC);
        t3 = 0;
        t4 = %IF %NULL(DLEN) %THEN (SLEN)
                        %ELSE (DLEN) %FI;
        t5 = (DEST);
        t6 = 0;
        MACHOP($extendop,t1,arg,0,0);
        %IF NOT %NULL(ERR) %THEN MACHOP($ercalrop,$ercalrac,ERR,0,0); %FI
        .t5
        END %;