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

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

**Used in:** [[george:source:LOADERDA867|LOADERDA867]], [[george:source:LOADERFS867|LOADERFS867]]

<code - SHOPEN.mac.txt>
 YPBQ    #MAC  SHOPEN
 YPWB    #   
 YQB2    #STR  %A
 YQTL          LDX   0  %A               [IF %A PRESENT  
 YR*=    #STR  %B
 YRSW          LDX   1  %B               [IF %B PRESENT  
 YS#G          '171  0  10   
 YSS6          BNG   0  %C               [^ IF FAILED
 YT?Q    #NOR
</code>