home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.7z / ftp.whtech.com / emulators / v9t9 / linux / sources / V9t9 / tools / Forth / romaddr.pl < prev    next >
Encoding:
Text File  |  2006-10-19  |  221 b   |  10 lines
  1. #
  2. # Get ROM address from console ROM image
  3.  
  4. @ignore=();
  5. sysread(STDIN,$ignore,0x4A) || die;
  6. sysread(STDIN,$addrbyte0,1) || die;
  7. sysread(STDIN,$addrbyte1,1) || die;
  8. $addr=(ord($addrbyte0)<<8)+ord($addrbyte1);
  9. print $addr;
  10.