ISPROPN

(GIN Macro)

Defined in: MACROS SAR

Used in: ASSOC867, ONLINEC867, WSPARAM867

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