c cool

leretour/apple2/fr/engine.s

@@ -21,6 +21,7 @@ HGR	rep	#$30
 *-----------------------------------
 
 RDKEY	phx
+	jsr	CURSOR	; shows the cursor
 	rep	#$30
 
 ]lp	pha
@@ -59,17 +60,19 @@ HOME	rep	#$30
 	bpl	]lp
 
 	lda	#bottomRECT
-	
+
 *----------- Efface les 3 lignes du bas
 	
+	mx	%00
+	
 eraseLINES	sta	pointerRECT
 	
 	PushLong	#curPATTERN
 	_GetPenPat
-	
+
 	PushLong	#blackPATTERN
 	_SetPenPat
-
+	
 	PushLong	pointerRECT
 	_PaintRect
 
@@ -85,13 +88,86 @@ pointerRECT	adrl	bottomRECT
 
 bottomRECT	dw	170,0,199,319
 lastlineRECT dw	190,0,199,319
+cursorRECT	dw	0,0,0,0	; y2 and x2 are y1+7 and x1+7
+
+testme	ds	2
+
+*-----------------------------------
+
+	mx	%11
+
+*CURSOR_ERASE
+	phx
+	lda	CH
+	pha
+	lda	CV
+	pha
+
+	lda	#' '
+	jsr	COUT
+
+	pla
+	sta	CV
+	pla
+	sta	CH
+
+	dec	CH
+	jsr	TABV
+	plx
+	rts
+
+*-----------------------------------
+
+	mx	%11
+
+CURSOR_ERASE
+	phx
+	rep	#$30
+
+	lda	textY
+	sta	cursorRECT+4
+	sec
+	sbc	#8
+	sta	cursorRECT
+	
+	lda	textX
+	sta	cursorRECT+2
+	clc
+	adc	#8
+	sta	cursorRECT+6
+	
+	lda	#cursorRECT
+	jsr	eraseLINES	; retour en 8-bits
+
+	mx	%11
+	
+	dec	CH
+	jsr	TABV
+	plx
+	rts
 
 *-----------------------------------
 
 	mx	%11
 	
-TABV	sta	CV	; 10 pixels de haut par ligne
-	rep	#$20
+CURSOR
+	lda	CH
+	pha
+	lda	CV
+	pha
+	lda	#$a5	; black bullet
+	jsr	COUT
+	pla
+	sta	CV
+	pla
+	sta	CH
+	
+*-----------------------------------
+
+	mx	%11
+	
+TABV	rep	#$30
+	lda	CV
 	and	#$ff
 	asl
 	tax
@@ -104,8 +180,7 @@ TABV	sta	CV	; 10 pixels de haut par ligne
 	asl
 	asl
 	sta	textX
-	
-	sep	#$20
+	sep	#$30
 	rts
 
 *-----------------------------------

leretour/apple2/fr/iigs.s

@@ -53,6 +53,7 @@ keyDownEvt	=	$0003
 
 *-----------------------
 
+modeCopy	=	$0000
 modeForeCopy =	$0004	; QDII Table 16-10
 
 mode320	=	$00

leretour/apple2/fr/leretour.s

@@ -78,6 +78,7 @@ PLAY	sep	#$30
 	lda	#0	; move cursor to 0,20
 	sta	CH
 	lda	#16	; au lieu de 20 LoGo
+	sta	CV
 	jsr	TABV	; on a 20 lignes de 10 caract<63>res de haut
 
 	jsr	:7110
@@ -1641,7 +1642,6 @@ initALL
 *-----------------------------------
 
 EXPLODE	rts
-	rts
 
 *-----------------------------------
 * CODE 6502
@@ -1663,6 +1663,8 @@ setHGR	rts		; HGR
 * GETLEN1 par LoGo
 *----------------------
 
+	mx	%11
+	
 GETLN1	ldx	#0
 ]lp	jsr	RDKEY
 	cmp	#chrRET
@@ -1671,8 +1673,8 @@ GETLN1	ldx	#0
 	beq	doBACK
 	cmp	#chrLA
 	beq	doBACK
-	cmp	#chrRA
-	beq	]lp
+	cmp	#chrSPC	; must not be another control character
+	bcc	]lp
 
 	jsr	testENERGIE
 
@@ -1689,7 +1691,7 @@ doEXIT	lda	#chrRET
 
 doBACK	cpx	#0
 	beq	]lp
-	dec	CH
+	jsr	CURSOR_ERASE	; contains dec CH & TABV
 	dex
 	jmp	]lp
 
@@ -1734,6 +1736,7 @@ setMIXEDON		; HGR + 4 LINES OF TEXT
 setMIXEDOFF		; FULL HGR
 *	rts
 
+	rep	#$30
 	lda	ptrSCREEN
 	sta	dpTO
 	lda	ptrSCREEN+2
@@ -1744,7 +1747,6 @@ setMIXEDOFF		; FULL HGR
 	lda	ptrTEXT+2
 	sta	dpTHREE+2
 	
-	rep	#$30
 	ldy	#170*160-2
 ]lp	lda	[dpTHREE],y
 	pha