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

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

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


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