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

**Defined in:** [[george:source:MACS_IPB|MACS IPB]]

**Used in:** [[george:source:ADDJOB867|ADDJOB867]], [[george:source:DOMONOP867|DOMONOP867]]

<code - CLEARVDU.mac.txt>
 4SS=    #MAC CLEARVDU   
 4T?W          LDX   2  FX2  
 4TRG          LDX   0  JSOURCE1(2)         [GET PERIPHERAL TYPE 
 4W?6          SRL   0  18   
 4WQQ          SBN   0  24   
 4X=B          BZE   0  MMBS                [J IF MOP ON IPB 
 4XQ2          SBN   0  36   
 4Y9L          BZE   0  MACI                [J IF MOP ON CI CHANNEL  
 4YP=          BRN      MFIN 
 4^8W    MMBS
 4^NG          MHUNTW   2,AMXOR,ADCB 
 5286          LDX   1  A1+FPTR(2)          [X1= POINTER TO ADEVS RING ELEMENT   
 52MQ          LDX   0  FOURTHWD-FPTR(1) 
 537B          ANDN  0  #17  
 53M2          SBN   0  2
 546L          BZE   0  MCLSC               [J IF AVDU   
 54L=          SBN   0  8
 555W          BNZ   0  MFIN                [J IF NOT AVDU   
 55KG    MCLSC   
 5656          LDCT  0  #4   
 56JQ          ORS   0  ICURPOS(2)   
 574B    MACI
 57J2          MONOUT   JPASSCL  
 583L    MFIN
 58H=          LDX   1  FX1  
 592W          LDX   2  FX2  
 59GG    #NOR
</code>