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:
4.5 KB
|
Line | |
---|
1 | ****************************************
|
---|
2 | * *
|
---|
3 | * TRANSCODEUR D'IMAGES TO.MAP > PC.BMP *
|
---|
4 | * *
|
---|
5 | * par Michel SAINT-BRIANT * 15/03/1992 *
|
---|
6 | * *
|
---|
7 | * (c) A.S.C.I. Copyright 1992 *
|
---|
8 | * *
|
---|
9 | ****************************************
|
---|
10 |
|
---|
11 | * TRANSFERT D'UNE IMAGE THOMSON EN UNE
|
---|
12 | * IMAGE AU FORMAT PC-WINDOWS -> .BMP
|
---|
13 |
|
---|
14 | ORG $9800
|
---|
15 |
|
---|
16 | PSHS A,B,CC,DP,X,Y,U
|
---|
17 |
|
---|
18 |
|
---|
19 | LDB #$14 ARRET CLIGNOTEMENT
|
---|
20 | JSR $E803
|
---|
21 |
|
---|
22 | LDX #FILE
|
---|
23 | LDA ,X++
|
---|
24 | SUBA #$30
|
---|
25 | STA $6049
|
---|
26 | LDU #$624B
|
---|
27 | LDD #$2003
|
---|
28 | STD ,U++
|
---|
29 | LDA #$FF
|
---|
30 | STA ,U++
|
---|
31 | LDB #8
|
---|
32 | COPS LDA ,X+
|
---|
33 | STA ,U+
|
---|
34 | DECB
|
---|
35 | BNE COPS
|
---|
36 | LDD #$424D 'BM'
|
---|
37 | STD ,U++
|
---|
38 | LDD #$5009 'P'+8 octets
|
---|
39 | COPC STA ,U+
|
---|
40 | LDA ,X+
|
---|
41 | DECB
|
---|
42 | BNE COPC
|
---|
43 |
|
---|
44 | LDB #3 CODE DE OPEN
|
---|
45 | JSR $EC0C OUVERTURE
|
---|
46 | LDX #ENTETE
|
---|
47 | LDY #30
|
---|
48 | COPEN0 LDA ,X+
|
---|
49 | LDB #4
|
---|
50 | JSR $EC0C
|
---|
51 | LEAY -1,Y
|
---|
52 | BNE COPEN0
|
---|
53 | LDY #24
|
---|
54 | COPEN1 CLRA
|
---|
55 | LDB #4
|
---|
56 | JSR $EC0C
|
---|
57 | LEAY -1,Y
|
---|
58 | BNE COPEN1
|
---|
59 | LDX #PALETT
|
---|
60 | LDY #64
|
---|
61 | COPEN2 LDA ,X+
|
---|
62 | LDB #4
|
---|
63 | JSR $EC0C
|
---|
64 | LEAY -1,Y
|
---|
65 | BNE COPEN2
|
---|
66 | LDX #$5F18
|
---|
67 | STX ADDRES
|
---|
68 | LDA MODE
|
---|
69 | BEQ MODTO7
|
---|
70 | CMPA #2
|
---|
71 | LBEQ MODBM4
|
---|
72 | CMPA #3
|
---|
73 | LBEQ MODB16
|
---|
74 | LBRA QUITTE
|
---|
75 |
|
---|
76 | MODTO7 LDY #$0028
|
---|
77 | OCTET LDA $E7C3
|
---|
78 | ANDA #$FE
|
---|
79 | STA $E7C3
|
---|
80 | LDA ,X
|
---|
81 | BITA #$40
|
---|
82 | BEQ OCTET0
|
---|
83 | ANDA #$38
|
---|
84 | BRA OCTET1
|
---|
85 | OCTET0 ORA #$40
|
---|
86 | OCTET1 ANDA #$78
|
---|
87 | ASLA
|
---|
88 | STA FORM0+1
|
---|
89 | LSRA
|
---|
90 | LSRA
|
---|
91 | LSRA
|
---|
92 | LSRA
|
---|
93 | STA FORM1+1
|
---|
94 | LDA ,X
|
---|
95 | ANDA #$07
|
---|
96 | TST ,X
|
---|
97 | BMI OCTET2
|
---|
98 | ORA #$08
|
---|
99 | OCTET2 STA FOND1+1
|
---|
100 | ASLA
|
---|
101 | ASLA
|
---|
102 | ASLA
|
---|
103 | ASLA
|
---|
104 | STA FOND0+1
|
---|
105 | LDA $E7C3
|
---|
106 | ORA #$01
|
---|
107 | STA $E7C3
|
---|
108 | LDB #4
|
---|
109 | LDA ,X+
|
---|
110 | PSHS A,B
|
---|
111 | FORM0 LDA #$00
|
---|
112 | ASL ,S
|
---|
113 | BCS POINT0
|
---|
114 | FOND0 LDA #$00
|
---|
115 | POINT0 ASL ,S
|
---|
116 | BCC FOND1
|
---|
117 | FORM1 ORA #$00
|
---|
118 | BRA POINT1
|
---|
119 | FOND1 ORA #$00
|
---|
120 | POINT1 LDB #4
|
---|
121 | JSR $EC0C
|
---|
122 | DEC 1,S
|
---|
123 | BNE FORM0
|
---|
124 | PULS A,B
|
---|
125 | LEAY -1,Y
|
---|
126 | BNE OCTET
|
---|
127 | LDX ADDRES
|
---|
128 | CMPX #$4000
|
---|
129 | LBLE QUITTE
|
---|
130 | LEAX -$28,X
|
---|
131 | STX ADDRES
|
---|
132 | BRA MODTO7
|
---|
133 |
|
---|
134 | MODBM4 LDY #$0028
|
---|
135 | OCBM40 LDA $E7C3
|
---|
136 | ANDA #$FE
|
---|
137 | STA $E7C3
|
---|
138 | LDD ,X
|
---|
139 | PSHS A,B
|
---|
140 | LDA $E7C3
|
---|
141 | ORA #$01
|
---|
142 | STA $E7C3
|
---|
143 | LDD ,X++
|
---|
144 | PSHS A,B
|
---|
145 | LDA #8
|
---|
146 | PSHS A
|
---|
147 | OCBM41 ASL 1,S
|
---|
148 | ROLA
|
---|
149 | ASL 3,S
|
---|
150 | ROLA
|
---|
151 | LSLA
|
---|
152 | LSLA
|
---|
153 | ASL 2,S
|
---|
154 | ROLA
|
---|
155 | ASL 4,S
|
---|
156 | ROLA
|
---|
157 | LSLA
|
---|
158 | LSLA
|
---|
159 | LDB #4
|
---|
160 | JSR $EC0C
|
---|
161 | DEC ,S
|
---|
162 | BNE OCBM41
|
---|
163 | PULS CC,A,B,U
|
---|
164 | LEAY -2,Y
|
---|
165 | BNE OCBM40
|
---|
166 | LDX ADDRES
|
---|
167 | CMPX #$4000
|
---|
168 | LBLE QUITTE
|
---|
169 | LEAX -$28,X
|
---|
170 | STX ADDRES
|
---|
171 | BRA MODBM4
|
---|
172 |
|
---|
173 | MODB16 LDY #$0028
|
---|
174 | OCBM16 LDA $E7C3
|
---|
175 | ORA #$01
|
---|
176 | STA $E7C3
|
---|
177 | LDA ,X
|
---|
178 | TFR A,DP
|
---|
179 | ANDA #$F0
|
---|
180 | STA ,X
|
---|
181 | LSRA
|
---|
182 | LSRA
|
---|
183 | LSRA
|
---|
184 | LSRA
|
---|
185 | ORA ,X
|
---|
186 | LDB #4
|
---|
187 | JSR $EC0C
|
---|
188 | TFR DP,A
|
---|
189 | ANDA #$0F
|
---|
190 | STA ,X
|
---|
191 | ASLA
|
---|
192 | ASLA
|
---|
193 | ASLA
|
---|
194 | ASLA
|
---|
195 | ORA ,X
|
---|
196 | LDB #4
|
---|
197 | JSR $EC0C
|
---|
198 | LDA $E7C3
|
---|
199 | ANDA #$FE
|
---|
200 | STA $E7C3
|
---|
201 | LDA ,X
|
---|
202 | TFR A,DP
|
---|
203 | ANDA #$F0
|
---|
204 | STA ,X
|
---|
205 | LSRA
|
---|
206 | LSRA
|
---|
207 | LSRA
|
---|
208 | LSRA
|
---|
209 | ORA ,X
|
---|
210 | LDB #4
|
---|
211 | JSR $EC0C
|
---|
212 | TFR DP,A
|
---|
213 | ANDA #$0F
|
---|
214 | STA ,X
|
---|
215 | ASLA
|
---|
216 | ASLA
|
---|
217 | ASLA
|
---|
218 | ASLA
|
---|
219 | ORA ,X+
|
---|
220 | LDB #4
|
---|
221 | JSR $EC0C
|
---|
222 | LEAY -1,Y
|
---|
223 | BNE OCBM16
|
---|
224 | LDX ADDRES
|
---|
225 | CMPX #$4000
|
---|
226 | LBLE QUITTE
|
---|
227 | LEAX -$28,X
|
---|
228 | STX ADDRES
|
---|
229 | BRA MODB16
|
---|
230 |
|
---|
231 | QUITTE LDB #6 CLOSE
|
---|
232 | JSR $EC0C
|
---|
233 | PULS A,B,DP,CC,X,Y,U,PC
|
---|
234 |
|
---|
235 | ADDRES FDB 0
|
---|
236 | ENTETE FDB $424D,$7680,0,0,0,$7600
|
---|
237 | FDB 0,$2800,0,$4001,0,$C800
|
---|
238 | FDB 0,$0100,$0400
|
---|
239 | PALETT RMB 64
|
---|
240 | MODE FCB 1
|
---|
241 | FILE FCC #4:IMAGE #
|
---|
242 | COMMEN FCC #MAP>>BMP#
|
---|
243 |
|
---|
244 | END
|
---|
Note:
See
TracBrowser
for help on using the repository browser.