dlld/source/dlld3.s

@@ -36,8 +36,7 @@ CN	=	SLOT!$C0
 
 chrRETURN	=	$0d
 
-dpWAIT	=	$fb
+dpFROM	=	$fc
-dpFROM	=	dpWAIT+1
 dpTO	=	dpFROM+2
 
 *----------
@@ -71,15 +70,21 @@ jumpME	sta	CLR80VID
 	jsr	SETKBD	; reset input to keyboard
 	jsr	HOME	; home cursor and clear to end of page
 
+	clc
+	xce
+	rep	#$30
+	lda	#frameIN
+	sta	theFRAME
+
+	sec
+	xce
+	sep	#$30
+
 	jsr	initSERIAL	; set the serial addresses
 	jsr	initPORT	; init the serial port for LD support
 
-	lda	#80
-	sta	dpWAIT
-
 *----------
-
+	ldx	#>strDS	; on veut la frame number
-	ldx	#>strDS	; on veut afficher le frame number
 	ldy	#<strDS
 	jsr	sendLDCommand
 
@@ -95,37 +100,14 @@ jumpME	sta	CLR80VID
 
 *----------
 
-mainLOOP	clc
+mainLOOP	ldx	#>strSE	; Move to frame and wait for R
-	xce
-	rep	#$30
-	lda	#frameIN
-	sta	theFRAME
-
-	sec
-	xce
-	sep	#$30
-
-*---
-
-	ldx	#>strSE	; Move to frame and wait for R
 	ldy	#<strSE
 	jsr	sendLDCommand2
 
-	ldx	#>strPL	; Play the frame and wait for R
+	ldx	#>strPL	; Play and wait for R
 	ldy	#<strPL
 	jsr	sendLDCommand2
 
-	ldx	#>strDS	; on veut afficher le frame number
-	ldy	#<strDS
-	jsr	sendLDCommand2
-
-	lda	dpWAIT
-	jsr	WAIT
-	
-	ldx	#>strPLEND	; Play the frame until the end now
-	ldy	#<strPLEND
-	jsr	sendLDCommand
-
 	jsr	startINT
 
 *----------
@@ -184,8 +166,7 @@ strST	asc	'ST'00	; pause the player (still image)
 strQF	asc	'?F'00	; which frame are we on?
 
 strSE	asc	'FR00323SE'00	; set frame...
-strPL	asc	'FR00323PL'00	; play one frame...
+strPL	asc	'PL'00	; play only
-strPLEND	asc	'FR65535PL'00	; play only to the end of the disc
 strPL2	asc	'FR01359PL'00	; play to frame...
 
 *-----------------------------------
@@ -251,9 +232,6 @@ startINT	clc
 	xce
 	rep	#$30
 	
-	lda	#2
-	sta	theINT+4
-	
 	PushWord	#2
 	_IntSource
 	
@@ -394,9 +372,8 @@ sendLDCommand2
 *	bcs	sendLDError2
 ]lp	jsr	receiveString
 	lda	responseBUF
-*	cmp	#'R'
+	cmp	#'R'
-*	bne	]lp
+	bne	]lp
-	beq	]lp
 	rts
 
 *---------- Send a string