#! /usr/bin/perl
$cp=0xe140;
$e =0xeaa2;
while($cp <= $e){
    $fname=sprintf ":%2x:%2x_0x%x",($cp >> 8) & 0xff , $cp & 0xff, $cp;
#    print "$fname\n";
    system "mkdir $fname";
    $cp++;
    if (($cp & 0xff) >= 0xFD){
	$cp = ((($cp >> 8) + 1) << 8) + 0x40;
    }
    if (($cp & 0xff) == 0x7F){
	$cp++;
    }
}