Skip to content

Instantly share code, notes, and snippets.

description (in Japanese, encoded with UTF-8) :
Intel EtherExpress PRO/100B用のパケットドライバをNEC PC-9821シリーズで
使えるようにする差分。
この差分はTinysoft(KAZ.K氏)のバイナリパッチ(EEPD98p4)をソース上に
対応させたものです。
パッチ適用元のバイナリとソース http://crynwr.com/drivers/e100b11c.zip
バイナリパッチ https://hp.vector.co.jp/authors/VA012845/prapa9.html#eepd
1.2M (1M) floppy format
1.232KiB
1024 (bytes/sector) * 1232 (sectors)
mformat command:
mformat -t77 -h2 -s8 -S3 -c1 -m0xfe -r6
-S3: sector size= 1 << (sizecode+7) = 1024
-c1: sectors per cluster= 1
-m0xfe: media descriptor
-r6: root sectors (192 entries)
#!/usr/bin/perl
# Usage: upgrade-cpan.pl 5.14.0 | sort -u | cpanm
use strict;
use File::Find::Rule;
use JSON;
my $old = shift;
my @files = File::Find::Rule->file->name('install.json')->in("$ENV{HOME}/perl5/perlbrew/perls/perl-$old/lib/site_perl/$old");
for my $file (@files) {