home *** CD-ROM | disk | FTP | other *** search
/ World of A1200 / World_Of_A1200.iso / programs / emulator / applem / saverom.rexx < prev   
OS/2 REXX Batch file  |  1995-02-27  |  590b  |  16 lines
  1. /* Save ROM into file V0.9 */
  2. /*
  3. DISCLAIMER:  Usage of this image file is reserved for those users who 
  4. are already in posession of an Apple ][ and thus having a legal right to
  5. use the ROM software. This method is intended for those who lack the ability 
  6. to extract the image due to hardware shortcomings or system damage.  
  7. */
  8. call open(in,"APPLE/APPLSOFT.BIN")
  9. call seek(in,6)
  10. image=readch(in,12*1024)
  11.  
  12. call open(out,"APPLEROM",W)
  13. say bitand(substr(image,x2d(FB0F)-x2d(D000)+1,2),,"7f"x) /* repatch */
  14. image=overlay(bitor("][",,"80"x),image,x2d(FB0F)-x2d(D000)+1)
  15. call writech(out,image)
  16.