Karoshi MSX Community
23 de Agosto de 2017, 08:17:50 am *
Bienvenido(a), Visitante. Por favor, ingresa o regístrate.

Ingresar con nombre de usuario, contraseña y duración de la sesión
Noticias:
 
   Inicio   Ayuda Buscar Calendario Ingresar Registrarse  
Páginas: [1] 2
  Imprimir  
Autor Tema: Ayuda para Modificar Programa  (Leído 7253 veces)
0 Usuarios y 1 Visitante están viendo este tema.
manolito74
Karoshi Lover
***
Mensajes: 234


Ver Perfil
« : 07 de Junio de 2013, 12:06:38 am »

Hola:

Recurro a vosotros para ver si alguien puede echarme un cable. Tengo por aquí alguna cinta con programillas en Basic y otros programas que había grabado en su día, juegos, etc. Y estoy intentando recuperarlas. Las cintas están bien y el cassette las lee perfectamente. El problema es que como es una cinta de las de 60 minutos y está llenaaaa de Programas quiero automatizar el Proceso al máximo posible para pasarlas a disco.

Buscando buscando entre mis cosas encontré el Programa cuyo código os pongo a continuación. El Programa en sí está bastante bien: carga un Programa de la cinta, nos dice su tipo de carga y si es un Programa en Código Máquina nos da las direcciones de inicio-fin-ejecución. ¿Cuál es el problema?: que este Programa solo lee las Cabeceras de los Bloques que se va encontrado. Es decir, si yo quiero grabar un Programa Código Máquina al Disco tengo que hacer lo siguiente:

- Ejecutar este Programa.
- Pongo el Cassette y este Programa carga la Cabecera y nos da las direcciones de Inicio-Fin-Ejecución.
- Luego tengo que rebobinar la cinta de nuevo cargar el Programa con un "Bload" sin ejecutarlo.
- Cuando acaba de cagar lo grabo al disco usando las direcciones que obtuvimos antes.

Lo que necesitaría es modificar el Programa que os pongo para que se lea UN BLOQUE COMPLETO HASTA EL FINAL y al llegar al final nos dé las direcciones de Inicio-Fin-Ejecución, así en ese momento bastaría con hacer un "Bsave" usando esos datos pasándolo al disco sin tener que rebobinar la cinta... :-(

¿Alguien se le ocurre como modificar el Programa para que haga eso?

Sí, sé que en el caso de que se modifique con los Programas en Código Máquina muy bien pero con cuando el Programa que os pongo lea un Bloque y sea en Basic me tocará rebobinar la cinta cargarlo con "Load" sin ejecutarlo y luego grabarlo.

Lo que ya sería la caña es reubicar el Programa que os pongo en una zona de la memoria de tal forma que deje libre la zona de carga del Basic y no "moleste"  y que identificara y permitiera cargar cualquier bloque de cinta, mostrarnos los datos y grabarlo a disco...

Pues nada, aquí os dejo el susodicho Programa y a ver quién me puede echar un cable.

¡Mil Gracias & Saludetes!

Código:
10 KEY OFF:SCREEN 0:COLOR 15,4,4

20 U=&HF610:DEFUSR=U

30 FORI=UTOU+62

40 READK:POKEI,K

50 NEXT

60 CLS

70 PRINT:PRINT"******* COPION DE CINTA A DISCO*******":PRINT:PRINT:PRINT

80 PRINT"Prepare el cassette para cargar"

81 PRINT:PRINT:INPUT"Pulsa return cuando este preparado";A$

82 IF A$="" THEN GOTO 83

83 PRINT:BEEP:PRINT:BEEP:PRINT:BEEP:PRINT:BEEP:PRINT:BEEP:PRINT:BEEP:PRINT

84 PRINT:BEEP:PRINT:BEEP:PRINT:BEEP:PRINT:BEEP:PRINT:BEEP:PRINT:BEEP:PRINT

85 PRINT:BEEP:PRINT:BEEP:PRINT:BEEP:PRINT:BEEP:PRINT:BEEP:PRINT:BEEP:PRINT:BEEP:PRINT:BEEP:PRINT

86 BEEP:LOCATE 0,0:PRINT"OOOOOOOCOPION DE CINTA A DISCOOOOOOOO"

90 A=USR(0)

100 F$=""

110 B=&HF600

120 T=PEEK(B)

130 IF(T<>&HD0)AND(T<>&HD3)AND(T<>&HEA)THENGOTO 460

140 FORI=B+1TOB+6

150 F$=F$+CHR$(PEEK(I))

160 NEXT

170 BEEP:PRINT:PRINT:PRINT"Nombre:",F$

180 BEEP:PRINT"Programa:";

190 IFT=&HD0THENGOTO 260

200 IFT=&HD3THENGOTO 240

210 BEEP:PRINT"DATA FILE/"

220 BEEP:PRINTTAB(13);"*** Basic y Ascii ***"

230 GOTO 340

240 BEEP:PRINT"**** Programa Basic ****"

250 GOTO 340

260 BEEP:PRINT"**** C¢digo M quina ****"

270 S=PEEK(B+7)+PEEK(B+8)*256

280 E=PEEK(B+9)+PEEK(B+10)*256

290 X=PEEK(B+11)+PEEK(B+12)*256

300 PRINT

310 PRINT"1.DIREC. Inicio=&H";HEX$(S)

320 PRINT"2.DIREC. Final=&H";HEX$(E)

330 PRINT"3.DIREC. Ejecuci¢n=&H";HEX$(X)

340 BEEP:PRINT:PRINT"Rebobine la cinta al principio del"

341 BEEP:PRINT"bloque que haya cargado"

342 BEEP:PRINT:PRINT"Para cargar el programa ponga...":PRINT

350 D$=CHR$(34)

360 IFT=&HD0THENC$="BLOAD"ELSEC$="LOAD"

370 PRINTC$;D$;"CAS:";D$

390 BEEP:PRINT:PRINT"Grabelo en el Diskette con...":PRINT

400 IFT=&HD0 THENGOTO 430

410 BEEP:PRINT"SAVE("D$;F$;D$;")"

420 GOTO 440

430 BEEP:PRINT"BSAVE";D$;F$;D$;",&H";HEX$(S);",&H";HEX$(E);",&H";HEX$(X)

440 BEEP:PRINT:PRINT"     (C)Phoenix Software "

450 END

460 PRINT"FICHERO NO RECONOCIDO":END

470 DATA &H21,&H00,&HF6,&HE5

480 DATA &HCD,&HE1,&H00,&H38

490 DATA &H24,&HCD,&H47,&HF6

500 DATA &H4F,&H06,&H09,&HCD

510 DATA &H47,&HF6,&HB9,&H20

520 DATA &HEF,&H10,&HF8,&HE1

530 DATA &H71,&HCD,&H31,&HF6

540 DATA &HE5,&HCD,&HE1,&H00

550 DATA &HE1,&H06,&H06,&HCD

560 DATA &H47,&HF6,&H23,&H77

570 DATA &H10,&HF9,&HC3,&HE7

580 DATA &H00,&HCD,&HE7,&H00

590 DATA &HDD,&H21,&HB2,&H73

600 DATA &HC3,&H59,&H01,&HD9

610 DATA &HCD,&HE4,&H00,&H38

620 DATA &HF0,&HD9,&HC9


Otra cosilla, si no me equivoco este Programa no distingue o nos informa de cuando un Programa carga con "Load" y cuando carga con "Cload", ¿no?
En línea
phsoft
Karoshi Fan
**
Mensajes: 68



Ver Perfil WWW
« Respuesta #1 : 09 de Junio de 2013, 01:59:42 pm »

buenas, pichorrica. no es lo que tu pides, pero te pueder servir para lo que quieres hacer

Código:
10 KEY OFF:SCREEN 0:WIDTH40
20 COLOR15,4,4
30 ON ERROR GOTO 600
40 CY=2:NL=899
50 U=&HF610:DEFUSR=U
60 FORI=UTOU+62
70 READK:POKEI,K
80 NEXT
90 REM **********************
100 CLS
110 LOCATE4,0:PRINT"*** Listar bloques de caset ***"
120 LOCATE10,1:PRINT"(C)Phoenix Software"
130 LOCATE12,22:PRINT"pulsa una tecla"
140 A$=INKEY$:IFA$=""THEN140
150 LOCATE12,22:PRINT"                "
160 REM **********************
170 A=USR(0)
180 F$="":CY=CY+1:NL=NL+1
190 B=&HF600
200 T=PEEK(B)
210 IF(T<>&HD0)AND(T<>&HD3)AND(T<>&HEA)THENGOTO 410
220 FORI=B+1TOB+6
230 F$=F$+CHR$(PEEK(I))
240 NEXT
250 LOCATE0,CY:PRINT NL;"' ";F$
260 IFT=&HD0THENGOTO 330
270 IFT=&HD3THENGOTO 310
280 REM *******************
290 LOCATE 13,CY:PRINT" .sav"
300 GOTO 170
310 LOCATE 13,CY:PRINT" .csav"
320 GOTO 170
330 LOCATE 13,CY:PRINT" .bsav"
340 S=PEEK(B+7)+PEEK(B+8)*256
350 E=PEEK(B+9)+PEEK(B+10)*256
360 X=PEEK(B+11)+PEEK(B+12)*256
370 LOCATE22,CY:PRINT HEX$(S)
380 LOCATE28,CY:PRINT HEX$(E)
390 LOCATE34,CY:PRINT HEX$(X)
400 GOTO 170
410 PRINT"FICHERO NO RECONOCIDO":END
420 REM ********************
430 DATA &H21,&H00,&HF6,&HE5
440 DATA &HCD,&HE1,&H00,&H38
450 DATA &H24,&HCD,&H47,&HF6
460 DATA &H4F,&H06,&H09,&HCD
470 DATA &H47,&HF6,&HB9,&H20
480 DATA &HEF,&H10,&HF8,&HE1
490 DATA &H71,&HCD,&H31,&HF6
500 DATA &HE5,&HCD,&HE1,&H00
510 DATA &HE1,&H06,&H06,&HCD
520 DATA &H47,&HF6,&H23,&H77
530 DATA &H10,&HF9,&HC3,&HE7
540 DATA &H00,&HCD,&HE7,&H00
550 DATA &HDD,&H21,&HB2,&H73
560 DATA &HC3,&H59,&H01,&HD9
570 DATA &HCD,&HE4,&H00,&H38
580 DATA &HF0,&HD9,&HC9
590 REM *******************
600 LOCATE12,22:PRINT"Fin de la cinta?"
610 END

la idea es poner la cinta a correr y crear una lista con las cabeceras de los bloques que el programa va encontrando. el programa si distingue save, csave y binarios, aunque tenía un fallo, creo (el save y el csave estaban al revés, no sé). la lista se puede guardar como un programa (todo rems) en el propio disco, el caset, etc. en el emulador funciona, en un msx real pues ni idea. supongo que debería. he puesto un fichero cas del meisei de ejemplo (en el zip)

esto es una primera y facilona aproximación a lo que quieres, que sería grabar los bloques de una cinta a disco de modo automático (un multicopión cinta a disco, digamos). con esto solo sabes los bloques que tiene la cinta y de qué tipo son, nada más. el tema de guardarlos de modo automático lo veo de cierta complejidad cof cof Smiley por los bloques en basic, fíjate, ya que no recuerdo si se pueden cargar desplazados y volver a guardarlos en su posiciones originales, etc. los bloques binarios tb habría que cargarlos siempre en un buffer ram, digamos, etc. hay otra cosa más, y es que el programa que pusiste (y que toquetéo) viene con el pequeño loader asm un poquitín subido de ram. no sé yo si en un msx real con disquetera ese mini programa podrá ir en &hf600 Huh es que nunca tuve un msx real con disquetera :....) pero bueno, esto sería un poblema Smiley menor

saludos,
- paco

http://www.vecindiario.es/phoenix/ftp/listarbloquescintas.zip
En línea
manolito74
Karoshi Lover
***
Mensajes: 234


Ver Perfil
« Respuesta #2 : 09 de Junio de 2013, 03:15:21 pm »

Hola Paco:

Mil gracias por las mejoras-comentarios-correcciones. ;-)

Por cierto, ese listado que puse era un "módulo" de un Programa General:

Había un programa general que nos permitía cargar 3 tipos de "copiones":

- Copión cinta-cinta.

- Copión disco-disco.

- Copión cinta-disco.

Luego a ver si lo busco, copio todos los "módulos" y vemos si había algún fallo más o hay algo que se pudiera modificar-mejorar.

A ver si alguien nos puede informar si sería posible reubicar el "copión" en una zona que no moleste: ni al Basic ni a la Disquetera.

Gracias & Saludetes. ;-)



En línea
manolito74
Karoshi Lover
***
Mensajes: 234


Ver Perfil
« Respuesta #3 : 09 de Junio de 2013, 05:52:16 pm »

Hola de nuevo:

Acabo de probar tu Programa con la modificación que le has hecho y es bueno, muy bueno. ;-)

Está muy bien la idea esa de generar las líneas REM y así poder grabar si queremos el listado de la Cinta. ;-)

Cuando pones el mensaje final de "Fin de la Cinta?" en realidad el "interrogante" sobra, ya que simplemente avisas que se llegó al final de la cinta (es que al leerlo asín rápido, sin fijarme en el Código pensé que el Programa te preguntaba si habías llegado al final de la cinta o si querías seguir leyendo. ;-)

Falta ahora por saber si sería factible ubicar el copión en una zona que no "moleste" y si se puede reubicar un Programa cargado en Basic y luego reubicarlo donde proceda para grabarlo de nuevo. ;-)

¡1000 Gracias!
En línea
manolito74
Karoshi Lover
***
Mensajes: 234


Ver Perfil
« Respuesta #4 : 09 de Junio de 2013, 05:56:45 pm »

Por cierto, en otro Foro me comentan esto:

Citar
Por si quieres trastear, con estos pokes modificas la dirección de memoria en la que quieres que se cargue/ejecute un programa en BASIC:

Ejemplo para la dirección &HD800 (te quedaría algo de hueco antes de pisar la zona de la disquetera):

POKE &HF676,&H00
POKE &HF677,&HD8
POKE &HD800,0

No sé si eso te puede dar una pista para lo de reubicar un Programa en Basic.

Gracias & Saludetes. ;-)
En línea
phsoft
Karoshi Fan
**
Mensajes: 68



Ver Perfil WWW
« Respuesta #5 : 12 de Junio de 2013, 10:39:15 pm »

de nada, hombre

el listado anterior tiene un pequeño fallo en la linea 410 (un olvido tonto). falta el mensaje para los tipos de bloque " .ukw" o de tipo desconocido, digamos, como serían los bloques "turbo" tipo gremlin, ya sabes. estos bloques pues no van a cargar de ninguna manera con las rutinas habituales del sistema

creo que los programas basic se podían convertir en una rom con una herramienta (de jltursan?). de esta forma, quizá, un programa basic no molestaría para cargar cualquier cosa de 0x8000 hasta aprox 0xf000, supongo, lo que por otra parte es la zona de carga-y-descarga Smiley habitual de los bloques binarios y programas basic de msx. de todas maneras lo bonico sería prescindir del basic y hacer todo el programa anterior en asm, lo que parece bte sencillo, por cierto. de esta forma lo puedes poner en 0xe800, pej, y puedes cargar bloques binarios completos -no solo cabeceras- de gran tamaño, además de los juegos y programas basic en sus ubicaciones originales. luego solo habría que regrabar bloques binarios con sus cabeceras originales pero siempre se cargarían a partir de 0x8000 y hasta 0xe7ff. me pondría con esto, que parece tan divertido como totalmente inútil, sip, X...-D.. pero es que no recuerdo cómo se cargaba un bloque ascii o basic, sobre todo la parte de la detección del fin del fichero, qué cabecera en concreto tenían, etc

por eso estaría bien que pudieras recuperar el megacopión que decías, manolo. sobre todo el listado asm que se incluía en el listado basic anterior, u otro códigos asm o basic similares de que dispongas. claro que lo anterior se puede desensamblar (ya lo hice Smiley ), pero si ya lo está y si tenemos más ejemplos, pues tanto mejor, no? Smiley

saludos,
- paco
En línea
manolito74
Karoshi Lover
***
Mensajes: 234


Ver Perfil
« Respuesta #6 : 12 de Junio de 2013, 10:58:48 pm »

Hola:

Estuve probando tu Programa en un MSX real y tiene un pequeño fallo (que seguro que es una tontería de algún índice que usas para filas o columnas). El caso es que llega un momento que escribe el nombre del Programa que carga en una línea, el tipo otra línea más abajo y las direcciones otra línea más abajo con lo cual quedan todos los listados desordenados. :-(

Sip, lo suyo sería hacerlo todo en CM, así estaría libre más memoria para cargar-manejar Bloques, etc. A ver si saco tiempo y te cuelgo el "copión original completo".

Quizás también te resultaría interesante desensamblar-ver como gestiona la carga de Bloques algún "Copión" de la época, como el "Vecope" (no sé si te suena). Si lo necesitas lo tengo yo en disco. Éste era un Copión muy bueno y cómodo, el "Vecope" y bastante versatil.

En fin, tú pide que todo lo que esté en mis manos te lo facilito (incluso hay un artículo por ahí en una revista que trataba bastante en profundidad la Estructura de la Carga y los Programas en Cassette)

Luego a ver si lo que quede por pulir algún forero nos ilumina y hacemos el Mega-Copión refinitivo. ;-)

Saludetes. ;-)

En línea
phsoft
Karoshi Fan
**
Mensajes: 68



Ver Perfil WWW
« Respuesta #7 : 18 de Junio de 2013, 07:53:27 pm »

buenas, pichorrica

el error que comentas supongo será por el salto de página. aquel programita no está preparado para mostrar más de 20 líneas (bloques en la cinta) de forma decente. que no es un chapucilla, nop... era por no complicarme! :-) lo suyo sería, como te dije, cargar y grabar bloques y listo. además en asm. pero bueno, prueba con este listado; no es que mejore mucho al anterior (para eso habría que almacenar los datos en memoria y presentarlos después.. una vacilada sería añadirlos como líneas basic al final de propio programa... yoquéseeee! :...-)

Código:
10 KEY OFF:SCREEN 0:WIDTH40
20 COLOR15,4,4
30 ON ERROR GOTO 620
40 CY=2:NL=899
50 U=&HF610:DEFUSR=U
60 FORI=UTOU+62
70 READK:POKEI,K
80 NEXT
90 REM **********************
100 CLS
110 LOCATE4,0:PRINT"*** Listar bloques de caset ***"
120 LOCATE10,1:PRINT"(C)Phoenix Software"
130 LOCATE12,22:PRINT"pulsa una tecla"
140 A$=INKEY$:IFA$=""THEN140
150 LOCATE12,22:PRINT"                "
160 REM **********************
170 A=USR(0)
180 F$="":CY=CY+1:NL=NL+1
190 IFCY>21THENCY=2
200 B=&HF600
210 T=PEEK(B)
220 IF(T<>&HD0)AND(T<>&HD3)AND(T<>&HEA)THENGOTO 340
230 FORI=B+1TOB+6
240 F$=F$+CHR$(PEEK(I))
250 NEXT
260 LOCATE0,CY:PRINT NL;"' ";F$
270 IFT=&HD0THENGOTO 360
280 IFT=&HD3THENGOTO 320
290 REM *******************
300 LOCATE 13,CY:PRINT" .sav"
310 GOTO 170
320 LOCATE 13,CY:PRINT" .csav"
330 GOTO 170
340 LOCATE 13,CY:PRINT" .???"
350 GOTO 170
360 LOCATE 13,CY:PRINT" .bsav"
370 S=PEEK(B+7)+PEEK(B+8)*256
380 E=PEEK(B+9)+PEEK(B+10)*256
390 X=PEEK(B+11)+PEEK(B+12)*256
400 LOCATE22,CY:PRINT HEX$(S)
410 LOCATE28,CY:PRINT HEX$(E)
420 LOCATE34,CY:PRINT HEX$(X)
430 GOTO 170
440 REM ********************
450 DATA &H21,&H00,&HF6,&HE5
460 DATA &HCD,&HE1,&H00,&H38
470 DATA &H24,&HCD,&H47,&HF6
480 DATA &H4F,&H06,&H09,&HCD
490 DATA &H47,&HF6,&HB9,&H20
500 DATA &HEF,&H10,&HF8,&HE1
510 DATA &H71,&HCD,&H31,&HF6
520 DATA &HE5,&HCD,&HE1,&H00
530 DATA &HE1,&H06,&H06,&HCD
540 DATA &H47,&HF6,&H23,&H77
550 DATA &H10,&HF9,&HC3,&HE7
560 DATA &H00,&HCD,&HE7,&H00
570 DATA &HDD,&H21,&HB2,&H73
580 DATA &HC3,&H59,&H01,&HD9
590 DATA &HCD,&HE4,&H00,&H38
600 DATA &HF0,&HD9,&HC9
610 REM *******************
620 LOCATE12,22:PRINT"Fin de la cinta?"

respecto al asm, empecé un programita que parece funcionar con los bloques bsave y csave pero, curiosamente, aunque carga los bloques save el código no aparece "tokenizado" en el debugger, de forma que no puedes list(arlo).. y en fin.. que o algún fenómeno con ganas y tiempo nos echa un cable al cuello, efectiviwonder, o servidora ha llegado anta aquín! X...D

Código:
CSAVE_FILE equ 0xD3 ; eof = n data hasta 7bytes 0x0
SAVE_FILE equ 0xEA ; eof = n bloques 256 bytes hasta CTRL+Z
BSAVE_FILE equ 0xD0

INI_BASIC equ 0x8001 ; lol!
INI_PRG equ 0xF000

; --------------------------------------
.bios
.basic
.org INI_PRG
.start MAIN

MAIN: di

xor a ; limpiando la casa
ld hl, iniram
ld bc, endram-iniram-1
call CLSRAM

call LHEADER ; leemos una cabecera

ret

; --------------------------------------
; inicia o detiene el motor del cassette
MOTORON: ld a, 1
bmotor: call STMOTR     
ret
MOTOROFF: xor a
jr bmotor

; --------------------------------------
; salimos (por error de lectura) o paramos el cassete
EXIT: pop hl
STOP: call TAPIOF     
ret

; --------------------------------------
; leemos datos (un byte) del cassete; C si se produce un error
READ: exx               
call TAPIN     
jr c, EXIT
exx               
ret               

; --------------------------------------
; leemos la cabecera larga del cassete; tipo = 10 bytes + nombre = 6 bytes
LHEADER: call TAPION
jr c, EXIT

ld b, 10 ; 10 bytes
ld hl, tipo_fichero
bucH: call READ   
ld [hl], a
djnz bucH

ld b, 6 ; 6 bytes
ld hl, nom_fichero
bucN: call READ
ld [hl], a
inc hl
djnz bucN

call STOP

ld a, [tipo_fichero] ; tipo de fichero

cp BSAVE_FILE
jp z, BLOAD ; cargamos binario

cp SAVE_FILE
jp z, LOAD ; cargamos basic SAVE

cp CSAVE_FILE
jp z, CLOAD ; cargamos basic CSAVE

; TODO: fichero desconocido

; TODO: presentar informacion
; TODO: grabar fichero a disco

ret

; --------------------------------------
; cload tiene una cabecera corta que leemos con TAPION y luego
; los datos hasta encontrar 7 ceros seguidos
CLOAD: call rstzeros
xor a
ld [INI_BASIC-1], a ; 0 en 0x8000; requerido

ld hl, INI_BASIC
push hl
call TAPION
pop hl
jr c, EXIT

bcld: call READ
ld [hl], a
inc hl
cp 0
call nz, rstzeros
call z, inczeros
ld a, [temp1]
cp 7 ; termina con 7 ceros
jr nz, bcld

jr STOP

rstzeros: xor a
ld [temp1], a
ret

inczeros: ld a, [temp1]
inc a
ld [temp1], a
ret

; --------------------------------------
; load contiene multiples bloques de 256 bytes hasta 0x1a (ctrl+z)
; cada bloque tiene su cabecera corta que leemos con TAPION
LOAD: xor a
ld [INI_BASIC-1], a ; 0 en 0x8000; requerido

ld hl, INI_BASIC

bld1: push hl
call TAPION
pop hl
jp c, EXIT

ld b, 0 ; carga bloques de 256 bytes
bld2: call READ
cp 0x1a ; ctrl + z
jp z, STOP
ld [hl], a
inc hl
djnz bld2 ; fin de bloque

push hl
call TAPIOF
pop hl
jr bld1

; --------------------------------------
; bload tiene una cabecera corta seguida de 6 bytes con
; las direcciones de inicio, fin y ejecución del programa
; a continuación va el bloque de datos, todo seguido
BLOAD: xor a
ld hl, inifile
ld bc, finfile-inifile-1
call CLSRAM ; borra dirs fichero

call TAPION
jp c, EXIT

ld b, 6 ; 6 bytes
ld hl, inifile
bblh: call READ
ld [hl], a
inc hl
djnz bblh

call MOTOROFF
call calclng ; calculamos longitud
push hl
call MOTORON
pop bc ; longitud
ld hl,INI_BASIC ; inicio (temporal)

bbld: call READ
ld [hl], a
inc hl
dec bc
ld a, b
or c
jr nz, bbld

jp STOP

calclng: ld ix,inifile
ld e, [ix+0]
ld d, [ix+1] ; de = ini (real)
ld l, [ix+2]
ld h, [ix+3] ; hl = fin (real)
sbc hl, de ; longitud = fin - ini
ret

; -------------------------------------
; rellenamos bc+1 bytes de ram con el valor de A
CLSRAM: ld [hl], a
ld d, h
ld e, l
inc de
ldir
ret

; --------------------------------------
iniram: defb 0

tipo_fichero: defs 1
nom_fichero: defs 6

inifile: defs 2
finfile: defs 2
exefile: defs 2

temp1: defs 1

endram: defb 0

saludos,
- paco
En línea
manolito74
Karoshi Lover
***
Mensajes: 234


Ver Perfil
« Respuesta #8 : 18 de Junio de 2013, 10:36:24 pm »

Hola de nuevo:

Te lo había prometido pero se me había olvidado... Aquí te dejo el "Copión" original. El Fichero ".bas" sería el "Programa Principal" y los Ficheros ".Opc" serían los diferentes Copiones: Cinta-Disco, Disco-Cinta, Cinta-Cinta.

También te dejo el artículo que te había comentado que apareció en la la "Msx-Club" número 49, sobre el "Cassette". Lo tienes todo en este enlace:

http://www.mediafire.com/?pn8m2m8v6jsmh6a

Gracias & Saludetes. ;-)
En línea
manolito74
Karoshi Lover
***
Mensajes: 234


Ver Perfil
« Respuesta #9 : 27 de Diciembre de 2013, 01:02:36 am »

Up XD
En línea
manolito74
Karoshi Lover
***
Mensajes: 234


Ver Perfil
« Respuesta #10 : 06 de Abril de 2014, 08:46:01 pm »

Hola:

Me acabo de acordar de este Post y pongo aquí el Listado del "Copión Vecope" desensamblado, por si aporta alguna Info.

Gracias & Saludetes. ;-)


Código:
RSC II MSX 1.0                                               



55296 DBA8 IN   A,(168)

55298 E6F0 AND  240

55300 47 LD   B,A

55301 0F RRCA

55302 0F RRCA

55303 B0 OR   B

55304 D3A8 OUT  (168),A

55306 AF XOR  A

55307 CDC300 CALL 195

55310 CD95D9 CALL 55701

55313 C0 RET  NZ

55314 DCC2DB CALL C,56258

55317 2020 JR   NZ,+32 (55351)

55319 47 LD   B,A

55320 4F LD   C,A

55321 4C LD   C,H

55322 44 LD   B,H

55323 46 LD   B,(HL)

55324 49 LD   C,C

55325 4E LD   C,(HL)

55326 47 LD   B,A

55327 45 LD   B,L

55328 52 LD   D,D

55329 2020 JR   NZ,+32 (55363)

55331 53 LD   D,E

55332 4F LD   C,A

55333 46 LD   B,(HL)

55334 54 LD   D,H

55335 57 LD   D,A

55336 41 LD   B,C

55337 52 LD   D,D

55338 45 LD   B,L

55339 2031 JR   NZ,+49 (55390)

55341 39 ADD  HL,SP

55342 3836 JR   C,+54 (55398)

55344 20DB JR   NZ,-37 (55309)

55346 C2DCC0 JP   NZ,49372

55349 0D DEC  C

55350 0A LD   A,(BC)

55351 0A LD   A,(BC)

55352 2020 JR   NZ,+32 (55386)

55354 42 LD   B,D

55355 205F JR   NZ,+95 (55452)

55357 2052 JR   NZ,+82 (55441)

55359 45 LD   B,L

55360 41 LD   B,C

55361 44 LD   B,H

55362 2020 JR   NZ,+32 (55396)

55364 42 LD   B,D

55365 49 LD   C,C

55366 4E LD   C,(HL)

55367 2E20 LD   L,32

55369 2020 JR   NZ,+32 (55403)

55371 2044 JR   NZ,+68 (55441)

55373 205F JR   NZ,+95 (55470)

55375 2052 JR   NZ,+82 (55459)

55377 45 LD   B,L

55378 41 LD   B,C

55379 44 LD   B,H

55380 2020 JR   NZ,+32 (55414)

55382 44 LD   B,H

55383 41 LD   B,C

55384 54 LD   D,H

55385 41 LD   B,C

55386 0D DEC  C

55387 0A LD   A,(BC)

55388 0A LD   A,(BC)

55389 2020 JR   NZ,+32 (55423)

55391 57 LD   D,A

55392 205F JR   NZ,+95 (55489)

55394 2057 JR   NZ,+87 (55483)

55396 52 LD   D,D

55397 49 LD   C,C

55398 54 LD   D,H

55399 45 LD   B,L

55400 2054 JR   NZ,+84 (55486)

55402 41 LD   B,C

55403 50 LD   D,B

55404 45 LD   B,L

55405 2020 JR   NZ,+32 (55439)

55407 2020 JR   NZ,+32 (55441)

55409 52 LD   D,D

55410 202D JR   NZ,+45 (55457)

55412 2052 JR   NZ,+82 (55496)

55414 45 LD   B,L

55415 53 LD   D,E

55416 45 LD   B,L

55417 54 LD   D,H

55418 0D DEC  C

55419 0A LD   A,(BC)

55420 0A LD   A,(BC)

55421 2020 JR   NZ,+32 (55455)

55423 31205F LD   SP,24352

55426 2031 JR   NZ,+49 (55477)

55428 323030 LD   (12336),A

55431 2020 JR   NZ,+32 (55465)

55433 42 LD   B,D

55434 41 LD   B,C

55435 55 LD   D,L

55436 44 LD   B,H

55437 2020 JR   NZ,+32 (55471)

55439 2020 JR   NZ,+32 (55473)

55441 32205F LD   (24352),A

55444 2032 JR   NZ,+50 (55496)

55446 34 INC  (HL)

55447 3030 JR   NC,+48 (55497)

55449 2020 JR   NZ,+32 (55483)

55451 42 LD   B,D

55452 41 LD   B,C

55453 55 LD   D,L

55454 44 LD   B,H

55455 0D DEC  C

55456 0A LD   A,(BC)

55457 0A LD   A,(BC)

55458 C3DFC5 JP   50655

55461 DBDB IN   A,(219)

55463 DBDB IN   A,(219)

55465 DBDB IN   A,(219)

55467 DBDB IN   A,(219)

55469 DBDB IN   A,(219)

55471 DBDB IN   A,(219)

55473 DBDB IN   A,(219)

55475 DBDB IN   A,(219)

55477 DBDB IN   A,(219)

55479 DBDB IN   A,(219)

55481 DBDB IN   A,(219)

55483 DBDB IN   A,(219)

55485 DBDB IN   A,(219)

55487 DBDB IN   A,(219)

55489 DBDB IN   A,(219)

55491 C5 PUSH BC

55492 DF RST  &H18

55493 C30D0A JP   2573

55496 00 NOP

55497 CD6ADA CALL 55914

55500 CD06DA CALL 55814

55503 CD1FDA CALL 55839

55506 CD38DA CALL 55864

55509 CD51DA CALL 55889

55512 DD21D2D9 LD   IX,55762

55516 110FDA LD   DE,55823

55519 210040 LD   HL,16384

55522 3AD2D9 LD   A,(55762)

55525 FE00 CP   0

55527 2832 JR   Z,+50 (55579)

55529 DD21DED9 LD   IX,55774

55533 ED4BD6D9 LD   BC,(55766)

55537 1128DA LD   DE,55848

55540 09 ADD  HL,BC

55541 3ADED9 LD   A,(55774)

55544 FE00 CP   0

55546 281F JR   Z,+31 (55579)

55548 DD21EAD9 LD   IX,55786

55552 ED4BE2D9 LD   BC,(55778)

55556 1141DA LD   DE,55873

55559 09 ADD  HL,BC

55560 3AEAD9 LD   A,(55786)

55563 FE00 CP   0

55565 280C JR   Z,+12 (55579)

55567 DD21F6D9 LD   IX,55798

55571 ED4BEED9 LD   BC,(55790)

55575 115ADA LD   DE,55898

55578 09 ADD  HL,BC

55579 ED5302DA LD   (55810),DE

55583 CD95D9 CALL 55701

55586 0A LD   A,(BC)

55587 C0 RET  NZ

55588 C0 RET  NZ

55589 C0 RET  NZ

55590 C0 RET  NZ

55591 C0 RET  NZ

55592 C0 RET  NZ

55593 C0 RET  NZ

55594 C0 RET  NZ

55595 C0 RET  NZ

55596 C0 RET  NZ

55597 C0 RET  NZ

55598 C0 RET  NZ

55599 C0 RET  NZ

55600 C0 RET  NZ

55601 C0 RET  NZ

55602 C0 RET  NZ

55603 C0 RET  NZ

55604 C0 RET  NZ

55605 C0 RET  NZ

55606 C0 RET  NZ

55607 C0 RET  NZ

55608 C0 RET  NZ

55609 C0 RET  NZ

55610 C0 RET  NZ

55611 C0 RET  NZ

55612 C0 RET  NZ

55613 C0 RET  NZ

55614 C0 RET  NZ

55615 C0 RET  NZ

55616 C0 RET  NZ

55617 C0 RET  NZ

55618 C0 RET  NZ

55619 C0 RET  NZ

55620 C0 RET  NZ

55621 C0 RET  NZ

55622 C0 RET  NZ

55623 00 NOP

55624 E5 PUSH HL

55625 211301 LD   HL,275

55628 CDC600 CALL 198

55631 CD95D9 CALL 55701

55634 49 LD   C,C

55635 4E LD   C,(HL)

55636 50 LD   D,B

55637 55 LD   D,L

55638 54 LD   D,H

55639 2020 JR   NZ,+32 (55673)

55641 2020 JR   NZ,+32 (55675)

55643 2020 JR   NZ,+32 (55677)

55645 3A2020 LD   A,(8224)

55648 08 EX   AF,AF'

55649 00 NOP

55650 E1 POP  HL

55651 CDE3DA CALL 56035

55654 CDD7DA CALL 56023

55657 FE31 CP   49

55659 CA99DA JP   Z,55961

55662 FE32 CP   50

55664 CAB8DA JP   Z,55992

55667 F660 OR   96

55669 FE77 CP   119

55671 CAF7DB JP   Z,56311

55674 FE72 CP   114

55676 2827 JR   Z,+39 (55717)

55678 FE7A CP   122

55680 CA00A0 JP   Z,40960

55683 FE62 CP   98

55685 CAC9DB JP   Z,56265

55688 FE64 CP   100

55690 CA7DDB JP   Z,56189

55693 3EFF LD   A,255

55695 CDF300 CALL 243

55698 C348D9 JP   55624

55701 E3 EX   (SP),HL

55702 F5 PUSH AF

55703 7E LD   A,(HL)

55704 B7 OR   A

55705 2806 JR   Z,+6 (55713)

55707 CDD7DA CALL 56023

55710 23 INC  HL

55711 18F6 JR   -10 (55703)

55713 23 INC  HL

55714 F1 POP  AF

55715 E3 EX   (SP),HL

55716 C9 RET

55717 21D2D9 LD   HL,55762

55720 0630 LD   B,48

55722 3600 LD   (HL),0

55724 23 INC  HL

55725 10FB DJNZ -5 (55722)

55727 210FDA LD   HL,55823

55730 CDCAD9 CALL 55754

55733 2128DA LD   HL,55848

55736 CDCAD9 CALL 55754

55739 2141DA LD   HL,55873

55742 CDCAD9 CALL 55754

55745 215ADA LD   HL,55898

55748 CDCAD9 CALL 55754

55751 C3C9D8 JP   55497

55754 0606 LD   B,6

55756 3620 LD   (HL),32

55758 23 INC  HL

55759 10FB DJNZ -5 (55756)

55761 C9 RET

55762 00 NOP

55763 00 NOP

55764 00 NOP

55765 00 NOP

55766 00 NOP

55767 00 NOP

55768 00 NOP

55769 00 NOP

55770 00 NOP

55771 00 NOP

55772 00 NOP

55773 00 NOP

55774 00 NOP

55775 00 NOP

55776 00 NOP

55777 00 NOP

55778 00 NOP

55779 00 NOP

55780 00 NOP

55781 00 NOP

55782 00 NOP

55783 00 NOP

55784 00 NOP

55785 00 NOP

55786 00 NOP

55787 00 NOP

55788 00 NOP

55789 00 NOP

55790 00 NOP

55791 00 NOP

55792 00 NOP

55793 00 NOP

55794 00 NOP

55795 00 NOP

55796 00 NOP

55797 00 NOP

55798 00 NOP

55799 00 NOP

55800 00 NOP

55801 00 NOP

55802 00 NOP

55803 00 NOP

55804 00 NOP

55805 00 NOP

55806 00 NOP

55807 00 NOP

55808 00 NOP

55809 00 NOP

55810 00 NOP

55811 00 NOP

55812 00 NOP

55813 00 NOP

55814 210C01 LD   HL,268

55817 CDC600 CALL 198

55820 CD95D9 CALL 55701

55823 2020 JR   NZ,+32 (55857)

55825 2020 JR   NZ,+32 (55859)

55827 2020 JR   NZ,+32 (55861)

55829 2020 JR   NZ,+32 (55863)

55831 00 NOP

55832 21D6D9 LD   HL,55766

55835 CDEDDA CALL 56045

55838 C9 RET

55839 210D01 LD   HL,269

55842 CDC600 CALL 198

55845 CD95D9 CALL 55701

55848 2020 JR   NZ,+32 (55882)

55850 2020 JR   NZ,+32 (55884)

55852 2020 JR   NZ,+32 (55886)

55854 2020 JR   NZ,+32 (55888)

55856 00 NOP

55857 21E2D9 LD   HL,55778

55860 CDEDDA CALL 56045

55863 C9 RET

55864 210E01 LD   HL,270

55867 CDC600 CALL 198

55870 CD95D9 CALL 55701

55873 2020 JR   NZ,+32 (55907)

55875 2020 JR   NZ,+32 (55909)

55877 2020 JR   NZ,+32 (55911)

55879 2020 JR   NZ,+32 (55913)

55881 00 NOP

55882 21EED9 LD   HL,55790

55885 CDEDDA CALL 56045

55888 C9 RET

55889 210F01 LD   HL,271

55892 CDC600 CALL 198

55895 CD95D9 CALL 55701

55898 2020 JR   NZ,+32 (55932)

55900 2020 JR   NZ,+32 (55934)

55902 2020 JR   NZ,+32 (55936)

55904 2020 JR   NZ,+32 (55938)

55906 00 NOP

55907 21FAD9 LD   HL,55802

55910 CDEDDA CALL 56045

55913 C9 RET

55914 21090C LD   HL,3081

55917 CDC600 CALL 198

55920 3A06F4 LD   A,(62470)

55923 FE25 CP   37

55925 2811 JR   Z,+17 (55944)

55927 CD95D9 CALL 55701

55930 3C INC  A

55931 313230 LD   SP,12338

55934 303E JR   NC,+62 (55998)

55936 2020 JR   NZ,+32 (55970)

55938 42 LD   B,D

55939 41 LD   B,C

55940 55 LD   D,L

55941 44 LD   B,H

55942 00 NOP

55943 C9 RET

55944 CD95D9 CALL 55701

55947 3C INC  A

55948 323430 LD   (12340),A

55951 303E JR   NC,+62 (56015)

55953 2020 JR   NZ,+32 (55987)

55955 42 LD   B,D

55956 41 LD   B,C

55957 55 LD   D,L

55958 44 LD   B,H

55959 00 NOP

55960 C9 RET

55961 3E53 LD   A,83

55963 3206F4 LD   (62470),A

55966 3E5C LD   A,92

55968 3207F4 LD   (62471),A

55971 3E26 LD   A,38

55973 3208F4 LD   (62472),A

55976 3E2D LD   A,45

55978 3209F4 LD   (62473),A

55981 3E0F LD   A,15

55983 320AF4 LD   (62474),A

55986 CD6ADA CALL 55914

55989 C3C9D8 JP   55497

55992 3E25 LD   A,37

55994 3206F4 LD   (62470),A

55997 3E2D LD   A,45

55999 3207F4 LD   (62471),A

56002 3E0E LD   A,14

56004 3208F4 LD   (62472),A

56007 3E16 LD   A,22

56009 3209F4 LD   (62473),A

56012 3E1F LD   A,31

56014 320AF4 LD   (62474),A

56017 CD6ADA CALL 55914

56020 C3C9D8 JP   55497

56023 F5 PUSH AF

56024 C5 PUSH BC

56025 D5 PUSH DE

56026 E5 PUSH HL

56027 CDA200 CALL 162

56030 E1 POP  HL

56031 D1 POP  DE

56032 C1 POP  BC

56033 F1 POP  AF

56034 C9 RET

56035 C5 PUSH BC

56036 D5 PUSH DE

56037 E5 PUSH HL

56038 CD9F00 CALL 159

56041 E1 POP  HL

56042 D1 POP  DE

56043 C1 POP  BC

56044 C9 RET

56045 23 INC  HL

56046 7E LD   A,(HL)

56047 CD3ADB CALL 56122

56050 2B DEC  HL

56051 7E LD   A,(HL)

56052 CD3ADB CALL 56122

56055 3E20 LD   A,32

56057 CDD7DA CALL 56023

56060 3E20 LD   A,32

56062 CDD7DA CALL 56023

56065 23 INC  HL

56066 23 INC  HL

56067 23 INC  HL

56068 7E LD   A,(HL)

56069 CD3ADB CALL 56122

56072 2B DEC  HL

56073 7E LD   A,(HL)

56074 CD3ADB CALL 56122

56077 3E2D LD   A,45

56079 CDD7DA CALL 56023

56082 23 INC  HL

56083 23 INC  HL

56084 23 INC  HL

56085 7E LD   A,(HL)

56086 CD3ADB CALL 56122

56089 2B DEC  HL

56090 7E LD   A,(HL)

56091 CD3ADB CALL 56122

56094 3E2D LD   A,45

56096 CDD7DA CALL 56023

56099 23 INC  HL

56100 23 INC  HL

56101 23 INC  HL

56102 7E LD   A,(HL)

56103 CD3ADB CALL 56122

56106 2B DEC  HL

56107 7E LD   A,(HL)

56108 CD3ADB CALL 56122

56111 3E0D LD   A,13

56113 CDD7DA CALL 56023

56116 3E0A LD   A,10

56118 CDD7DA CALL 56023

56121 C9 RET

56122 F5 PUSH AF

56123 0F RRCA

56124 0F RRCA

56125 0F RRCA

56126 0F RRCA

56127 E60F AND  15

56129 CD45DB CALL 56133

56132 F1 POP  AF

56133 F5 PUSH AF

56134 E60F AND  15

56136 F630 OR   48

56138 FE3A CP   58

56140 3802 JR   C,+2 (56144)

56142 C607 ADD  A,7

56144 CDD7DA CALL 56023

56147 F1 POP  AF

56148 C9 RET

56149 E5 PUSH HL

56150 D5 PUSH DE

56151 C5 PUSH BC

56152 CDE400 CALL 228

56155 C1 POP  BC

56156 D1 POP  DE

56157 E1 POP  HL

56158 C9 RET

56159 E5 PUSH HL

56160 D5 PUSH DE

56161 C5 PUSH BC

56162 CDED00 CALL 237

56165 C1 POP  BC

56166 D1 POP  DE

56167 E1 POP  HL

56168 C9 RET

56169 E5 PUSH HL

56170 D5 PUSH DE

56171 C5 PUSH BC

56172 CDE100 CALL 225

56175 C1 POP  BC

56176 D1 POP  DE

56177 E1 POP  HL

56178 C9 RET

56179 E5 PUSH HL

56180 D5 PUSH DE

56181 C5 PUSH BC

56182 CD3DDD CALL 56637

56185 C1 POP  BC

56186 D1 POP  DE

56187 E1 POP  HL

56188 C9 RET

56189 E5 PUSH HL

56190 CDE100 CALL 225

56193 E1 POP  HL

56194 DD7502 LD   (IX+2),L

56197 DD7403 LD   (IX+3),H

56200 010000 LD   BC,0

56203 CD55DB CALL 56149

56206 380D JR   C,+13 (56221)

56208 77 LD   (HL),A

56209 23 INC  HL

56210 03 INC  BC

56211 CD73DB CALL 56179

56214 3805 JR   C,+5 (56221)

56216 77 LD   (HL),A

56217 23 INC  HL

56218 03 INC  BC

56219 18F6 JR   -10 (56211)

56221 DD7104 LD   (IX+4),C

56224 DD7005 LD   (IX+5),B

56227 CDE700 CALL 231

56230 DD360001 LD   (IX+0),1

56234 E5 PUSH HL

56235 2A02DA LD   HL,(55810)

56238 3E3C LD   A,60

56240 77 LD   (HL),A

56241 23 INC  HL

56242 3E44 LD   A,68

56244 77 LD   (HL),A

56245 23 INC  HL

56246 3E41 LD   A,65

56248 77 LD   (HL),A

56249 23 INC  HL

56250 3E54 LD   A,84

56252 77 LD   (HL),A

56253 23 INC  HL

56254 3E41 LD   A,65

56256 77 LD   (HL),A

56257 23 INC  HL

56258 3E3E LD   A,62

56260 77 LD   (HL),A

56261 E1 POP  HL

56262 C3C9D8 JP   55497

56265 E5 PUSH HL

56266 CD8FDC CALL 56463

56269 CD06DA CALL 55814

56272 CD1FDA CALL 55839

56275 CD38DA CALL 55864

56278 CD51DA CALL 55889

56281 CDCFDC CALL 56527

56284 E1 POP  HL

56285 DD7502 LD   (IX+2),L

56288 DD7403 LD   (IX+3),H

56291 CD55DB CALL 56149

56294 77 LD   (HL),A

56295 23 INC  HL

56296 0B DEC  BC

56297 78 LD   A,B

56298 B1 OR   C

56299 20F6 JR   NZ,-10 (56291)

56301 CDE700 CALL 231

56304 DD360002 LD   (IX+0),2

56308 C3C9D8 JP   55497

56311 210040 LD   HL,16384

56314 DD21D2D9 LD   IX,55762

56318 110FDA LD   DE,55823

56321 ED5302DA LD   (55810),DE

56325 CD35DC CALL 56373

56328 DD21DED9 LD   IX,55774

56332 1128DA LD   DE,55848

56335 ED5302DA LD   (55810),DE

56339 CD35DC CALL 56373

56342 DD21EAD9 LD   IX,55786

56346 1141DA LD   DE,55873

56349 ED5302DA LD   (55810),DE

56353 CD35DC CALL 56373

56356 DD21F6D9 LD   IX,55798

56360 115ADA LD   DE,55898

56363 ED5302DA LD   (55810),DE

56367 CD35DC CALL 56373

56370 C3C9D8 JP   55497

56373 DD7E00 LD   A,(IX+0)

56376 FE00 CP   0

56378 C8 RET  Z

56379 FE01 CP   1

56381 CC49DC CALL Z,56393

56384 DD7E00 LD   A,(IX+0)

56387 FE02 CP   2

56389 CC6ADC CALL Z,56426

56392 C9 RET

56393 E5 PUSH HL

56394 CD2DDD CALL 56621

56397 AF XOR  A

56398 CDEA00 CALL 234

56401 DD4E04 LD   C,(IX+4)

56404 DD4605 LD   B,(IX+5)

56407 E1 POP  HL

56408 79 LD   A,C

56409 B0 OR   B

56410 2808 JR   Z,+8 (56420)

56412 7E LD   A,(HL)

56413 CD5FDB CALL 56159

56416 23 INC  HL

56417 0B DEC  BC

56418 18F4 JR   -12 (56408)

56420 E5 PUSH HL

56421 CDE700 CALL 231

56424 E1 POP  HL

56425 C9 RET

56426 E5 PUSH HL

56427 CD2DDD CALL 56621

56430 CDAEDC CALL 56494

56433 CD2DDD CALL 56621

56436 AF XOR  A

56437 CDEA00 CALL 234

56440 CD08DD CALL 56584

56443 E1 POP  HL

56444 DD4E04 LD   C,(IX+4)

56447 DD4605 LD   B,(IX+5)

56450 79 LD   A,C

56451 B0 OR   B

56452 CA64DC JP   Z,56420

56455 7E LD   A,(HL)

56456 CD5FDB CALL 56159

56459 23 INC  HL

56460 0B DEC  BC

56461 30F3 JR   NC,-13 (56450)

56463 0ED0 LD   C,208

56465 CD69DB CALL 56169

56468 060A LD   B,10

56470 CD55DB CALL 56149

56473 B9 CP   C

56474 20F5 JR   NZ,-11 (56465)

56476 10F8 DJNZ -8 (56470)

56478 2A02DA LD   HL,(55810)

56481 0606 LD   B,6

56483 CD55DB CALL 56149

56486 77 LD   (HL),A

56487 23 INC  HL

56488 10F9 DJNZ -7 (56483)

56490 CDE700 CALL 231

56493 C9 RET

56494 3EFF LD   A,255

56496 CDEA00 CALL 234

56499 060A LD   B,10

56501 3ED0 LD   A,208

56503 C5 PUSH BC

56504 CDED00 CALL 237

56507 C1 POP  BC

56508 10F7 DJNZ -9 (56501)

56510 2A02DA LD   HL,(55810)

56513 0606 LD   B,6

56515 E5 PUSH HL

56516 C5 PUSH BC

56517 7E LD   A,(HL)

56518 CDED00 CALL 237

56521 C1 POP  BC

56522 E1 POP  HL

56523 23 INC  HL

56524 10F5 DJNZ -11 (56515)

56526 C9 RET

56527 CDE100 CALL 225

56530 CD55DB CALL 56149

56533 5F LD   E,A

56534 CD55DB CALL 56149

56537 57 LD   D,A

56538 DD7306 LD   (IX+6),E

56541 DD7207 LD   (IX+7),D

56544 CD55DB CALL 56149

56547 6F LD   L,A

56548 CD55DB CALL 56149

56551 67 LD   H,A

56552 DD7508 LD   (IX+8),L

56555 DD7409 LD   (IX+9),H

56558 ED52 SBC  HL,DE

56560 23 INC  HL

56561 E5 PUSH HL

56562 C1 POP  BC

56563 CD55DB CALL 56149

56566 5F LD   E,A

56567 CD55DB CALL 56149

56570 57 LD   D,A

56571 DD730A LD   (IX+10),E

56574 DD720B LD   (IX+11),D

56577 DD7104 LD   (IX+4),C

56580 DD7005 LD   (IX+5),B

56583 C9 RET

56584 DD7E06 LD   A,(IX+6)

56587 CD5FDB CALL 56159

56590 DD7E07 LD   A,(IX+7)

56593 CD5FDB CALL 56159

56596 DD7E08 LD   A,(IX+8)

56599 CD5FDB CALL 56159

56602 DD7E09 LD   A,(IX+9)

56605 CD5FDB CALL 56159

56608 DD7E0A LD   A,(IX+10)

56611 CD5FDB CALL 56159

56614 DD7E0B LD   A,(IX+11)

56617 CD5FDB CALL 56159

56620 C9 RET

56621 C5 PUSH BC

56622 3E01 LD   A,1

56624 CDF300 CALL 243

56627 010000 LD   BC,0

56630 0B DEC  BC

56631 78 LD   A,B

56632 B1 OR   C
En línea
manolito74
Karoshi Lover
***
Mensajes: 234


Ver Perfil
« Respuesta #11 : 30 de Junio de 2014, 02:33:10 am »

Up!
En línea
manolito74
Karoshi Lover
***
Mensajes: 234


Ver Perfil
« Respuesta #12 : 30 de Junio de 2014, 01:22:04 pm »

Hola de nuevo:

He probado tu última revisión del Listado BASIC y funciona perfectamente, pagina todo bien, etc. ¡Gracias!

En cuanto al Listado ASM lo he copiado y ensamblado con el AsMSX y lo he ejecutado tanto en MSX real como en Emulador y NO HACE NADA. Lo único que obtengo es que cuando encuentra una cabecera el Programa se detiene (deja de ejecutarse) y no muestra ningún mensaje en Pantalla. :-(

Gracias & Saludetes. ;-)
En línea
manolito74
Karoshi Lover
***
Mensajes: 234


Ver Perfil
« Respuesta #13 : 30 de Junio de 2014, 01:35:28 pm »

Hola:

Pongo aquí el Código del Copión "VECOPE" desensamblado, en Formato Hexadecimal, por si pueden resultar de Utilidad las Rutinas de Lectura del Cassette que utiliza.

Como el Código es muy largo lo pongo en dos Partes.

Listado Desensamblado Copión "VECOPE" (Parte 1/2)

Código:
Desensamblador RSC MANHATTAN TRANSFER

D800  DBA8      IN   A,(&HA8)
D802  E6F0      AND  &HF0
D804  47        LD   B,A
D805  0F        RRCA
D806  0F        RRCA
D807  B0        OR   B
D808  D3A8      OUT  (&HA8),A
D80A  AF        XOR  A
D80B  CDC300    CALL &HC3
D80E  CD95D9    CALL &HD995
D811  C0        RET  NZ
D812  DCC2DB    CALL C,&HDBC2
D815  2020      JR   NZ,+&H20 (&HD837)
D817  47        LD   B,A
D818  4F        LD   C,A
D819  4C        LD   C,H
D81A  44        LD   B,H
D81B  46        LD   B,(HL)
D81C  49        LD   C,C
D81D  4E        LD   C,(HL)
D81E  47        LD   B,A
D81F  45        LD   B,L
D820  52        LD   D,D
D821  2020      JR   NZ,+&H20 (&HD843)
D823  53        LD   D,E
D824  4F        LD   C,A
D825  46        LD   B,(HL)
D826  54        LD   D,H
D827  57        LD   D,A
D828  41        LD   B,C
D829  52        LD   D,D
D82A  45        LD   B,L
D82B  2031      JR   NZ,+&H31 (&HD85E)
D82D  39        ADD  HL,SP
D82E  3836      JR   C,+&H36 (&HD866)
D830  20DB      JR   NZ,-&H25 (&HD80D)
D832  C2DCC0    JP   NZ,&HC0DC
D835  0D        DEC  C
D836  0A        LD   A,(BC)
D837  0A        LD   A,(BC)
D838  2020      JR   NZ,+&H20 (&HD85A)
D83A  42        LD   B,D
D83B  205F      JR   NZ,+&H5F (&HD89C)
D83D  2052      JR   NZ,+&H52 (&HD891)
D83F  45        LD   B,L
D840  41        LD   B,C
D841  44        LD   B,H
D842  2020      JR   NZ,+&H20 (&HD864)
D844  42        LD   B,D
D845  49        LD   C,C
D846  4E        LD   C,(HL)
D847  2E20      LD   L,&H20
D849  2020      JR   NZ,+&H20 (&HD86B)
D84B  2044      JR   NZ,+&H44 (&HD891)
D84D  205F      JR   NZ,+&H5F (&HD8AE)
D84F  2052      JR   NZ,+&H52 (&HD8A3)
D851  45        LD   B,L
D852  41        LD   B,C
D853  44        LD   B,H
D854  2020      JR   NZ,+&H20 (&HD876)
D856  44        LD   B,H
D857  41        LD   B,C
D858  54        LD   D,H
D859  41        LD   B,C
D85A  0D        DEC  C
D85B  0A        LD   A,(BC)
D85C  0A        LD   A,(BC)
D85D  2020      JR   NZ,+&H20 (&HD87F)
D85F  57        LD   D,A
D860  205F      JR   NZ,+&H5F (&HD8C1)
D862  2057      JR   NZ,+&H57 (&HD8BB)
D864  52        LD   D,D
D865  49        LD   C,C
D866  54        LD   D,H
D867  45        LD   B,L
D868  2054      JR   NZ,+&H54 (&HD8BE)
D86A  41        LD   B,C
D86B  50        LD   D,B
D86C  45        LD   B,L
D86D  2020      JR   NZ,+&H20 (&HD88F)
D86F  2020      JR   NZ,+&H20 (&HD891)
D871  52        LD   D,D
D872  202D      JR   NZ,+&H2D (&HD8A1)
D874  2052      JR   NZ,+&H52 (&HD8C8)
D876  45        LD   B,L
D877  53        LD   D,E
D878  45        LD   B,L
D879  54        LD   D,H
D87A  0D        DEC  C
D87B  0A        LD   A,(BC)
D87C  0A        LD   A,(BC)
D87D  2020      JR   NZ,+&H20 (&HD89F)
D87F  31205F    LD   SP,&H5F20
D882  2031      JR   NZ,+&H31 (&HD8B5)
D884  323030    LD   (&H3030),A
D887  2020      JR   NZ,+&H20 (&HD8A9)
D889  42        LD   B,D
D88A  41        LD   B,C
D88B  55        LD   D,L
D88C  44        LD   B,H
D88D  2020      JR   NZ,+&H20 (&HD8AF)
D88F  2020      JR   NZ,+&H20 (&HD8B1)
D891  32205F    LD   (&H5F20),A
D894  2032      JR   NZ,+&H32 (&HD8C8)
D896  34        INC  (HL)
D897  3030      JR   NC,+&H30 (&HD8C9)
D899  2020      JR   NZ,+&H20 (&HD8BB)
D89B  42        LD   B,D
D89C  41        LD   B,C
D89D  55        LD   D,L
D89E  44        LD   B,H
D89F  0D        DEC  C
D8A0  0A        LD   A,(BC)
D8A1  0A        LD   A,(BC)
D8A2  C3DFC5    JP   &HC5DF
D8A5  DBDB      IN   A,(&HDB)
D8A7  DBDB      IN   A,(&HDB)
D8A9  DBDB      IN   A,(&HDB)
D8AB  DBDB      IN   A,(&HDB)
D8AD  DBDB      IN   A,(&HDB)
D8AF  DBDB      IN   A,(&HDB)
D8B1  DBDB      IN   A,(&HDB)
D8B3  DBDB      IN   A,(&HDB)
D8B5  DBDB      IN   A,(&HDB)
D8B7  DBDB      IN   A,(&HDB)
D8B9  DBDB      IN   A,(&HDB)
D8BB  DBDB      IN   A,(&HDB)
D8BD  DBDB      IN   A,(&HDB)
D8BF  DBDB      IN   A,(&HDB)
D8C1  DBDB      IN   A,(&HDB)
D8C3  C5        PUSH BC
D8C4  DF        RST  &H18
D8C5  C30D0A    JP   &HA0D
D8C8  00        NOP 
D8C9  CD6ADA    CALL &HDA6A
D8CC  CD06DA    CALL &HDA06
D8CF  CD1FDA    CALL &HDA1F
D8D2  CD38DA    CALL &HDA38
D8D5  CD51DA    CALL &HDA51
D8D8  DD21D2D9  LD   IX,&HD9D2
D8DC  110FDA    LD   DE,&HDA0F
D8DF  210040    LD   HL,&H4000
D8E2  3AD2D9    LD   A,(&HD9D2)
D8E5  FE00      CP   &H0
D8E7  2832      JR   Z,+&H32 (&HD91B)
D8E9  DD21DED9  LD   IX,&HD9DE
D8ED  ED4BD6D9  LD   BC,(&HD9D6)
D8F1  1128DA    LD   DE,&HDA28
D8F4  09        ADD  HL,BC
D8F5  3ADED9    LD   A,(&HD9DE)
D8F8  FE00      CP   &H0
D8FA  281F      JR   Z,+&H1F (&HD91B)
D8FC  DD21EAD9  LD   IX,&HD9EA
D900  ED4BE2D9  LD   BC,(&HD9E2)
D904  1141DA    LD   DE,&HDA41
D907  09        ADD  HL,BC
D908  3AEAD9    LD   A,(&HD9EA)
D90B  FE00      CP   &H0
D90D  280C      JR   Z,+&HC (&HD91B)
D90F  DD21F6D9  LD   IX,&HD9F6
D913  ED4BEED9  LD   BC,(&HD9EE)
D917  115ADA    LD   DE,&HDA5A
D91A  09        ADD  HL,BC
D91B  ED5302DA  LD   (&HDA02),DE
D91F  CD95D9    CALL &HD995
D922  0A        LD   A,(BC)
D923  C0        RET  NZ
D924  C0        RET  NZ
D925  C0        RET  NZ
D926  C0        RET  NZ
D927  C0        RET  NZ
D928  C0        RET  NZ
D929  C0        RET  NZ
D92A  C0        RET  NZ
D92B  C0        RET  NZ
D92C  C0        RET  NZ
D92D  C0        RET  NZ
D92E  C0        RET  NZ
D92F  C0        RET  NZ
D930  C0        RET  NZ
D931  C0        RET  NZ
D932  C0        RET  NZ
D933  C0        RET  NZ
D934  C0        RET  NZ
D935  C0        RET  NZ
D936  C0        RET  NZ
D937  C0        RET  NZ
D938  C0        RET  NZ
D939  C0        RET  NZ
D93A  C0        RET  NZ
D93B  C0        RET  NZ
D93C  C0        RET  NZ
D93D  C0        RET  NZ
D93E  C0        RET  NZ
D93F  C0        RET  NZ
D940  C0        RET  NZ
D941  C0        RET  NZ
D942  C0        RET  NZ
D943  C0        RET  NZ
D944  C0        RET  NZ
D945  C0        RET  NZ
D946  C0        RET  NZ
D947  00        NOP 
D948  E5        PUSH HL
D949  211301    LD   HL,&H113
D94C  CDC600    CALL &HC6
D94F  CD95D9    CALL &HD995
D952  49        LD   C,C
D953  4E        LD   C,(HL)
D954  50        LD   D,B
D955  55        LD   D,L
D956  54        LD   D,H
D957  2020      JR   NZ,+&H20 (&HD979)
D959  2020      JR   NZ,+&H20 (&HD97B)
D95B  2020      JR   NZ,+&H20 (&HD97D)
D95D  3A2020    LD   A,(&H2020)
D960  08        EX   AF,AF'
D961  00        NOP 
D962  E1        POP  HL
D963  CDE3DA    CALL &HDAE3
D966  CDD7DA    CALL &HDAD7
D969  FE31      CP   &H31
D96B  CA99DA    JP   Z,&HDA99
D96E  FE32      CP   &H32
D970  CAB8DA    JP   Z,&HDAB8
D973  F660      OR   &H60
D975  FE77      CP   &H77
D977  CAF7DB    JP   Z,&HDBF7
D97A  FE72      CP   &H72
D97C  2827      JR   Z,+&H27 (&HD9A5)
D97E  FE7A      CP   &H7A
D980  CA00A0    JP   Z,&HA000
D983  FE62      CP   &H62
D985  CAC9DB    JP   Z,&HDBC9
D988  FE64      CP   &H64
D98A  CA7DDB    JP   Z,&HDB7D
D98D  3EFF      LD   A,&HFF
D98F  CDF300    CALL &HF3
D992  C348D9    JP   &HD948
D995  E3        EX   (SP),HL
D996  F5        PUSH AF
D997  7E        LD   A,(HL)
D998  B7        OR   A
D999  2806      JR   Z,+&H6 (&HD9A1)
D99B  CDD7DA    CALL &HDAD7
D99E  23        INC  HL
D99F  18F6      JR   -&HA (&HD997)
D9A1  23        INC  HL
D9A2  F1        POP  AF
D9A3  E3        EX   (SP),HL
D9A4  C9        RET 
D9A5  21D2D9    LD   HL,&HD9D2
D9A8  0630      LD   B,&H30
D9AA  3600      LD   (HL),&H0
D9AC  23        INC  HL
D9AD  10FB      DJNZ -&H5 (&HD9AA)
D9AF  210FDA    LD   HL,&HDA0F
D9B2  CDCAD9    CALL &HD9CA
D9B5  2128DA    LD   HL,&HDA28
D9B8  CDCAD9    CALL &HD9CA
D9BB  2141DA    LD   HL,&HDA41
D9BE  CDCAD9    CALL &HD9CA
D9C1  215ADA    LD   HL,&HDA5A
D9C4  CDCAD9    CALL &HD9CA
D9C7  C3C9D8    JP   &HD8C9
D9CA  0606      LD   B,&H6
D9CC  3620      LD   (HL),&H20
D9CE  23        INC  HL
D9CF  10FB      DJNZ -&H5 (&HD9CC)
D9D1  C9        RET 
D9D2  00        NOP 
D9D3  00        NOP 
D9D4  00        NOP 
D9D5  00        NOP 
D9D6  00        NOP 
D9D7  00        NOP 
D9D8  00        NOP 
D9D9  00        NOP 
D9DA  00        NOP 
D9DB  00        NOP 
D9DC  00        NOP 
D9DD  00        NOP 
D9DE  00        NOP 
D9DF  00        NOP 
D9E0  00        NOP 
D9E1  00        NOP 
D9E2  00        NOP 
D9E3  00        NOP 
D9E4  00        NOP 
D9E5  00        NOP 
D9E6  00        NOP 
D9E7  00        NOP 
D9E8  00        NOP 
D9E9  00        NOP 
D9EA  00        NOP 
D9EB  00        NOP 
D9EC  00        NOP 
D9ED  00        NOP 
D9EE  00        NOP 
D9EF  00        NOP 
D9F0  00        NOP 
D9F1  00        NOP 
D9F2  00        NOP 
D9F3  00        NOP 
D9F4  00        NOP 
D9F5  00        NOP 
D9F6  00        NOP 
D9F7  00        NOP 
D9F8  00        NOP 
D9F9  00        NOP 
D9FA  00        NOP 
D9FB  00        NOP 
D9FC  00        NOP 
D9FD  00        NOP 
D9FE  00        NOP 
D9FF  00        NOP 
DA00  00        NOP 
DA01  00        NOP 
En línea
manolito74
Karoshi Lover
***
Mensajes: 234


Ver Perfil
« Respuesta #14 : 30 de Junio de 2014, 01:36:32 pm »

Listado Desensamblado Copión "VECOPE" (Parte 2/2)

Código:
DA02  0F        RRCA
DA03  DA0000    JP   C,&H0
DA06  210C01    LD   HL,&H10C
DA09  CDC600    CALL &HC6
DA0C  CD95D9    CALL &HD995
DA0F  2020      JR   NZ,+&H20 (&HDA31)
DA11  2020      JR   NZ,+&H20 (&HDA33)
DA13  2020      JR   NZ,+&H20 (&HDA35)
DA15  2020      JR   NZ,+&H20 (&HDA37)
DA17  00        NOP 
DA18  21D6D9    LD   HL,&HD9D6
DA1B  CDEDDA    CALL &HDAED
DA1E  C9        RET 
DA1F  210D01    LD   HL,&H10D
DA22  CDC600    CALL &HC6
DA25  CD95D9    CALL &HD995
DA28  2020      JR   NZ,+&H20 (&HDA4A)
DA2A  2020      JR   NZ,+&H20 (&HDA4C)
DA2C  2020      JR   NZ,+&H20 (&HDA4E)
DA2E  2020      JR   NZ,+&H20 (&HDA50)
DA30  00        NOP 
DA31  21E2D9    LD   HL,&HD9E2
DA34  CDEDDA    CALL &HDAED
DA37  C9        RET 
DA38  210E01    LD   HL,&H10E
DA3B  CDC600    CALL &HC6
DA3E  CD95D9    CALL &HD995
DA41  2020      JR   NZ,+&H20 (&HDA63)
DA43  2020      JR   NZ,+&H20 (&HDA65)
DA45  2020      JR   NZ,+&H20 (&HDA67)
DA47  2020      JR   NZ,+&H20 (&HDA69)
DA49  00        NOP 
DA4A  21EED9    LD   HL,&HD9EE
DA4D  CDEDDA    CALL &HDAED
DA50  C9        RET 
DA51  210F01    LD   HL,&H10F
DA54  CDC600    CALL &HC6
DA57  CD95D9    CALL &HD995
DA5A  2020      JR   NZ,+&H20 (&HDA7C)
DA5C  2020      JR   NZ,+&H20 (&HDA7E)
DA5E  2020      JR   NZ,+&H20 (&HDA80)
DA60  2020      JR   NZ,+&H20 (&HDA82)
DA62  00        NOP 
DA63  21FAD9    LD   HL,&HD9FA
DA66  CDEDDA    CALL &HDAED
DA69  C9        RET 
DA6A  21090C    LD   HL,&HC09
DA6D  CDC600    CALL &HC6
DA70  3A06F4    LD   A,(&HF406)
DA73  FE25      CP   &H25
DA75  2811      JR   Z,+&H11 (&HDA88)
DA77  CD95D9    CALL &HD995
DA7A  3C        INC  A
DA7B  313230    LD   SP,&H3032
DA7E  303E      JR   NC,+&H3E (&HDABE)
DA80  2020      JR   NZ,+&H20 (&HDAA2)
DA82  42        LD   B,D
DA83  41        LD   B,C
DA84  55        LD   D,L
DA85  44        LD   B,H
DA86  00        NOP 
DA87  C9        RET 
DA88  CD95D9    CALL &HD995
DA8B  3C        INC  A
DA8C  323430    LD   (&H3034),A
DA8F  303E      JR   NC,+&H3E (&HDACF)
DA91  2020      JR   NZ,+&H20 (&HDAB3)
DA93  42        LD   B,D
DA94  41        LD   B,C
DA95  55        LD   D,L
DA96  44        LD   B,H
DA97  00        NOP 
DA98  C9        RET 
DA99  3E53      LD   A,&H53
DA9B  3206F4    LD   (&HF406),A
DA9E  3E5C      LD   A,&H5C
DAA0  3207F4    LD   (&HF407),A
DAA3  3E26      LD   A,&H26
DAA5  3208F4    LD   (&HF408),A
DAA8  3E2D      LD   A,&H2D
DAAA  3209F4    LD   (&HF409),A
DAAD  3E0F      LD   A,&HF
DAAF  320AF4    LD   (&HF40A),A
DAB2  CD6ADA    CALL &HDA6A
DAB5  C3C9D8    JP   &HD8C9
DAB8  3E25      LD   A,&H25
DABA  3206F4    LD   (&HF406),A
DABD  3E2D      LD   A,&H2D
DABF  3207F4    LD   (&HF407),A
DAC2  3E0E      LD   A,&HE
DAC4  3208F4    LD   (&HF408),A
DAC7  3E16      LD   A,&H16
DAC9  3209F4    LD   (&HF409),A
DACC  3E1F      LD   A,&H1F
DACE  320AF4    LD   (&HF40A),A
DAD1  CD6ADA    CALL &HDA6A
DAD4  C3C9D8    JP   &HD8C9
DAD7  F5        PUSH AF
DAD8  C5        PUSH BC
DAD9  D5        PUSH DE
DADA  E5        PUSH HL
DADB  CDA200    CALL &HA2
DADE  E1        POP  HL
DADF  D1        POP  DE
DAE0  C1        POP  BC
DAE1  F1        POP  AF
DAE2  C9        RET 
DAE3  C5        PUSH BC
DAE4  D5        PUSH DE
DAE5  E5        PUSH HL
DAE6  CD9F00    CALL &H9F
DAE9  E1        POP  HL
DAEA  D1        POP  DE
DAEB  C1        POP  BC
DAEC  C9        RET 
DAED  23        INC  HL
DAEE  7E        LD   A,(HL)
DAEF  CD3ADB    CALL &HDB3A
DAF2  2B        DEC  HL
DAF3  7E        LD   A,(HL)
DAF4  CD3ADB    CALL &HDB3A
DAF7  3E20      LD   A,&H20
DAF9  CDD7DA    CALL &HDAD7
DAFC  3E20      LD   A,&H20
DAFE  CDD7DA    CALL &HDAD7
DB01  23        INC  HL
DB02  23        INC  HL
DB03  23        INC  HL
DB04  7E        LD   A,(HL)
DB05  CD3ADB    CALL &HDB3A
DB08  2B        DEC  HL
DB09  7E        LD   A,(HL)
DB0A  CD3ADB    CALL &HDB3A
DB0D  3E2D      LD   A,&H2D
DB0F  CDD7DA    CALL &HDAD7
DB12  23        INC  HL
DB13  23        INC  HL
DB14  23        INC  HL
DB15  7E        LD   A,(HL)
DB16  CD3ADB    CALL &HDB3A
DB19  2B        DEC  HL
DB1A  7E        LD   A,(HL)
DB1B  CD3ADB    CALL &HDB3A
DB1E  3E2D      LD   A,&H2D
DB20  CDD7DA    CALL &HDAD7
DB23  23        INC  HL
DB24  23        INC  HL
DB25  23        INC  HL
DB26  7E        LD   A,(HL)
DB27  CD3ADB    CALL &HDB3A
DB2A  2B        DEC  HL
DB2B  7E        LD   A,(HL)
DB2C  CD3ADB    CALL &HDB3A
DB2F  3E0D      LD   A,&HD
DB31  CDD7DA    CALL &HDAD7
DB34  3E0A      LD   A,&HA
DB36  CDD7DA    CALL &HDAD7
DB39  C9        RET 
DB3A  F5        PUSH AF
DB3B  0F        RRCA
DB3C  0F        RRCA
DB3D  0F        RRCA
DB3E  0F        RRCA
DB3F  E60F      AND  &HF
DB41  CD45DB    CALL &HDB45
DB44  F1        POP  AF
DB45  F5        PUSH AF
DB46  E60F      AND  &HF
DB48  F630      OR   &H30
DB4A  FE3A      CP   &H3A
DB4C  3802      JR   C,+&H2 (&HDB50)
DB4E  C607      ADD  A,&H7
DB50  CDD7DA    CALL &HDAD7
DB53  F1        POP  AF
DB54  C9        RET 
DB55  E5        PUSH HL
DB56  D5        PUSH DE
DB57  C5        PUSH BC
DB58  CDE400    CALL &HE4
DB5B  C1        POP  BC
DB5C  D1        POP  DE
DB5D  E1        POP  HL
DB5E  C9        RET 
DB5F  E5        PUSH HL
DB60  D5        PUSH DE
DB61  C5        PUSH BC
DB62  CDED00    CALL &HED
DB65  C1        POP  BC
DB66  D1        POP  DE
DB67  E1        POP  HL
DB68  C9        RET 
DB69  E5        PUSH HL
DB6A  D5        PUSH DE
DB6B  C5        PUSH BC
DB6C  CDE100    CALL &HE1
DB6F  C1        POP  BC
DB70  D1        POP  DE
DB71  E1        POP  HL
DB72  C9        RET 
DB73  E5        PUSH HL
DB74  D5        PUSH DE
DB75  C5        PUSH BC
DB76  CD3DDD    CALL &HDD3D
DB79  C1        POP  BC
DB7A  D1        POP  DE
DB7B  E1        POP  HL
DB7C  C9        RET 
DB7D  E5        PUSH HL
DB7E  CDE100    CALL &HE1
DB81  E1        POP  HL
DB82  DD7502    LD   (IX+&H2),L
DB85  DD7403    LD   (IX+&H3),H
DB88  010000    LD   BC,&H0
DB8B  CD55DB    CALL &HDB55
DB8E  380D      JR   C,+&HD (&HDB9D)
DB90  77        LD   (HL),A
DB91  23        INC  HL
DB92  03        INC  BC
DB93  CD73DB    CALL &HDB73
DB96  3805      JR   C,+&H5 (&HDB9D)
DB98  77        LD   (HL),A
DB99  23        INC  HL
DB9A  03        INC  BC
DB9B  18F6      JR   -&HA (&HDB93)
DB9D  DD7104    LD   (IX+&H4),C
DBA0  DD7005    LD   (IX+&H5),B
DBA3  CDE700    CALL &HE7
DBA6  DD360001  LD   (IX+&H0),&H1
DBAA  E5        PUSH HL
DBAB  2A02DA    LD   HL,(&HDA02)
DBAE  3E3C      LD   A,&H3C
DBB0  77        LD   (HL),A
DBB1  23        INC  HL
DBB2  3E44      LD   A,&H44
DBB4  77        LD   (HL),A
DBB5  23        INC  HL
DBB6  3E41      LD   A,&H41
DBB8  77        LD   (HL),A
DBB9  23        INC  HL
DBBA  3E54      LD   A,&H54
DBBC  77        LD   (HL),A
DBBD  23        INC  HL
DBBE  3E41      LD   A,&H41
DBC0  77        LD   (HL),A
DBC1  23        INC  HL
DBC2  3E3E      LD   A,&H3E
DBC4  77        LD   (HL),A
DBC5  E1        POP  HL
DBC6  C3C9D8    JP   &HD8C9
DBC9  E5        PUSH HL
DBCA  CD8FDC    CALL &HDC8F
DBCD  CD06DA    CALL &HDA06
DBD0  CD1FDA    CALL &HDA1F
DBD3  CD38DA    CALL &HDA38
DBD6  CD51DA    CALL &HDA51
DBD9  CDCFDC    CALL &HDCCF
DBDC  E1        POP  HL
DBDD  DD7502    LD   (IX+&H2),L
DBE0  DD7403    LD   (IX+&H3),H
DBE3  CD55DB    CALL &HDB55
DBE6  77        LD   (HL),A
DBE7  23        INC  HL
DBE8  0B        DEC  BC
DBE9  78        LD   A,B
DBEA  B1        OR   C
DBEB  20F6      JR   NZ,-&HA (&HDBE3)
DBED  CDE700    CALL &HE7
DBF0  DD360002  LD   (IX+&H0),&H2
DBF4  C3C9D8    JP   &HD8C9
DBF7  210040    LD   HL,&H4000
DBFA  DD21D2D9  LD   IX,&HD9D2
DBFE  110FDA    LD   DE,&HDA0F
DC01  ED5302DA  LD   (&HDA02),DE
DC05  CD35DC    CALL &HDC35
DC08  DD21DED9  LD   IX,&HD9DE
DC0C  1128DA    LD   DE,&HDA28
DC0F  ED5302DA  LD   (&HDA02),DE
DC13  CD35DC    CALL &HDC35
DC16  DD21EAD9  LD   IX,&HD9EA
DC1A  1141DA    LD   DE,&HDA41
DC1D  ED5302DA  LD   (&HDA02),DE
DC21  CD35DC    CALL &HDC35
DC24  DD21F6D9  LD   IX,&HD9F6
DC28  115ADA    LD   DE,&HDA5A
DC2B  ED5302DA  LD   (&HDA02),DE
DC2F  CD35DC    CALL &HDC35
DC32  C3C9D8    JP   &HD8C9
DC35  DD7E00    LD   A,(IX+&H0)
DC38  FE00      CP   &H0
DC3A  C8        RET  Z
DC3B  FE01      CP   &H1
DC3D  CC49DC    CALL Z,&HDC49
DC40  DD7E00    LD   A,(IX+&H0)
DC43  FE02      CP   &H2
DC45  CC6ADC    CALL Z,&HDC6A
DC48  C9        RET 
DC49  E5        PUSH HL
DC4A  CD2DDD    CALL &HDD2D
DC4D  AF        XOR  A
DC4E  CDEA00    CALL &HEA
DC51  DD4E04    LD   C,(IX+&H4)
DC54  DD4605    LD   B,(IX+&H5)
DC57  E1        POP  HL
DC58  79        LD   A,C
DC59  B0        OR   B
DC5A  2808      JR   Z,+&H8 (&HDC64)
DC5C  7E        LD   A,(HL)
DC5D  CD5FDB    CALL &HDB5F
DC60  23        INC  HL
DC61  0B        DEC  BC
DC62  18F4      JR   -&HC (&HDC58)
DC64  E5        PUSH HL
DC65  CDE700    CALL &HE7
DC68  E1        POP  HL
DC69  C9        RET 
DC6A  E5        PUSH HL
DC6B  CD2DDD    CALL &HDD2D
DC6E  CDAEDC    CALL &HDCAE
DC71  CD2DDD    CALL &HDD2D
DC74  AF        XOR  A
DC75  CDEA00    CALL &HEA
DC78  CD08DD    CALL &HDD08
DC7B  E1        POP  HL
DC7C  DD4E04    LD   C,(IX+&H4)
DC7F  DD4605    LD   B,(IX+&H5)
DC82  79        LD   A,C
DC83  B0        OR   B
DC84  CA64DC    JP   Z,&HDC64
DC87  7E        LD   A,(HL)
DC88  CD5FDB    CALL &HDB5F
DC8B  23        INC  HL
DC8C  0B        DEC  BC
DC8D  30F3      JR   NC,-&HD (&HDC82)
DC8F  0ED0      LD   C,&HD0
DC91  CD69DB    CALL &HDB69
DC94  060A      LD   B,&HA
DC96  CD55DB    CALL &HDB55
DC99  B9        CP   C
DC9A  20F5      JR   NZ,-&HB (&HDC91)
DC9C  10F8      DJNZ -&H8 (&HDC96)
DC9E  2A02DA    LD   HL,(&HDA02)
DCA1  0606      LD   B,&H6
DCA3  CD55DB    CALL &HDB55
DCA6  77        LD   (HL),A
DCA7  23        INC  HL
DCA8  10F9      DJNZ -&H7 (&HDCA3)
DCAA  CDE700    CALL &HE7
DCAD  C9        RET 
DCAE  3EFF      LD   A,&HFF
DCB0  CDEA00    CALL &HEA
DCB3  060A      LD   B,&HA
DCB5  3ED0      LD   A,&HD0
DCB7  C5        PUSH BC
DCB8  CDED00    CALL &HED
DCBB  C1        POP  BC
DCBC  10F7      DJNZ -&H9 (&HDCB5)
DCBE  2A02DA    LD   HL,(&HDA02)
DCC1  0606      LD   B,&H6
DCC3  E5        PUSH HL
DCC4  C5        PUSH BC
DCC5  7E        LD   A,(HL)
DCC6  CDED00    CALL &HED
DCC9  C1        POP  BC
DCCA  E1        POP  HL
DCCB  23        INC  HL
DCCC  10F5      DJNZ -&HB (&HDCC3)
DCCE  C9        RET 
DCCF  CDE100    CALL &HE1
DCD2  CD55DB    CALL &HDB55
DCD5  5F        LD   E,A
DCD6  CD55DB    CALL &HDB55
DCD9  57        LD   D,A
DCDA  DD7306    LD   (IX+&H6),E
DCDD  DD7207    LD   (IX+&H7),D
DCE0  CD55DB    CALL &HDB55
DCE3  6F        LD   L,A
DCE4  CD55DB    CALL &HDB55
DCE7  67        LD   H,A
DCE8  DD7508    LD   (IX+&H8),L
DCEB  DD7409    LD   (IX+&H9),H
DCEE  ED52      SBC  HL,DE
DCF0  23        INC  HL
DCF1  E5        PUSH HL
DCF2  C1        POP  BC
DCF3  CD55DB    CALL &HDB55
DCF6  5F        LD   E,A
DCF7  CD55DB    CALL &HDB55
DCFA  57        LD   D,A
DCFB  DD730A    LD   (IX+&HA),E
DCFE  DD720B    LD   (IX+&HB),D
DD01  DD7104    LD   (IX+&H4),C
DD04  DD7005    LD   (IX+&H5),B
DD07  C9        RET 
DD08  DD7E06    LD   A,(IX+&H6)
DD0B  CD5FDB    CALL &HDB5F
DD0E  DD7E07    LD   A,(IX+&H7)
DD11  CD5FDB    CALL &HDB5F
DD14  DD7E08    LD   A,(IX+&H8)
DD17  CD5FDB    CALL &HDB5F
DD1A  DD7E09    LD   A,(IX+&H9)
DD1D  CD5FDB    CALL &HDB5F
DD20  DD7E0A    LD   A,(IX+&HA)
DD23  CD5FDB    CALL &HDB5F
DD26  DD7E0B    LD   A,(IX+&HB)
DD29  CD5FDB    CALL &HDB5F
DD2C  C9        RET 
DD2D  C5        PUSH BC
DD2E  3E01      LD   A,&H1
DD30  CDF300    CALL &HF3
DD33  010000    LD   BC,&H0
DD36  0B        DEC  BC
DD37  78        LD   A,B
DD38  B1        OR   C
DD39  20FB      JR   NZ,-&H5 (&HDD36)
DD3B  C1        POP  BC
DD3C  C9        RET 
DD3D  3E1B      LD   A,&H1B
DD3F  3205DA    LD   (&HDA05),A
DD42  3AA4FC    LD   A,(&HFCA4)
DD45  57        LD   D,A
DD46  CDCBDD    CALL &HDDCB
DD49  D8        RET  C
DD4A  DBA2      IN   A,(&HA2)
DD4C  07        RLCA
DD4D  30F7      JR   NC,-&H9 (&HDD46)
DD4F  CDCBDD    CALL &HDDCB
DD52  D8        RET  C
DD53  DBA2      IN   A,(&HA2)
DD55  07        RLCA
DD56  38F7      JR   C,-&H9 (&HDD4F)
DD58  1E00      LD   E,&H0
DD5A  CDA5DD    CALL &HDDA5
DD5D  41        LD   B,C
DD5E  CDA5DD    CALL &HDDA5
DD61  D8        RET  C
DD62  78        LD   A,B
DD63  81        ADD  A,C
DD64  DA5DDD    JP   C,&HDD5D
DD67  BA        CP   D
DD68  38F3      JR   C,-&HD (&HDD5D)
DD6A  2E08      LD   L,&H8
DD6C  CD89DD    CALL &HDD89
DD6F  FE04      CP   &H4
DD71  3F        CCF 
DD72  D8        RET  C
DD73  FE02      CP   &H2
DD75  3F        CCF 
DD76  CB1A      RR   D
DD78  79        LD   A,C
DD79  0F        RRCA
DD7A  D4A9DD    CALL NC,&HDDA9
DD7D  CDA5DD    CALL &HDDA5
DD80  2D        DEC  L
DD81  C26CDD    JP   NZ,&HDD6C
DD84  CDCBDD    CALL &HDDCB
DD87  7A        LD   A,D
DD88  C9        RET 
DD89  3AA5FC    LD   A,(&HFCA5)
DD8C  47        LD   B,A
DD8D  0E00      LD   C,&H0
DD8F  DBA2      IN   A,(&HA2)
DD91  AB        XOR  E
DD92  F29DDD    JP   P,&HDD9D
DD95  7B        LD   A,E
DD96  2F        CPL 
DD97  5F        LD   E,A
DD98  0C        INC  C
DD99  10F4      DJNZ -&HC (&HDD8F)
DD9B  79        LD   A,C
DD9C  C9        RET 
DD9D  00        NOP 
DD9E  00        NOP 
DD9F  00        NOP 
DDA0  00        NOP 
DDA1  10EC      DJNZ -&H14 (&HDD8F)
DDA3  79        LD   A,C
DDA4  C9        RET 
DDA5  CDCBDD    CALL &HDDCB
DDA8  D8        RET  C
DDA9  0E00      LD   C,&H0
DDAB  0C        INC  C
DDAC  280A      JR   Z,+&HA (&HDDB8)
DDAE  DBA2      IN   A,(&HA2)
DDB0  AB        XOR  E
DDB1  F2ABDD    JP   P,&HDDAB
DDB4  7B        LD   A,E
DDB5  2F        CPL 
DDB6  5F        LD   E,A
DDB7  C9        RET 
DDB8  0D        DEC  C
DDB9  C9        RET 
DDBA  CDCBDD    CALL &HDDCB
DDBD  D8        RET  C
DDBE  DBA2      IN   A,(&HA2)
DDC0  07        RLCA
DDC1  38F7      JR   C,-&H9 (&HDDBA)
DDC3  1E00      LD   E,&H0
DDC5  CDA9DD    CALL &HDDA9
DDC8  C3ABDD    JP   &HDDAB
DDCB  C5        PUSH BC
DDCC  ED4B04DA  LD   BC,(&HDA04)
DDD0  1007      DJNZ +&H7 (&HDDD9)
DDD2  ED4304DA  LD   (&HDA04),BC
DDD6  C1        POP  BC
DDD7  37        SCF 
DDD8  C9        RET 
DDD9  ED4304DA  LD   (&HDA04),BC
DDDD  C1        POP  BC
DDDE  C36F04    JP   &H46F
DDE1  43        LD   B,E
DDE2  4F        LD   C,A
DDE3  50        LD   D,B
DDE4  59        LD   E,C
DDE5  2056      JR   NZ,+&H56 (&HDE3D)
DDE7  45        LD   B,L
DDE8  52        LD   D,D
DDE9  53        LD   D,E
DDEA  2032      JR   NZ,+&H32 (&HDE1E)
DDEC  2E31      LD   L,&H31
DDEE  00        NOP 
En línea
Páginas: [1] 2
  Imprimir  
 
Ir a:  

Impulsado por MySQL Impulsado por PHP Powered by SMF 1.1.21 | SMF © 2013, Simple Machines XHTML 1.0 válido! CSS válido!