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


NULL            EQU         $0

                XDEF        Load


                XREF        _AbsExecBase
                XREF        _LVOMoveScreen
                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        requesterbase

                XREF        _LVOSetDrMd
                XREF        _LVOSetAPen
                XREF        _LVOSetBPen

                XREF        FileIO


Load:
                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


SkipFileIO:
                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

loadsamp:
                move.l      dosbase,a6
                move.l      NameBuffer,d1
                move.l      #1005,d2
                jsr         _LVOOpen(a6)

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


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

QuitLoad:
                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
                move.l      Return,d0
                beq         Error
                cmpi.l      #-1,d0
                beq         Error
                jsr         ScreenBack
Error:
                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            '             = LOAD =         ',0
            cnop            0,2