MODULE  FP_File ; 1992-08-23 20:07:55.13:  32016 ZASM 2.12
    EXPORTC IFFILEREPLACE
    EXPORTC IFXFILEREPLACE
    EXPORTC IFLOADFILE
    EXPORTC IFXLOADFILE
    EXPORTC IFRENAMEFILE
    EXPORTC IFXRENAMEFILE
    EXPORTC IFDELETEFILE
    EXPORTC IFXDELETEFILE
    EXPORTC IFSAVEFILE
    EXPORTC IFXSAVEFILE
    EXPORTC IFCREATEFILE
    EXPORTC IFXCREATEFILE
    EXPORTC IFPHYSICALDIRREAD
    EXPORTC IFXPHYSICALDIRREAD
    EXPORTC IFINITDIRREAD
    EXPORTC IFXINITDIRREAD
    EXPORTC IFENDDIRREAD
    EXPORTC IFXENDDIRREAD
    EXPORTC IFPHYSICALFILENAME
    EXPORTC IFXPHYSICALFILENAME
    EXPORTC IFGETDATESTAMP
    EXPORTC IFXGETDATESTAMP
    EXPORTC IFSETDATESTAMP
    EXPORTC IFXSETDATESTAMP
    EXPORTC IFGETFILEINFORMATION
    EXPORTC IFXGETFILEINFORMATION
    EXPORTC IFSETFILEINFORMATION
    EXPORTC IFXSETFILEINFORMATION
    EXPORTC IFTOUCH
    EXPORTC IFXTOUCH
    EXPORTC IFEXPAND
    EXPORTC IFXEXPAND
    EXPORTC IFISWILD
    EXPORTC IFSETWORKINGDIRECTORY
    EXPORTC IFXSETWORKINGDIRECTORY
    EXPORTC IFGETWORKINGDIRECTORY
    EXPORTC IFXGETWORKINGDIRECTORY
    EXPORTC IFCREATEDIRECTORY
    EXPORTC IFXCREATEDIRECTORY
    EXPORTC IFGETDIRENTRY
    EXPORTC IFXGETDIRENTRY
    IMPORTC _FileReplace='File'.'FileReplace'
    IMPORTC _XFileReplace='File'.'XFileReplace'
    IMPORTC _LoadFile='File'.'LoadFile'
    IMPORTC _XLoadFile='File'.'XLoadFile'
    IMPORTC _RenameFile='File'.'RenameFile'
    IMPORTC _XRenameFile='File'.'XRenameFile'
    IMPORTC _DeleteFile='File'.'DeleteFile'
    IMPORTC _XDeleteFile='File'.'XDeleteFile'
    IMPORTC _SaveFile='File'.'SaveFile'
    IMPORTC _XSaveFile='File'.'XSaveFile'
    IMPORTC _CreateFile='File'.'CreateFile'
    IMPORTC _XCreateFile='File'.'XCreateFile'
    IMPORTC _PhysicalDirRead='File'.'PhysicalDirRead'
    IMPORTC _XPhysicalDirRead='File'.'XPhysicalDirRead'
    IMPORTC _InitDirRead='File'.'InitDirRead'
    IMPORTC _XInitDirRead='File'.'XInitDirRead'
    IMPORTC _EndDirRead='File'.'EndDirRead'
    IMPORTC _XEndDirRead='File'.'XEndDirRead'
    IMPORTC _PhysicalFileName='File'.'PhysicalFileName'
    IMPORTC _XPhysicalFileName='File'.'XPhysicalFileName'
    IMPORTC _GetDateStamp='File'.'GetDateStamp'
    IMPORTC _XGetDateStamp='File'.'XGetDateStamp'
    IMPORTC _SetDateStamp='File'.'SetDateStamp'
    IMPORTC _XSetDateStamp='File'.'XSetDateStamp'
    IMPORTC _GetFileInformation='File'.'GetFileInformation'
    IMPORTC _XGetFileInformation='File'.'XGetFileInformation'
    IMPORTC _SetFileInformation='File'.'SetFileInformation'
    IMPORTC _XSetFileInformation='File'.'XSetFileInformation'
    IMPORTC _Touch='File'.'Touch'
    IMPORTC _XTouch='File'.'XTouch'
    IMPORTC _Expand='File'.'Expand'
    IMPORTC _XExpand='File'.'XExpand'
    IMPORTC _IsWild='File'.'IsWild'
    IMPORTC _SetWorkingDirectory='File'.'SetWorkingDirectory'
    IMPORTC _XSetWorkingDirectory='File'.'XSetWorkingDirectory'
    IMPORTC _GetWorkingDirectory='File'.'GetWorkingDirectory'
    IMPORTC _XGetWorkingDirectory='File'.'XGetWorkingDirectory'
    IMPORTC _CreateDirectory='File'.'CreateDirectory'
    IMPORTC _XCreateDirectory='File'.'XCreateDirectory'
    IMPORTC _GetDirEntry='File'.'GetDirEntry'
    IMPORTC _XGetDirEntry='File'.'XGetDirEntry'
    AREADEF PROG,[READ,PIC,CODE],BYTE    ; size is   1220
    DEFSB   DATA+0
    AREADEF DATA,[],DOUBLE  ; size is     20
;
    AREA    PROG
IFGETDATESTAMP
    SPRD    FP,TOS
    LPRD    FP,12(SP)
    MOVD    4(4(FP)),TOS
    MOVD    0(4(FP)),TOS
    MOVD    0(FP),TOS
    CXP     _GetDateStamp
    MOVD    R0,saa
    ADDR    saa,R0
    LPRD    FP,TOS
    RXP     4
IFXGETDATESTAMP
    SPRD    FP,TOS
    LPRD    FP,12(SP)
    MOVD    4(4(FP)),TOS
    MOVD    0(4(FP)),TOS
    MOVD    0(FP),TOS
    CXP     _XGetDateStamp
    LPRD    FP,TOS
    RXP     4
IFSETDATESTAMP
    SPRD    FP,TOS
    LPRD    FP,12(SP)
    MOVD    4(FP),TOS
    MOVD    4(0(FP)),TOS
    MOVD    0(0(FP)),TOS
    CXP     _SetDateStamp
    MOVD    R0,saa
    ADDR    saa,R0
    LPRD    FP,TOS
    RXP     4
IFXSETDATESTAMP
    SPRD    FP,TOS
    LPRD    FP,12(SP)
    MOVD    4(FP),TOS
    MOVD    4(0(FP)),TOS
    MOVD    0(0(FP)),TOS
    CXP     _XSetDateStamp
    LPRD    FP,TOS
    RXP     4
IFTOUCH
    MOVD    0(8(SP)),R0
    MOVD    4(R0),TOS
    MOVD    0(R0),TOS
    CXP     _Touch
    MOVD    R0,saa
    ADDR    saa,R0
    RXP     4
IFXTOUCH
    SPRD    FP,TOS
    LPRD    FP,12(SP)
    MOVD    4(0(FP)),TOS
    MOVD    0(0(FP)),TOS
    CXP     _XTouch
    LPRD    FP,TOS
    RXP     4
IFRENAMEFILE
    SPRD    FP,TOS
    LPRD    FP,12(SP)
    MOVD    4(4(FP)),TOS
    MOVD    0(4(FP)),TOS
    MOVD    4(0(FP)),TOS
    MOVD    0(0(FP)),TOS
    CXP     _RenameFile
    MOVD    R0,saa
    ADDR    saa,R0
    LPRD    FP,TOS
    RXP     4
IFXRENAMEFILE
    SPRD    FP,TOS
    LPRD    FP,12(SP)
    MOVD    4(4(FP)),TOS
    MOVD    0(4(FP)),TOS
    MOVD    4(0(FP)),TOS
    MOVD    0(0(FP)),TOS
    CXP     _XRenameFile
    LPRD    FP,TOS
    RXP     4
IFDELETEFILE
    MOVD    0(8(SP)),R0
    MOVD    4(R0),TOS
    MOVD    0(R0),TOS
    CXP     _DeleteFile
    MOVD    R0,saa
    ADDR    saa,R0
    RXP     4
IFXDELETEFILE
    SPRD    FP,TOS
    LPRD    FP,12(SP)
    MOVD    4(0(FP)),TOS
    MOVD    0(0(FP)),TOS
    CXP     _XDeleteFile
    LPRD    FP,TOS
    RXP     4
IFPHYSICALFILENAME
    SPRD    FP,TOS
    LPRD    FP,12(SP)
    MOVD    4(16(FP)),TOS
    MOVD    0(16(FP)),TOS
    MOVD    12(FP),TOS
    MOVD    4(8(FP)),TOS
    MOVD    0(8(FP)),TOS
    MOVD    4(FP),TOS
    MOVD    4(0(FP)),TOS
    MOVD    0(0(FP)),TOS
    CXP     _PhysicalFileName
    MOVD    R0,saa
    ADDR    saa,R0
    LPRD    FP,TOS
    RXP     4
IFXPHYSICALFILENAME
    SPRD    FP,TOS
    LPRD    FP,12(SP)
    MOVD    4(12(FP)),TOS
    MOVD    0(12(FP)),TOS
    MOVD    8(FP),TOS
    MOVD    4(4(FP)),TOS
    MOVD    0(4(FP)),TOS
    MOVD    4(0(FP)),TOS
    MOVD    0(0(FP)),TOS
    CXP     _XPhysicalFileName
    MOVD    R0,saa
    ADDR    saa,R0
    LPRD    FP,TOS
    RXP     4
IFSETWORKINGDIRECTORY
    MOVD    0(8(SP)),R0
    MOVD    4(R0),TOS
    MOVD    0(R0),TOS
    CXP     _SetWorkingDirectory
    MOVD    R0,saa
    ADDR    saa,R0
    RXP     4
IFXSETWORKINGDIRECTORY
    SPRD    FP,TOS
    LPRD    FP,12(SP)
    MOVD    4(0(FP)),TOS
    MOVD    0(0(FP)),TOS
    CXP     _XSetWorkingDirectory
    LPRD    FP,TOS
    RXP     4
IFGETWORKINGDIRECTORY
    SPRD    FP,TOS
    LPRD    FP,12(SP)
    MOVD    4(FP),TOS
    MOVD    4(0(FP)),TOS
    MOVD    0(0(FP)),TOS
    CXP     _GetWorkingDirectory
    MOVD    R0,saa
    ADDR    saa,R0
    LPRD    FP,TOS
    RXP     4
IFXGETWORKINGDIRECTORY
    SPRD    FP,TOS
    LPRD    FP,12(SP)
    MOVD    4(0(FP)),TOS
    MOVD    0(0(FP)),TOS
    CXP     _XGetWorkingDirectory
    MOVD    R0,saa
    ADDR    saa,R0
    LPRD    FP,TOS
    RXP     4
IFLOADFILE
    SPRD    FP,TOS
    LPRD    FP,12(SP)
    MOVD    8(FP),TOS
    MOVD    0(4(FP)),TOS
    MOVD    4(0(FP)),TOS
    MOVD    0(0(FP)),TOS
    CXP     _LoadFile
    MOVD    R0,saa
    ADDR    saa,R0
    LPRD    FP,TOS
    RXP     4
IFXLOADFILE
    SPRD    FP,TOS
    LPRD    FP,12(SP)
    MOVD    8(FP),TOS
    MOVD    0(4(FP)),TOS
    MOVD    4(0(FP)),TOS
    MOVD    0(0(FP)),TOS
    CXP     _XLoadFile
    LPRD    FP,TOS
    RXP     4
IFSAVEFILE
    SPRD    FP,TOS
    LPRD    FP,12(SP)
    MOVD    8(FP),TOS
    MOVD    0(4(FP)),TOS
    MOVD    4(0(FP)),TOS
    MOVD    0(0(FP)),TOS
    CXP     _SaveFile
    MOVD    R0,saa
    ADDR    saa,R0
    LPRD    FP,TOS
    RXP     4
IFXSAVEFILE
    SPRD    FP,TOS
    LPRD    FP,12(SP)
    MOVD    8(FP),TOS
    MOVD    0(4(FP)),TOS
    MOVD    4(0(FP)),TOS
    MOVD    0(0(FP)),TOS
    CXP     _XSaveFile
    LPRD    FP,TOS
    RXP     4
paf ADDR    8(SP),sab
    ADDR    16(SP),sac
    ADDR    sab,TOS
    CXPD    sad
    MOVD    0(R0),R0
    RXP     12
IFPHYSICALDIRREAD
    SPRD    FP,TOS
    LPRD    FP,12(SP)
    MOVD    0(8(FP)),TOS
    MOVD    4(FP),sad
    MOVD    sae,TOS
    MOVD    4(0(FP)),TOS
    MOVD    0(0(FP)),TOS
    CXP     _PhysicalDirRead
    MOVD    R0,saa
    ADDR    saa,R0
    LPRD    FP,TOS
    RXP     4
IFXPHYSICALDIRREAD
    SPRD    FP,TOS
    LPRD    FP,12(SP)
    MOVD    0(8(FP)),TOS
    MOVD    4(FP),sad
    MOVD    sae,TOS
    MOVD    4(0(FP)),TOS
    MOVD    0(0(FP)),TOS
    CXP     _XPhysicalDirRead
    MOVD    R0,saa
    ADDR    saa,R0
    LPRD    FP,TOS
    RXP     4
IFEXPAND
    SPRD    FP,TOS
    LPRD    FP,12(SP)
    MOVZBD  0(12(FP)),TOS
    MOVD    0(8(FP)),TOS
    MOVD    4(FP),sad
    MOVD    sae,TOS
    MOVD    4(0(FP)),TOS
    MOVD    0(0(FP)),TOS
    CXP     _Expand
    MOVD    R0,saa
    ADDR    saa,R0
    LPRD    FP,TOS
    RXP     4
IFXEXPAND
    SPRD    FP,TOS
    LPRD    FP,12(SP)
    MOVZBD  0(12(FP)),TOS
    MOVD    0(8(FP)),TOS
    MOVD    4(FP),sad
    MOVD    sae,TOS
    MOVD    4(0(FP)),TOS
    MOVD    0(0(FP)),TOS
    CXP     _XExpand
    LPRD    FP,TOS
    RXP     4
IFINITDIRREAD
    SPRD    FP,TOS
    LPRD    FP,12(SP)
    MOVD    4(16(FP)),TOS
    MOVD    0(16(FP)),TOS
    MOVZBD  0(12(FP)),TOS
    MOVZBD  0(8(FP)),TOS
    MOVD    4(4(FP)),TOS
    MOVD    0(4(FP)),TOS
    MOVD    0(FP),TOS
    CXP     _InitDirRead
    MOVD    R0,saa
    ADDR    saa,R0
    LPRD    FP,TOS
    RXP     4
IFXINITDIRREAD
    SPRD    FP,TOS
    LPRD    FP,12(SP)
    MOVD    4(12(FP)),TOS
    MOVD    0(12(FP)),TOS
    MOVZBD  0(8(FP)),TOS
    MOVZBD  0(4(FP)),TOS
    MOVD    4(0(FP)),TOS
    MOVD    0(0(FP)),TOS
    CXP     _XInitDirRead
    MOVD    R0,saa
    ADDR    saa,R0
    LPRD    FP,TOS
    RXP     4
IFGETDIRENTRY
    SPRD    FP,TOS
    LPRD    FP,12(SP)
    MOVD    0(16(FP)),TOS
    MOVD    0(12(FP)),TOS
    MOVD    8(FP),TOS
    MOVD    4(FP),TOS
    MOVD    4(0(FP)),TOS
    MOVD    0(0(FP)),TOS
    CXP     _GetDirEntry
    MOVD    R0,saa
    ADDR    saa,R0
    LPRD    FP,TOS
    RXP     4
IFXGETDIRENTRY
    SPRD    FP,TOS
    LPRD    FP,12(SP)
    MOVD    0(12(FP)),TOS
    MOVD    0(8(FP)),TOS
    MOVD    4(FP),TOS
    MOVD    4(0(FP)),TOS
    MOVD    0(0(FP)),TOS
    CXP     _XGetDirEntry
    MOVD    R0,saa
    ADDR    saa,R0
    LPRD    FP,TOS
    RXP     4
IFENDDIRREAD
    MOVD    0(8(SP)),R0
    MOVD    0(R0),TOS
    CXP     _EndDirRead
    MOVD    R0,saa
    ADDR    saa,R0
    RXP     4
IFXENDDIRREAD
    MOVD    0(8(SP)),R0
    MOVD    0(R0),TOS
    CXP     _XEndDirRead
    RXP     4
IFISWILD
    MOVD    0(8(SP)),R0
    MOVD    4(R0),TOS
    MOVD    0(R0),TOS
    CXP     _IsWild
    MOVD    R0,saa
    ADDR    saa,R0
    RXP     4
IFFILEREPLACE
    SPRD    FP,TOS
    LPRD    FP,12(SP)
    MOVD    4(16(FP)),TOS
    MOVD    0(16(FP)),TOS
    MOVD    4(12(FP)),TOS
    MOVD    0(12(FP)),TOS
    MOVD    4(8(FP)),TOS
    MOVD    0(8(FP)),TOS
    MOVD    4(FP),TOS
    MOVD    4(0(FP)),TOS
    MOVD    0(0(FP)),TOS
    CXP     _FileReplace
    MOVD    R0,saa
    ADDR    saa,R0
    LPRD    FP,TOS
    RXP     4
IFXFILEREPLACE
    SPRD    FP,TOS
    LPRD    FP,12(SP)
    MOVD    4(12(FP)),TOS
    MOVD    0(12(FP)),TOS
    MOVD    4(8(FP)),TOS
    MOVD    0(8(FP)),TOS
    MOVD    4(4(FP)),TOS
    MOVD    0(4(FP)),TOS
    MOVD    4(0(FP)),TOS
    MOVD    0(0(FP)),TOS
    CXP     _XFileReplace
    MOVD    R0,saa
    ADDR    saa,R0
    LPRD    FP,TOS
    RXP     4
IFGETFILEINFORMATION
    SPRD    FP,TOS
    LPRD    FP,12(SP)
    MOVD    4(8(FP)),TOS
    MOVD    0(8(FP)),TOS
    MOVD    4(FP),TOS
    MOVD    0(FP),TOS
    CXP     _GetFileInformation
    MOVD    R0,saa
    ADDR    saa,R0
    LPRD    FP,TOS
    RXP     4
IFXGETFILEINFORMATION
    SPRD    FP,TOS
    LPRD    FP,12(SP)
    MOVD    4(8(FP)),TOS
    MOVD    0(8(FP)),TOS
    MOVD    4(FP),TOS
    MOVD    0(FP),TOS
    CXP     _XGetFileInformation
    LPRD    FP,TOS
    RXP     4
IFSETFILEINFORMATION
    SPRD    FP,TOS
    LPRD    FP,12(SP)
    MOVD    8(FP),TOS
    MOVD    4(FP),TOS
    MOVD    4(0(FP)),TOS
    MOVD    0(0(FP)),TOS
    CXP     _SetFileInformation
    MOVD    R0,saa
    ADDR    saa,R0
    LPRD    FP,TOS
    RXP     4
IFXSETFILEINFORMATION
    SPRD    FP,TOS
    LPRD    FP,12(SP)
    MOVD    8(FP),TOS
    MOVD    4(FP),TOS
    MOVD    4(0(FP)),TOS
    MOVD    0(0(FP)),TOS
    CXP     _XSetFileInformation
    LPRD    FP,TOS
    RXP     4
IFCREATEFILE
    SPRD    FP,TOS
    LPRD    FP,12(SP)
    MOVD    0(4(FP)),TOS
    MOVD    4(0(FP)),TOS
    MOVD    0(0(FP)),TOS
    CXP     _CreateFile
    MOVD    R0,saa
    ADDR    saa,R0
    LPRD    FP,TOS
    RXP     4
IFXCREATEFILE
    SPRD    FP,TOS
    LPRD    FP,12(SP)
    MOVD    0(4(FP)),TOS
    MOVD    4(0(FP)),TOS
    MOVD    0(0(FP)),TOS
    CXP     _XCreateFile
    LPRD    FP,TOS
    RXP     4
IFCREATEDIRECTORY
    MOVD    0(8(SP)),R0
    MOVD    4(R0),TOS
    MOVD    0(R0),TOS
    CXP     _CreateDirectory
    MOVD    R0,saa
    ADDR    saa,R0
    RXP     4
IFXCREATEDIRECTORY
    SPRD    FP,TOS
    LPRD    FP,12(SP)
    MOVD    4(0(FP)),TOS
    MOVD    0(0(FP)),TOS
    CXP     _XCreateDirectory
    LPRD    FP,TOS
    RXP     4
;
    AREA    DATA
saa ALLOCD  1
sab ALLOCD  1
sac ALLOCD  1
sad ALLOCD  1
sae CDESC paf
    END