LEGALLEV [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: LEGALLEV)}}
====== LEGALLEV ======
(GIN Macro)

**Defined in:** [[george:source:MACROS_FIXD|MACROS FIXD]]

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

<code - LEGALLEV.mac.txt>
 6#X# ...[??? LEGALLEV SECT CENT FGN 11 DOC  
 6*76    [ THIS MACRO CAUSES J TO %B IF AN ILLEGAL QUALIFIER LEVEL HAS OCCURED   
 6*LQ    #MAC  LEGALLEV  
 6B6B     MOD  LDX   0  GPER4,%A 
 6BL2                   -1   
 6C5L          MULTIFID -GCOMQU,-23,24,%C,%D,%E,%F,%G,%H,%I,%J   
 6CK=    #TRA  0?-1  
 6D4W    #SKI  34?+0?+0]&#40000000<1$1*GCOMQU [INCL IF ANYCOMMON SPECD & GCOMQU>0
 6DJG    #FID  24-GCOMQU 23 1               [SET COMMON BITS ZERO
 6F46    #SKI  34?+0?+0]&#20000000<1$1      [INCL IF ANYNONCOM SPECD 
 6FHQ    #FID  2 23-GCOMQU 1                [SET NON-COMMON BITS ZERO
 6G3B    #DEF  20?=34?+0?+0] 
 6GH2          ANDN  0  0
 6H2L    #FID  12 23 20? 
 6HG=          BNZ   0  %B   
 6H^W    #NOR
</code>