Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-07 - decus/20-0172/scnblk.req
There is 1 other file named scnblk.req in the archive. Click here to see a list.
! ... Require file "SCNBLK.REQ" ...
!
!	This file is used to define the scanner status blocks
!	which are used to switch the input context for the scanner.
!	SCANNR has three possible contexts:
!		1) The normal input file (file 0)
!		2) An alternate input (require) file (file 2)
!		3) A character stream imbedded in a SYNONYM definition
!		control comment, which can appear in either input file.
!

Field
    in_field =
	SET
	chr = [0, 0, %BPVAL, 0],		! Current character
	cp  = [1, 0, %BPVAL, 0],		! Current character pointer
	len = [2, 0, %BPVAL, 0],		! Length of current input line
	col = [3, 0, %BPVAL, 0],		! Current visual column position
	rem = [4, 0, %BPVAL, 0],		! No. of chars remaining in line
	base = [5, 0, %BPVAL, 0],		! Base of macro- or plit-body
	buf = [6, 0, %BPVAL, 0]			! Input line buffer follows this address
	TES;

literal
    buf_len = 132;

bind
    scn_blk_size = 				!
	6 + CH$ALLOCATION (buf_len);

! ... End of Require file SCNBLK.REQ ...