DMORPLAY.ASM@ ceffc47

main

Last change on this file since ceffc47 was ceffc47, checked in by Adrien Destugues <pulkomandy@…>, 10 years ago

Add that collection of 3rdparty source I had lying on my disk for some time...

git-svn-id: svn://localhost/thomson@51 85ae3b6b-dc8f-4344-a89d-598714f2e4e5

File size: 2.0 KB

Line
1	****************************************
2	* *
3	* Restitution d'une musique compactée *
4	* *
5	* DEBMUS : pointe le début des modules *
6	* MM : contient le pointeur de musique *
7	* *
8	* module = Bank ; Début ; Fin *
9	* musique = module ; ... ; -1 *
10	* *
11	****************************************
12
13
14	MUSIC PSHS X,A,B
15	LDA $E7E5
16	STA ENVOI+4 sauvegarde banque
17	BNKMUS LDA #6 banque de musique
18	STA $E7E5
19	LDX #$A000 pointeur musique
20	BRA NOTE1
21	ENVOI STA *-1
22	LDA #0
23	STA $E7E5
24	PULS B,A,X,PC
25
26	NOTE1 LDA ,X+ son compacté No 1
27	LDA -1,X
28	LSRA ( octet 0 )
29	LSRA
30	TST ,-X
31	STA $E7CD
32	STX ENVOI-4
33	LDA #*+4-ENVOI
34	BRA ENVOI
35
36	LDA ,X+ son compacté No 2
37	ANDA #3
38	STA *+8 ( octets 0 et 1 )
39	LDA ,X
40	LSRA
41	LSRA
42	ORA #0
43	STA $E7CD
44	STX ENVOI-4
45	LDA #*+4-ENVOI
46	BRA ENVOI
47
48	LDA ,X+ son compacté No 3
49	ASLA
50	ASLA ( octets 1 et 2 )
51	STA *+8
52	LDA ,X
53	ANDA #3
54	ORA #0
55	STA $E7CD
56	STX ENVOI-4
57	LDA #*+4-ENVOI
58	BRA ENVOI
59
60	LDA ,X son compacté No 4
61	TST ,X+
62	LSRA ( octets 2 et 3 )
63	LSRA
64	STA $E7CD
65	FINMOD CMPX #$DFFE fin du module ?
66	BHS NXTMOD
67	STX ENVOI-4
68	LDA #NOTE1-ENVOI
69	BRA ENVOI
70	NXTMOD LDX MM module suivant
71	LDA ,X+ banque du module
72	BPL *+7
73	LDX #DEBMUS recommence musique
74	LDA ,X+
75	STA BNKMUS+1
76	LDD ,X++ adresse début
77	STD ENVOI-4
78	LDD ,X++ adresse fin
79	STD FINMOD+1
80	STX MM
81	LDA #NOTE1-ENVOI
82	BRA ENVOI

Note: See TracBrowser for help on using the repository browser.