resources

labellezhora/textes/indics.txt

@@ -1,15 +0,0 @@
-Index des dŽclarations d'indicateurs, et des indicateurs devant avoir ŽtŽ prŽalablement dŽclarŽs avant:
-
-
--PLATRE:
-
--APPAREIL         -SEDUCTION LUNETTES*
-
--HYACINTHE:
-
--ALLERGIES FELIX  -FELIX PAS LAIT*
-                  -PETIT DEJEUNER PERE     -VISIONS JOSEPHINE*
-                  -IMPORTATIONS FELIX*
-
--JOCELYN          -AMOUR SANS LUNETTES     -PREMIERE FOIS 1 & 2 *
-                  -RETROUVAILLES JOCELYN   -STERILITE

labellezohra/comprehension.txt

@@ -0,0 +1,95 @@
+La belle Zohra
+
+Le but du jeu
+Terminer les pŽchŽs capitaux
+
+Les ressources
+IMAGES
+OK	1	lunettes
+OK	2	cuill<6C>re
+OK	3	fleurs / coeur
+OK	4	carnet
+OK	5	dictionnaire
+OK	6	bijoux / rouge
+OK	7	clŽs
+OK	8	argent
+OK	10	image de fond
+OK	11	image de fond avec ic™nes
+
+SONS
+1cemonsi	
+1safemme	
+1lechame	
+1smala	
+2coinfli	
+2kararab	
+2karbret	
+2gensnan	
+3BOPARLE	
+3FAITFRA	
+3PASMILI	
+3UNPEUPE	
+4algefra	
+4algesah	
+4sousoff	
+5haine	
+5terrfra	
+5collabo
+5clepen	
+5antifra	
+5abrutis	
+fx_batte	
+fx_beat	
+fx_boing	
+fx_couic	
+fx_cuivr	
+fx_dehem	
+fx_dzoin	
+fx_flute	
+fx_glin1	
+fx_glin2	
+fx_guita	
+fx_hey	
+fx_siren	
+fx_synth	
+fx_tromp	
+
+LES PECHES CAPITAUX
+Orgueil
+Avarice
+Gourmandise
+Envie
+Luxure
+Col<EFBFBD>re
+Paresse
+
+INDICES
+1	
+2	
+3	
+4	
+5	
+6	
+7	
+8	
+
+REFERENCE
+Une structure de quatre entrŽes qui se rŽp<C5BD>te jusqu'ˆ la fin du fichier
+nombre - le pŽchŽ concernŽ
+nombre - la longueur du paragraphe
+texte  - indicateur & : o<> il faut <20>tre passŽ
+texte  - indicateur = : o<> l'on va aller
+
+TEXTES
+OK	1	Lunettes
+OK	2	Cuill<6C>re
+OK	3	Coeur
+OK	4	Carnet
+OK	5	Dictionnaire
+OK	6	Rouge
+OK	7	ClŽs
+OK	8	Argent
+OK	Indics
+OK	RŽservŽ
+OK	Lisez-moi (mode d'emploi)
+Un fichier se termine par *FIN

labellezohra/sources/_FileInformation.txt

@@ -0,0 +1 @@
+LaBelleZohra=Type(B3),AuxType(DB00),VersionCreate(70),MinVersion(BE),Access(E3),FolderInfo1(000000000000000000000000000000000000),FolderInfo2(000000000000000000000000000000000000)

labellezohra/sources/convert.s

@@ -0,0 +1,290 @@
+*
+* La belle Zohra
+*
+* (c) 1992, François Coulon
+* (c) 2023, Antoine Vignau & Olivier Zardini
+*
+
+	mx	%00
+	rel
+	dsk	convert.l
+	typ	$B3
+
+*----------------------------------- Macros
+
+	use   4/Locator.Macs
+	use   4/Mem.Macs
+	use   4/Misc.Macs
+	use   4/Util.Macs
+
+*----------------------------------- Constantes
+
+GSOS	=	$e100a8
+dpFROM	=	$80
+
+*----------------------------------- Entry point
+
+	phk
+	plb
+
+	clc
+	xce
+	rep	#$30
+	
+	_TLStartUp
+	pha
+	_MMStartUp
+	pla
+	sta	myID
+	
+*--- 2x64K pour les textes
+
+	jsr	make64KB	; 64K pour le fichier source
+	sty	ptrFROM
+	sty	proREAD+4
+	stx	ptrFROM+2
+	stx	proREAD+6
+
+*----------------------------------- Boucle principale
+
+	lda	#1
+]lp	sta	index
+	sep	#$20
+	ora	#'0'
+	sta	pFILER+9
+	sta	pFILEW+9
+	rep	#$20
+
+	sep	#$20
+	ldal	$c034
+	inc
+	stal	$c034
+	rep	#$20
+	
+	jsr	loadFILE
+	jsr	convertIT
+	jsr	saveFILE
+	
+	lda	index
+	inc
+	cmp	#10
+	bne	]lp
+	beq	theEND
+
+*---
+
+index	ds	2
+
+*----------------------------------- Quit
+
+theEND	PushWord myID
+	_DisposeAll
+
+	PushWord myID
+	_MMShutDown
+
+	_TLShutDown
+
+	jsl	GSOS
+	dw	$2029
+	adrl	proQUIT
+
+*----------------------------------------
+* CONVERSION
+*----------------------------------------
+
+convertIT	lda	ptrFROM
+	sta	dpFROM
+	lda	ptrFROM+2
+	sta	dpFROM+2
+	ldy	#6	; offset pour la lecture
+	ldx	#0	; offet pour l'écriture
+
+* 1. où démarre le texte ?
+
+	lda	[dpFROM],y
+	xba
+	tay
+	sep	#$20
+
+* 2. on traite les caractères
+
+]lp	lda	[dpFROM],y
+	beq	skip1
+	cmp	#$1b
+	beq	skip2
+	cmp	#$0a
+	beq	skip1
+	cmp	#$0c
+	beq	skip1
+	sta	myBUFFER,x
+	inx
+	bra	skip1
+skip2	iny
+skip1	iny
+	cpy	proREAD+8
+	bne	]lp
+	
+* 2. on a fini
+
+	rep	#$20
+	stx	proWRITE+8
+	rts
+	
+*----------------------------------------
+* MEMOIRE
+*----------------------------------------
+
+make64KB	pha
+	pha
+	PushLong #$010000
+	PushWord myID
+	PushWord #%11000000_00011100
+	PushLong #0
+	_NewHandle
+	phd
+	tsc
+	tcd
+	lda   [3]
+	tax		; low in X
+	ldy   #2
+	lda   [3],y
+	txy		; low in Y
+	tax		; high in X
+	pld
+	pla		; we do not keep track of the handle
+	pla
+	rts
+
+*----------------------------------------
+* DATA
+*----------------------------------------
+
+*----------------------- Memory manager
+
+myID	ds	2	; user ID
+
+ptrFROM	ds	4
+ptrTO	ds	4
+
+*----------------------------------------
+* GS/OS
+*----------------------------------------
+
+loadFILE	jsl	GSOS
+	dw	$2010
+	adrl	proOPEN
+	bcc	lf1
+	brk	$e1
+	
+lf1	lda	proOPEN+2
+	sta	proREAD+2
+	sta	proCLOSE+2
+	
+	lda	proEOF
+	sta	proREAD+8
+	lda	proEOF+2
+	sta	proREAD+10
+	
+	jsl	GSOS
+	dw	$2012
+	adrl	proREAD
+	bcc	lf2
+	brk	$e2
+	
+lf2	jsl	GSOS
+	dw	$2014
+	adrl	proCLOSE
+	rts
+
+*----------------------------------
+
+saveFILE	jsl	GSOS
+	dw	$2002
+	adrl	proDESTROY
+	
+	jsl	GSOS
+	dw	$2001
+	adrl	proCREATE
+
+	jsl	GSOS
+	dw	$2010
+	adrl	proOPEN2
+	bcc	sf1
+	brk	$f1
+	
+sf1	lda	proOPEN2+2
+	sta	proWRITE+2
+	sta	proCLOSE+2
+	
+	jsl	GSOS
+	dw	$2013
+	adrl	proWRITE
+	bcc	sf2
+	brk	$f2
+	
+sf2	jsl	GSOS
+	dw	$2014
+	adrl	proCLOSE
+	rts
+
+*--- For the game party
+
+proCREATE	dw	7	; pcount
+	adrl	pFILEW	; pathname
+	dw	$c3	; access_code
+	dw	$04	; file_type
+	ds	4	; aux_type
+	ds	2	; storage_type
+	ds	4	; eof
+	ds	4	; resource_eof
+
+proDESTROY	dw	1	; pcount
+	adrl	pFILEW	; pathname
+
+proOPEN	dw	12
+	ds	2
+	adrl	pFILER
+	ds	2
+	ds	2
+	ds	2
+	ds	2
+	ds	4
+	ds	2
+	ds	8
+	ds	8
+	ds	4
+proEOF	ds	4
+
+proOPEN2	dw	2
+	ds	2
+	adrl	pFILEW
+
+proREAD	dw	4	; 0 - nb parms
+	ds	2	; 2 - file id
+	ds	4	; 4 - pointer
+	ds	4	; 8 - length
+	ds	4	; C - length read
+
+proWRITE	dw	5	; 0 - pcount
+	ds	2	; 2 - ref_num
+	adrl	myBUFFER	; 4 - data_buffer (we are in same bank)
+	ds	4	; 8 - request_count
+	ds	4	; C - transfer_count
+	dw	1	; cache_priority
+
+proCLOSE	dw	1
+	ds	2
+
+proQUIT	dw	2	; pcount
+	ds	4	; pathname
+	ds	2	; flags
+
+*--- offset to text is at +9
+
+pFILER	strl	'1/I/TXT1.TXT'
+pFILEW	strl	'1/O/TXT1.TXT'
+
+*---
+
+myBUFFER	ds	32768

labellezohra/sources/data.s

@@ -0,0 +1,240 @@
+*
+* La Belle Zohra
+*
+* (c) 1992, Fran<EFBFBD>ois Coulon
+* (c) 2023, Antoine Vignau & Olivier Zardini
+*
+
+	mx    %00
+
+*-----------------------
+* ATARI
+*-----------------------
+
+*---
+
+* Apple		Atari
+* 22	"	7E
+* 82	‚	80
+* 88	ˆ	85
+* 89	‰	83
+* 8D	<EFBFBD>	87
+* 8E	Ž	82
+* 8F	<EFBFBD>	8A
+* 90	<EFBFBD>	88
+* 91	‘	
+* 94	”	8C
+* 95	•	8B
+* 99	™	93
+* 9E	ž	96
+* 9D	<EFBFBD>	97
+* CE	OE	B4
+* CF	oe	B5
+
+tblATARI	hex	000102030405060708090A0B0C0D0E0F
+	hex	101112131415161718191A1B1C1D1E1F
+	hex	202122232425262728292A2B2C2D2E2F
+	hex	303132333435363738393A3B3C3D3E3F
+	hex	404142434445464748494A4B4C4D4E4F
+	hex	505152535455565758595A5B5C5D5E5F
+	hex	606162636465666768696A6B6C6D6E6F
+	hex	707172737475767778797A7B7C7D227F
+	hex	82818E898488868D90898F95948D8E8F
+	hex	9091929994959E9D98999A9B9C9D9E9F
+	hex	A0A1A2A3A4A5A6A7A8A9AAABACADAEAF
+	hex	B0B1B2B3CFCEB6B7B8B9BBBABCBDBEBF
+	hex	C0C1C2C3C4C5C6C7C8C9CACBCCCDCECF
+	hex	D0D1D2D3D4D5D6D7D8D9DADBDCDDDEDF
+	hex	E0E1E2E3E4E5E6E7E8E9EAEBECEDEEEF
+	hex	F0F1F2F3F4F5F6F7F8F9FAFBFCFDFEFF
+
+tblUPPER	hex	000102030405060708090A0B0C0D0E0F
+	hex	101112131415161718191A1B1C1D1E1F
+	hex	202122232425262728292A2B2C2D2E2F
+	hex	303132333435363738393A3B3C3D3E3F
+	hex	404142434445464748494A4B4C4D4E4F
+	hex	505152535455565758595A5B5C5D5E5F
+	hex	604142434445464748494A4B4C4D4E4F	; a-z => A-Z
+	hex	505152535455565758595A7B7C7D7E7F
+	hex	808182838485868788898A8B8C8D8E8F
+	hex	909192939495969798999A9B9C9D9E9F
+	hex	A0A1A2A3A4A5A6A7A8A9AAABACADAEAF
+	hex	B0B1B2B3B4B5B6B7B8B9BABBBCBDBEBF
+	hex	C0C1C2C3C4C5C6C7C8C9CACBCCCDCECF
+	hex	D0D1D2D3D4D5D6D7D8D9DADBDCDDDEDF
+	hex	E0E1E2E3E4E5E6E7E8E9EAEBECEDEEEF
+	hex	F0F1F2F3F4F5F6F7F8F9FAFBFCFDFEFF
+
+*-----------------------
+* DATA
+*-----------------------
+
+DEBUT_DATA	=	*
+
+nombre_indicateurs	=	30	; NOMBRE MAXI D'INDICATEURS
+pointeur_indicateurs	=	0	; CLEAR DU NOMBRE D'INDICATEURS
+nombre_paragraphes	=	110	; NOMBRE MAXI DE TEXTES
+indicateur$		ds	nombre_indicateurs	; NOM DES INDICATEURS UTILISES PAR MOI
+indicateur!		ds	nombre_indicateurs	; INDICATEUR EN LUI-MEME
+paragraphe_lu	ds	nombre_paragraphes
+
+indicateur_paragraphes%	ds	nombre_paragraphes	; NUMERO DE L'INDIC CR<43>E A CHAQUE TEXTE
+indicateur_paragraphes_prealables%	ds	nombre_paragraphes ; NUMERO DE L'INDIC NECESSAIRE POUR LIRE CE TEXTE
+
+* LOGO indicateur!(0)=TRUE                       !INDICATEUR VIRTUEL TOUJOURS POSITIF
+
+*---
+
+nombre_objets	=	8	; NOMBRE D'OBJETS
+objet$	ds	nombre_objets	; !NOM DE CHAQUE OBJET
+
+*---
+
+nombre_peches	=	7	; NOMBRE DE PECHES
+peche$	ds	nombre_peches+1	; NOM DE CHAQUE PECHE (+1 POUR L'INDIC SUITE...)
+
+*---
+
+icone_objets!	ds	nombre_objets	; ICONES ALLUM<55>ES OU ETEINTES
+icone_peches!	ds	nombre_peches+1	; (+1 POUR L'INDICATEUR DE SUITE...)
+
+icone_objets	ds	nombre_objets	; BLOCS GRAPHIQUES DES ICONES
+icone_peches	ds	nombre_peches
+
+objet_x	ds	nombre_objets	; COORDONN<4E>ES DES ICONES DES OBJETS
+objet_y	ds	nombre_objets
+objet_xx	ds	nombre_objets
+objet_yy	ds	nombre_objets
+
+peche_x	ds	nombre_peches	; COORDONN<4E>E DES ICONES DES PECHES
+peche_y	ds	nombre_peches
+peche_xx	ds	nombre_peches
+peche_yy	ds	nombre_peches
+
+*---
+
+fenetre_x	ds	nombre_objets
+fenetre_y	ds	nombre_objets
+fenetre_xx	ds	nombre_objets
+fenetre_yy	ds	nombre_objets
+
+*---
+
+fenetres
+	dw	10,100,310,190
+	dw	10,100,310,190
+	dw	10,100,310,190
+	dw	120,10,310,190
+	dw	10,100,310,190
+	dw	10,100,310,190
+	dw	10,100,310,190
+	dw	10,10,200,190
+	dw	10,100,310,190
+
+objets
+	asc	"LUNETTES"
+	asc	"CUILLERE"
+	asc	"FLEUR"
+	asc	"CARNET"
+	asc	"DICO"
+	asc	"BIJOUX"
+	asc	"CLES"
+	asc	"ARGENT"
+	asc	"FIN"
+
+peches
+	asc	"ORGUEIL"
+	asc	"AVARICE"
+	asc	"GOURMANDISE"
+	asc	"ENVIE"
+	asc	"LUXURE"
+	asc	"COLERE"
+	asc	"PARESSE"
+	asc	"suite"
+
+coordonnees_objets
+	dw	238,51,283,88
+	dw	222,110,268,151
+	dw	195,0,266,39
+	dw	0,17,57,54
+	dw	27,55,106,103
+	dw	131,32,178,64
+	dw	276,19,319,50
+	dw	133,69,188,101
+
+coordonnees_peches
+	dw	184,162,227,199
+	dw	0,162,43,199
+	dw	46,162,89,199
+	dw	276,162,319,199
+	dw	92,162,135,199
+	dw	138,162,181,199
+	dw	230,162,273,199
+
+*---
+
+bloc_texte	ds	2000
+*texte	ds	110000
+mot	ds	128
+
+*---
+
+paragraphe	ds	nombre_paragraphes	; INDEX DE DES DEBUTS DES PARAGRAPHES
+* LOGO paragraphe%(1)=0
+pointeur_paragraphes	ds	2
+paragraphes_lus	ds	2
+reference_objet	ds	nombre_paragraphes	; NUMERO DE L'OBJET ASSOCIE A CHAQUE PARAGRAPHE
+reference_peche	ds	nombre_paragraphes	; NUMERO DU PECHE ASSOCIE A CHAQUE PARAGRAPHE
+
+*---
+
+*  DATA 1cemonsi,7500,"ce monsieur!",""
+*  DATA 1safemme,7500,"sa femme!",""
+*  DATA 1lechame,7500,"le chameau!",""
+*  DATA 1smala,7500,"et toute la smala!",""
+*  DATA fx_batte,10000,"",""
+*  DATA fx_flute,5000,"",""
+*  DATA fx_synth,5000,"",""
+*  DATA fx_tromp,7500,"",""
+*  DATA fx_tromp,10000,"",""
+*  DATA FIN,0,"",""
+*  '
+*  DATA 2coinfli,7500,"des coins o—","les flics ne vont plus"
+*  DATA 2kararab,7500,"y'a des quartiers arab'",""
+*  DATA 2karbret,7500,"si c'‚tait des quartiers bretons...",""
+*  DATA 2gensnan,7500,"some people from Nanterre,","some people from Belleville!"
+*  DATA fx_boing,5000,"",""
+*  DATA fx_couic,5000,"",""
+*  DATA fx_siren,5000,"",""
+*  DATA fx_guita,5000,"",""
+*  DATA fx_guita,7500,"",""
+*  DATA FIN,0,"",""
+*  '
+*  DATA 3BOPARLE,7500,"ces beaux-parleurs","de la t‚l‚vision?"
+*  DATA 3FAITFRA,7500,"qu'est-ce qu'ils ont fait","pour la france?"
+*  DATA 3PASMILI,7500,"les trois quarts du temps, y z'ont","pas fait leur service miliaire"
+*  DATA 3UNPEUPE,7500,"y sont meme un peu p‚d‚ sur les bords!",""
+*  DATA fx_hey,7500,"hey hey hey!",""
+*  DATA fx_cuivr,7500,"",""
+*  DATA fx_dzoin,7500,"",""
+*  DATA fx_dehem,7500,"",""
+*  DATA fx_dehem,10000,"",""
+*  DATA FIN,0,"",""
+*  '
+*  DATA 4algefra,7500,"nous n'‚tions pas pour","l'alg‚rie francaise"
+*  DATA 4algesah,7500,"nous ‚tions pour l'alg‚rie et","le sahara francais!"
+*  DATA 4sousoff,7500,"les sous-off' de la coloniale,","dont j'‚tais"
+*  DATA FIN,0,"",""
+*  '
+*  DATA 5haine,7500,"qui a la haine de l'‚tranger?",""
+*  DATA 5terrfra,7500,"la terre de france, elle est","d'abord aux fran‡ais"
+*  DATA 5collabo,7500,"on nous parle des collabos,","y z'en ont fait moins"
+*  DATA 5clepen,7500,"c'est Le Pen (de ch'val)",""
+*  DATA 5antifra,7500,"est anti-fran‡ais",""
+*  DATA 5abrutis,7500,"nous sommes des a.....s",""
+*  DATA fx_beat,7500,"",""
+*  DATA fx_glin1,7500,"",""
+*  DATA fx_glin2,7500,"",""
+*  DATA FIN,0,"",""
+
+FIN_DATA	=	*

labellezohra/sources/game.s

@@ -0,0 +1,643 @@
+* 
+* La Belle Zohra
+* 
+* (c) 1992, Fran<EFBFBD>ois Coulon
+* (c) 2023, Antoine Vignau & Olivier Zardini
+* 
+
+	mx    %00
+
+*-----------------------
+* macros
+*-----------------------
+
+@carre	mac
+	PushLong	]1
+	PushWord	]2
+	PushWord	]3
+	PushWord	]4
+	jsr	carre
+	eom
+
+*-----------------------
+* set_language
+*-----------------------
+
+set_language
+	PushWord #0
+	PushWord #$29
+	_ReadBParam
+	pla
+	cmp	#20
+	bcc	st_ok
+	rts
+
+* index
+* TEXTES : +16
+
+st_ok	jsr	st_setit	; try IIgs language
+	bcc	st_ok99
+	
+	lda	#0	; if not, try EN US
+	jsr	st_setit
+	bcc	st_ok99
+
+	lda	#2	; it not, force FR - It always exists
+	jsr	st_setit
+st_ok99	rts
+
+*---
+
+st_setit	sta	saveLANGUAGE
+	asl
+	tax
+	lda	tblLANG,x
+	sta	pREF+16
+	sta	pTEXTES+16
+
+	lda	#pREF	; check file exists
+	sta	proOPEN+4
+
+	jsl	GSOS
+	dw	$2010
+	adrl	proOPEN
+	bcs	st_setit99
+	
+	lda	proOPEN+2
+	sta	proCLOSE+2
+	
+	jsl	GSOS
+	dw	$2014
+	adrl	proCLOSE
+
+st_setit99	rts
+
+*---
+	
+tblLANG	asc	'us'	; 0
+	asc	'uk'
+	asc	'fr'	; 2
+	asc	'nl'
+	asc	'es'	; 4
+	asc	'it'
+	asc	'de'	; 6
+	asc	'se'
+	asc	'us'
+	asc	'ca'
+	asc	'nl'
+	asc	'he'
+	asc	'jp'
+	asc	'ar'
+	asc	'gr'
+	asc	'tr'
+	asc	'fi'
+	asc	'ta'
+	asc	'hi'
+	asc	'us'	; 19
+
+*-----------------------
+* XX - OK
+*-----------------------
+
+xx
+	rts
+
+*-----------------------
+* MAIN - OK
+*-----------------------
+
+main
+	rts
+
+*-----------------------
+* VIGIL - OK
+*-----------------------
+* vigil(max_x%,max_y%,max_xx%,max_yy%,sauvegarde!)
+
+vigil
+	rts
+	
+*-----------------------
+* TEST_FIN - OK
+*-----------------------
+
+teste_fin	lda	paragraphes_lus
+	sec
+	sbc	pointeur_paragraphes
+	cmp	#1
+	bne	tf_99
+	
+	jmp	the_end
+	
+tf_99	rts
+
+*-----------------------
+* 
+*-----------------------
+
+demande_objet
+	rts
+
+*-----------------------
+* 
+*-----------------------
+
+demande_peche
+	rts
+
+*-----------------------
+* 
+*-----------------------
+
+recherche_references
+	rts
+
+*-----------------------
+* 
+*-----------------------
+
+affiche_image
+	rts
+
+*-----------------------
+* 
+*-----------------------
+
+sauvegarde
+	rts
+
+*-----------------------
+* 
+*-----------------------
+
+chargement
+	rts
+
+*-----------------------
+* 
+*-----------------------
+
+the_end
+	rts
+
+*-----------------------
+* 
+*-----------------------
+
+pre_scrolling
+	rts
+
+*-----------------------
+* 
+*-----------------------
+
+scrolling
+	rts
+
+*-----------------------
+* 
+*-----------------------
+
+verif
+	rts
+
+*-----------------------
+* 
+*-----------------------
+
+init
+	rts
+
+*-----------------------
+* 
+*-----------------------
+
+init2
+	rts
+
+*-----------------------
+* 
+*-----------------------
+
+init_resolution
+	rts
+
+*-----------------------
+* 
+*-----------------------
+
+init_indicateurs
+	rts
+
+*-----------------------
+* 
+*-----------------------
+
+init_objets
+	rts
+
+*-----------------------
+* 
+*-----------------------
+
+init_peches
+	rts
+
+*-----------------------
+* 
+*-----------------------
+
+init_icones
+	rts
+
+*-----------------------
+* 
+*-----------------------
+
+init_routines
+	rts
+
+*-----------------------
+* 
+*-----------------------
+
+init_fenetres
+	rts
+
+*-----------------------
+* 
+*-----------------------
+
+init_souris
+	rts
+
+*-----------------------
+* 
+*-----------------------
+
+datas_init
+	rts
+
+*-----------------------
+* 
+*-----------------------
+
+init_texte
+	rts
+
+*-----------------------
+* 
+*-----------------------
+
+init_indicateurs_texte
+	rts
+
+*-----------------------
+* 
+*-----------------------
+
+lookindex
+	rts
+
+*-----------------------
+* PRESENTATION - OK
+*-----------------------
+* presentation
+*  A: numŽro du texte
+
+presentation
+	cmp	#9	; 1..8
+	bcc	pr_1
+	rts
+pr_1	cmp	#0
+	beq	pr_2
+	pha
+	
+	PushWord	#0
+	_ClearScreen
+	
+	pla
+	dec
+	asl
+	tax
+	jsr	(tbl_pres,x)
+pr_2	rts
+
+*---
+
+tbl_pres	da	pr_case_1
+	da	pr_case_2
+	da	pr_case_3
+	da	pr_case_4
+	da	pr_case_5
+	da	pr_case_6
+	da	pr_case_7
+	da	pr_case_8
+
+*---
+
+pr_case_1
+	@carre	#prSTR11;#100;#80;#$0771
+	@carre	#prSTR12;#100;#120;#$0774
+	rts
+	
+pr_case_2
+	@carre	#prSTR21;#25;#20;#$0437
+	rts
+	
+pr_case_3
+	@carre	#prSTR31;#25;#180;#$0275
+	rts
+	
+pr_case_4
+	@carre	#prSTR41;#100;#0;#$0743
+	rts
+	
+pr_case_5
+	@carre	#prSTR51;#150;#20;#$0743
+	@carre	#prSTR52;#50;#100;#$0743
+	@carre	#prSTR53;#70;#180;#$0177
+	rts
+	
+pr_case_6
+	@carre	#prSTR61;#0;#100;#$0607
+	@carre	#prSTR62;#20;#150;#$0607
+	rts
+	
+pr_case_7
+	@carre	#prSTR71;#0;#99;#$0073
+	rts
+	
+pr_case_8
+	@carre	#prSTR81;#100;#180;#$0555
+	rts
+	
+*---
+
+prSTR11	str	'la belle zohra'
+prSTR12	str	'(morceaux de bravoure)'
+prSTR13	str	'fran'8d'ois coulon'
+prSTR14	str	'les logiciels d'27'en face 1992.reproduction interdite'
+prSTR21	str	'graphismes faustino ribeiro'
+prSTR31	str	'programmation pascal piat'
+prSTR41	str	'musique erik ecqier'
+prSTR51	str	'un grand merci '88':'
+prSTR52	str	'emmanuel talmy'
+prSTR53	str	'sans qui ce logiciel... etc.'
+prSTR61	str	'miss zohra c'8e'lestibus est habill'8e'...'
+prSTR62	str	'...par aristide aristibus'
+prSTR71	str	8e'crit et r'8e'alis'8e' par fran'8d'ois coulon'
+prSTR81	str	88' la famille paspire...'
+	
+*-----------------------
+* CARRE
+*-----------------------
+* carre(texte$,x%,y%,couleur$)
+*  3,s word : RGB color
+*  5,s word : y
+*  7,s word : x
+*  9,s long : @text
+
+* couleur$ est pour le carrŽ
+* le texte est toujours en jaune
+
+carre	lda	3,s
+	sta	carreRGB
+	lda	5,s
+	sta	carreRECT
+	clc
+	adc	#12
+	sta	carreRECT+4
+	lda	7,s
+	sta	carreRECT+2
+	clc
+	adc	#12
+	sta	carreRECT+6
+	lda	9,s
+	sta	dpFROM
+	lda	11,s
+	sta	dpFROM+2
+	
+carreEXIT	lda	1,s
+	plx
+	plx
+	plx
+	plx
+	plx
+	sta	1,s
+	rts
+
+*---
+
+carreRGB	ds	2	; couleur du carre
+
+carreRECT	ds	2	; y0
+	ds	2	; x0
+	ds	2	; y0+12
+	ds	2	; y0+12
+	
+*-----------------------
+* RAMDISK - OK
+*-----------------------
+
+ramdisk
+	rts
+
+*-----------------------
+* 
+*-----------------------
+
+shoot_text
+	rts
+
+*-----------------------
+* 
+*-----------------------
+
+shoot_ligne
+	rts
+
+*-----------------------
+* 
+*-----------------------
+* cree_fenetre(objet%,paragraphe%)
+
+cree_fenetre
+	rts
+
+*-----------------------
+* 
+*-----------------------
+* display_text(ligne%,niveau%)
+
+display_text
+	rts
+
+*-----------------------
+* 
+*-----------------------
+* ice_load(fichier$)
+
+ice_load
+	rts
+
+*-----------------------
+* 
+*-----------------------
+* ice_disp(adresse_image%)
+
+ice_disp
+	rts
+
+*-----------------------
+* 
+*-----------------------
+* palette(palette$)
+
+palette
+	rts
+
+*-----------------------
+* 
+*-----------------------
+
+hide_screen
+	rts
+
+*-----------------------
+* 
+*-----------------------
+
+show_screen
+	rts
+
+*-----------------------
+* 
+*-----------------------
+
+hide_screen2
+	rts
+
+*-----------------------
+* 
+*-----------------------
+
+show_screen2
+	rts
+
+*-----------------------
+* 
+*-----------------------
+
+mouse_on
+	rts
+
+*-----------------------
+* 
+*-----------------------
+
+mouse_off
+	rts
+
+*-----------------------
+* 
+*-----------------------
+
+musique
+	rts
+
+*-----------------------
+* 
+*-----------------------
+
+init_musique
+	rts
+
+*-----------------------
+* 
+*-----------------------
+* rythme(rythme%)
+
+rythme
+	rts
+
+*-----------------------
+* 
+*-----------------------
+
+charge_son
+	rts
+
+*-----------------------
+* 
+*-----------------------
+
+clavier_sonore
+	rts
+
+*-----------------------
+* 
+*-----------------------
+* mix(numero_son%)
+
+mix
+	rts
+
+*-----------------------
+* 
+*-----------------------
+
+stop_sample
+	rts
+
+*-----------------------
+* 
+*-----------------------
+
+fin_musique
+	rts
+
+*-----------------------
+* 
+*-----------------------
+
+data_fichiers_musique
+	rts
+
+*-----------------------
+* T - OK
+*-----------------------
+* t(ligne%,texte$)
+*  A: @texte$
+*  Y: ligne%
+
+t	PushWord	#^t	; pointer to string
+	pha
+	
+	tya		; pour MoveTo
+	asl
+	asl
+	asl
+	pha		; Y
+
+	PushWord	#0	; get string length
+	PushWord	#^t
+	pha
+	_StringWidth	; return left on stack
+	
+	lda	#160
+	sec
+	sbc	1,s
+	bpl	t1
+	lda	#0
+t1	sta	1,s	; X
+	_MoveTo
+	_DrawString
+	rts
+
+*-----------------------
+* FIN - OK
+*-----------------------
+
+fin
+	rts

labellezohra/sources/make.s

@@ -0,0 +1,14 @@
+
+* Expansion linker file
+
+         DSK   LaBelleZohra
+         TYP   $B3
+         AUX   $DB00
+         
+* Assemble files
+
+         ASM   labellezohra.s
+         KND   $0000
+         SNA   LaBelleZohra
+
+* END

labellezohra/textes/REF1.TXT

@@ -0,0 +1 @@
+6
908
NADA
MYOPE
4
1500
MYOPE
APPAREIL
5
757
APPAREIL
SEDUCTION LUNETTES
7
846
MYOPE
SUITE
8
803
NADA
SUITE
8
1005
NADA
SUITE
8
803
NADA
SUITE
8
965
NADA
SUITE
8
656
NADA
SUITE
8
812
NADA
PLATRE
1
1278
MYOPE
HYACINTHE
1
1055
SEDUCTION LUNETTES
NADA
3
1426
MYOPE
SUITE
8
1402
NADA
ALLERGIES FELIX
5
984
JOCELYN
SUITE
8
894
NADA
AMOUR SANS LUNETTES
2
797
MYOPE
NADA

labellezohra/textes/REF2.TXT

@@ -0,0 +1 @@
+3
928
ALLERGIES FELIX
PETIT DEJEUNER PERE
6
950
IMPORTATIONS FELIX
SUITE
8
727
NADA
SUITE
8
730
NADA
SUITE
8
848
NADA
NADA
3
699
ALLERGIES FELIX
SUITE
8
777
NADA
FELIX PAS LAIT
2
906
PETIT DEJEUNER PERE
SUITE
8
652
NADA
SUITE
8
643
NADA
SUITE
8
793
NADA
SUITE
8
801
NADA
VISIONS JOSEPHINE
7
1069
VISIONS JOSEPHINE
SUITE
8
650
NADA
NADA
6
686
ALLERGIES FELIX
SUITE
8
637
NADA
SUITE
8
789
NADA
SUITE
8
799
NADA
SUITE
8
1013
NADA
NADA
4
1015
PETIT DEJEUNER PERE
SUITE
8
693
NADA
NADA
2
1385
IMPORTATIONS FELIX
NADA
1
1159
IMPORTATIONS FELIX
SUITE
8
718
NADA
NADA

labellezohra/textes/REF3.TXT

@@ -0,0 +1 @@
+1
1054
AMOUR SANS LUNETTES
PREMIERE FOIS1
6
1149
AMOUR SANS LUNETTES
NADA
5
1197
PREMIERE FOIS1
SUITE
8
882
NADA
SUITE
8
675
NADA
suite
8
1263
NADA
SUITE
8
920
NADA
PREMIERE FOIS2
5
862
RETROUVAILLES JOCELYN
SUITE
8
1146
NADA
NADA
3
1046
RETROUVAILLES JOCELYN
NADA
4
1170
IMPORTATIONS FELIX
NADA
4
741
IMPORTATIONS FELIX
NADA
2
1081
RETROUVAILLES JOCELYN
NADA

labellezohra/textes/REF4.TXT

@@ -0,0 +1 @@
+2
1304
MYOPE
SUITE
8
791
NADA
SUITE
8
1450
NADA
JOCELYN
4
923
JOCELYN
SUITE
8
1206
NADA
NADA
1
795
JOCELYN
suite
8
1087
NADA
RETROUVAILLES JOCELYN
5
970
RETROUVAILLES JOCELYN
NADA
2
958
ALLERGIES FELIX
IMPORTATIONS FELIX
1
762
RETROUVAILLES JOCELYN
suite
8
912
NADA
NADA
3
1034
IMPORTATIONS FELIX
SUITE
8
1507
NADA
NADA
6
839
VISIONS JOSEPHINE
SUITE
8
739
NADA
DOCTEUR JOSEPHINE
7
875
RETROUVAILLES JOCELYN
SUITE
8
730
NADA
NADA

labellezohra/textes/REF5.TXT

@@ -0,0 +1 @@
+4
687
JOCELYN
SUITE
8
1144
NADA
NADA
5
1494
RETROUVAILLES JOCELYN
NADA
7
1325
RETROUVAILLES JOCELYN
NADA
6
859
PREMIERE FOIS1
NADA
2
898
RETROUVAILLES JOCELYN
NADA
5
652
PETIT DEJEUNER PERE
NADA

labellezohra/textes/REF6.TXT

@@ -0,0 +1 @@
+1
1428
IMPORTATIONS FELIX
NADA
6
1139
RETROUVAILLES JOCELYN
STERILITE
6
671
STERILITE
NADA
4
987
MYOPE
NADA
7
1226
RETROUVAILLES JOCELYN
NADA
2
767
MYOPE
suite
8
742
NADA
NADA
4
1295
MYOPE
SUITE
8
1049
NADA
NADA
5
1422
RETROUVAILLES JOCELYN
NADA

labellezohra/textes/REF7.TXT

@@ -0,0 +1 @@
+7
1228
JOCELYN
NADA
2
753
IMPORTATIONS FELIX
suite
8
689
NADA
NADA
4
763
IMPORTATIONS FELIX
suite
8
846
NADA
NADA
6
1330
RETROUVAILLES JOCELYN
NADA
1
1057
RETROUVAILLES JOCELYN
NADA
5
1081
RETROUVAILLES JOCELYN
NADA
3
1255
IMPORTATIONS FELIX
SUITE
8
896
NADA
NADA
2
1170
RETROUVAILLES JOCELYN
NADA
1
1001
ALLERGIES FELIX
NADA

labellezohra/textes/REF8.TXT

@@ -0,0 +1 @@
+1
781
HYACINTHE
SUITE
8
579
NADA
JAZZ
2
891
MYOPE
SUITE
8
901
NADA
NADA
3
1178
DOCTEUR JOSEPHINE
NADA
7
677
IMPORTATIONS FELIX
SUITE
8
988
NADA
NADA
6
613
IMPORTATIONS FELIX
SUITE
8
810
NADA
NADA
4
1027
PETIT DEJEUNER PERE
NADA
4
618
PETIT DEJEUNER PERE
SUITE
8
589
NADA
NADA
1
585
FIN
NADA