home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 6 / AACD06.ISO / AACD / Emulation / ZXAMSpectrum / ZXAM_Rexx / Español / SaveZ80.zxam < prev    next >
Text File  |  1995-07-31  |  2KB  |  57 lines
  1. /* este script graba el programa actualmente cargado en formato Z80 1.45 */
  2.  
  3.     /* comprobamos si el emulador está presente */
  4.     address command
  5.  
  6.     if ~show(ports,ZXAM_REXX) then do
  7.         requestchoice 'title "ZXAM Script error..." body "No encuentro el puerto del emulador!!" gadgets "AARGH!"'
  8.         exit
  9.         end
  10.  
  11.     /* Almacenar el estado inicial del emulador */
  12.     running=zxamactrun()    /* 1=en marcha */
  13.     zxamstop()              /* lo paramos */
  14.  
  15.     /* requester de SAVE */
  16.     oldpath=zxamactsavepath()
  17.     oldpattern=zxamactpattern()
  18.     zxampattern('#?.Z80')
  19.     nombre=zxamsaverequester('Nombre para el fichero .Z80...')
  20.     zxamsavepath(oldpath)
  21.     zxampattern(oldpattern)
  22.     if nombre='' then exit 0    /* pulsado el CANCEL */
  23.  
  24.     /* abrimos el fichero */
  25.     if ~open('fichero',nombre,'W') then exit 0
  26.  
  27.     /* escribimos los registros */
  28.     dummy=writech('fichero',d2c(zxamgetreg(a)))
  29.     dummy=writech('fichero',d2c(zxamgetreg(f)))
  30.     dummy=writech('fichero',d2c(zxamgetreg(cb),2))
  31.     dummy=writech('fichero',d2c(zxamgetreg(lh),2))
  32.     dummy=writech('fichero',d2c(zxamgetreg(cp),2))
  33.     dummy=writech('fichero',d2c(zxamgetreg(ps),2))
  34.     dummy=writech('fichero',d2c(zxamgetreg(i)))
  35.     dummy=writech('fichero',d2c(zxamgetreg(r)))
  36.     dummy=writech('fichero',d2c((zxamgetreg(bor)*2)+(zxamgetreg(r)%128)))
  37.     dummy=writech('fichero',d2c(zxamgetreg(ed),2))
  38.     dummy=writech('fichero',d2c(zxamgetreg(cb2),2))
  39.     dummy=writech('fichero',d2c(zxamgetreg(ed2),2))
  40.     dummy=writech('fichero',d2c(zxamgetreg(lh2),2))
  41.     dummy=writech('fichero',d2c(zxamgetreg(a2)))
  42.     dummy=writech('fichero',d2c(zxamgetreg(f2)))
  43.     dummy=writech('fichero',d2c(zxamgetreg(yi),2))
  44.     dummy=writech('fichero',d2c(zxamgetreg(xi),2))
  45.     dummy=writech('fichero',d2c(zxamgetreg(int)))
  46.     dummy=writech('fichero',d2c(0))
  47.     dummy=writech('fichero',d2c(zxamgetreg(im)))
  48.  
  49.     dummy=writech('fichero',zxamgetmem(16384,49152))
  50.  
  51.     dummy=close('fichero')
  52.  
  53.     /* dejar el emulador como estaba */
  54.     if running=1 then zxamrun()
  55.  
  56.     exit
  57.