* prototype of the assert procedure

     D Assert          PR
     D  Condition                      N   Value
     D  Message                      80A   Value  options(*nopass)