Jeśli chcesz wziąć udział w dyskusjach na forum - zaloguj się. Jeżeli nie masz loginu - poproś o członkostwo.

• Zapomniane hasło?
• Poproś o członkostwo

1. • 1:
      
     CommentAuthorpirx
   • CommentTime2 Apr 2026 23:26 (1 godzinę temu) zmieniony

    
   retro forum na retro kodzie, ma sens
   
   
   bonus
   oneliner pokazujący strukturę xexa:
   
   

   perl -e '$f=shift;open F,$f;binmode F;$_=do{local $/;<F>};for($i=0;$i+3<length;){$i+=2if substr($_,$i,2)eq"\xff\xff";last if$i+3>=length;($a,$b)=unpack"vv",substr($_,$i,4);$n=$b-$a+1;push@s,[$a,$b,$n];$i+=4+$n}print"$f\n";printf"  \$%04X-\$%04X  %d\n",@$_ for@s;print"  total segments ".@s."\n"' filename
   

   
   
   na przykład
   

   perl -e '$f=shift;open F,$f;binmode F;$_=do{local $/;<F>};for($i=0;$i+3<length;){$i+=2if substr($_,$i,2)eq"\xff\xff";last if$i+3>=length;($a,$b)=unpack"vv",substr($_,$i,4);$n=$b-$a+1;push@s,[$a,$b,$n];$i+=4+$n}print"$f\n";printf"  \$%04X-\$%04X  %d\n",@$_ for@s;print"  total segments ".@s."\n"' scorch.xex
   scorch.xex
     $2000-$2005  6
     $02E2-$02E3  2
     $2010-$3F4F  8000
     $4000-$4260  609
     $4C00-$7978  11641
     $8000-$8DA4  3493
     $96A5-$9730  140
     $02E2-$02E3  2
     $4000-$43FF  1024
     $4400-$45E7  488
     $45E8-$4654  109
     $4655-$46CC  120
     $46CD-$A9DB  25359
     $AA00-$AABF  192
     $AB00-$AFFC  1277
     $B000-$BFE3  4068
     $02E0-$02E1  2
     total segments 17