GUARDAR_ARCHIVO

*-----------------------------------------------------------
* Title      :
* Written by : Fulgencio
* Date       : Mayo 2017
* Description: Este ejemplo sirve para guardar en un archivo los datos que tenemos
*              en una zona de la memoria. Previamente se abre un dialogo que captura
*              el nombre y carpeta del archivo en el que queremos guardar.
*-----------------------------------------------------------
    ORG    $1000
START:                  ; first instruction of program

    MOVE.L #58,D0 *Para abrir el dialogo de Guardar archivo
    MOVE.L #1,D1  *Modo guardar archivo
    MOVE.L #0,A1
    MOVE.L #0,A2
    MOVE.L #ARCHIVO,A3
    TRAP #15

    MOVE.L #52,D0           *Para abrir el archivo como nuevo o para sobreescribir
    MOVE.L #ARCHIVO, A1
    TRAP #15                *EN D1 TENDREMOS EL ID DEL ARCHIVO

    MOVE.L #54,D0 *PARA ESCRIBIR ARCHIVO. En D1 irá el FILE-ID
    MOVE.L #DATOSARCHIVO,A1
    MOVE.L #34,D2 *D2 indica que guardará 34 caracteres (en el ejemplo)
    TRAP #15

    MOVE.L #56,D0 *CIERRA ARCHIVO. En D1 irá el FILE-ID
    TRAP #15

* Put program code here

    SIMHALT             ; halt simulator

* Put variables and constants here

ARCHIVO DC.B 'test.txt',0
        DS.B 247 *Reservo hasta completar 256 caracteres

DATOSARCHIVO    DC.B 'Este texto se meterá en un archivo',0

    END    START        ; last line of source