home *** CD-ROM | disk | FTP | other *** search
- ;> s.FS_Interfc
- ;
- ; 21 Nov 1993
-
- AREA FS_Interface,CODE,READONLY
-
- GET ^.h.RegNames
- GET ^.h.SWIs
- GET ^.h.Macros
- GET h.Head
- GET h.Macros
-
- IMPORT MWriteText
-
- EXPORT XFS_DiscOp
- EXPORT XFS_DescribeDisc
- EXPORT XFS_FreeSpace
- EXPORT XFS_Drives
-
- ALIGN 16
- ;******************************************************************************
- ;
- ;XFS_DiscOp
- ;---------
- ; on entry:
- ; r1 reason code (1:read, 2:write)
- ; r2 disc ad
- ; r3 pointer to buffer
- ; r4 length
- ;
- ; on exit:
- ; r2,r3 updated
- ; r4 no. of bytes not transferred
-
- Routine "XFS_DiscOp","r8"
- [ debug
- PrintR r1
- PrintR r2
- PrintR r3
- PrintR r4
- ]
- LDR r8,FSPrivateWord
- SWI XFileCore_DiscOp
- RoutineEnd
-
-
- ;******************************************************************************
- ;
- ;XFS_DescribeDisc
- ;----------------
- ; on entry:
- ; r0 pointer to disc spec.
- ; r1 pointer to 64 byte block
- ;
- Routine "XFS_DescribeDisc","r8"
- [ debug
- PrintR r0
- PrintR r1
- ]
- LDR r8,FSPrivateWord
- SWI XFileCore_DescribeDisc
- RoutineEnd
-
- ;******************************************************************************
- ;
- ;XFS_FreeSpace
- ;-------------
- ; on entry:
- ; r0 pointer to disc spec.
- ;
- ; on exit:
- ; r0 total free space on disc
- ; r1 size of largest object that can be created
-
- Routine "XFS_FreeSpace","r8"
- LDR r8,FSPrivateWord
- SWI XFileCore_FreeSpace
- RoutineEnd
-
- ;******************************************************************************
- ;
- ;XFS_Drives
- ;----------
- ; on exit:
- ; r0 default drive
- ; r1 no of floppies
- ; r2 no of hd's
-
- Routine "XFS_Drives","r8"
- LDR r8,FSPrivateWord
- SWI XFileCore_Drives
- RoutineEnd
-
- END
-