Newsgroups: fj.comp.texhax
Path: galaxy.trc.rwcp.or.jp!coconuts.jaist!wnoc-tyo-news!newsbase.nisiq.net!ask.or.jp!news3-tokyonet!tokyonet.ad.jp!tokyonet.ad.jp!news.mac.co.jp!iijnet!news.iij.ad.jp!ffilmgw!emk!emk!kawada
From: kawada@den.fujifilm.co.jp (Yukihiro KAWADA)
Subject: Re: Hex number expression.
In-Reply-To: ymatsu@cam.cpg.sony.co.jp's message of 13 Aug 1996 10:06:40 JST
Content-Type: text/plain; charset=ISO-2022-JP
Message-ID: <KAWADA.96Aug16100623@emk.den.fujifilm.co.jp>
Sender: news@den.fujifilm.co.jp (den-news-gw)
Nntp-Posting-Host: emk
Organization: FUJI PHOTO FILM Co.,Ltd. Asaka Saitama, JAPAN.
References: <4uokf0$sje@cpgcgw.cam.cpg.sony.co.jp>
Mime-Version: 1.0
Date: Fri, 16 Aug 1996 01:06:23 GMT
Lines: 78
Xref: galaxy.trc.rwcp.or.jp fj.comp.texhax:8334
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.comp.texhax&nb=8334&hd=a
X-reformat-date: Mon, 18 Oct 2004 15:18:22 +0900
X-reformat-comment: Tabs were expanded into 4 column tabstops by the Galaxy's archiver. See http://katsu.watanabe.name/ancientfj/galaxy-format.html for more info.

$B2OED!wIY;N%U%$%k%`$G$9!#(B

ymatsu@cam.cpg.sony.co.jp (System Consultants) writes:
 > $B>>K\!w%7%9%F%`%3%s%5%k%?%s%D!J3t!K$H$$$$$^$9!#(B

$B$3$s$K$A$O!#(B

 > (1)$B0lDj7e$G#0%5%W%l%9$7$J$$J}K!(B
 >    $BNc$($P!"%+%&%s%?CM(B=3 $B$r(B 003 $B$H$J$k$h$&$K$9$k!#(B
 > 
 > (2)16$B?JI=8=(B
 >    $BNc$($P!"%+%&%s%?CM(B=10 $B$r(B 0a $B$H$J$k$h$&$K$9$k!#(B
 >  $B!'(B

$B;d$O!"0k:j$5$s$N(B hex.tex $B$K<j$rF~$l$F;H$C$F$$$^$9!#(B
$BE:IU$N(B hex.tex $B$r(B input $B$7$F0J2<$N$h$&$K;HMQ$7$^$9!#(B

%% hexinc sample
\documentstyle[11pt,a4j]{jarticle}
\newcount{\n}
\input{hex}

\newcount{\hexb}
\def\hexB{\HEX{\global\advance\hexb by 1\n=\hexb\hexinc{4}}}
\def\HEX#1{\ifx n#1\else{\tt #1}$_{h}$\fi}

\begin{document}
\begin{enumerate}
\item \hexB
\item \hexB
\item \hexB
\item \hexB
\item \hexB
\end{enumerate}
\end{document}

$B8f;29M$^$G(B...

 ----------------------------------NON-BREWED-CONDIMENT--
  $B2OED(B   $B9,Gn(B      $BIY;N<L??%U%$%k%`(B($B3t(B)  $BEE;R1GA|;v6HK\It(B
  Kawada Yukihiro  kawada@den.fujifilm.co.jp 



% hex.tex by Hideki ISOZAKI
% 1988 Nov 12
% \def\hex ==> TeXbook p.219
%
% Usage:
%  \n=48 \hex {=30}     ,\n=48 \hexinc{4} {=0030}
%
% Reverse:
%  \xeh{30} {=48}
%
% \hexinc{n} 3/16/'93 by Y.Kawada  
% \def\hex ==> TeXbook p.296 (ascii press 2.1)
% $Id: hex.tex,v 1.1 93/03/16 11:59:04 kawada Exp Locker: kawada $
%
\def\hex{{\count0=\n \divide\n by 16
 \ifnum\n>0 \hex\fi \count2=\n \multiply\count2 by -16
 \advance\count0 by \count2 \hexdigit}}

\def\hexdigit{\ifnum\count0<10 \number\count0
 \else\advance\count0 by -10 \advance\count0 by `A \char\count0 \fi}

\def\oct{{\count0=\n \divide\n by 8
 \ifnum\n>0 \oct\fi \count2=\n \multiply\count2 by -8
 \advance\count0 by \count2 \number\count0}}

\def\xeh#1{{\count0="#1 \number\count0}} %hex^{-1}

\def\tco#1{{\count0='#1 \number\count0}} %oct^{-1}

\newcount{\cnt}
\newcommand{\hexinc}[1]{\cnt=#1 \ifnum\n<16\else\ifnum\n<256\advance\cnt by -1
 \else\ifnum\n<4096\advance\cnt by -2\else\ifnum\n<65536\advance\cnt by -3
 \else\ifnum\n<1048576\advance\cnt by -4\else\cnt=0\fi\fi\fi\fi\fi
 \loop \advance\cnt by -1 \ifnum\cnt>0 0\repeat \hex \advance\n by 1}
