*   FORTRAN main program using assembly language
*   function Factorial to calculate P(N,R).

      integer  N, R, NPR, Factorial

      print *, 'Enter values for N and R'
      read *, N, R
      NPR = Factorial(N)/Factorial(N - R)
      print *, 'Number of permutations =', NPR
      end