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

**Defined in:** [[george:source:MACROS_SJ|MACROS SJ]]

**Used in:** [[george:source:ADDJOB867|ADDJOB867]], [[george:source:ADJUNCTS85|ADJUNCTS85]], [[george:source:ALASB867|ALASB867]], [[george:source:CANTDO867|CANTDO867]], [[george:source:CHNUMCON867|CHNUMCON867]], [[george:source:CONCEPT85|CONCEPT85]], [[george:source:CROBJ6|CROBJ6]], [[george:source:DELCON867|DELCON867]], [[george:source:DOC867|DOC867]], [[george:source:EMSENTER867|EMSENTER867]], [[george:source:FINDOC867|FINDOC867]], [[george:source:IDFCHK867|IDFCHK867]], [[george:source:IDFCLEAN867|IDFCLEAN867]], [[george:source:INMOP867|INMOP867]], [[george:source:IPCPERI83|IPCPERI83]], [[george:source:JOBDATA867|JOBDATA867]], [[george:source:LISTAST867|LISTAST867]], [[george:source:LISTCONK83|LISTCONK83]], [[george:source:LISTIDF867|LISTIDF867]], [[george:source:LOADX60|LOADX60]], [[george:source:NEWOWN865|NEWOWN865]], [[george:source:NEWPW867|NEWPW867]], [[george:source:PARAM865|PARAM865]], [[george:source:PMACT867|PMACT867]], [[george:source:PMCHAINS864|PMCHAINS864]], [[george:source:PMCHAP867|PMCHAP867]], [[george:source:PMCRABS860|PMCRABS860]], [[george:source:PMDR864|PMDR864]], [[george:source:PMFILE860|PMFILE860]], [[george:source:PMFIXSTO84|PMFIXSTO84]], [[george:source:PMFS85|PMFS85]], [[george:source:PMOBJIII860|PMOBJIII860]], [[george:source:PMSUMA867|PMSUMA867]], [[george:source:PROGISH850|PROGISH850]], [[george:source:QUOTA850|QUOTA850]], [[george:source:RESTERR864|RESTERR864]], [[george:source:SETIDF867|SETIDF867]], [[george:source:TRAPLIST864|TRAPLIST864]], [[george:source:UNSAVE867|UNSAVE867]], [[george:source:USERSTRM867|USERSTRM867]]

<code - MASK.mac.txt>
 BTR4 ...[   
 BTY= ...[   
 BW5G ...[??? MASK SECT FILE FGN 24 DOC  
 BWK6    #MAC           MASK                [F   
 BWSY ...[     BITS 0-4 = NO OF BITS - 1, 5-18 = DISPLACEMENT,19-23 = LS BIT 
 BX4Q    [     SET UP 21? WITH A MASK OF THE FIELD   
 BXJB    #DEF           21?=-1@L((%A@L-19)-23)@L(23-(%A&#37))
 BY42    #NOR
</code>