[ro-oslib-commits] OSLib/!OsLib/Source/Computer/oslib FileCore.swi,1.2,1.3

[<th...@us...>]

Update of /cvsroot/ro-oslib/OSLib/!OsLib/Source/Computer/oslib
In directory sc8-pr-cvs1:/tmp/cvs-serv30815/Source/Computer/oslib

Modified Files:
	FileCore.swi 
Log Message:
Updated FileCore for changes in RISC O S 5 including the addition
of FileCore_DiscOp64. Also fixed an incorrect flag value, and added
some missing flags from RISC O S 3.6 additions.


Index: FileCore.swi
===================================================================
RCS file: /cvsroot/ro-oslib/OSLib/!OsLib/Source/Computer/oslib/FileCore.swi,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** FileCore.swi	11 Mar 2002 14:12:29 -0000	1.2
--- FileCore.swi	23 Nov 2002 15:11:33 -0000	1.3
***************
*** 24,28 ****
     FileCore_HardDiscsCanPollChange = .Bits: %100000,
     FileCore_FloppiesCanEject       = .Bits: %1000000,
!    FileCore_HardDiscsCanEject      = .Bits: %100000000;
  
  TYPE
--- 24,31 ----
     FileCore_HardDiscsCanPollChange = .Bits: %100000,
     FileCore_FloppiesCanEject       = .Bits: %1000000,
!    FileCore_HardDiscsCanEject      = .Bits: %10000000,
!    FileCore_SupportsReadDriveFlags = .Bits: %100000000 "RISC O S 3.6+",
!    FileCore_UseSectorAddressing    = .Bits: %1000000000 "RISC O S 3.6+",
!    FileCore_ReturnsNewStyleErrors  = .Bits: %10000000000 "RISC O S 5+";
  
  TYPE
***************
*** 66,69 ****
--- 69,81 ----
  
  TYPE
+    FileCore_DiscAddress64 =
+       .Struct
+       (  .Byte: drive,
+          [3] .Byte: reserved,
+          .Int: offset_low,
+          .Int: offset_high
+       );
+ 
+ TYPE
     FileCore_Format =
        .Struct
***************
*** 432,435 ****
--- 444,526 ----
        R8 = .Ref Void: instance), EXIT (R0 = .Bits: free_lo,
        R1 = .Int: free_hi, R2 = .Int: max));
+ 
+ SWI FileCore_DiscOp64 = (NUMBER 0x4054C "Performs various operations on a
+       disc - see individual reason codes - RISC O S 5+", ABSENT);
+ SWI FileCoreDiscOp64_Verify = (NUMBER 0x4054C,
+       ENTRY (R1 # 0 "Verifies a disc - RISC O S 5+",
+             R1 | .Bits: flags,
+             R2 = .Ref FileCore_DiscAddress64: disc_addr, R4 = .Int: size,
+             R8 = .Ref Void: instance),
+       EXIT (R2 = .Ref FileCore_DiscAddress64: next_disc_addr,
+             R4! = .Int: unverified));
+ SWI FileCoreDiscOp64_ReadSectors = (NUMBER 0x4054C,
+       ENTRY (R1 # 1 "Reads sectors from a disc - RISC O S 5+",
+             R1 | .Bits: flags,
+             R2 = .Ref FileCore_DiscAddress64: disc_addr, R3 = .Ref .Data: data,
+             R4 = .Int: size, R8 = .Ref Void: instance),
+        EXIT (R2 = .Ref FileCore_DiscAddress64: next_disc_addr,
+              R3 = .Ref .Data: next_data,
+              R4! = .Int: unread));
+ SWI FileCoreDiscOp64_WriteSectors = (NUMBER 0x4054C,
+       ENTRY (R1 # 2 "Writes sectors to a disc - RISC O S 5+",
+             R1 | .Bits: flags,
+             R2 = .Ref FileCore_DiscAddress64: disc_addr, R3 -> .Data: data,
+             R4 = .Int: size, R8 = .Ref Void: instance),
+       EXIT (R2 = .Ref FileCore_DiscAddress64: next_disc_addr,
+             R3 -> .Data: next_data,
+             R4! = .Int: unwritten));
+ SWI FileCoreDiscOp64_ReadTrack = (NUMBER 0x4054C,
+       ENTRY (R1 # 3 "Reads a track from a floppy disc - RISC O S 5+",
+             R1 | .Bits: flags,
+             R2 -> FileCore_DiscAddress64: disc_addr, R3 = .Ref .Data: data,
+             R8 = .Ref Void: instance));
+ SWI FileCoreDiscOp64_ReadId = (NUMBER 0x4054C,
+       ENTRY (R1 # 3 "Reads a hard disc ID - RISC O S 5+",
+             R1 | .Bits: flags,
+             R2 -> FileCore_DiscAddress64: disc_addr, R3 = .Ref .Data: data,
+             R8 = .Ref Void: instance));
+ SWI FileCoreDiscOp64_WriteTrack = (NUMBER 0x4054C,
+       ENTRY (R1 # 4 "Writes a track to a disc - RISC O S 5+",
+             R1 | .Bits: flags,
+             R2 -> FileCore_DiscAddress64: disc_addr, R3 -> .Data: data,
+             R8 = .Ref Void: instance));
+ SWI FileCoreDiscOp64_FormatTrack = (NUMBER 0x4054C,
+       ENTRY (R1 # 4 "Formats a track of a disc - RISC O S 5+",
+             R1 | .Bits: flags,
+             R2 -> FileCore_DiscAddress64: disc_addr, R3 # 0,
+             R4 -> FileCore_TrackFormat: track_format,
+             R8 = .Ref Void: instance));
+ SWI FileCoreDiscOp64_Seek = (NUMBER 0x4054C,
+       ENTRY (R1 # 5 "Seeks to a disc location - RISC O S 5+",
+             R1 | .Bits: flags,
+             R2 -> FileCore_DiscAddress64: disc_addr,
+             R8 = .Ref Void: instance));
+ SWI FileCoreDiscOp64_Restore = (NUMBER 0x4054C,
+       ENTRY (R1 # 6 "Does a restore operation for a disc - RISC O S 5+",
+             R1 | .Bits: flags,
+             R2 -> FileCore_DiscAddress64: disc_addr,
+             R8 = .Ref Void: instance));
+ SWI FileCoreDiscOp64_StepIn = (NUMBER 0x4054C,
+       ENTRY (R1 # 7 "Steps a floppy disc in one track - RISC O S 5+",
+             R1 | .Bits: flags,
+             R8 = .Ref Void: instance));
+ SWI FileCoreDiscOp64_StepOut = (NUMBER 0x4054C,
+       ENTRY (R1 # 8 "Steps a floppy disc out one track - RISC O S 5+",
+             R1 | .Bits: flags,
+             R8 = .Ref Void: instance));
+ SWI FileCoreDiscOp64_ReadSectorsViaCache = (NUMBER 0x4054C,
+       ENTRY (R1 # 9 "Reads sectors of a disc using the RMA cache - RISC O S 5+",
+             R1 | .Bits: flags,
+             R2 = .Ref FileCore_DiscAddress64: disc_addr, R3 = .Ref .Data: data,
+             R4 = .Int: size, R6 = .Int: cache_handle,
+             R8 = .Ref Void: instance),
+       EXIT (R2 = .Ref FileCore_DiscAddress64: next_disc_addr,
+             R3 = .Ref .Data: next_data,
+             R4! = .Int: unread, R6 = .Int: cache_handle_out));
+ SWI FileCoreDiscOp64_Specify = (NUMBER 0x4054C,
+       ENTRY (R1 # 15 "Does a specify operation on a hard disc - RISC O S 5+",
+             R1 | .Bits: flags,
+             R2 -> FileCore_DiscAddress64: disc_addr,
+             R8 = .Ref Void: instance));
  
  SWI