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.1 KB
|
Line | |
---|
1 | * LECTURE D'UNE IMAGE RAW
|
---|
2 | * SOURCE :
|
---|
3 | * 320X200 16 COULEURS
|
---|
4 | * DESTINATION :
|
---|
5 | * 160X200 16 COULEURS (BITMAP 16)
|
---|
6 | *
|
---|
7 | * COPYRIGHT (C) HOME SOFT 1992
|
---|
8 |
|
---|
9 | ORG $9000
|
---|
10 |
|
---|
11 | PUTC EQU $E803
|
---|
12 | EXTRA EQU $EC0C
|
---|
13 | DKDRV EQU $6049
|
---|
14 | OPEN EQU 03
|
---|
15 | FILMOD EQU $624B
|
---|
16 | FILNAM EQU $624F
|
---|
17 | INPUT EQU 05
|
---|
18 | CARCOU EQU $6196
|
---|
19 | EOFFLG EQU $6178
|
---|
20 | CLOSE EQU 06
|
---|
21 | PRC EQU $E7C3
|
---|
22 |
|
---|
23 | START PSHS A,B,X,Y,U,DP,CC
|
---|
24 | LDB #$1B
|
---|
25 | JSR PUTC
|
---|
26 | LDB #$5E
|
---|
27 | JSR PUTC
|
---|
28 | LDB #$14
|
---|
29 | JSR PUTC
|
---|
30 | CLR $E7DD
|
---|
31 |
|
---|
32 | CLR DKDRV
|
---|
33 | LDB #$10
|
---|
34 | STB FILMOD
|
---|
35 | LDX #FILNAM
|
---|
36 | LDU #NAME
|
---|
37 | NA2 LDB ,U+
|
---|
38 | BEQ NA1
|
---|
39 | STB ,X+
|
---|
40 | BRA NA2
|
---|
41 |
|
---|
42 | NA1 LDB #OPEN
|
---|
43 | JSR EXTRA
|
---|
44 |
|
---|
45 | LDX #$4000
|
---|
46 | LDA PRC
|
---|
47 | ANDA #254
|
---|
48 | STA PRC
|
---|
49 |
|
---|
50 | LI11 LDB #INPUT
|
---|
51 | JSR EXTRA
|
---|
52 | TST EOFFLG
|
---|
53 | LBNE STP
|
---|
54 | INC PRC
|
---|
55 | LDA CARCOU
|
---|
56 | LDB ,X
|
---|
57 | LSLA
|
---|
58 | LSLA
|
---|
59 | BCC LI12
|
---|
60 | ORB #$10
|
---|
61 | BRA LI13
|
---|
62 | LI12 ANDB #$EF
|
---|
63 | LI13 LSLA
|
---|
64 | LSLA
|
---|
65 | BCC LI14
|
---|
66 | ORB #$01
|
---|
67 | BRA LI15
|
---|
68 | LI14 ANDB #$FE
|
---|
69 | LI15 STB ,X
|
---|
70 | DEC PRC
|
---|
71 | LDB ,X
|
---|
72 | LSLA
|
---|
73 | LSLA
|
---|
74 | BCC LI16
|
---|
75 | ORB #$10
|
---|
76 | BRA LI17
|
---|
77 | LI16 ANDB #$EF
|
---|
78 | LI17 LSLA
|
---|
79 | LSLA
|
---|
80 | BCC LI18
|
---|
81 | ORB #$01
|
---|
82 | BRA LI19
|
---|
83 | LI18 ANDB #$FE
|
---|
84 | LI19 STB ,X+
|
---|
85 | CMPX #$5F40
|
---|
86 | BLO LI11
|
---|
87 |
|
---|
88 | LDX #$4000
|
---|
89 |
|
---|
90 | LI21 LDB #INPUT
|
---|
91 | JSR EXTRA
|
---|
92 | TST EOFFLG
|
---|
93 | LBNE STP
|
---|
94 | INC PRC
|
---|
95 | LDA CARCOU
|
---|
96 | LDB ,X
|
---|
97 | LSLA
|
---|
98 | LSLA
|
---|
99 | BCC LI22
|
---|
100 | ORB #$20
|
---|
101 | BRA LI23
|
---|
102 | LI22 ANDB #$DF
|
---|
103 | LI23 LSLA
|
---|
104 | LSLA
|
---|
105 | BCC LI24
|
---|
106 | ORB #$02
|
---|
107 | BRA LI25
|
---|
108 | LI24 ANDB #$FD
|
---|
109 | LI25 STB ,X
|
---|
110 | DEC PRC
|
---|
111 | LDB ,X
|
---|
112 | LSLA
|
---|
113 | LSLA
|
---|
114 | BCC LI26
|
---|
115 | ORB #$20
|
---|
116 | BRA LI27
|
---|
117 | LI26 ANDB #$DF
|
---|
118 | LI27 LSLA
|
---|
119 | LSLA
|
---|
120 | BCC LI28
|
---|
121 | ORB #$02
|
---|
122 | BRA LI29
|
---|
123 | LI28 ANDB #$FD
|
---|
124 | LI29 STB ,X+
|
---|
125 | CMPX #$5F40
|
---|
126 | BLO LI21
|
---|
127 |
|
---|
128 | LDX #$4000
|
---|
129 |
|
---|
130 | LI31 LDB #INPUT
|
---|
131 | JSR EXTRA
|
---|
132 | TST EOFFLG
|
---|
133 | LBNE STP
|
---|
134 | INC PRC
|
---|
135 | LDA CARCOU
|
---|
136 | LDB ,X
|
---|
137 | LSLA
|
---|
138 | LSLA
|
---|
139 | BCC LI32
|
---|
140 | ORB #$40
|
---|
141 | BRA LI33
|
---|
142 | LI32 ANDB #$BF
|
---|
143 | LI33 LSLA
|
---|
144 | LSLA
|
---|
145 | BCC LI34
|
---|
146 | ORB #$04
|
---|
147 | BRA LI35
|
---|
148 | LI34 ANDB #$FB
|
---|
149 | LI35 STB ,X
|
---|
150 | DEC PRC
|
---|
151 | LDB ,X
|
---|
152 | LSLA
|
---|
153 | LSLA
|
---|
154 | BCC LI36
|
---|
155 | ORB #$40
|
---|
156 | BRA LI37
|
---|
157 | LI36 ANDB #$BF
|
---|
158 | LI37 LSLA
|
---|
159 | LSLA
|
---|
160 | BCC LI38
|
---|
161 | ORB #$04
|
---|
162 | BRA LI39
|
---|
163 | LI38 ANDB #$FB
|
---|
164 | LI39 STB ,X+
|
---|
165 | CMPX #$5F40
|
---|
166 | BLO LI31
|
---|
167 |
|
---|
168 | LDX #$4000
|
---|
169 |
|
---|
170 | LI41 LDB #INPUT
|
---|
171 | JSR EXTRA
|
---|
172 | TST EOFFLG
|
---|
173 | LBNE STP
|
---|
174 | INC PRC
|
---|
175 | LDA CARCOU
|
---|
176 | LDB ,X
|
---|
177 | LSLA
|
---|
178 | LSLA
|
---|
179 | BCC LI42
|
---|
180 | ORB #$80
|
---|
181 | BRA LI43
|
---|
182 | LI42 ANDB #$7F
|
---|
183 | LI43 LSLA
|
---|
184 | LSLA
|
---|
185 | BCC LI44
|
---|
186 | ORB #$08
|
---|
187 | BRA LI45
|
---|
188 | LI44 ANDB #$F7
|
---|
189 | LI45 STB ,X
|
---|
190 | DEC PRC
|
---|
191 | LDB ,X
|
---|
192 | LSLA
|
---|
193 | LSLA
|
---|
194 | BCC LI46
|
---|
195 | ORB #$80
|
---|
196 | BRA LI47
|
---|
197 | LI46 ANDB #$7F
|
---|
198 | LI47 LSLA
|
---|
199 | LSLA
|
---|
200 | BCC LI48
|
---|
201 | ORB #$08
|
---|
202 | BRA LI49
|
---|
203 | LI48 ANDB #$F7
|
---|
204 | LI49 STB ,X+
|
---|
205 | CMPX #$5F40
|
---|
206 | BLO LI41
|
---|
207 |
|
---|
208 | CLR COUL
|
---|
209 | A0 LDB #INPUT
|
---|
210 | JSR EXTRA
|
---|
211 | TST EOFFLG
|
---|
212 | BNE STP
|
---|
213 | LDA CARCOU
|
---|
214 | STA ROUGE
|
---|
215 | LDB #INPUT
|
---|
216 | JSR EXTRA
|
---|
217 | TST EOFFLG
|
---|
218 | BNE STP
|
---|
219 | LDA CARCOU
|
---|
220 | ANDA #$F0
|
---|
221 | STA VERT
|
---|
222 | LDA CARCOU
|
---|
223 | ANDA #$0F
|
---|
224 | STA BLEU
|
---|
225 |
|
---|
226 | LDA COUL
|
---|
227 | ASLA
|
---|
228 | STA $E7DB
|
---|
229 | LDA BLEU
|
---|
230 | LDB VERT
|
---|
231 | ORB ROUGE
|
---|
232 | STB $E7DA
|
---|
233 | STA $E7DA
|
---|
234 |
|
---|
235 | INC COUL
|
---|
236 | LDB COUL
|
---|
237 | CMPB #16
|
---|
238 | BLO A0
|
---|
239 |
|
---|
240 | STP LDB #CLOSE
|
---|
241 | JSR EXTRA
|
---|
242 | PULS A,B,X,Y,U,DP,CC,PC
|
---|
243 |
|
---|
244 | NAME FCC " RAW"
|
---|
245 | FCB 0
|
---|
246 | COUL RMB 1
|
---|
247 | ROUGE RMB 1
|
---|
248 | VERT RMB 1
|
---|
249 | BLEU RMB 1
|
---|
250 |
|
---|
251 | END
|
---|
Note:
See
TracBrowser
for help on using the repository browser.