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

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

**Used in:** [[george:source:WHATPERA867|WHATPERA867]]

<code - PROPNAME.mac.txt>
 5P6G    [   
 5PL6    [   
 5Q5Q    #MAC PROPNAME   
 5QKB    #   
 5R52    [ THIS MACRO GIVES THE PROPERTY NAME OF A PROPERTY NUMBER:  
 5RJL    [     THE PROPERTY NUMBER IS FOUND IN %A.   
 5S4=    [     THE PROPERTY NAME IS LEFT IN ACOMMUNE1-ACOMMUNE3. 
 5SHW    [     B0/B1 SET IN ACOMMUNE4 IF PROPERTY IS EXCL/PERM   
 5T3G    [     :SYSTEM.PROPERTY IS FOUND OPEN AND LEFT OPEN  
 5TH6    #   
 5W2Q          BRN      M1   
 5WGB    MEXCL          #40000000
 5X22    MPERM          #20000000
 5XFL    M1    LDX   4  %A   
 5X^=          SLL   4  2
 5YDW          REWIND
 5YYG    MSTEP STEP  
 5^D6          LDX   5  APROPNO(3)   
 5^XQ          SLL   5  2
 62CB          TXU   5  4
 62X2          BCS      MSTEP
 63BL          LDN   4  APROPNAME(3) 
 63W=          STOZ     ACOMMUNE4(2) 
 64*W          LDN   5  ACOMMUNE1(2) 
 64TG          MOVE  4  3
 65*6          LDX   4  APROPNO(3)   
 65SQ          BPZ   4  MNOT 
 66#B          LDX   5  MEXCL(1) 
 66S2          ORS   5  ACOMMUNE4(2) 
 67?L    MNOT  SLL   4  1
 67R=          BPZ   4  MOUT 
 68=W          LDX   4  MPERM(1) 
 68QG          ORS   4  ACOMMUNE4(2) 
 69=6    MOUT
 69PQ    #NOR
</code>