> DecodeIC09 : in%=("ic09/bin") (: 2)" L6 A0---------+ +--------D7 -" <5" L7 A1--------+| |+-------D6 BLK0 EXTERNAL" F4" L8 A2-------+|| ||+------D5 M1 APP ROM" P0" A14 A3------+||| |||+-----D4 M3 RAM" Z0" A15 A4-----+|||| ||||+----D3 M2 RAM" d4" A11 A5----+||||| |||||+---D2 M0 MOS ROM" n7" A12 A6---+|||||| ||||||+--D1 CB A13 to RAM" x6" A13 A7--+||||||| |||||||+-D0 IO I/O SPACE" $" L9 A8-+|||||||| ||||||||" $" ||||||||| ||||||||" :  loop%=0 511 .a%=(loop%7)*32+(loop%&18)+(loop%&E0)32 #in%=a%:b%=#in% a$=b0(a%,9):b$=b0(b%,8)  loop%: (loop% 31)=0: 6 (loop% 31)=0: "link=";~loop%32;" "; 8;  a$;" -> ";b$; $addr%=(a%&18)*&800+(a%&E0)*&40 ! 3;"&";h0(addr%,4);" -> "; b%=b%  b%1 :"IO ";  b%2 :"CB ";  b%4 :"M0 "; " b%8 :"M2 "; , b%16 :"M3 "; 6 b%32 :"M1 "; @ b%64 :"BLK0 "; J b%128:"d7 "; T ^ loop% h #in% 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%) :