> DecodeIC10 : in%=("ic10/bin") (: 2," A7 A0---------+ +--------D7 - " <," A6 A1--------+| |+-------D6 - " F4" A4 A2-------+|| ||+------D5 BLK2 BLK2 I/O" P4"A10 A3------+||| |||+-----D4 BLK1 BLK1 I/O" Z>" A9 A4-----+|||| ||||+----D3 M0OE MEM0 OUTPUT ENABLE" d>" IO A5----+||||| |||||+---D2 CKS M3002 CLOCK SELECT" n;" A3 A6---+|||||| ||||||+--D1 PCS 6522 VIA SELECT" x<" A5 A7--+||||||| |||||||+-D0 ACS 6551 ACIA SELECT" #" A8 A8-+|||||||| ||||||||" #" ||||||||| ||||||||" :  loop%=0 511:a%=loop% }a%=(loop%1)*64+(loop%2)*2+(loop%4)*32+(loop%8)4+(loop%16)16+(loop%32)*8+(loop%64)4+(loop%128)16+(loop%256)8 A3 A4 A5 A6 A7 A8 A9 A10 IO #in%=a%:b%=#in% a$=b0(a%,9):b$=b0(b%,8)  7;a$;" -> ";b$; addr%=&F800+(loop%255)*8 ! 3;"&";h0(addr%,4);" -> "; b%= b% 4  b%1 :"ACIA ";  b%2 :"VIA ";  b%4 :"RTC ";  b%8 :"MEM0 "; " b%16 :"BLK1 "; , b%32 :"BLK2 "; 6 b%64 :"d6 "; @ b%128:"d7 "; J T loop% ^ #in% h r: |# Hexadecimal padded with zeros #ݤh0(A%,N%)="0000000"+~A%,N%) :  Binary padded with zeros ?ݤb0(A%,N%): A$,B$:A%<0:B$="1":A%=A% &7FFFFFFF B$="0" 6 A$=(A% 1)+A$:A%=A% 2:A%=0:=N%,B$)+A$,N%)