.TITLE LARG INTEGER FUNCTION LARG ( NRARG ) .IDENT /V01.00/ ;*********************************************************************** ; ; Description : Signals if the argument, identified by its sequence number ; in the caller argumentlist is given. ; ; Arguments : NRARG = Sequence number in argumentlist of caller ; ; Author : T.Pijl ; AKZO PHARMA, Oss Holland ; dep. SDA ; ; Version : V1.0 Date : 13-dec-82 ; ; Module name : LARG.MAC ; ; Package : RSX-LIBRARY ; ; Compilation/ ; taskbuilding : MAC LARG ; ; Updates : name version ; ; description : ; ;************************************************************************ LARG:: MOV 2(SP),R0 ;get pointer to caller's arglist MOV @2(R5),R1 ;get seq.# of argument to be checked MOVB (R0),R2 ;get # of args of caller CMP R2,R1 ;in range ? BLT 1$ ASL R1 ;YES,calculate address in caller arglist ADD R0,R1 CMP (R1),#-1 ;is it given? BEQ 1$ MOV #-1,R0 ;yes,set function value .TRUE. RTS PC 1$: CLR R0 ;else set functionvalue .FALSE. RTS PC .END