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
|
-
Property mode
set to
100644
|
File size:
1.4 KB
|
Line | |
---|
1 | ****************************************
|
---|
2 | * *
|
---|
3 | * Restitution d'un son TO8 compilé *
|
---|
4 | * *
|
---|
5 | ****************************************
|
---|
6 |
|
---|
7 | BSOUND EQU $7600 adresse début son
|
---|
8 | ESOUND EQU $DE96 adresse fin du son
|
---|
9 |
|
---|
10 |
|
---|
11 | ORG $7500
|
---|
12 |
|
---|
13 | G ORCC #80
|
---|
14 | LDA $E7C5 autorise
|
---|
15 | ORA #1 sortie son
|
---|
16 | STA $E7C5
|
---|
17 | LDA $E7C1
|
---|
18 | ANDA #$F7
|
---|
19 | STA $E7C1
|
---|
20 |
|
---|
21 | CLR $E7CF définition son
|
---|
22 | LDD #$3F04
|
---|
23 | STA $E7CD merci Gaël !!!
|
---|
24 | STB $E7CF
|
---|
25 |
|
---|
26 | LDX #BSOUND
|
---|
27 | PLAY LDA ,X+
|
---|
28 | LDA -1,X
|
---|
29 | LSRA
|
---|
30 | LSRA
|
---|
31 | TST ,-X
|
---|
32 | STA $E7CD
|
---|
33 | BSR WAIT
|
---|
34 |
|
---|
35 | LDA ,X+ 6
|
---|
36 | ANDA #3 2
|
---|
37 | STA *+8 5 attention ! les
|
---|
38 | LDA ,X 4 temps d'attente
|
---|
39 | LSRA 2 sont identiques
|
---|
40 | LSRA 2 pour chaque son
|
---|
41 | ORA #0 2 (cf cycles)
|
---|
42 | STA $E7CD 5
|
---|
43 | BSR WAIT
|
---|
44 |
|
---|
45 | LDA ,X+
|
---|
46 | ASLA
|
---|
47 | ASLA
|
---|
48 | STA *+8
|
---|
49 | LDA ,X
|
---|
50 | ANDA #3
|
---|
51 | ORA #0
|
---|
52 | STA $E7CD
|
---|
53 | BSR WAIT
|
---|
54 |
|
---|
55 | LDA ,X
|
---|
56 | TST ,X+
|
---|
57 | NOP
|
---|
58 | LSRA
|
---|
59 | LSRA
|
---|
60 | STA $E7CD
|
---|
61 | BSR WAIT
|
---|
62 | CMPX #ESOUND
|
---|
63 | BLO PLAY
|
---|
64 | SWI
|
---|
65 |
|
---|
66 | WAIT LDA #16
|
---|
67 | DECA
|
---|
68 | BNE *-1
|
---|
69 | RTS
|
---|
70 |
|
---|
71 | END
|
---|
Note:
See
TracBrowser
for help on using the repository browser.