+- HP Forums (https://www.hpmuseum.org/forum)
+-- Forum: HP Software Libraries (/forum-10.html)
+--- Forum: General Software Library (/forum-13.html)
+--- Thread: (50g) Decimal IP address to binary octets- HP-50G (/thread-564.html)
(50g) Decimal IP address to binary octets- HP-50G - Dwight Sturrock - 01-29-2014 02:59 AM
For an IP address such as 172.100.254.4 converts to binary with leading zeros- useful for subnetting.
Place the IP address on the stack:
4: 172
3: 100
2: 254
1: 4
Run the program and the result is:
4: "10101100"
3: "01100100"
2: "11111110"
1: "00000100"
<< → a b c d @put the contents of the stack in variables a b c d
<< 97 100 @character codes for the letters: a b c d
FOR N a R→B @convert to binary
→STR @convert to string
‘a’ STO @store the string in a
SIZE 1 – ‘s’ STO @store the size of the string minus 1 in s
a 3 s SUB @truncate the extraneous characters
‘a ‘ STO @store this new string in ‘a’
a SIZE 8 @get the size of ‘a’ and put 8 on the stack
FOR I “0” a + ‘a’ STO @FOR loop will add the number of missing zeros to make
@this an octet
NEXT
a TAIL @truncate the remaining extraneous characters
1 N + CHR OBJ→ @add 1 to the counter value and convert to the next variable (b ,c or d)
‘a’ STO NEXT @store this in ‘a’ and repeat
>> >>