💾 Archived View for mirrors.apple2.org.za › archive › ground.icaen.uiowa.edu › MiscInfo › Programmin… captured on 2023-01-29 at 10:15:25.
-=-=-=-=-=-=-
SlickRCBD asked:
>I remember seeing an AppleSoft program that would accept a decimal input
>and convert the number to hex and binary.
>
>While writing it wouldn't be all that difficult, and probably only take me
>an hour or two, I'm wondering if there is a nicer program written in
>AppleSoft already on the web. That is, nicer than what I would make for my
>own usage. I think the program I remember might have been in a Nibble
>disk, but I have no idea what volume, and I don't rememebr which archive
>has it.
>
>I mostly want an AppleSoft implimentation so I can both use the program,
>and rip the code for my own usage in making a little assistant while I
>program on my Mac, which is located about 3 feet away from the IIGS with
>my ImageWrite II in between.
The basic (both senses) routine is:
100 REM N = positive integer to be converted to hex
110 hx$ = ""
120 nn = int(n/16)
130 h = n - nn*16
140 n = nn
150 hx$ = mid("0123456789ABCDEF",h,1) + hx$
160 if n>0 goto 120
170 print hx$
This can be easily adapted for any other radix, including binary, by
changing "16" to the desired radix and shortening or lenghtening the
digit translation string in line 150.
-michael
Check out 8-bit Apple sound that will amaze you on my
Home page: http://members.aol.com/MJMahon/
In article <20020816170101.25039.00001067@mb-md.aol.com>, mjmahon@aol.com
(Michael J. Mahon) wrote:
> SlickRCBD asked:
>
> >I remember seeing an AppleSoft program that would accept a decimal input
> >and convert the number to hex and binary.
> >
> >While writing it wouldn't be all that difficult, and probably only take me
> >an hour or two, I'm wondering if there is a nicer program written in
> >AppleSoft already on the web. That is, nicer than what I would make for my
> >own usage. I think the program I remember might have been in a Nibble
> >disk, but I have no idea what volume, and I don't rememebr which archive
> >has it.
> >
> >I mostly want an AppleSoft implimentation so I can both use the program,
> >and rip the code for my own usage in making a little assistant while I
> >program on my Mac, which is located about 3 feet away from the IIGS with
> >my ImageWrite II in between.
>
> The basic (both senses) routine is:
>
> 100 REM N = positive integer to be converted to hex
> 110 hx$ = ""
> 120 nn = int(n/16)
> 130 h = n - nn*16
> 140 n = nn
> 150 hx$ = mid("0123456789ABCDEF",h,1) + hx$
> 160 if n>0 goto 120
> 170 print hx$
>
> This can be easily adapted for any other radix, including binary, by
> changing "16" to the desired radix and shortening or lenghtening the
> digit translation string in line 150.
>
> -michael
>
> Check out 8-bit Apple sound that will amaze you on my
> Home page: http://members.aol.com/MJMahon/
I already wrote something different by the time you posted this yesteday.
As for your routine, I believe you have a couple of bugs.
First of all, it's MID$, not MID. Second of all, you switched some
variable placement around. H does not show the proper digit for 16, NN
does. You also don't assign n to the 10s column. You assign it to H.
The debugged routine is as follows:
100 REM N = Positive integer to be converted to hex
110 hx$ =""
120 nn=int(n/16)
130 h=n-nn*16
140 n=h
150 hx$ = mid$("0123456789ABCDEF",nn,1) + hx$
160 if n > 0 goto 120
170 print hx$
Not that different from what I did, except I combined an additional
routine to make binary numbers. Too bad I couldn't finish testing my code
before the monitor went out.
--
I do NOT consent to recieve advertisements, special offers, promotions,
OR any other form of unsolicited e-mail, especially commercial or bulk
e-mail. This overides all other forms of consent. My real email is
SLICK underscore(_) RCBD at HOTMAIL, a dot(.) COM
SlickRCBD replied:
>In article <20020816170101.25039.00001067@mb-md.aol.com>, mjmahon@aol.com
>(Michael J. Mahon) wrote:
>
>> SlickRCBD asked:
>>
>> >I remember seeing an AppleSoft program that would accept a decimal input
>> >and convert the number to hex and binary.
>> >
>> >While writing it wouldn't be all that difficult, and probably only take me
>> >an hour or two, I'm wondering if there is a nicer program written in
>> >AppleSoft already on the web. That is, nicer than what I would make for my
>> >own usage. I think the program I remember might have been in a Nibble
>> >disk, but I have no idea what volume, and I don't rememebr which archive
>> >has it.
>> >
>> >I mostly want an AppleSoft implimentation so I can both use the program,
>> >and rip the code for my own usage in making a little assistant while I
>> >program on my Mac, which is located about 3 feet away from the IIGS with
>> >my ImageWrite II in between.
>>
>> The basic (both senses) routine is:
>>
>> 100 REM N = positive integer to be converted to hex
>> 110 hx$ = ""
>> 120 nn = int(n/16)
>> 130 h = n - nn*16
>> 140 n = nn
>> 150 hx$ = mid("0123456789ABCDEF",h,1) + hx$
>> 160 if n>0 goto 120
>> 170 print hx$
>>
>> This can be easily adapted for any other radix, including binary, by
>> changing "16" to the desired radix and shortening or lenghtening the
>> digit translation string in line 150.
>>
>> -michael
>>
>> Check out 8-bit Apple sound that will amaze you on my
>> Home page: http://members.aol.com/MJMahon/
>
>I already wrote something different by the time you posted this yesteday.
>As for your routine, I believe you have a couple of bugs.
Yes, I figured you would have it written!
>First of all, it's MID$, not MID.
Of course! ;-)
> Second of all, you switched some
>variable placement around. H does not show the proper digit for 16, NN
>does. You also don't assign n to the 10s column. You assign it to H.
No, it looks correct as written. The low hex digit of 16 is "0", and
n will be 1 on the next iteration to produce the "1" for $10.
The variable h is the "shifted out" low hex digit, from 0..15.
The variable n must be replaced by int(n/16) since it is the
"right shifted" value of n.
This routine will work on any representable integer, not just
0..255.
The following routine does not work.
>The debugged routine is as follows:
>100 REM N = Positive integer to be converted to hex
>110 hx$ =""
>120 nn=int(n/16)
>130 h=n-nn*16
>140 n=h
>150 hx$ = mid$("0123456789ABCDEF",nn,1) + hx$
>160 if n > 0 goto 120
>170 print hx$
The change to line 140 will exit after one digit with any
multiple of 16. My routine produced the hex digits from
the lowest to the highest--that's why line 150 concatenates
the new digit to the left of the previous digits. This routine
will print out the two hex digits of a single byte in reverse
order, and only if the value is not a multiple of 16.
>Not that different from what I did, except I combined an additional
>routine to make binary numbers. Too bad I couldn't finish testing my code
>before the monitor went out.
-michael
Check out 8-bit Apple sound that will amaze you on my
Home page: http://members.aol.com/MJMahon/