;
;   ####	     #	  #	# #
;   #	#	     #	  #	  #	     The FreeWare C library for
;   #	#  ##	###  #  # #	# ###		  RISC OS machines
;   #	# #  # #     # #  #	# #  #	 ___________________________________
;   #	# ####  ###  ##	  #	# #  #
;   #	# #	   # # #  #	# #  #	  Please refer to the accompanying
;   ####   ### ####  #  # ##### # ###	 documentation for conditions of use
;   ________________________________________________________________________
;
;   File:    ColourTrans.s.RetColNumb
;   Author:  Copyright  1993 Bryan Scattergood
;   Version: 1.01 (01 Nov 1995)
;   Purpose: SWI veneer for colour trans
;   History: 1.00 (11 Aug 1993)
;	     1.01 (01 Nov 1995) Added to DeskLib

	GET	Desk.sh.regdefs
	GET	h.swinames
	GET	Desk.sh.macros
;
	PREAMBLE
	STARTCODE Desk_ColourTrans_ReturnColourNumber
;
; extern void	Desk_ColourTrans_ReturnColourNumber(int entry, int *number);
;
	STMFD	sp!, {lr}

	SWI	XDesk_SWI_ColourTrans_ReturnColourNumber
	Desk_Error2_CheckV

	LDMFD	sp!, {pc}^

	END
