LEGALLEV

(GIN Macro)

Defined in: MACROS FIXD

Used in: ASSIGN860

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