Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-07 - 43,50450/fsrmac.req
There are no other files named fsrmac.req in the archive.
00100	% FSRMAC.REQ VERSION 2.0 % SWITCHES NOLIST;
00200	REQUIRE 'B11MAC.REQ' SOURCE;
00300	%
00400		RSX-11M FILE STORAGE REGION MACRO LIBRARY FOR BLISS-11
00500	
00600	AUTHOR:
00700		K. E. GORLEN
00800		RM. 2017, BG. 12A
00900		DIVISION OF COMPUTER RESEARCH AND TECHNOLOGY
01000		NATIONAL INSTITUTES OF HEALTH
01100		BETHESDA, MD. 20014
01200		PHONE: (301) 496-5361
01300		MAY 19, 1975
01400	
01500	SEE RSXMAC.DOC FOR DOCUMENTATION.
01600	
01700	%
01800	!
01900	! ?BDOFF$ -- BUFFER DESCRIPTOR BLOCK DEFINITIONS
02000	!
02100	    MACRO ?BDOFF$=MACRO
02200		?B.VBN (BDB)=((BDB)+04) $QUOTE $,
02300		?B.BBFS(BDB)=((BDB)+08) $QUOTE $,
02400		?B.NXBD(BDB)=((BDB)+10) $QUOTE $,
02500		?B.BFST(BDB)=((BDB)+13)<0,8> $QUOTE $;
02600		BIND
02700		    ?S.BFHD=16;
02800		UNDECLARE $QUOTE $QUOTE ?BDOFF$;
02900		MACRO ?BDOFF$=UNDECLARE ?.......... $QUOTE $ $;
03000	!
03100	! ?FSRSZ$ -- INITIALIZE FSR AT ASSEMBLY-TIME
03200	!
03300	    MACRO ?FSRSZ$(NFILES,BFSPAC)=
03400		?BDOFF$;
03500		EXTERNAL ?.FSRCB;
03600		PSECT OWN='$$FSR1,GBL,OVR,D';
03700		BYTE OWN FSR1[(NFILES)*?S.BFHD+(?.DEFAULT(BFSPAC,(NFILES)*512))]$;
03800	SWITCHES LIST;