P

(GIN Macro)

Defined in: MACROS SAR

Used in: ASSIGN860, ATTRIBUT867, CHANG867, EDITAR867, FFFNORM7, IDFENQS867, ILLEXC70, INPRIN, INPUTMOP82, LISTSTAR867, MACRALAS864, MESSAF, MESSCI, ONLINEC867, PMDR864, PMINPRIN, PMJOBS866, PMWHATA866, PROPERTY867, PSPLIT82, USERTYPE83

P.mac.txt

 3P7L    #MAC  P 
 3PM=    [THIS MACRO SETS THE SEMAPHORE GIVEN BY %A. IF THE SEMAPHORE IS 
 3Q6W    [ALREADY SET,THE ACTIVITY IS SET WAITING BY LONGSTOP UNTIL THE  
 3QLG    [SEMAPHORE IS FREE. 
 3R66    [%A GIVES THE BIT POSITION IN APANDV AND IS ALSO USED AS THE
 3RKQ    [   AUXILIARY WAITING STYLE.
 3S5B    [%B GIVES THE BREAK-IN LABEL.   
 3S6M ...#UNS HWATIDY
 3S7Y ...(   
 3S99 ...#STR %B 
 3S=G ...#SKI
 3S?R ...      POP      ,,IDFANDPROP,(GEOERR)
 3S*4 ...#STR %B 
 3SB* ...      POP      ,,IDFANDPROP,%B  
 3SCL ...)   
 3SDX ...#UNS HWATIDY
 3SG8 ...#SKI
 3SHF ...(   
 3SK2          LDX   0  APANDV   
 3T4L          SLC   0  %A   
 3TJ=          BPZ   0  MP1                 [J IF FLAG NOT SET   
 3W3W          LDN   0  %A   
 3WHG          SMO      FX2  
 3X36          STO   0  ACOMMUNE1
 3XGQ          DOWN     WHATPROP,5   
 3Y2B          BRN      MP2  
 3YG2    #STR  %B
 3Y^L          BRN      %B                  [J TO BREAK-IN LABEL 
 3^F=    #STR  %B
 3^YW    #SKI
 42DG          GEOERR 1,PBREAKIN 
 42Y6    MP1   ORX   0  GSIGN
 43CQ          SRC   0  %A   
 43XB          STO   0  APANDV              [SET FLAG
 44C2    MP2 
 44LS ...)   
 44WL    #NOR