Return to z80tocom.pl CVS log

Up to [Isaki's NoNo m68k/m88k emulator] / nono / util / runcom

Annotation of nono/util/runcom/z80tocom.pl, revision 1.1.1.1

1.1       root        1: #!/usr/bin/env perl
                      2: 
                      3: #
                      4: # nono
                      5: # Copyright (C) 2023 nono project
                      6: # Licensed under nono-license.txt
                      7: #
                      8: 
                      9: # z80-asm の出力する .z80 形式を .COM に変換する。
                     10: # (10バイトのヘッダを取り除くだけ)
                     11: #
                     12: # usage: z80tocom.pl <infile.z80> [<outfile.com>]
                     13: 
                     14: {
                     15:        $filename = $ARGV[0];
                     16:        $filesize = -s $filename;
                     17: 
                     18:        if (@ARGV > 1) {
                     19:                $outfile = $ARGV[1];
                     20:        } else {
                     21:                $outfile = $filename;
                     22:                $outfile =~ s/(\.z80|)$/.com/;
                     23:        }
                     24: 
                     25:        # ファイルを全部読み込む
                     26:        open(IN, $filename) or die;
                     27:        binmode(IN);
                     28:        read(IN, $magic, 8);
                     29:        read(IN, $dummylen, 2);
                     30:        read(IN, $data, $filesize - 10);
                     31:        close(IN);
                     32: 
                     33:        # マジック照合
                     34:        if ($magic != "Z80ASM\x1a\x0a") {
                     35:                die("${filename} is not .z80 object format");
                     36:        }
                     37: 
                     38:        # 出力
                     39:        open(OUT, ">$outfile") or die;
                     40:        binmode(OUT);
                     41:        print OUT $data;
                     42:        close(OUT);
                     43: 
                     44:        exit 0;
                     45: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.