+++ /dev/null
-romimage: file=$HOME/cs140/bochs-2.1.1/bios/BIOS-bochs-latest, address=0xf0000
-vgaromimage: $HOME/cs140/bochs-2.1.1/bios/VGABIOS-lgpl-latest
-ata0-master: type=disk, path=os.dsk, mode=flat, cylinders=306, heads=4, spt=17, translation=none
-ata0-slave: type=disk, path=filesys.bin, mode=flat, cylinders=1, heads=16, spt=63, translation=none
-boot: c
-ips: 1000000
-megs: 32
-com1: dev=/dev/tty
+++ /dev/null
-#! /usr/bin/perl
-
-if (@ARGV != 2) {
- print "usage: copy_in src dst\n";
- exit 1;
-}
-($src, $dst) = @ARGV;
-$size = -s $src;
-
-system "../pad 512 < $src > scratch.bin";
-exec "./run_qemu -cp $dst:$size";
+++ /dev/null
-#! /usr/bin/perl
-
-die "command line includes empty string" if grep (/^$/, @ARGV);
-$cmdline = join ("\0", @ARGV) . "\0\0";
-die "command line exceeds 128 bytes" if length ($cmdline) > 128;
-$cmdline .= "\0" x (128 - length ($cmdline));
-
-open (DISK, "+<os.dsk");
-seek (DISK, 0x17e, 0);
-syswrite (DISK, $cmdline);
-close (DISK);
-exec "/home/blp/cs140/qemu/i386-softmmu/qemu "
- . "-hda os.dsk "
- . "-hdb filesys.bin "
- . "-hdc scratch.bin "
- . " -nographic"
- ;