!   TITLE:  and.mac (CALCULATION)
!
!
!   Boolean AND two arguments together.
!
!   Return 1 if both arguments are nonzero and return 0 otherwise.
!   
!
!   Usage:  and,parm,a,b
!
!   Arguments:
!       
!       parm    =   The result parameter.
!
!       a       =   A boolean expression or value.
!
!       b       =   A boolean expression or value.
!
!
!   Example:    and,z,fl>0,fh<0
!
!               If (fl > 0) and (fh < 0) then return z=1, return z=0
!               otherwise.
!

*get,prkey_,active,0,prkey
/nopr

*if,arg2,ne,0,then
    *if,arg3,ne,0,then
        %arg1%=1
    *endif
*else
    %arg1%=0
*endif


*if,prkey_,eq,1,then
    /go
*endif