From 02a2dcac1a41872e1fec6d3b37ddd7ecae57eae4 Mon Sep 17 00:00:00 2001
From: "Christian A. Weber" <chris@gna.ch>
Date: Thu, 16 Apr 1992 23:00:42 +0000
Subject: Initial revision

---
 CDTV.S | 145 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 145 insertions(+)
 create mode 100644 CDTV.S

(limited to 'CDTV.S')

diff --git a/CDTV.S b/CDTV.S
new file mode 100644
index 0000000..cef9344
--- /dev/null
+++ b/CDTV.S
@@ -0,0 +1,145 @@
+
+		IDNT	CDTV
+		SECTION	text,CODE
+
+		INCLUDE	"MyExec.i"
+		INCLUDE	"exec/macros.i"
+		INCLUDE	"exec/io.i"
+
+		XREF	@CreateIO,@DeleteIO,_RawPrintfFunc
+		XDEF	InitCDFunc,ExitCDFunc,PlayCDTrackFunc
+		XDEF	WaitCDTrackFunc
+
+CD_PLAYTRACK:	EQU	43
+CD_MUTE:	EQU	56
+
+*****************************************************************************
+* CDTV-IORequest erstellen und Device öffnen
+
+InitCDFunc:	movem.l	d1/a0-a2/a6,-(SP)
+		
+		moveq.l	#IOSTD_SIZE,d0
+		bsr	@CreateIO
+		move.l	d0,CDIOReq
+		beq.s	1$			; No mem --->
+		movea.l	d0,a2
+
+		moveq	#0,d0			; Unit
+		moveq	#0,d1			; Flags
+		lea	CDTVName(PC),a0
+		movea.l	a2,a1
+		movea.l	4,a6
+		JSRLIB	OpenDevice
+		tst.l	d0			; Device OK ?
+		beq.s	1$			; yep --->
+		bsr.s	ExitCDFunc		; Sonst Request freigeben
+		bra.s	2$
+1$:
+		movea.l	CDIOReq,a1
+		move.w	#CD_MUTE,IO_COMMAND(a1)
+		move.l	#$7fff,IO_OFFSET(a1)
+		move.l	#1,IO_LENGTH(a1)
+		move.l	#0,IO_DATA(a1)
+		JSRLIB	DoIO
+
+		pea	CDDevOKText(PC)
+		bsr	_RawPrintfFunc
+		addq	#4,SP
+2$:
+		movem.l	(SP)+,d1/a0-a2/a6
+		rts
+
+*****************************************************************************
+* CDTV-Resourcen wieder freigeben
+
+ExitCDFunc:	movem.l	d1-d2/a0-a1/a6,-(SP)
+
+		move.l	CDIOReq,d2
+		beq.s	2$
+		movea.l	d2,a1
+		tst.l	IO_DEVICE(a1)
+		ble.s	1$
+		movea.l	4,a6
+		JSRLIB	CloseDevice
+1$:
+		movea.l	d2,a1			; IO-Request
+		bsr	@DeleteIO		; freigeben
+		clr.l	CDIOReq			; Wichtig!
+2$:
+		movem.l	(SP)+,d1-d2/a0-a1/a6
+		rts
+
+*****************************************************************************
+* CDTV-Track abspielen
+
+PlayCDTrackFunc:
+		movem.l	d1-d3/a0-a1/a6,-(SP)
+
+		move.l	CDIOReq,-(SP)
+		move.l	d0,-(SP)
+		pea	PlayText(PC)
+		bsr	_RawPrintfFunc
+		lea	12(SP),SP
+
+		movea.l	4,a6
+		move.l	CDIOReq,d3
+		beq.s	2$
+
+	;;	movea.l	d3,a1
+	;;	cmpi.w	#CD_PLAYTRACK,IO_COMMAND(a1)	; Schon initialisiert ?
+	;;	bne.s	1$				; nein ---> Nicht warten
+	;;	JSRLIB	AbortIO
+		bsr.s	WaitCDTrackFunc
+1$:
+		movea.l	d3,a1
+		move.w	#CD_PLAYTRACK,IO_COMMAND(a1)
+		move.l	d0,IO_OFFSET(a1)		; Gewünschter Track
+		clr.l	IO_LENGTH(a1)
+		clr.l	IO_DATA(a1)
+		JSRLIB	SendIO
+2$:
+		movem.l	(SP)+,d1-d3/a0-a1/a6
+		rts
+
+*****************************************************************************
+* Auf CD warten
+
+WaitCDTrackFunc:
+		movem.l	d0-d3/a0-a1/a6,-(SP)
+
+		movea.l	4,a6
+		move.l	CDIOReq,d3
+		beq.s	2$
+
+		pea	WaitText(PC)
+		bsr	_RawPrintfFunc
+		addq	#4,SP
+
+		movea.l	d3,a1
+		cmpi.w	#CD_PLAYTRACK,IO_COMMAND(a1)	; Schon initialisiert ?
+		bne.s	1$				; nein ---> Nicht warten
+		JSRLIB	WaitIO
+1$:
+		pea	WaitFinText(PC)
+		bsr	_RawPrintfFunc
+		addq	#4,SP
+2$:
+		movem.l	(SP)+,d0-d3/a0-a1/a6
+		rts
+
+*****************************************************************************
+
+CDTVName:	dc.b	"cdtv.device",0
+
+CDDevOKText:	dc.b	"CDTV device OK",13,10,0
+PlayText:	dc.b	"PlayCDTrack(%ld), req=$%08lx",13,10,0
+WaitText:	dc.b	"Waiting for audio to finish ... ",0
+WaitFinText:	dc.b	"Done.",13,10,0
+
+		EVEN
+
+		SECTION	bss,BSS
+CDIOReq:	ds.l	1
+
+		END
+
-- 
cgit v1.2.3