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

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

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

Modified Files:
	CD.swi 
Log Message:
Added definition for CD_SCSIUserOp.


Index: CD.swi
===================================================================
RCS file: /cvsroot/ro-oslib/OSLib/!OsLib/Source/Computer/oslib/CD.swi,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** CD.swi	2 Dec 2002 18:28:09 -0000	1.2
--- CD.swi	21 Dec 2002 12:06:38 -0000	1.3
***************
*** 2,6 ****
  AUTHOR "Simon Middleton, Uniqueway Ltd; Jonathan Coxhead, jon...@do..., 12 July 1995";
  
! NEEDS OS;
  
  CONST
--- 2,6 ----
  AUTHOR "Simon Middleton, Uniqueway Ltd; Jonathan Coxhead, jon...@do..., 12 July 1995";
  
! NEEDS OS, SCSI;
  
  CONST
***************
*** 479,483 ****
     CD_UseReadDataScatter     = CD_RegisterFlags: &40000,
     CD_UseSeekDataProprietary = CD_RegisterFlags: &80000,
!    CD_UseSeekDataScatter     = CD_RegisterFlags: &100000;
  TYPE
     CD_RegisterBlock =
--- 479,484 ----
     CD_UseReadDataScatter     = CD_RegisterFlags: &40000,
     CD_UseSeekDataProprietary = CD_RegisterFlags: &80000,
!    CD_UseSeekDataScatter     = CD_RegisterFlags: &100000,
!    CD_UseSCSIOp              = CD_RegisterFlags: &200000 "RISC O S 5+";
  TYPE
     CD_RegisterBlock =
***************
*** 607,609 ****
  
  SWI CD_SetAudioParms = (NUMBER &4126A "Gets audio parameters - see
!       individual reason codes - version 2.22+", ABSENT)
--- 608,626 ----
  
  SWI CD_SetAudioParms = (NUMBER &4126A "Gets audio parameters - see
!       individual reason codes - version 2.22+", ABSENT);
! 
! SWI CD_SCSIUserOp =
!    (  NUMBER &4126B "RISC O S 5+",
!       ENTRY
!       (  R0 = .Bits: op,
!          R1 = .Int: block_size,
!          R2 -> SCSI_OpBlock: block,
!          R3 = .Ref .Data: start_addr,
!          R4 = .Int: length,
!          R5 = .Int: timeout,
!          R7 -> CD_ControlBlock: control
!       ),
!       EXIT
!       (  R3 = .Ref .Data: next_addr,
!          R4! = .Int: undone
!    )  )