XML: Decimal To Hex Macro: Difference between revisions

From FSDeveloper Wiki
Jump to navigationJump to search
(Created page with "Decimal to Hex Macro using XMLVars <Macro Name="ValHex"> int s15 l15 10 >= if{ l15 55 + chr 'HexDigit' l32 scat (>C:XMLVARS:SearchVarName, string) (>C:XMLVAR...")
 
(Replaced content with "work in progress .......")
 
(9 intermediate revisions by the same user not shown)
Line 1: Line 1:
Decimal to Hex Macro using XMLVars
work in progress .......
 
<Macro Name="ValHex">
  int s15
  l15 10 &gt;=
    if{ l15 55 + chr 'HexDigit' l32 scat (>C:XMLVARS:SearchVarName, string) (>C:XMLVARS:StringValue, string) }
    els{ l15 'HexDigit' l32 scat (>C:XMLVARS:SearchVarName, string) (>C:XMLVARS:StringValue, string) }
</Macro>
 
<Macro Name="Dec2Hex">
  s30
  '@1' (>C:XMLVARS:StoreVarName, string) "" '@1' (>C:XMLVARS:SearchVarName, string) (>C:XMLVARS:StringValue, string)
  0 sp32
  :300
    l32 ++ s32
    'HexDigit' l32 scat (>C:XMLVARS:StoreVarName, string)
    l30 16 % @ValHex
    l30 16 / int s31 d 0 == if{ g301 } els{ s30 g300 }
  :301
    '@1' (>C:XMLVARS:SearchVarName, string) (C:XMLVARS:StringValue, string)
    'HexDigit' l32 scat (>C:XMLVARS:SearchVarName, string) (C:XMLVARS:StringValue, string) scat
    '@1' (>C:XMLVARS:SearchVarName, string) (>C:XMLVARS:StringValue, string)
    l32 -- s32 0 != if{ g301 }
</Macro>

Latest revision as of 09:48, 25 July 2015

work in progress .......

Retrieved from ‘http://www.fsdeveloper.com/wiki/index.php?title=XML:_Decimal_To_Hex_Macro&oldid=9969’