{{htmlmetatags>metatag-description:(ICL George 3 and George 4 GIN macro: P)}}
====== P ======
(GIN Macro)

**Defined in:** [[george:source:MACROS_SAR|MACROS SAR]]

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

<code - 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
</code>