ABRIR_LEER_ARCHIVO

*-----------------------------------------------------------
* Title      :
* Written by :Fulgencio
* Date       : MAYO 2017
* Description: Abre un dialogo para seleccionar el archivo que
*              se desea leer. Una vez seleccionado, carga el contenido
*              del mismo en el buffer reservado IMAGEN. Utiliza las
*              funciones de manejo de archivos del Easy68k
*-----------------------------------------------------------
    ORG    $1000
START:                  ; first instruction of program

    MOVE.L #58,D0      *Funcion para abrir el dialogo de archivos
    LEA 0,A1
    LEA 0,A2            *Opcionalmente A2 se puede utilizar para elegir tipo de archivos
    CLR.L D1            *Opcion lectura D1=0
    MOVE.L #FILENAME,A3 *En FILENAME guardará el nombre del archivo seleccionado
    TRAP #15

    MOVE.L #51,D0        *Abre un archivo existente (leer) y asigna su FILE-ID a D1
    MOVE.L #FILENAME,A1  *El nombre del archivo está en FILENAME
    TRAP #15

    MOVE.L #53,D0        *Lectura de información del archivo que guardará a partir
    MOVE.L #IMAGEN,A1    *de la posición IMAGEN
    MOVE.L #1000000,D2 *Maximo numero de bytes a leer del archivo cuyo FILE-ID está en D1
    TRAP #15           *En D2 quedará el verdadero numero de bytes que
                       *ha leido del archivo
    MOVE.L #56,D0
    TRAP #15           *Cierra el archivo cuyo FILE-ID está en D1

    SIMHALT             ; halt simulator

* Put variables and constants here
    ORG $3000
FILENAME
    DC.B 0   *Marcamos final de cadena para que salga inicialmente el nombre vacío
    DS.B 255 *En total reserva 256 caracteres para el nombre

    ORG $5000
IMAGEN DS.B 1000000
    END    START        ; last line of source