PDP-10 Archive: decus/20-0172/blfvms.req from decuslib20-07

Trailing-Edge - PDP-10 Archives - decuslib20-07 - decus/20-0172/blfvms.req

There is 1 other file named blfvms.req in the archive. Click here to see a list.

!	... Require file 'BLFVMS.REQ' ...
!<BLF/macro>
!<BLF/synonym $field = field>
!<BLF/lowercase_user>
!<BLF/uppercase_key>

!++
! Macros:
!--

MACRO
    msg (l, s) =

	%IF %LENGTH EQL 1
	%THEN
	    $xpo_put (				!
		string = (%CHARCOUNT (l), CH$PTR (UPLIT (l))),	!
		iob = tty_iob)
	%ELSE
	    $xpo_put (,				!
		string = (l, s),		!
		iob = tty)
	%FI

    %;


$FIELD  $blf$cmd_fields =
   SET
	blf$t_input	= [$DESCRIPTOR (FIXED)],    ! Input file descriptor.
	blf$t_output	= [$DESCRIPTOR (FIXED)],    ! Output file descriptor.
	blf$t_listing	= [$DESCRIPTOR (FIXED)],    ! Listing file descriptor.

	blf$v_output	= [$BIT],		    ! Generate an output file.
	blf$v_listing	= [$BIT]		    ! Generate a listing file.
    TES;

LITERAL
    max_qual_bit	= 2,			    ! /LISTING and /OUTPUT
    blf$k_cmd_len	= $FIELD_SET_SIZE;

MACRO
    $blf_cmd =
	BLOCK [ blf$k_cmd_len ]   FIELD ( $blf$cmd_fields ) %;
!
!
!	... End of require file 'BLFVMS.REQ' ...