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

**Defined in:** [[george:source:MACROS_JSR|MACROS JSR]]

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

<code - VETC.mac.txt>
 4J=S ...[??? VETC SECT CENT FGN 9 DOC   
 4JGL    # THIS MACRO OBTAINS THE V,C,SMO,ZSM BITS IN STANDARD FORM  
 4K2=    #MAC  VETC     [JSRAYNER.M V,C,SMO,ZSM.(1907)   
 4KFW          LDCT  0  #600 
 4K^G          SMO      %A   
 4LF6          ANDX  0  8
 4LYQ          STO   0  JWSP1
 4MDB          LDCT  0  #140 
 4MY2          SMO      %A   
 4NCL          ANDX  0  9
 4NX=          ORX   0  JWSP1
 4PBW    #SKIP %B
 4PWG          STO   0  %B   
 4QB6    #NOR
</code>