! hex.tes - macro to load macros to type out hex value for character ! @^A%hex.tec - macro to load macros to type out hex value for character Q-Regester text number Comments H used used nMH prints the hex value for n&255 D used used mMD prints the hex value for m&15 % @^UD~ ! load D.str ! UD ! save m in D.num ! QD-9"G ! if hexit .gt. 9 ! QD-10+^^A^T ! subtract 10 then offset by "A" and type ! | ! elseif m .le. 9 ! QD+^^0^T ! offset m by "0" and type ! ' ! end if ! ~ ! end load of D.str ! @^UH~ ! load H.str ! UH ! save n ! QH/16&15MD ! process high nibble ! QH&15MD ! process low nibble ! ~ ! end load of H.str !