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

**Defined in:** [[george:source:MACROS_EWDAS|MACROS EWDAS]]

**Used in:** [[george:source:BSTS867|BSTS867]], [[george:source:CARTCONT867|CARTCONT867]], [[george:source:DUMMYA867|DUMMYA867]], [[george:source:ERASEX866|ERASEX866]], [[george:source:FLAW866|FLAW866]], [[george:source:KARTCONT867|KARTCONT867]], [[george:source:MOVCART867|MOVCART867]], [[george:source:PARSORT867|PARSORT867]], [[george:source:PERFLOGS866|PERFLOGS866]], [[george:source:SETDISC866|SETDISC866]]

<code - JPROP.mac.txt>
 T5ML    #   
 T67=    [???                                JPROP   
 T6LW    #                                   *****   
 T76G    #  MACRO TO JUMP TO APPROPRIATE LABEL   
 T7L6    #  ACCORDING TO DEVICE PROPERTIES   
 T85Q    [   
 T8KB    #MAC   JPROP
 T952    #   
 T9JL          LPROP    %A,0 
 T=4=    #STR  %B                           [COMPILED IF %B PRESENT  
 T=HW    (   
 T?3G          LDX   1  0
 T?H6          SBN   1  #524 
 T#2Q          BZE   1  %B                  [^ IF FDS640 
 T#GB    )   
 T*22    #STR  %C                           [COMPILED IF %C PRESENT  
 T*FL    (   
 T*^=          LDX   1  0
 TBDW          SBN   1  #522 
 TBYG          BZE   1  %C                  [^ IF FDS160 
 TCD6    )   
 TCXQ    #STR   %D                          [COMPILED IF %D PRESENT  
 TDCB    (   
 TDX2          LDX   1  0
 TFBL          SBN   1  #501 
 TFW=          BZE   1  %D                  [^ IF EDS80  
 TG*W    )   
 TGTG    #STR  %E                           [COMPILED IF %E PRESENT  
 TH*6    (   
 THSQ          LDX   1  0
 TJ#B          SBN   1  #502 
 TJS2          BZE   1  %E                  [^ IF EDS100 
 TK?L    )   
 TKR=    #STR  %F                           [COMPILED IF %F PRESENT  
 TL=W    (   
 TLQG          LDX   1  0
 TM=6          SBN   1  #504 
 TMPQ          BZE   1  %F                  [^ IF EDS200 
 TN9B    )   
 TNP2    #STR  %G                           [COMPILED IF %G PRESENT  
 TP8L    (   
 TPN=          LDX   1  0
 TQ7W          SBN   1  #414 
 TQMG          BZE   1  %G                  [^ IF LDC STYLE EDS200 VIA PF56  
 TR76          SBN   1  #100 
 TRLQ          BZE   1  %G                  [^ IF LDC STYLE EDS200 INTEGRATED
 TS6B    )   
 TSL2    #NOR
</code>