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

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

**Used in:** 

<code - VDUCODE.mac.txt>
 B*^W    #MAC  VDUCODE   
 BBFG    #MEN  IPBSCANB  
 BB^6    #TRA  K40IPBSCANB   
 BCDQ    #SKI  %A-1  
 BCYB    #SKI
 BDD2                    0                  [UNSET B0 OF ICONTU IF CODE 1
 BDXL    #SKI  %A-2  
 BFC=    #SKI
 BFWW                    #40000000          [SET B0 OF ICONTU IF CODE 2  
 BGBG    #END
 BGW6    #MEN  IPBSCAN   
 BH*Q    #TRA  K40IPBSCAN
 BHTB    #SKI  %A-1  
 BJ*2    #SKI
 BJSL                   0                   [UNSET B0 OF ICONTU IF CODE 1
 BK#=    #SKI  %A-2  
 BKRW    #SKI
 BL?G                   #40000000           [SET B0 OF ICONTU IF CODE 2  
 BLR6    #END
 BM=Q    #NOR
</code>