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.3 KB
|
Line | |
---|
1 | ****************************************
|
---|
2 | * REMPLACEMENT DE COULEURS *
|
---|
3 | * sur une image BitMap16 *
|
---|
4 | ****************************************
|
---|
5 | * Voir la matrice des correspondances en
|
---|
6 | * fin de programme. By Doctor Lô 19-5-91
|
---|
7 |
|
---|
8 |
|
---|
9 | ORG $9F00
|
---|
10 |
|
---|
11 | G ORCC #80
|
---|
12 | LDU #CORRES Table conversion
|
---|
13 | LDA $E7C3
|
---|
14 | ORA #1
|
---|
15 | STA $E7C3
|
---|
16 | BSR TRAITE-3
|
---|
17 | DEC $E7C3
|
---|
18 |
|
---|
19 | LDX #$4000
|
---|
20 | TRAITE LDA ,X première couleur
|
---|
21 | LSRA forts->faibles
|
---|
22 | LSRA
|
---|
23 | LSRA
|
---|
24 | LSRA origine...
|
---|
25 | LDA A,U ...nouvelle
|
---|
26 | LSLA
|
---|
27 | LSLA
|
---|
28 | LSLA
|
---|
29 | LSLA faibles->forts
|
---|
30 | LDB ,X origine
|
---|
31 | ANDB #15 4 bits forts à 0
|
---|
32 | STB ,X
|
---|
33 | ORA ,X et remplacés par
|
---|
34 | STA ,X la nouvelle valeur
|
---|
35 | ANDA #15
|
---|
36 | LDB ,X origine
|
---|
37 | ANDB #240 4 bits faibles à 0
|
---|
38 | ORB A,U et remplacés par
|
---|
39 | STB ,X+ la nouvelle valeur
|
---|
40 | CMPX #$5F40
|
---|
41 | BNE TRAITE
|
---|
42 | RTS
|
---|
43 |
|
---|
44 | * Table de correspondance des couleurs:
|
---|
45 | * indice de la case = couleur origine
|
---|
46 | * contenu de la case = nouvelle couleur
|
---|
47 |
|
---|
48 | FCC / HCL /
|
---|
49 | CORRES FCB 0,1,2,3,4,5,6,7,8,9,10,11
|
---|
50 | FCB 12,13,14,15
|
---|
51 | END
|
---|
Note:
See
TracBrowser
for help on using the repository browser.