/       NICOLET 1070 P?S/8 FOCAL PATCHES  PAL8-VB0  23-JUL-86 PAGE 1

   1                 /       NICOLET 1070 P?S/8 FOCAL PATCHES
   2   
   3                 /       (C)     1984, 1985      CHARLES LASNER ASSOCIATES.
   4   
   5                 /       LAST EDIT:      03-NOV-1985     10:00:00        CJL
   6   
   7                 /       PATCHES TO P?S/8 FOCAL TO CONTROL THE NICOLET 1070 AVERAGER, ETC.
   8   
   9                 /       ASSEMBLY INSTRUCTIONS:
  10   
  11                 /       SET "BUFFLD" TO PROPER FIELD FOR FBLK (DEFAULT IS 20).
  12   
  13                 /       SET "N" TO AMOUNT OF P?S/8 BLOCKS PER READ/WRITE FOR FBLK (DEFAULT IS 2).
  14                 /       MUST BE A POWER OF TWO FOR PROPER OPERATION.
  15   
  16                 /       SET "NICODE" TO PROPER BASE DEVICE CODE (DEFAULT IS 30).
  17   
  18                 /       MAY BE ASSEMBLED WITH '/J' SWITCH SET.
  19   
  20                 /       THESE ARE PATCHES TO P?S/8 FOCAL FOR THE IMPLEMENTATION OF THREE FUNCTIONS:
  21   
  22                 /       1):     FBLK(BLOCKNUMBER[,WRITEINDICATOR])
  23                 /       2):     FWRD(ADDRESS[,NEWVALUE])
  24                 /       3):     FNIC(ADDRESS[,NEWVALUE])
  25   
  26                 /       FUNCTION FBLK READS IN N DISK BLOCKS INTO FIELD BUFFLD STARTING FROM THE
  27                 /       BLOCK NUMBER PASSED. IF A SECOND ARGUMENT IS PASSED, THE BLOCKS ARE WRITTEN
  28                 /       INSTEAD OF READ. THE UNIT USED FOR ALL I/O IS <BOOTSTRAP-UNIT .XOR. 1>.
  29   
  30                 /       FUNCTION FWRD RETURNS THE CONTENTS OF THE SPECIFIED LOCATION WHOSE ADDRESS
  31                 /       IS THE FIRST ARGUMENT. IF A SECOND ARGUMENT IS PASSED, IT BECOMES THE NEW
  32                 /       STORED VALUE.
  33   
  34                 /       FUNCTION FNIC RETURNS THE CONTENTS OF THE SPECIFIED LOCATION IN THE AVERAGER
  35                 /       WHOSE ADDRESS IS THE FIRST ARGUMENT. IF A SECOND ARGUMENT IS PASSED, IT
  36                 /       BECOMES THE NEW STORED VALUE. THE FUNCTION RETURNS ZERO IF TWO ARGUMENTS ARE
  37                 /       USED.