include     "requester/FileIO.i"
                include     "intuition/intuition.i"
                include     "graphics/view.i"


NULL            EQU         $0

                XDEF        Save


                XREF        _AbsExecBase
                XREF        _LVOOpenWindow
                XREF        _LVOWaitPort
                XREF        _LVOGetMsg
                XREF        _LVOReplyMsg
                XREF        _LVOOpen
                XREF        _LVOWrite
                XREF        _LVORead
                XREF        _LVOClose
                XREF        _LVOCloseWindow
                XREF        _LVOOpenScreen
                XREF        _LVOCloseScreen
                XREF        intuitionbase
                XREF        dosbase
                XREF        gfxbase
                XREF        Main
                XREF        tempscr2
                XREF        ScreenBack
                XREF        MyScreen
                XREF        _LVOMoveScreen

                XREF        requesterbase
                XREF        FileIO

                XREF        _LVOSetDrMd
                XREF        _LVOSetAPen
                XREF        _LVOSetBPen


Save:
                move.l      #9,d2
MoveCPlp:
                move.l      MyScreen,a0
                move.l      #0,d0
                move.l      #-20,d1
                move.l      intuitionbase,a6
                jsr         _LVOMoveScreen(a6)
                dbra        d2,MoveCPlp

                tst.l       FileIO
                beq         Quit

                move.l      FileIO,a0
                move.l      #Title,FILEIO_TITLE(a0)
                move.l      MyScreen,a1
                move.l      requesterbase,a6
                jsr         _LVODoFileIOWindow(a6)

                move.l      d0,NameBuffer
                move.l      d0,Return
                beq         Quit
                cmpi.l      #-1,d0
                beq         Quit


                move.l      requesterbase,a6
                move.l      #FileName,a1
                move.l      FileIO,a0
                jsr         _LVOGetFullPathname(a6)
                move.l      d0,NameBuffer

savesamp:
                move.l      dosbase,a6
                move.l      NameBuffer,d1
                move.l      #1006,d2
                jsr         _LVOOpen(a6)

                move.l      d0,Return
                move.l      d0,FileHandle
                beq         QuitSave


                move.l      FileHandle,d1
                move.l      tempscr2,d2
                move.l      #128000,d3
                move.l      dosbase,a6
                jsr         _LVOWrite(a6)

QuitSave:
                move.l      dosbase,a6
                move.l      FileHandle,d1
                jsr         _LVOClose(a6)
Quit:
                move.l      #6,d2
MoveCPlp2:
                move.l      MyScreen,a0
                move.l      #0,d0
                move.l      #20,d1
                move.l      intuitionbase,a6
                jsr         _LVOMoveScreen(a6)
                dbra        d2,MoveCPlp2

Abort:
                move.l      _AbsExecBase,a6
                clr.l       d0
                jmp         Main

FileHandle      dc.l        0
Return          dc.l        0



Buffer:
            dcb.b           250,0

NameBuffer:
            dc.l            0

FileName:
            dcb.b           250,0

Title:
            dc.b            '          =  SAVE RAW =       ',0
            cnop        0,2