ISPROPN [ICL George 3]

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.

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

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

**Used in:** [[george:source:ASSOC867|ASSOC867]], [[george:source:ONLINEC867|ONLINEC867]], [[george:source:WSPARAM867|WSPARAM867]]

<code - ISPROPN.mac.txt>
 384Q    #MAC ISPROPN
 38JB    [THIS MACRO TESTS THE PROPERTY NAME IN THE CPB/CUNI BLOCK,AGAINST THOSE 
 3942    [IN :SYSTEM.PROPERTY AND,IF A MATCH IS FOUND,THE PROPERTY NUMBER IS SET 
 39HL    [IN %A(IF NOT %A = 0 & COMERR).B0 OF %A SET IF CONSOLE PROPERTY,B1 SET I
 3=3=    [PERMANENT PROPERTY 
 3=GW          DOWN  WHATPROP,4  
 3?2G    #SKI  JSKI18<1$1
 3?G6    (   
 3?^Q          LDX   0  ACOMMUNE1(2) 
 3#FB          STO   0  %A   
 3#^2    )   
 3*DL    #SKI  JSKI18
 3*Y=    (   
 3BCW          BRN      %A   
 3BXG    #ACC  %B
 3CC6    #SKI
 3CWQ          LDX   %B ACOMMUNE1(2) 
 3DBB    #ACC  %B
 3DW2    (   
 3F*L          LDX   0  ACOMMUNE1(2) 
 3FT=          STO   0  %B   
 3G#W    )   
 3GSG    )   
 3H#6    #NOR
</code>