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;