source: vital-to8-sdk/docs/roms/monto8.asm @ 1

Last change on this file since 1 was 1, checked in by svn, 5 years ago

Import initial

File size: 86.4 KB
Line 
1Désassemblage (+commentaires) de la ROM du TO8
2Moniteur Page 0 E000-FFFF
3
4
5Sur les TO7-70 cette partie de ROM (+-2ko) est
6contenue dans l'extension Ctrl Disk
7
8E000 4D    TSTA     // Table Cookie
9E001 54    LSRB       
10E002 44    LSRA
11E003 3A    ABX
12
13// PT d'entrée DISK
14E004 16    LBRA E076
15
16E007 16    LBRA E025
17
18E00A 16    LBRA DFB3
19
20E00D 17    LBSR DFB8
21E010 17    LBSR DFB8
22E013 17    LBSR DFB8
23E016 17    LBSR DFB8
24E019 17    LBSR DFB8
25E01C 17    LBSR DFB8
26E01F 17    LBSR DFB8
27E022 17    LBSR DFB8
28E025 8D    BSR  E09D
29E027 0F    CLR  49
30E029 8D    BSR  E0A7
31E02B 17    LBSR DFFE
32E02E 86    LDA  #02
33E030 34    PSHS A,
34E032 0F    CLR  58
35E034 CC    LDD  #0001
36E037 DD    STD  4B
37E039 CE    LDU  #6200
38E03C DF    STU  4F
39E03E 17    LBSR E0A7
40E041 8D    BSR  E0B9
41E043 DE    LDU  4F
42E045 24    BCC  E04F
43E047 96    LDA  58
44E049 26    BNE  E06B
45E04B 03    COM  58
46E04D 20    BRA  E034
47E04F 10 8E LDY  #627F
48E053 34    PSHS Y,
49E055 86    LDA  #55
50E057 6A    DEC  ,U
51E059 63    COM  ,U
52E05B AB    ADDA ,U+
53E05D 11 A3 CMPU ,S
54E060 26    BNE  E057
55E062 35    PULS Y,
56E064 A1    CMPA ,U
57E066 26    BNE  E070
58E068 7E    JMP  6200
59E06B 35    PULS A,
60E06D 4A    DECA
61E06E 26    BNE  E030
62E070 0F    CLR  80
63E072 6E    JMP  [001E]
64
65// Pt d'entrée disk
66E076 34    PSHS U/S,Y,X,DP,B,A,CC
67E078 8D    BSR  E09D  --> init des registres
68E07A 96    LDA  48
69E07C 81    CMPA #01
70E07E 27    BEQ  E086  --> init ctrl disk
71E080 96    LDA  49
72E082 81    CMPA #04   --> Detection RAMDISK
73E084 27    BEQ  E093 
74E086 8D    BSR  E0A7  --> selection unité
75E088 8D    BSR  E0C2  --> traite la commande
76E08A 8D    BSR  E0B9  --> termine les commandes
77E08C 35    PULS A,
78E08E 1E    EXG  A,CC
79E090 44    LSRA
80E091 35    PULS PC,U/S,Y,X,DP,B,A,
81
82// Gestion du RAMDISK
83E093 CE    LDU  #E004
84E096 DF    STU  55
85E098 BD    JSR  FFA0
86E09B 20    BRA  E08C
87
88// init des routines disk
89// X pointe sur le debut des registres disk
90E09D 86    LDA  #60
91E09F 1F    TFR  A,DP
92E0A1 8E    LDX  #E7D0
93E0A4 0F    CLR  4E      -- raz de DSK.STA
94E0A6 39    RTS 
95
96// selection unité disk
97E0A7 DC    LDD  48  --> B=DSK.DRV
98E0A9 81    CMPA #01 --> si DSK.OP!=1 (init)
99E0AB 26    BNE  E0AF
100E0AD C6    LDB  #01     alors B=1
101E0AF CE    LDU  #E0BE
102E0B2 A6    LDA  B,U --> A=DSKREG[B]
103E0B4 A7    STA  2,X
104E0B6 97    STA  57
105E0B8 39    RTS 
106
107// disk : fin des operations ...
108E0B9 86    LDA  #40
109E0BB A7    STA  2,X
110E0BD 39    RTS 
111
112
113// Table selection disk
114// DSKREG[4]={0x41,0x01,0x42,0x02}
115E0BE 41    ILL
116E0BF 01    ILL 
117E0C0 42    ILL 
118E0C1 02    ILL
119
120// disk : traitement de la commande
121E0C2 86    LDA  #02
122E0C4 34    PSHS A,
123E0C6 4F    CLRA                         A=0
124E0C7 D6    LDB  48              B=DSK.OP<<1
125E0C9 54    LSRB                 LA:     B=B>>1
126E0CA 4C    INCA                 A++
127E0CB 24    BCC  E0C9            if (B&0x01==0) GOTO LA
128E0CD 4A    DECA                         A--
129E0CE 48    ASLA                         A*=2
130E0CF 10 8E LDY  #E0F0
131E0D3 AD    JSR  [A,Y]           appel de la commande
132E0D5 24    BCC  E0EE
133E0D7 96    LDA  4E              gestion des codes de retour
134E0D9 85    BITA #51
135E0DB 26    BNE  E0EE
136E0DD 6A    DEC  ,S
137E0DF 27    BEQ  E0ED
138E0E1 0F    CLR  4E
139E0E3 81    CMPA #08
140E0E5 27    BEQ  E0C6
141E0E7 8D    BSR  E134
142E0E9 25    BCS  E0DD
143E0EB 20    BRA  E0C6
144E0ED 53    COMB
145E0EE 35    PULS PC,A,
146
147// Table d'adressage (JMP [A,Y]) des fonctions disk
148E0F0 E0FE    0x01 initialisation du controleur
149E0F2 E3A7    0x02 lecture d'un secteur
150E0F4 E16E    0x04 rien
151E0F6 E177    0x08 ecriture d'un secteur
152E0F8 E174    0x10 rien
153E0FA E134    0x20 positionne tete piste 0
154E0FC E452    0x40 positionne tete piste n
155
156
157// fonction disk 0x01 initialisation du controleur
158E0FE 8D    BSR  E134    // posit tete piste 0
159E100 25    BCS  E133   
160E102 86    LDA  #01
161E104 97    STA  4B
162E106 17    LBSR E17A
163E109 C6    LDB  #44
164E10B A6    LDA  1,X
165E10D 85    BITA #08
166E10F 27    BEQ  E113
167E111 C6    LDB  #43
168E113 D7    STB  4E
169E115 8D    BSR  E134    // posit tete piste 0
170E117 0F    CLR  52
171E119 0F    CLR  54
172E11B 6F    CLR  ,X
173E11D 0F    CLR  58
174E11F DC    LDD  E9
175E121 93    SUBD ED
176E123 2C    BGE  E12A
177E125 43    COMA
178E126 53    COMB
179E127 C3    ADDD #0001
180E12A 4D    TSTA
181E12B 26    BNE  E132
182E12D 5D    TSTB
183E12E 2A    BPL  E132
184E130 03    COM  58
185E132 4F    CLRA
186E133 39    RTS
187
188// fonction disk 0x20 : positionne tete piste 0
189E134 C6    LDB  #64     
190E136 A6    LDA  1,X
191E138 85    BITA #08
192E13A 26    BNE  E14F
193E13C 96    LDA  57
194E13E 8A    ORA  #10
195E140 A7    STA  2,X
196E142 84    ANDA #EF
197E144 A7    STA  2,X
198E146 8D    BSR  E165            Wait 6ms
199E148 5A    DECB
200E149 10 27 LBEQ E174
201E14D 20    BRA  E136
202E14F 8D    BSR  E15F            Wait 15ms               
203E151 17    LBSR E1A8    ??? semble etre un bug 
204E154 6F    CLR  ,Y
205E156 6F    CLR  6,X
206E158 39    RTS 
207
208// bcle de tempo 864µs
209E159 10 8E LDY  #006C
210E15D 20    BRA  E169
211
212// bcle de tempo 14976µs
213E15F 10 8E LDY  #0750
214E163 20    BRA  E169
215
216// bcle de tempo 5984µs
217E165 10 8E LDY  #02EC
218E169 31    LEAY -1,Y
219E16B 26    BNE  E169
220E16D 39    RTS 
221
222
223// fonction disk 0x04 : rien
224E16E 86    LDA  #FF
225E170 97    STA  58
226E172 4F    CLRA
227E173 39    RTS
228
229
230// fonction disk 4 :
231E174 0F    CLR  58
232E176 39    RTS 
233
234// fonction disk 0x08 écriture d'un secteur
235E177 17    LBSR E152
236E17A 25    BCS  E176
237E17C A6    LDA  1,X
238E17E 85    BITA #04
239E180 27    BEQ  E187
240E182 86    LDA  #01
241E184 16    LBRA E176
242
243
244E187 96    LDA  58
245E189 10 26 LBNE E120
246E18D 17    LBSR E141
247E190 C6    LDB  #19
248E192 34    PSHS CC
249E194 17    LBSR E194
250E197 10 8E LDY  #7500
251E19B 31    LEAY ff,Y
252E19D 10 27 LBEQ E140
253E1A1 E6    LDB  ,X
254E1A3 C5    BITB #02
255E1A5 27    BEQ  E19B
256E1A7 A7    STA  3,X     | E1A8 03    COM E6
257E1A9 E6    LDB  ,X      | E1AA 84        ANDA #2A
258E1AB 2A    BPL  E1A9    |
259E1AD A7    STA  3,X
260E1AF E6    LDB  ,X
261E1B1 2A    BPL  E1AF
262E1B3 C6    LDB  #FB
263E1B5 E7    STB  3,X
264E1B7 4F    CLRA
265E1B8 E6    LDB  ,X
266E1BA 2A    BPL  E1B8
267E1BC E6    LDB  ,U+
268E1BE E7    STB  3,X
269E1C0 4A    DECA
270E1C1 26    BNE  E1B8
271E1C3 E6    LDB  ,X
272E1C5 C5    BITB #08
273E1C7 27    BEQ  E1C3
274E1C9 8D    BSR  E159
275E1CB 0D    TST  48
276E1CD 2A    BPL  E217
277E1CF 17    LBSR E15A
278E1D2 C6    LDB  #1B
279E1D4 17    LBSR E194
280E1D7 86    LDA  #04
281E1D9 10 8E LDY  #7500
282E1DD 31    LEAY ff,Y
283E1DF 10 27 LBEQ E1DC
284E1E3 E6    LDB  ,X
285E1E5 C5    BITB #02
286E1E7 27    BEQ  E1DD
287E1E9 E6    LDB  3,X
288E1EB 4A    DECA
289E1EC 10 27 LBEQ E248
290E1F0 E6    LDB  ,X
291E1F2 2A    BPL  E1F0
292E1F4 E6    LDB  3,X
293E1F6 C1    CMPB #FB
294E1F8 26    BNE  E1EB
295E1FA 4F    CLRA
296E1FB E6    LDB  ,X
297E1FD 2A    BPL  E1FB
298E1FF E6    LDB  3,X
299E201 E1    CMPB ,U+
300E203 26    BNE  E208
301E205 4A    DECA
302E206 26    BNE  E1FB
303E208 E6    LDB  ,X
304E20A C5    BITB #08
305E20C 27    BEQ  E208
306E20E 4D    TSTA
307E20F 26    BNE  E213
308E211 C5    BITB #04
309E213 10 26 LBNE E1DC
310E217 35    PULS CC
311E219 6F    CLR  ,X
312E21B 39    RTS 
313E21C 34    PSHS CC
314E21E 20    BRA  E1CF
315E220 17    LBSR E254
316E223 17    LBSR E25B
317E226 34    PSHS CC
318E228 34    PSHS B,A,
319E22A 17    LBSR E1EA
320E22D 24    BCC  E234
321E22F 35    PULS B,A,
322E231 16    LBRA E240
323E234 C6    LDB  #FF
324E236 E7    STB  4,X
325E238 CC    LDD  #0624
326E23B E7    STB  ,X
327E23D E6    LDB  ,X
328E23F 2A    BPL  E23D
329E241 6F    CLR  3,X
330E243 4A    DECA
331E244 26    BNE  E23D
332E246 E6    LDB  ,X
333E248 2A    BPL  E246
334E24A CC    LDD  #FBC7
335E24D ED    STD  3,X
336E24F C6    LDB  #FF
337E251 A6    LDA  ,X
338E253 2A    BPL  E251
339E255 A6    LDA  ,U+
340E257 ED    STD  3,X
341E259 86    LDA  #7F
342E25B E6    LDB  ,X
343E25D 2A    BPL  E25B
344E25F E6    LDB  ,U+
345E261 E7    STB  3,X
346E263 4A    DECA
347E264 26    BNE  E25B
348E266 E6    LDB  ,X
349E268 2A    BPL  E266
350E26A 35    PULS B,
351E26C E7    STB  3,X
352E26E 43    COMA
353E26F 26    BNE  E266
354E271 E6    LDB  ,X
355E273 2A    BPL  E271
356E275 6F    CLR  3,X
357E277 E6    LDB  ,X
358E279 2A    BPL  E277
359E27B C6    LDB  #20
360E27D E7    STB  ,X
361E27F E6    LDB  ,X
362E281 2A    BPL  E27F
363E283 E6    LDB  3,X
364E285 43    COMA
365E286 26    BNE  E27F
366E288 32    LEAS fe,S
367E28A 17    LBSR E259
368E28D 0D    TST  48
369E28F 2A    BPL  E2D3
370E291 17    LBSR E25A
371E294 8D    BSR  E2EA
372E296 25    BCS  E2DA
373E298 C6    LDB  #FB
374E29A E7    STB  3,X
375E29C CC    LDD  #8038
376E29F E7    STB  ,X
377E2A1 10 8E LDY  #0100
378E2A5 31    LEAY ff,Y
379E2A7 27    BEQ  E2DA
380E2A9 E6    LDB  ,X
381E2AB C5    BITB #01
382E2AD 27    BEQ  E2A5
383E2AF E6    LDB  3,X
384E2B1 C6    LDB  #28
385E2B3 E7    STB  ,X
386E2B5 E6    LDB  ,X
387E2B7 2A    BPL  E2B5
388E2B9 E6    LDB  3,X
389E2BB E1    CMPB ,U+
390E2BD 26    BNE  E2DA
391E2BF 4A    DECA
392E2C0 26    BNE  E2B5
393E2C2 A6    LDA  ,X
394E2C4 2A    BPL  E2C2
395E2C6 A6    LDA  3,X
396E2C8 E6    LDB  ,X
397E2CA 2A    BPL  E2C8
398E2CC E6    LDB  3,X
399E2CE 10 A3 CMPD ,S
400E2D1 26    BNE  E2DA
401E2D3 35    PULS B,A,
402E2D5 35    PULS CC
403E2D7 6F    CLR  ,X
404E2D9 39    RTS 
405E2DA 35    PULS B,A,
406E2DC 86    LDA  #20
407E2DE 16    LBRA E34A
408E2E1 34    PSHS CC
409E2E3 CC    LDD  #5D30
410E2E6 34    PSHS B,A,
411E2E8 20    BRA  E291
412E2EA 86    LDA  #C7
413E2EC A7    STA  4,X
414E2EE 86    LDA  #FE
415E2F0 A7    STA  3,X
416E2F2 86    LDA  #30
417E2F4 DE    LDU  4F
418E2F6 1A    ORCC #50
419E2F8 C6    LDB  #38
420E2FA E7    STB  ,X
421E2FC 10 8E LDY  #1700
422E300 31    LEAY ff,Y
423E302 27    BEQ  E33E
424E304 E6    LDB  ,X
425E306 C5    BITB #01
426E308 27    BEQ  E300
427E30A E6    LDB  3,X
428E30C C6    LDB  #28
429E30E E7    STB  ,X
430E310 E6    LDB  ,X
431E312 2A    BPL  E310
432E314 E6    LDB  3,X
433E316 D1    CMPB 4B
434E318 26    BNE  E33B
435E31A E6    LDB  ,X
436E31C 2A    BPL  E31A
437E31E E6    LDB  3,X
438E320 26    BNE  E33B
439E322 E6    LDB  ,X
440E324 2A    BPL  E322
441E326 E6    LDB  3,X
442E328 D1    CMPB 4C
443E32A 26    BNE  E33B
444E32C E6    LDB  ,X
445E32E 2A    BPL  E32C
446E330 E6    LDB  3,X
447E332 26    BNE  E33B
448E334 17    LBSR E359
449E337 4F    CLRA
450E338 A6    LDA  ,X
451E33A 39    RTS 
452E33B 4A    DECA
453E33C 26    BNE  E2F8
454E33E 53    COMB
455E33F 20    BRA  E338
456E341 D6    LDB  4B
457E343 C1    CMPB #39
458E345 2A    BPL  E34C
459E347 CC    LDD  #9F20
460E34A 20    BRA  E34F
461E34C CC    LDD  #1F22
462E34F A7    STA  7,X
463E351 E7    STB  1,X
464E353 39    RTS 
465E354 86    LDA  #BF
466E356 A7    STA  7,X
467E358 6F    CLR  1,X
468E35A 39    RTS 
469E35B DE    LDU  4F
470E35D 10 8E LDY  #0080
471E361 CC    LDD  #BF84
472E364 34    PSHS B,A,
473E366 A6    LDA  ,S
474E368 A8    EORA ,U+
475E36A 34    PSHS A,
476E36C 44    LSRA
477E36D 44    LSRA
478E36E 44    LSRA
479E36F 44    LSRA
480E370 A8    EORA ,S
481E372 A7    STA  ,S
482E374 1F    TFR  A,B
483E376 54    LSRB
484E377 54    LSRB
485E378 54    LSRB
486E379 48    ASLA
487E37A 48    ASLA
488E37B 48    ASLA
489E37C 48    ASLA
490E37D E8    EORB 2,S
491E37F E7    STB  2,S
492E381 1F    TFR  A,B
493E383 A8    EORA 2,S
494E385 A7    STA  1,S
495E387 58    ASLB
496E388 E8    EORB ,S
497E38A E7    STB  2,S
498E38C 32    LEAS 1,S
499E38E 31    LEAY ff,Y
500E390 26    BNE  E366
501E392 35    PULS PC,B,A,
502E394 96    LDA  4C
503E396 A7    STA  5,X
504E398 86    LDA  #0A
505E39A A7    STA  4,X
506E39C 86    LDA  #A1
507E39E A7    STA  3,X
508E3A0 1A    ORCC #50
509E3A2 DE    LDU  4F
510E3A4 E7    STB  ,X
511E3A6 39    RTS 
512
513
514// fonction disk 0x02 : lecture d'un secteur
515E3A7 17    LBSR E352
516E3AA 10 25 LBCS E33F
517E3AE 34    PSHS CC
518E3B0 96    LDA  58
519E3B2 26    BNE  E3F1
520E3B4 8D    BSR  E341
521E3B6 C6    LDB  #1B
522E3B8 8D    BSR  E394
523E3BA 86    LDA  #04
524E3BC 10 8E LDY  #7500
525E3C0 31    LEAY ff,Y
526E3C2 27    BEQ  E440
527E3C4 E6    LDB  ,X
528E3C6 C5    BITB #02
529E3C8 27    BEQ  E3C0
530E3CA E6    LDB  3,X
531E3CC 4A    DECA
532E3CD 27    BEQ  E448
533E3CF E6    LDB  ,X
534E3D1 2A    BPL  E3CF
535E3D3 E6    LDB  3,X
536E3D5 C1    CMPB #FB
537E3D7 26    BNE  E3CC
538E3D9 4F    CLRA
539E3DA E6    LDB  ,X
540E3DC 2A    BPL  E3DA
541E3DE E6    LDB  3,X
542E3E0 E7    STB  ,U+
543E3E2 4A    DECA
544E3E3 26    BNE  E3DA
545E3E5 E6    LDB  ,X
546E3E7 C5    BITB #08
547E3E9 27    BEQ  E3E5
548E3EB C5    BITB #04
549E3ED 26    BNE  E444
550E3EF 20    BRA  E43B
551E3F1 17    LBSR E454
552E3F4 17    LBSR E3EA
553E3F7 25    BCS  E440
554E3F9 31    LEAY 3,Y
555E3FB 17    LBSR E469
556E3FE C6    LDB  #FB
557E400 E7    STB  3,X
558E402 CC    LDD  #8038
559E405 E7    STB  ,X
560E407 10 8E LDY  #0100
561E40B 31    LEAY ff,Y
562E40D 27    BEQ  E448
563E40F E6    LDB  ,X
564E411 C5    BITB #01
565E413 27    BEQ  E40B
566E415 E6    LDB  3,X
567E417 C6    LDB  #28
568E419 E7    STB  ,X
569E41B E6    LDB  ,X
570E41D 2A    BPL  E41B
571E41F E6    LDB  3,X
572E421 E7    STB  ,U+
573E423 4A    DECA
574E424 26    BNE  E41B
575E426 E6    LDB  ,X
576E428 2A    BPL  E426
577E42A E6    LDB  3,X
578E42C 34    PSHS B,
579E42E 43    COMA
580E42F 26    BNE  E426
581E431 17    LBSR E45B
582E434 1E    EXG  A,B
583E436 10 A3 CMPD ,S++
584E439 26    BNE  E444
585E43B 35    PULS CC
586E43D 6F    CLR  ,X
587E43F 39    RTS 
588E440 86    LDA  #04
589E442 20    BRA  E44A
590E444 86    LDA  #08
591E446 20    BRA  E44A
592E448 86    LDA  #02
593E44A 97    STA  4E
594E44C 6F    CLR  ,X
595E44E 35    PULS CC
596E450 43    COMA
597E451 39    RTS 
598
599// disk commande 0x80 : verif de la sauvegarde
600E452 8D    BSR  E45A
601E454 25    BCS  E459
602E456 8D    BSR  E47A
603E458 4F    CLRA
604E459 39    RTS 
605E45A 10 8E LDY  #8000
606E45E D6    LDB  57
607E460 CA    ORB  #04
608E462 E7    STB  2,X
609E464 C4    ANDB #FB
610E466 E7    STB  2,X
611E468 31    LEAY ff,Y
612E46A 27    BEQ  E474
613E46C E6    LDB  1,X
614E46E C4    ANDB #02
615E470 27    BEQ  E45E
616E472 4F    CLRA
617E473 39    RTS 
618E474 86    LDA  #10
619E476 34    PSHS CC
620E478 20    BRA  E44A
621E47A 17    LBSR E465
622E47D 8D    BSR  E4A8
623E47F E6    LDB  ,Y
624E481 96    LDA  57
625E483 D0    SUBB 4B
626E485 27    BEQ  E49F
627E487 2A    BPL  E48C
628E489 8A    ORA  #20
629E48B 50    NEGB
630E48C A7    STA  2,X
631E48E 8A    ORA  #14
632E490 A7    STA  2,X
633E492 84    ANDA #EB
634E494 A7    STA  2,X
635E496 17    LBSR E465
636E499 5A    DECB
637E49A 26    BNE  E48E
638E49C 17    LBSR E45F
639E49F 8D    BSR  E4A8
640E4A1 D6    LDB  4B
641E4A3 E7    STB  6,X
642E4A5 E7    STB  ,Y
643E4A7 39    RTS 
644E4A8 10 8E LDY  #6052
645E4AC 96    LDA  49
646E4AE 84    ANDA #02
647E4B0 31    LEAY A,Y
648E4B2 39    RTS 
649E4B3 34    PSHS U/S,Y,X,DP,B,A,CC
650E4B5 17    LBSR E49D
651E4B8 96    LDA  49
652E4BA 81    CMPA #04
653E4BC 26    BNE  E4C8
654E4BE CE    LDU  #E00A
655E4C1 DF    STU  55
656E4C3 BD    JSR  FFA0
657E4C6 20    BRA  E51E
658E4C8 8D    BSR  E533
659E4CA 96    LDA  48
660E4CC 84    ANDA #80
661E4CE 97    STA  48
662E4D0 17    LBSR E4A7
663E4D3 17    LBSR E45A
664E4D6 25    BCS  E51E
665E4D8 17    LBSR E534
666E4DB 25    BCS  E51E
667E4DD 0F    CLR  4B
668E4DF 8D    BSR  E521
669E4E1 25    BCS  E51E
670E4E3 34    PSHS CC
671E4E5 1A    ORCC #50
672E4E7 17    LBSR E478
673E4EA 86    LDA  #02
674E4EC 34    PSHS A,
675E4EE 17    LBSR E4A8
676E4F1 8E    LDX  #E7D0
677E4F4 17    LBSR E55A
678E4F7 17    LBSR E4E5
679E4FA 24    BCC  E507
680E4FC 6A    DEC  ,S
681E4FE 26    BNE  E4EE
682E500 35    PULS A,
683E502 35    PULS CC
684E504 43    COMA
685E505 20    BRA  E51E
686E507 35    PULS A,
687E509 35    PULS CC
688E50B 96    LDA  4B
689E50D 81    CMPA #4F
690E50F 27    BEQ  E515
691E511 8D    BSR  E52E
692E513 20    BRA  E4E3
693E515 17    LBSR E590
694E518 25    BCS  E51E
695E51A 86    LDA  #50
696E51C 97    STA  4B
697E51E 16    LBRA E58A
698E521 A6    LDA  1,X
699E523 85    BITA #04
700E525 26    BNE  E529
701E527 4F    CLRA
702E528 39    RTS 
703E529 86    LDA  #01
704E52B 16    LBRA E576
705E52E 0C    INC  4B
706E530 16    LBRA E57A
707E533 34    PSHS X,
708E535 CE    LDU  #E55E
709E538 8E    LDX  #0003
710E53B C6    LDB  #04
711E53D A6    LDA  ,X
712E53F A1    CMPA ,U
713E541 27    BEQ  E54C
714E543 5C    INCB
715E544 33    LEAU B,U
716E546 A6    LDA  ,U
717E548 26    BNE  E538
718E54A 20    BRA  E55C
719E54C 30    LEAX ff,X
720E54E 26    BNE  E553
721E550 8E    LDX  #001A
722E553 33    LEAU 1,U
723E555 5A    DECB
724E556 26    BNE  E53D
725E558 A6    LDA  ,U
726E55A 97    STA  58
727E55C 35    PULS PC,X,
728E55E 52    ILL 
729E55F 45    ILL 
730E560 47    ASRA
731E561 6E    JMP  [4349]
732E565 50    NEGB
733E566 4A    DECA
734E567 FF    STU  4C45
735E56A 4D    TSTA
736E56B 74    LSR  FF4C
737E56E 4F    CLRA
738E56F 50    NEGB
739E570 B5    BITA 0053
740E573 45    ILL 
741E574 47    ASRA
742E575 B6    LDA  0000
743E578 8E    LDX  #60D3
744E57B C6    LDB  #10
745E57D 6F    CLR  B,X
746E57F 5A    DECB
747E580 26    BNE  E57D
748E582 30    LEAX 10,X
749E585 34    PSHS X,
750E587 8E    LDX  #60D3
751E58A 86    LDA  #01
752E58C D6    LDB  4D
753E58E A7    STA  ,X
754E590 30    LEAX B,X
755E592 4C    INCA
756E593 81    CMPA #10
757E595 22    BHI  E5A5
758E597 AC    CMPX ,S
759E599 25    BCS  E59D
760E59B 30    LEAX f0,X
761E59D 6D    TST  ,X
762E59F 27    BEQ  E58E
763E5A1 30    LEAX 1,X
764E5A3 20    BRA  E597
765E5A5 32    LEAS 2,S
766E5A7 39    RTS 
767
768E5A8 8E    LDX  #60D3
769E5AB DE    LDU  4F
770E5AD E6    LDB  ,X+
771E5AF 27    BEQ  E5CE
772E5B1 96    LDA  4B
773E5B3 A7    STA  ,U
774E5B5 6F    CLR  1,U
775E5B7 E7    STB  2,U
776E5B9 10 8E LDY  #0004
777E5BD 96    LDA  58
778E5BF 4C    INCA
779E5C0 A7    STA  3,U
780E5C2 27    BEQ  E5CF
781E5C4 CC    LDD  #B230
782E5C7 17    LBSR E564
783E5CA ED    STD  ,U++
784E5CC 20    BRA  E5AD
785E5CE 39    RTS 
786
787E5CF CC    LDD  #EF21
788E5D2 20    BRA  E5C7
789E5D4 E6    LDB  1,X
790E5D6 C5    BITB #40
791E5D8 27    BEQ  E5D4
792E5DA E6    LDB  3,X
793E5DC E6    LDB  ,X
794E5DE 2A    BPL  E5DA
795E5E0 E6    LDB  ,X
796E5E2 2A    BPL  E5E0
797E5E4 39    RTS 
798E5E5 86    LDA  #10
799E5E7 34    PSHS A,
800E5E9 DE    LDU  4F
801E5EB 96    LDA  58
802E5ED 10 26 LBNE E5AA
803E5F1 17    LBSR E641
804E5F4 8D    BSR  E5D4
805E5F6 CC    LDD  #4EFF
806E5F9 ED    STD  3,X
807E5FB C6    LDB  #04
808E5FD E7    STB  ,X
809E5FF 86    LDA  #1E
810E601 E6    LDB  ,X
811E603 2A    BPL  E601
812E605 C6    LDB  #4E
813E607 E7    STB  3,X
814E609 4A    DECA
815E60A 26    BNE  E601
816E60C 86    LDA  #0C
817E60E E6    LDB  ,X
818E610 2A    BPL  E60E
819E612 6F    CLR  3,X
820E614 4A    DECA
821E615 26    BNE  E60E
822E617 E6    LDB  ,X
823E619 2A    BPL  E617
824E61B CC    LDD  #A10A
825E61E ED    STD  3,X
826E620 E6    LDB  ,X
827E622 2A    BPL  E620
828E624 A7    STA  3,X
829E626 E6    LDB  ,X
830E628 2A    BPL  E626
831E62A A7    STA  3,X
832E62C E6    LDB  ,X
833E62E 2A    BPL  E62C
834E630 CC    LDD  #FEFF
835E633 ED    STD  3,X
836E635 86    LDA  #06
837E637 E6    LDB  ,X
838E639 2A    BPL  E637
839E63B E6    LDB  ,U+
840E63D E7    STB  3,X
841E63F 4A    DECA
842E640 26    BNE  E637
843E642 86    LDA  #16
844E644 E6    LDB  ,X
845E646 2A    BPL  E644
846E648 C6    LDB  #4E
847E64A E7    STB  3,X
848E64C 4A    DECA
849E64D 26    BNE  E644
850E64F 86    LDA  #0C
851E651 E6    LDB  ,X
852E653 2A    BPL  E651
853E655 6F    CLR  3,X
854E657 4A    DECA
855E658 26    BNE  E651
856E65A E6    LDB  ,X
857E65C 2A    BPL  E65A
858E65E CC    LDD  #A10A
859E661 ED    STD  3,X
860E663 E6    LDB  ,X
861E665 2A    BPL  E663
862E667 A7    STA  3,X
863E669 E6    LDB  ,X
864E66B 2A    BPL  E669
865E66D A7    STA  3,X
866E66F E6    LDB  ,X
867E671 2A    BPL  E66F
868E673 CC    LDD  #FBFF
869E676 ED    STD  3,X
870E678 4F    CLRA
871E679 E6    LDB  ,X
872E67B 2A    BPL  E679
873E67D C6    LDB  #E5
874E67F E7    STB  3,X
875E681 4A    DECA
876E682 26    BNE  E679
877E684 E6    LDB  ,X
878E686 2A    BPL  E684
879E688 C6    LDB  #78
880E68A E7    STB  3,X
881E68C E6    LDB  ,X
882E68E 2A    BPL  E68C
883E690 C6    LDB  #27
884E692 E7    STB  3,X
885E694 86    LDA  #2C
886E696 E6    LDB  ,X
887E698 2A    BPL  E696
888E69A C6    LDB  #4E
889E69C E7    STB  3,X
890E69E 4A    DECA
891E69F 26    BNE  E696
892E6A1 6A    DEC  ,S
893E6A3 10 26 LBNE E70C
894E6A7 16    LBRA E64B
895E6AA 17    LBSR E654
896E6AD 17    LBSR E6D4
897E6B0 CC    LDD  #FFFF
898E6B3 ED    STD  3,X
899E6B5 C6    LDB  #24
900E6B7 E7    STB  ,X
901E6B9 86    LDA  #10
902E6BB E6    LDB  ,X
903E6BD 2A    BPL  E6BB
904E6BF C6    LDB  #FF
905E6C1 E7    STB  3,X
906E6C3 4A    DECA
907E6C4 26    BNE  E6BB
908E6C6 86    LDA  #06
909E6C8 E6    LDB  ,X
910E6CA 2A    BPL  E6C8
911E6CC 6F    CLR  3,X
912E6CE 4A    DECA
913E6CF 26    BNE  E6C8
914E6D1 E6    LDB  ,X
915E6D3 2A    BPL  E6D1
916E6D5 CC    LDD  #FEC7
917E6D8 ED    STD  3,X
918E6DA E6    LDB  ,X
919E6DC 2A    BPL  E6DA
920E6DE C6    LDB  #FF
921E6E0 A6    LDA  ,U+
922E6E2 ED    STD  3,X
923E6E4 86    LDA  #05
924E6E6 E6    LDB  ,X
925E6E8 2A    BPL  E6E6
926E6EA E6    LDB  ,U+
927E6EC E7    STB  3,X
928E6EE 4A    DECA
929E6EF 26    BNE  E6E6
930E6F1 86    LDA  #0C
931E6F3 E6    LDB  ,X
932E6F5 2A    BPL  E6F3
933E6F7 C6    LDB  #FF
934E6F9 E7    STB  3,X
935E6FB 4A    DECA
936E6FC 26    BNE  E6F3
937E6FE 86    LDA  #06
938E700 E6    LDB  ,X
939E702 2A    BPL  E700
940E704 6F    CLR  3,X
941E706 4A    DECA
942E707 26    BNE  E700
943E709 E6    LDB  ,X
944E70B 2A    BPL  E709
945E70D CC    LDD  #FBC7
946E710 ED    STD  3,X
947E712 E6    LDB  ,X
948E714 2A    BPL  E712
949E716 CC    LDD  #E5FF
950E719 ED    STD  3,X
951E71B 86    LDA  #7F
952E71D E6    LDB  ,X
953E71F 2A    BPL  E71D
954E721 C6    LDB  #E5
955E723 E7    STB  3,X
956E725 4A    DECA
957E726 26    BNE  E71D
958E728 E6    LDB  ,X
959E72A 2A    BPL  E728
960E72C C6    LDB  #5D
961E72E E7    STB  3,X
962E730 E6    LDB  ,X
963E732 2A    BPL  E730
964E734 C6    LDB  #30
965E736 E7    STB  3,X
966E738 86    LDA  #16
967E73A E6    LDB  ,X
968E73C 2A    BPL  E73A
969E73E C6    LDB  #FF
970E740 E7    STB  3,X
971E742 4A    DECA
972E743 26    BNE  E73A
973E745 6A    DEC  ,S
974E747 10 26 LBNE E7C6
975E74B A6    LDA  1,X
976E74D 85    BITA #40
977E74F 26    BNE  E759
978E751 A6    LDA  ,X
979E753 2A    BPL  E751
980E755 E7    STB  3,X
981E757 20    BRA  E74B
982
983
984E759 35    PULS A,
985E75B 6F    CLR  ,X
986E75D 0D    TST  48
987E75F 2A    BPL  E783
988E761 86    LDA  #E5
989E763 8D    BSR  E784
990E765 CE    LDU  #60D3
991E768 17    LBSR E75A
992E76B A6    LDA  ,U+
993E76D 27    BEQ  E783
994E76F 97    STA  4C
995E771 34    PSHS U/S,
996E773 96    LDA  58
997E775 27    BEQ  E77C
998E777 17    LBSR E7E1
999E77A 20    BRA  E77F
1000E77C 17    LBSR E71C
1001E77F 35    PULS U/S,
1002E781 24    BCC  E76B
1003E783 39    RTS 
1004
1005E784 DE    LDU  4F
1006E786 D6    LDB  58
1007E788 C4    ANDB #80
1008E78A A7    STA  ,U+
1009E78C 5A    DECB
1010E78D 26    BNE  E78A
1011E78F 39    RTS 
1012
1013E790 86    LDA  #14
1014E792 97    STA  4B
1015E794 17    LBSR E77A
1016E797 86    LDA  #FF
1017E799 8D    BSR  E784
1018E79B 86    LDA  #10
1019E79D 97    STA  4C
1020E79F 17    LBSR E75A
1021E7A2 17    LBSR E787
1022E7A5 25    BCS  E7BF
1023E7A7 0A    DEC  4C
1024E7A9 26    BNE  E79F
1025E7AB DE    LDU  4F
1026E7AD 6F    CLR  ,U
1027E7AF CC    LDD  #FEFE
1028E7B2 ED    STD  29,U
1029E7B5 86    LDA  #02
1030E7B7 97    STA  4C
1031E7B9 17    LBSR E787
1032E7BC 25    BCS  E7BF
1033E7BE 4F    CLRA
1034E7BF 39    RTS
1035
1036// Périph‚riques
1037
1038// 6846
1039E7C0  ???
1040E7C1  CRC
1041E7C2
1042E7C3
1043
1044E7C4 00    NEG  46
1045E7C6 21    BRN  E7E5
1046
1047// PIA système
1048E7C8 PORTA / DDRA
1049E7C9 PORTB / DDRB
1050E7CA CRA
1051E7CB CRB 
1052
1053// PIA ctrl de manettes
1054E7CC PORTA / DDRA
1055E7CD PORTB / DDRB
1056E7CE CRA
1057E7CF CRB 
1058
1059//
1060E7D0
1061E7D1 30    LEAX 0,X
1062E7D3 00    NEG  00
1063E7D5 00    NEG  00
1064E7D7 00    NEG  84
1065E7D9 30    LEAX 0,X
1066
1067// Gate Array Video
1068E7DA    Registre de palette
1069E7DB  Registre d'index de palette
1070E7DC  Registre mode graphique
1071E7DD  Registre couleur contour
1072
1073// libre
1074E7DE CC    LDD  #CCCC
1075E7E1 CC    LDD  #CCCC
1076
1077// Gate array ancienne génération (compteurs trame+ sync)
1078E7E4 00     
1079E7E5 0F
1080E7E6 00   
1081E7E7 02
1082
1083// Libre
1084E7E8 CC    LDD  #CCCC
1085E7EB CC    LDD  #CCCC
1086E7EE CC    LDD  #CCCC
1087E7F1 CC    LDD  #CCCC
1088E7F4 CC    LDD  #CCCC
1089E7F7 CC    LDD  #CCCC
1090E7FA CC    LDD  #CCCC
1091E7FD CC    LDD  #CCCC
1092
1093
1094// pt d'entr‚e Moniteur
1095// repositionnement de fenetre plein ecran
1096E800 7E    JMP  F66B
1097
1098// pt d'entrée PUTCH$
1099E803 7E    JMP  FF4D
1100
1101// pt d'entrée GETCH$
1102E806 7E    JMP  FF51
1103
1104// pt d'entrée KTSTH$
1105E809 7E    JMP  EC12
1106
1107// pt d'entrée DRAW$
1108E80C 7E    JMP  FF55
1109
1110// pt d'entrée PLOT$
1111E80F 7E    JMP  FF59
1112
1113// pt d'entrée RSCOH$
1114E812 7E    JMP  FF5D
1115
1116// pt d'entrée IO K7
1117E815 7E    JMP  FA59
1118
1119// coordonn‚es light pen
1120E818 7E    JMP  FF3D
1121
1122// teste contact lightpen
1123E81B 7E    JMP  FF41
1124
1125// pt d'entree NOTE$
1126E81E BD    JSR  ECB8
1127
1128// GETP$ lecture d'un point
1129E821 7E    JMP  FF61
1130
1131// GETS$ lecture de l'ecran (char)
1132E824 7E    JMP  FF65
1133
1134// pt d'entrée JOYS$
1135E827 BD    JSR  ECB8
1136
1137// pt d'entrée disk
1138E82A 7E    JMP  E004
1139
1140// MENU$
1141E82D 7E    JMP  FDC8
1142
1143// KBIN$
1144E830 7E    JMP  FAF7
1145
1146// CHPL$
1147E833 7E    JMP  F6FA
1148
1149E836 04    LSR  6A
1150E838 01    ILL 
1151E839 9B    ADDA 00
1152E83B CA    ORB  #00
1153E83D 62    ILL 
1154E83E 00    NEG  2E
1155E840 00    NEG  15
1156E842 00    NEG  07
1157
1158// vecteur VIRQ par defaut (MENU)
1159E844 3B    RTI
1160
1161 
1162E845 00    NEG  00
1163E847 00    NEG  00
1164E849 00    NEG  00
1165E84B 00    NEG  00
1166E84D 00    NEG  10
1167E84F 00    NEG  10
1168E851 10 10 ILL 
1169E853 10 00 ILL 
1170E855 00    NEG  00
1171E857 00    NEG  00
1172E859 50    NEGB
1173E85A 28    BVC  E870
1174E85C 00    NEG  28
1175E85E 28    BVC  E85E
1176E860 28    BVC  E860
1177E862 28    BVC  E88C
1178E864 00    NEG  10
1179E866 FC    LDD  127C
1180E869 90    SUBA 7C
1181E86B 10 00 ILL 
1182E86D 00    NEG  46
1183E86F 26    BNE  E881
1184E871 08    ASL  64
1185E873 62    ILL 
1186E874 00    NEG  00
1187E876 3A    ABX 
1188E877 4C    INCA
1189E878 4A    DECA
1190E879 30    LEAX 8,U
1191E87B 30    LEAX 0,X
1192E87D 00    NEG  00
1193E87F 00    NEG  00
1194E881 18    ILL 
1195E882 0C    INC  0C
1196E884 00    NEG  00
1197E886 08    ASL  10
1198E888 10 10 ILL 
1199E88A 10 08 ILL 
1200E88C 00    NEG  00
1201E88E 10 08 ILL 
1202E890 08    ASL  08
1203E892 08    ASL  10
1204E894 00    NEG  00
1205E896 54    LSRB
1206E897 38    ILL 
1207E898 6C    INC  f8,Y
1208E89A 54    LSRB
1209E89B 00    NEG  00
1210E89D 00    NEG  10
1211E89F 10 7C ILL 
1212E8A1 10 10 ILL 
1213E8A3 00    NEG  00
1214E8A5 00    NEG  10
1215E8A7 0C    INC  0C
1216E8A9 00    NEG  00
1217E8AB 00    NEG  00
1218E8AD 00    NEG  00
1219E8AF 00    NEG  7C
1220E8B1 00    NEG  00
1221E8B3 00    NEG  00
1222E8B5 00    NEG  18
1223E8B7 18    ILL 
1224E8B8 00    NEG  00
1225E8BA 00    NEG  00
1226E8BC 00    NEG  80
1227E8BE 40    NEGA
1228E8BF 20    BRA  E8D1
1229E8C1 08    ASL  04
1230E8C3 02    ILL 
1231E8C4 01    ILL 
1232E8C5 00    NEG  3C
1233E8C7 62    ILL 
1234E8C8 52    ILL 
1235E8C9 4A    DECA
1236E8CA 46    RORA
1237E8CB 3C    ILL 
1238E8CC 00    NEG  00
1239E8CE 3C    ILL 
1240E8CF 08    ASL  08
1241E8D1 28    BVC  E8EB
1242E8D3 08    ASL  00
1243E8D5 00    NEG  7E
1244E8D7 40    NEGA
1245E8D8 3C    ILL 
1246E8D9 02    ILL 
1247E8DA 42    ILL 
1248E8DB 3C    ILL 
1249E8DC 00    NEG  00
1250E8DE 3C    ILL 
1251E8DF 42    ILL 
1252E8E0 02    ILL 
1253E8E1 1C    & CC #42
1254E8E3 3C    ILL 
1255E8E4 00    NEG  00
1256E8E6 04    LSR  7E
1257E8E8 24    BCC  E8FE
1258E8EA 0C    INC  04
1259E8EC 00    NEG  00
1260E8EE 3C    ILL 
1261E8EF 42    ILL 
1262E8F0 02    ILL 
1263E8F1 7C    INC  407E
1264E8F4 00    NEG  00
1265E8F6 3C    ILL 
1266E8F7 42    ILL 
1267E8F8 42    ILL 
1268E8F9 7C    INC  201C
1269E8FC 00    NEG  00
1270E8FE 40    NEGA
1271E8FF 20    BRA  E911
1272E901 08    ASL  04
1273E903 7E    JMP  0000
1274E906 3C    ILL 
1275E907 42    ILL 
1276E908 42    ILL 
1277E909 3C    ILL 
1278E90A 42    ILL 
1279E90B 3C    ILL 
1280E90C 00    NEG  00
1281E90E 38    ILL 
1282E90F 04    LSR  3E
1283E911 42    ILL 
1284E912 42    ILL 
1285E913 3C    ILL 
1286E914 00    NEG  00
1287E916 18    ILL 
1288E917 18    ILL 
1289E918 00    NEG  18
1290E91A 18    ILL 
1291E91B 00    NEG  00
1292E91D 10 0C ILL 
1293E91F 00    NEG  0C
1294E921 0C    INC  00
1295E923 00    NEG  00
1296E925 00    NEG  08
1297E927 10 20 ILL 
1298E929 20    BRA  E93B
1299E92B 08    ASL  00
1300E92D 00    NEG  00
1301E92F 7E    JMP  007E
1302E932 00    NEG  00
1303E934 00    NEG  00
1304E936 10 08 ILL 
1305E938 04    LSR  04
1306E93A 08    ASL  10
1307E93C 00    NEG  00
1308E93E 08    ASL  00
1309E940 08    ASL  04
1310E942 22    BHI  E960
1311E944 00    NEG  00
1312E946 3E    ILL 
1313E947 5C    INCB
1314E948 52    ILL 
1315E949 5E    ILL 
1316E94A 42    ILL 
1317E94B 3C    ILL 
1318E94C 00    NEG  00
1319E94E 42    ILL 
1320E94F 42    ILL 
1321E950 7E    JMP  4224
1322E953 18    ILL 
1323E954 00    NEG  00
1324E956 7E    JMP  2222
1325E959 3C    ILL 
1326E95A 22    BHI  E9D8
1327E95C 00    NEG  00
1328E95E 3C    ILL 
1329E95F 42    ILL 
1330E960 40    NEGA
1331E961 40    NEGA
1332E962 42    ILL 
1333E963 3C    ILL 
1334E964 00    NEG  00
1335E966 7C    INC  2222
1336E969 22    BHI  E98D
1337E96B 7C    INC  0000
1338E96E 7E    JMP  4040
1339E971 78    ASL  407E
1340E974 00    NEG  00
1341E976 40    NEGA
1342E977 40    NEGA
1343E978 40    NEGA
1344E979 78    ASL  407E
1345E97C 00    NEG  00
1346E97E 3C    ILL 
1347E97F 42    ILL 
1348E980 4E    ILL 
1349E981 40    NEGA
1350E982 42    ILL 
1351E983 3C    ILL 
1352E984 00    NEG  00
1353E986 42    ILL 
1354E987 42    ILL 
1355E988 42    ILL 
1356E989 7E    JMP  4242
1357E98C 00    NEG  00
1358E98E 38    ILL 
1359E98F 10 10 ILL 
1360E991 10 10 ILL 
1361E993 38    ILL 
1362E994 00    NEG  00
1363E996 3C    ILL 
1364E997 42    ILL 
1365E998 02    ILL 
1366E999 02    ILL 
1367E99A 02    ILL 
1368E99B 02    ILL 
1369E99C 00    NEG  00
1370E99E 44    LSRA
1371E99F 48    ASLA
1372E9A0 50    NEGB
1373E9A1 70    NEG  4844
1374E9A4 00    NEG  00
1375E9A6 7E    JMP  4040
1376E9A9 40    NEGA
1377E9AA 40    NEGA
1378E9AB 40    NEGA
1379E9AC 00    NEG  00
1380E9AE 42    ILL 
1381E9AF 42    ILL 
1382E9B0 42    ILL 
1383E9B1 5A    DECB
1384E9B2 66    ROR  2,U
1385E9B4 00    NEG  00
1386E9B6 42    ILL 
1387E9B7 46    RORA
1388E9B8 4A    DECA
1389E9B9 52    ILL 
1390E9BA 62    ILL 
1391E9BB 42    ILL 
1392E9BC 00    NEG  00
1393E9BE 3C    ILL 
1394E9BF 42    ILL 
1395E9C0 42    ILL 
1396E9C1 42    ILL 
1397E9C2 42    ILL 
1398E9C3 3C    ILL 
1399E9C4 00    NEG  00
1400E9C6 40    NEGA
1401E9C7 40    NEGA
1402E9C8 7C    INC  4242
1403E9CB 7C    INC  0000
1404E9CE 3A    ABX 
1405E9CF 44    LSRA
1406E9D0 4A    DECA
1407E9D1 42    ILL 
1408E9D2 42    ILL 
1409E9D3 3C    ILL 
1410E9D4 00    NEG  00
1411E9D6 42    ILL 
1412E9D7 44    LSRA
1413E9D8 7C    INC  4242
1414E9DB 7C    INC  0000
1415E9DE 3C    ILL 
1416E9DF 42    ILL 
1417E9E0 02    ILL 
1418E9E1 3C    ILL 
1419E9E2 40    NEGA
1420E9E3 3C    ILL 
1421E9E4 00    NEG  00
1422E9E6 10 10 ILL 
1423E9E8 10 10 ILL 
1424E9EA 10 7C ILL 
1425E9EC 00    NEG  00
1426E9EE 3C    ILL 
1427E9EF 42    ILL 
1428E9F0 42    ILL 
1429E9F1 42    ILL 
1430E9F2 42    ILL 
1431E9F3 42    ILL 
1432E9F4 00    NEG  00
1433E9F6 18    ILL 
1434E9F7 24    BCC  EA1D
1435E9F9 42    ILL 
1436E9FA 42    ILL 
1437E9FB 42    ILL 
1438E9FC 00    NEG  00
1439E9FE 42    ILL 
1440E9FF 66    ROR  fa,U
1441EA01 42    ILL 
1442EA02 42    ILL 
1443EA03 42    ILL 
1444EA04 00    NEG  00
1445EA06 42    ILL 
1446EA07 24    BCC  EA21
1447EA09 18    ILL 
1448EA0A 24    BCC  EA4E
1449EA0C 00    NEG  00
1450EA0E 10 10 ILL 
1451EA10 10 10 ILL 
1452EA12 28    BVC  EA58
1453EA14 00    NEG  00
1454EA16 7E    JMP  2010
1455EA19 08    ASL  04
1456EA1B 7E    JMP  0000
1457EA1E 38    ILL 
1458EA1F 20    BRA  EA41
1459EA21 20    BRA  EA43
1460EA23 38    ILL 
1461EA24 00    NEG  01
1462EA26 02    ILL 
1463EA27 04    LSR  08
1464EA29 10 20 ILL 
1465EA2B 40    NEGA
1466EA2C 80    SUBA #00
1467EA2E 1C    & CC #04
1468EA30 04    LSR  04
1469EA32 04    LSR  1C
1470EA34 00    NEG  00
1471EA36 10 10 ILL 
1472EA38 10 7C ILL 
1473EA3A 38    ILL 
1474EA3B 10 00 ILL 
1475EA3D FF    STU  0000
1476EA40 00    NEG  00
1477EA42 00    NEG  00
1478EA44 00    NEG  00
1479EA46 00    NEG  00
1480EA48 00    NEG  FF
1481EA4A 00    NEG  00
1482EA4C 00    NEG  00
1483EA4E 3A    ABX 
1484EA4F 44    LSRA
1485EA50 38    ILL 
1486EA51 04    LSR  38
1487EA53 00    NEG  00
1488EA55 00    NEG  5C
1489EA57 62    ILL 
1490EA58 42    ILL 
1491EA59 62    ILL 
1492EA5A 5C    INCB
1493EA5B 40    NEGA
1494EA5C 00    NEG  00
1495EA5E 3C    ILL 
1496EA5F 42    ILL 
1497EA60 40    NEGA
1498EA61 42    ILL 
1499EA62 3C    ILL 
1500EA63 00    NEG  00
1501EA65 00    NEG  3A
1502EA67 46    RORA
1503EA68 42    ILL 
1504EA69 46    RORA
1505EA6A 3A    ABX 
1506EA6B 02    ILL 
1507EA6C 00    NEG  00
1508EA6E 3C    ILL 
1509EA6F 40    NEGA
1510EA70 7E    JMP  423C
1511EA73 00    NEG  00
1512EA75 00    NEG  10
1513EA77 10 7C ILL 
1514EA79 10 12 ILL 
1515EA7B 0C    INC  00
1516EA7D 3C    ILL 
1517EA7E 02    ILL 
1518EA7F 3A    ABX 
1519EA80 46    RORA
1520EA81 46    RORA
1521EA82 3C    ILL 
1522EA83 00    NEG  00
1523EA85 00    NEG  42
1524EA87 42    ILL 
1525EA88 42    ILL 
1526EA89 62    ILL 
1527EA8A 5C    INCB
1528EA8B 40    NEGA
1529EA8C 00    NEG  00
1530EA8E 1C    & CC #08
1531EA90 08    ASL  08
1532EA92 18    ILL 
1533EA93 00    NEG  08
1534EA95 38    ILL 
1535EA96 44    LSRA
1536EA97 04    LSR  04
1537EA99 04    LSR  04
1538EA9B 00    NEG  04
1539EA9D 00    NEG  22
1540EA9F 34    PSHS Y,DP,
1541EAA1 24    BCC  EAC5
1542EAA3 20    BRA  EAA5
1543EAA5 00    NEG  1C
1544EAA7 08    ASL  08
1545EAA9 08    ASL  08
1546EAAB 18    ILL 
1547EAAC 00    NEG  00
1548EAAE 92    SBCA 92
1549EAB0 92    SBCA DA
1550EAB2 A4    ANDA 0,X
1551EAB4 00    NEG  00
1552EAB6 22    BHI  EADA
1553EAB8 22    BHI  EAEC
1554EABA 4C    INCA
1555EABB 00    NEG  00
1556EABD 00    NEG  3C
1557EABF 42    ILL 
1558EAC0 42    ILL 
1559EAC1 42    ILL 
1560EAC2 3C    ILL 
1561EAC3 00    NEG  00
1562EAC5 40    NEGA
1563EAC6 5C    INCB
1564EAC7 62    ILL 
1565EAC8 42    ILL 
1566EAC9 62    ILL 
1567EACA 5C    INCB
1568EACB 00    NEG  00
1569EACD 02    ILL 
1570EACE 3A    ABX 
1571EACF 46    RORA
1572EAD0 46    RORA
1573EAD1 46    RORA
1574EAD2 3A    ABX 
1575EAD3 00    NEG  00
1576EAD5 00    NEG  40
1577EAD7 40    NEGA
1578EAD8 40    NEGA
1579EAD9 62    ILL 
1580EADA 5C    INCB
1581EADB 00    NEG  00
1582EADD 00    NEG  7C
1583EADF 02    ILL 
1584EAE0 3C    ILL 
1585EAE1 40    NEGA
1586EAE2 3C    ILL 
1587EAE3 00    NEG  00
1588EAE5 00    NEG  0C
1589EAE7 12    NOP 
1590EAE8 10 10 ILL 
1591EAEA 38    ILL 
1592EAEB 10 00 ILL 
1593EAED 00    NEG  3A
1594EAEF 46    RORA
1595EAF0 42    ILL 
1596EAF1 42    ILL 
1597EAF2 42    ILL 
1598EAF3 00    NEG  00
1599EAF5 00    NEG  18
1600EAF7 24    BCC  EB3B
1601EAF9 42    ILL 
1602EAFA 42    ILL 
1603EAFB 00    NEG  00
1604EAFD 00    NEG  24
1605EAFF 5A    DECB
1606EB00 42    ILL 
1607EB01 42    ILL 
1608EB02 42    ILL 
1609EB03 00    NEG  00
1610EB05 00    NEG  42
1611EB07 24    BCC  EB21
1612EB09 24    BCC  EB4D
1613EB0B 00    NEG  00
1614EB0D 3C    ILL 
1615EB0E 42    ILL 
1616EB0F 1A    ORCC #66
1617EB11 42    ILL 
1618EB12 42    ILL 
1619EB13 00    NEG  00
1620EB15 00    NEG  7E
1621EB17 20    BRA  EB31
1622EB19 04    LSR  7E
1623EB1B 00    NEG  00
1624EB1D 0C    INC  08
1625EB1F 08    ASL  10
1626EB21 08    ASL  08
1627EB23 0C    INC  00
1628EB25 10 10 ILL 
1629EB27 10 10 ILL 
1630EB29 10 10 ILL 
1631EB2B 10 10 ILL 
1632EB2D 30    LEAX f0,X
1633EB2F 10 08 ILL 
1634EB31 10 10 ILL 
1635EB33 30    LEAX 0,X
1636EB35 00    NEG  00
1637EB37 00    NEG  00
1638EB39 00    NEG  00
1639EB3B 00    NEG  FF
1640EB3D FF    STU  FFFF
1641EB40 FF    STU  FFFF
1642EB43 FF    STU  FF18
1643EB46 3C    ILL 
1644EB47 42    ILL 
1645EB48 40    NEGA
1646EB49 42    ILL 
1647EB4A 3C    ILL 
1648EB4B 00    NEG  00
1649EB4D 00    NEG  7E
1650EB4F 21    BRN  EB61
1651EB51 7C    INC  1012
1652EB54 0C    INC  10
1653EB56 FC    LDD  127C
1654EB59 90    SUBA 7C
1655EB5B 10 00 ILL 
1656EB5D 28    BVC  EB87
1657EB5F FE    LDU  28FE
1658EB62 28    BVC  EB8C
1659EB64 00    NEG  00
1660EB66 00    NEG  10
1661EB68 20    BRA  EBE9
1662EB6A 20    BRA  EB7C
1663EB6C 00    NEG  10
1664EB6E 10 10 ILL 
1665EB70 10 54 ILL 
1666EB72 38    ILL 
1667EB73 10 00 ILL 
1668EB75 00    NEG  00
1669EB77 08    ASL  04
1670EB79 FE    LDU  0408
1671EB7C 00    NEG  00
1672EB7E 10 38 ILL 
1673EB80 54    LSRB
1674EB81 10 10 ILL 
1675EB83 10 10 ILL 
1676EB85 00    NEG  00
1677EB87 00    NEG  00
1678EB89 20    BRA  EBDB
1679EB8B 20    BRA  EB8D
1680EB8D 00    NEG  7C
1681EB8F 10 10 ILL 
1682EB91 7C    INC  1010
1683EB94 00    NEG  00
1684EB96 00    NEG  10
1685EB98 00    NEG  7C
1686EB9A 00    NEG  10
1687EB9C 00    NEG  04
1688EB9E BE    LDX  54EC
1689EBA1 54    LSRB
1690EBA2 48    ASLA
1691EBA3 C4    ANDB #42
1692EBA5 1E    EXG  A,A
1693EBA7 44    LSRA
1694EBA8 E2    SBCB fc,U
1695EBAA 48    ASLA
1696EBAB C4    ANDB #42
1697EBAD 04    LSR  BE
1698EBAF 54    LSRB
1699EBB0 EC    LDD  f4,Y
1700EBB2 68    ASL  4,Y
1701EBB4 E2    SBCB 0,X
1702EBB6 00    NEG  00
1703EBB8 00    NEG  00
1704EBBA 00    NEG  18
1705EBBC 30    LEAX 0,X
1706EBBE 00    NEG  00
1707EBC0 00    NEG  00
1708EBC2 00    NEG  18
1709EBC4 0C    INC  00
1710EBC6 00    NEG  00
1711EBC8 00    NEG  00
1712EBCA 00    NEG  24
1713EBCC 18    ILL 
1714EBCD 00    NEG  00
1715EBCF 00    NEG  00
1716EBD1 00    NEG  00
1717EBD3 00    NEG  66
1718EBD5 00    NEG  7F
1719EBD7 90    SUBA 90
1720EBD9 9C    CMPX 90
1721EBDB 7E    JMP  0000
1722EBDE 6C    INC  Illegal !
1723EBE0 9E    LDX  92
1724EBE2 6C    INC  0,X
1725EBE4 00    NEG  00
1726EBE6 2C    BGE  EC0A
1727EBE8 22    BHI  EC16
1728EBEA 24    BCC  EC04
1729EBEC 00    NEG  3C
1730EBEE 02    ILL 
1731EBEF 1C    & CC #22
1732EBF1 1C    & CC #20
1733EBF3 1E    EXG  D,D
1734EBF5 00    NEG  42
1735EBF7 42    ILL 
1736EBF8 7E    JMP  2418
1737EBFB 00    DCB  00,00,00,00,00
1738
1739// SETP$ - Set palette
1740EC00 7E    JMP  FCB1
1741// IO K7
1742EC03 7E    JMP  FD79
1743EC06 7E    JMP  FF45
1744EC09 7E    JMP  FF49
1745EC0C 7E    JMP  FD29
1746EC0F 7E    JMP  FF02
1747
1748
1749// KTSTH$ teste l'appui sur une touche
1750EC12 34    PSHS A,
1751EC14 B6    LDA  E7C8  // bit0 de E7C8 Keytest
1752EC17 44    LSRA
1753EC18 25    BCS  EC2E  // retour touche pressée
1754EC1A B6    LDA  605E  // READCL
1755EC1D B1    CMPA 6067 
1756EC20 27    BEQ  EC2E  // les 2 index sont égaux, pas de touche
1757EC22 B6    LDA  608B    // si le buffer est plein       
1758EC25 88    EORA #10     // une fois sur deux repondre OK
1759EC27 B7    STA  608B
1760EC2A 48    ASLA
1761EC2B 48    ASLA
1762EC2C 48    ASLA
1763EC2D 48    ASLA                 
1764EC2E 35    PULS PC,A,
1765
1766
1767EC30 34    PSHS U/S,DP,B,A,
1768EC32 B6    LDA  6074
1769EC35 48    ASLA
1770EC36 2A    BPL  EC40
1771EC38 86    LDA  #1F
1772EC3A B7    STA  E7CE
1773EC3D 7D    TST  344E
1774EC40 86    LDA  #60
1775EC42 1F    TFR  A,DP
1776EC44 CE    LDU  #027F
1777EC47 96    LDA  5F
1778EC49 2B    BMI  EC55
1779EC4B CE    LDU  #013F
1780EC4E 85    BITA #60
1781EC50 27    BEQ  EC55
1782EC52 CE    LDU  #009F
1783EC55 9E    LDX  D8
1784EC57 2A    BPL  EC5B
1785EC59 9E    LDX  76
1786EC5B 11 93 CMPU D8
1787EC5E 2A    BPL  EC62
1788EC60 1F    TFR  U,X
1789EC62 9F    STX  D8
1790EC64 DC    LDD  D6
1791EC66 2A    BPL  EC6A
1792EC68 5F    CLRB
1793EC69 4F    CLRA
1794EC6A 10 83 CMPD #00C7
1795EC6E 23    BLS  EC73
1796EC70 4F    CLRA
1797EC71 C6    LDB  #C7
1798EC73 DD    STD  D6
1799EC75 1F    TFR  D,Y
1800EC77 4F    CLRA
1801EC78 35    PULS PC,U/S,DP,B,A,
1802EC7A 34    PSHS B,A,
1803EC7C 1C    & CC #FA
1804EC7E 34    PSHS CC
1805EC80 B6    LDA  6074
1806EC83 48    ASLA
1807EC84 2A    BPL  EC9F
1808EC86 B6    LDA  E7CC
1809EC89 C6    LDB  #C8
1810EC8B 5A    DECB
1811EC8C 26    BNE  EC8B
1812EC8E B4    ANDA E7CC
1813EC91 43    COMA
1814EC92 84    ANDA #03
1815EC94 8B    ADDA #02
1816EC96 84    ANDA #05
1817EC98 B7    STA  60D3
1818EC9B AA    ORA  ,S
1819EC9D A7    STA  ,S
1820EC9F 35    PULS PC,B,A,CC
1821ECA1 00    NEG  01
1822ECA3 05    ILL 
1823ECA4 00    NEG  07
1824ECA6 08    ASL  06
1825ECA8 00    NEG  03
1826ECAA 02    ILL 
1827ECAB 04    LSR  86
1828ECAD 08    ASL  95
1829ECAF E9    ADCB 7,Y
1830ECB1 05    ILL 
1831ECB2 43    COMA
1832ECB3 94    ANDA EA
1833ECB5 97    STA  EA
1834ECB7 3B    RTI 
1835
1836
1837ECB8 34    PSHS U/S,
1838ECBA EE    LDU  2,S     // U=adr de retour
1839ECBC 33    LEAU -3,U
1840ECBE FF    STU  6055
1841ECC1 35    PULS U/S,
1842ECC3 32    LEAS 2,S
1843ECC5 7E    JMP  FFA0    // swap la rom1 et retourne avant le JSR
1844
1845// vecteur VPUTCH par défaut
1846ECC8 34    PSHS U/S,Y,X,DP,B,A,CC
1847ECCA 1A    ORCC #50
1848ECCC 86    LDA  #60
1849ECCE 1F    TFR  A,DP
1850ECD0 BD    JSR  F1FD
1851ECD3 BD    JSR  EEA2
1852ECD6 0D    TST  5F
1853ECD8 2A    BPL  ECDD
1854ECDA BD    JSR  F2B1
1855ECDD 8E    LDX  #F6CE
1856ECE0 96    LDA  59
1857ECE2 AD    JSR  [A,X]
1858ECE4 0F    CLR  42
1859ECE6 0F    CLR  43
1860ECE8 35    PULS PC,U/S,Y,X,DP,B,A,CC
1861
1862
1863ECEA C1    CMPB #20
1864ECEC 24    BCC  ECF9
1865ECEE C1    CMPB #07
1866ECF0 25    BCS  ED1B
1867ECF2 4F    CLRA
1868ECF3 58    ASLB
1869ECF4 8E    LDX  #F68E
1870ECF7 6E    JMP  [B,X]
1871
1872ECF9 BD    JSR  EEA2
1873ECFC 0D    TST  5F
1874ECFE 2A    BPL  ED03
1875ED00 BD    JSR  F2B1
1876ED03 0F    CLR  75
1877ED05 D7    STB  5D
1878ED07 0F    CLR  43
1879ED09 0D    TST  19
1880ED0B 10 2B LBMI ED07
1881ED0F 0D    TST  70
1882ED11 2B    BMI  ED1C
1883ED13 27    BEQ  ED27
1884ED15 C1    CMPB #41
1885ED17 24    BCC  ED27
1886ED19 0F    CLR  70
1887ED1B 39    RTS 
1888
1889
1890ED1C 0F    CLR  70
1891ED1E C1    CMPB #63
1892ED20 26    BNE  ED1B
1893ED22 CE    LDU  #EB45
1894ED25 20    BRA  ED39
1895ED27 5D    TSTB
1896ED28 2B    BMI  ED30
1897ED2A DE    LDU  CF
1898ED2C C0    SUBB #20
1899ED2E 20    BRA  ED34
1900ED30 DE    LDU  2D
1901ED32 C0    SUBB #80
1902ED34 86    LDA  #08
1903ED36 3D    MUL 
1904ED37 33    LEAU D,U
1905ED39 10 9E LDY  5A
1906ED3C 96    LDA  5F
1907ED3E 44    LSRA
1908ED3F 25    BCS  ED49
1909ED41 8E    LDX  #ED77
1910ED44 CC    LDD  #ED93
1911ED47 20    BRA  ED4F
1912ED49 8E    LDX  #EDC7
1913ED4C CC    LDD  #ED99
1914ED4F 34    PSHS X,B,A,
1915ED51 D6    LDB  39
1916ED53 C4    ANDB #07
1917ED55 54    LSRB
1918ED56 54    LSRB
1919ED57 10 26 LBNE ED24
1920ED5B BD    JSR  EE59
1921ED5E 37    PULU A,
1922ED60 AD    JSR  [,S]
1923ED62 24    BCC  ED66
1924ED64 AD    JSR  [,S]
1925ED66 5A    DECB
1926ED67 26    BNE  ED5E
1927ED69 32    LEAS 4,S
1928ED6B BD    JSR  EE73
1929ED6E 8D    BSR  ED93
1930ED70 30    LEAX ff,X
1931ED72 26    BNE  ED6E
1932ED74 7E    JMP  EE54
1933ED77 0D    TST  5F
1934ED79 2A    BPL  ED91
1935ED7B A7    STA  ,Y
1936ED7D 34    PSHS A,CC
1937ED7F BD    JSR  EE1B
1938ED82 44    LSRA
1939ED83 25    BCS  ED88
1940ED85 E7    STB  ,Y
1941ED87 7D    TST  E721
1942ED8A BD    JSR  EE1B
1943ED8D 35    PULS A,CC
1944ED8F 20    BRA  ED95
1945ED91 E7    STB  1,Y
1946ED93 A7    STA  ,Y
1947ED95 31    LEAY FFD8,Y
1948ED98 39    RTS 
1949
1950
1951ED99 8E    LDX  #EDD5
1952ED9C 34    PSHS B,A,CC
1953ED9E 96    LDA  5C
1954EDA0 D6    LDB  5C
1955EDA2 84    ANDA #03
1956EDA4 48    ASLA
1957EDA5 48    ASLA
1958EDA6 C4    ANDB #18
1959EDA8 58    ASLB
1960EDA9 3A    ABX 
1961EDAA 30    LEAX A,X
1962EDAC A6    LDA  1,S
1963EDAE A4    ANDA 2,X
1964EDB0 A8    EORA 3,X
1965EDB2 A7    STA  ,Y
1966EDB4 7A    DEC  E7C3
1967EDB7 A6    LDA  1,S
1968EDB9 A4    ANDA ,X
1969EDBB A8    EORA 1,X
1970EDBD A7    STA  ,Y
1971EDBF 7C    INC  E7C3
1972EDC2 31    LEAY FFD8,Y
1973EDC5 35    PULS PC,B,A,CC
1974EDC7 8D    BSR  ED99
1975EDC9 31    LEAY 29,Y
1976EDCC 1E    EXG  B,A
1977EDCE 8D    BSR  ED99
1978EDD0 31    LEAY ff,Y
1979EDD2 1E    EXG  A,B
1980EDD4 39    RTS 
1981
1982
1983// Table
1984EDD5 00    NEG  00
1985EDD7 00    NEG  00
1986EDD9 00    NEG  00
1987EDDB FF    STU  FFFF
1988EDDE FF    STU  0000
1989EDE1 FF    STU  FFFF
1990EDE4 FF    STU  0000
1991EDE7 FF    STU  0000
1992EDEA 00    NEG  00
1993EDEC FF    STU  FFFF
1994EDEF FF    STU  00FF
1995EDF2 FF    STU  00FF
1996EDF5 FF    STU  0000
1997EDF8 00    NEG  FF
1998EDFA 00    NEG  FF
1999EDFC FF    STU  00FF
2000EDFF 00    NEG  00
2001EE01 00    NEG  FF
2002EE03 FF    STU  FFFF
2003EE06 00    NEG  FF
2004EE08 00    NEG  FF
2005EE0A 00    NEG  00
2006EE0C FF    STU  00FF
2007EE0F FF    STU  0000
2008EE12 FF    STU  00FF
2009EE15 34    PSHS A,
2010EE17 8D    BSR  EE1B
2011EE19 35    PULS PC,A,
2012EE1B B6    LDA  E7C3
2013EE1E 88    EORA #01
2014EE20 B7    STA  E7C3
2015EE23 39    RTS 
2016EE24 8D    BSR  EE59
2017EE26 37    PULU A,
2018EE28 34    PSHS B,CC
2019EE2A 97    STA  6C
2020EE2C CC    LDD  #8000
2021EE2F 04    LSR  6C
2022EE31 46    RORA
2023EE32 56    RORB
2024EE33 47    ASRA
2025EE34 56    RORB
2026EE35 24    BCC  EE2F
2027EE37 35    PULS CC
2028EE39 AD    JSR  [03,S]
2029EE3C 24    BCC  EE41
2030EE3E AD    JSR  [03,S]
2031EE41 35    PULS B,
2032EE43 5A    DECB
2033EE44 26    BNE  EE26
2034EE46 32    LEAS 4,S
2035EE48 8D    BSR  EE73
2036EE4A BD    JSR  ED77
2037EE4D 30    LEAX ff,X
2038EE4F 26    BNE  EE4A
2039EE51 7D    TST  3262
2040EE54 0D    TST  70
2041EE56 27    BEQ  EE8B
2042EE58 39    RTS 
2043EE59 34    PSHS CC
2044EE5B C6    LDB  #08
2045EE5D 0D    TST  70
2046EE5F 27    BEQ  EE71
2047EE61 0A    DEC  70
2048EE63 26    BNE  EE71
2049EE65 5A    DECB
2050EE66 96    LDA  5D
2051EE68 81    CMPA #60
2052EE6A 2A    BPL  EE70
2053EE6C 81    CMPA #55
2054EE6E 26    BNE  EE71
2055EE70 5A    DECB
2056EE71 35    PULS PC,CC
2057EE73 8E    LDX  #0008
2058EE76 24    BCC  EE7A
2059EE78 30    LEAX 8,X
2060EE7A 86    LDA  #40
2061EE7C 94    ANDA 19
2062EE7E 26    BNE  EE52
2063EE80 D6    LDB  3B
2064EE82 BD    JSR  F49D
2065EE85 10 9E LDY  5A
2066EE88 1F    TFR  B,A
2067EE8A 39    RTS 
2068EE8B 96    LDA  39
2069EE8D 85    BITA #04
2070EE8F 27    BEQ  EE93
2071EE91 8D    BSR  EE9C
2072EE93 7E    JMP  EF7C
2073EE96 96    LDA  70
2074EE98 81    CMPA #01
2075EE9A 27    BEQ  EEA1
2076EE9C 0C    INC  20
2077EE9E BD    JSR  F2B1
2078EEA1 39    RTS 
2079EEA2 B6    LDA  605F
2080EEA5 2B    BMI  EEBA
2081EEA7 27    BEQ  EEB2
2082EEA9 B6    LDA  605F
2083EEAC 84    ANDA #04
2084EEAE 10 26 LBNE EEA6
2085EEB2 B6    LDA  E7C3
2086EEB5 8A    ORA  #01
2087EEB7 B7    STA  E7C3
2088EEBA 39    RTS 
2089EEBB 10 DF STS  6E
2090EEBE 10 DE LDS  6C
2091EEC1 EC    LDD  5,S
2092EEC3 DE    LDU  60
2093EEC5 32    LEAS 28,U
2094EEC8 33    LEAU 7,U
2095EECA 0D    TST  78
2096EECC 26    BNE  EED0
2097EECE 32    LEAS D,S
2098EED0 35    PULS Y,X,DP,B,A,
2099EED2 36    PSHU Y,X,DP,B,A,
2100EED4 33    LEAU e,U
2101EED6 11 BC CMPS 6062
2102EEDA 25    BCS  EED0
2103EEDC 7E    JMP  F130
2104EEDF 10 DF STS  6E
2105EEE2 1F    TFR  D,X
2106EEE4 1F    TFR  D,Y
2107EEE6 10 DE LDS  6C
2108EEE9 EC    LDD  3,S
2109EEEB DE    LDU  62
2110EEED 33    LEAU FFE0,U
2111EEF0 0D    TST  78
2112EEF2 26    BNE  EEF6
2113EEF4 33    LEAU D,U
2114EEF6 1F    TFR  X,D
2115EEF8 1F    TFR  D,S
2116EEFA 36    PSHU U/S,Y,X,B,A,
2117EEFC 33    LEAU 10,U
2118EEFF 11 93 CMPU 62
2119EF02 23    BLS  EEFA
2120EF04 7E    JMP  F134
2121EF07 10 9E LDY  5A
2122EF0A 31    LEAY FFE8,Y
2123EF0E 86    LDA  #94
2124EF10 97    STA  6D
2125EF12 8E    LDX  #F6D8
2126EF15 8D    BSR  EF26
2127EF17 8D    BSR  EF26
2128EF19 C4    ANDB #05
2129EF1B 5C    INCB
2130EF1C 54    LSRB
2131EF1D 8D    BSR  EF26
2132EF1F 1C    & CC #FE
2133EF21 BD    JSR  ED6B
2134EF24 20    BRA  EF7E
2135EF26 D7    STB  6C
2136EF28 C4    ANDB #03
2137EF2A A6    LDA  B,X
2138EF2C A7    STA  ,Y
2139EF2E 31    LEAY 28,Y
2140EF31 04    LSR  6D
2141EF33 24    BCC  EF2C
2142EF35 D6    LDB  6C
2143EF37 54    LSRB
2144EF38 54    LSRB
2145EF39 39    RTS 
2146EF3A D6    LDB  39
2147EF3C D4    ANDB 3A
2148EF3E D7    STB  39
2149EF40 D6    LDB  3B
2150EF42 0D    TST  3A
2151EF44 2B    BMI  EF4E
2152EF46 0D    TST  5F
2153EF48 2B    BMI  EF4E
2154EF4A C4    ANDB #F8
2155EF4C D7    STB  3B
2156EF4E 39    RTS 
2157EF4F 0D    TST  3C
2158EF51 2A    BPL  EF69
2159EF53 96    LDA  19
2160EF55 84    ANDA #7F
2161EF57 97    STA  19
2162EF59 8D    BSR  EF3A
2163EF5B 96    LDA  3A
2164EF5D 84    ANDA #40
2165EF5F 26    BNE  EF69
2166EF61 CA    ORB  #78
2167EF63 0D    TST  5F
2168EF65 2B    BMI  EF69
2169EF67 D7    STB  3B
2170EF69 39    RTS 
2171EF6A BD    JSR  F1FD
2172EF6D 0F    CLR  20
2173EF6F 0C    INC  20
2174EF71 0D    TST  3C
2175EF73 2A    BPL  EF77
2176EF75 8D    BSR  EF4F
2177EF77 96    LDA  1D
2178EF79 7E    JMP  F00C
2179EF7C 0C    INC  20
2180EF7E 0D    TST  5F
2181EF80 2B    BMI  EF8E
2182EF82 96    LDA  20
2183EF84 81    CMPA #29
2184EF86 27    BEQ  EFA4
2185EF88 81    CMPA #2A
2186EF8A 27    BEQ  EFA2
2187EF8C 20    BRA  EF98
2188EF8E 96    LDA  20
2189EF90 81    CMPA #51
2190EF92 27    BEQ  EFA4
2191EF94 81    CMPA #52
2192EF96 27    BEQ  EFA2
2193EF98 0D    TST  43
2194EF9A 27    BEQ  EF9F
2195EF9C BD    JSR  F19D
2196EF9F 8D    BSR  F00E
2197EFA1 39    RTS 
2198EFA2 8D    BSR  F00E
2199EFA4 0D    TST  43
2200EFA6 27    BEQ  EFAF
2201EFA8 31    LEAY 0119,X
2202EFAC BD    JSR  F1AC
2203EFAF CC    LDD  #0102
2204EFB2 97    STA  20
2205EFB4 0D    TST  42
2206EFB6 2B    BMI  EFC2
2207EFB8 9E    LDX  1A
2208EFBA D5    BITB 39
2209EFBC 27    BEQ  EFC0
2210EFBE 6F    CLR  ff,X
2211EFC0 6F    CLR  ,X
2212EFC2 D4    ANDB 39
2213EFC4 58    ASLB
2214EFC5 58    ASLB
2215EFC6 8E    LDX  #F68C
2216EFC9 3A    ABX 
2217EFCA 96    LDA  1B
2218EFCC AB    ADDA ,X
2219EFCE 97    STA  1B
2220EFD0 0D    TST  3C
2221EFD2 2A    BPL  EFD7
2222EFD4 BD    JSR  EF3A
2223EFD7 91    CMPA 1F
2224EFD9 2E    BGT  EFDD
2225EFDB 20    BRA  F00E
2226EFDD 0D    TST  3C
2227EFDF 10 2B LBMI EF75
2228EFE3 9F    STX  6C
2229EFE5 E6    LDB  ,X
2230EFE7 10 9E LDY  1C
2231EFEA 10 9C CMPY 1E
2232EFED 24    BCC  EFF5
2233EFEF A6    LDA  1,Y
2234EFF1 A7    STA  ,Y+
2235EFF3 20    BRA  EFEA
2236EFF5 86    LDA  #FF
2237EFF7 A7    STA  ,Y
2238EFF9 5A    DECB
2239EFFA 26    BNE  EFE7
2240EFFC A6    LDA  ,X
2241EFFE 48    ASLA
2242EFFF 48    ASLA
2243F000 48    ASLA
2244F001 8E    LDX  #EEBB
2245F004 CE    LDU  #EEDF
2246F007 BD    JSR  F0DD
2247F00A 96    LDA  1F
2248F00C 97    STA  1B
2249F00E 7E    JMP  F2B1
2250F011 BD    JSR  F09E
2251F014 86    LDA  #FF
2252F016 97    STA  42
2253F018 7E    JMP  EF7C
2254F01B DE    LDU  3B
2255F01D D6    LDB  20
2256F01F 96    LDA  1B
2257F021 9E    LDX  39
2258F023 34    PSHS U/S,X,B,A,
2259F025 96    LDA  3C
2260F027 8A    ORA  #80
2261F029 97    STA  3C
2262F02B C6    LDB  #20
2263F02D BD    JSR  ECF9
2264F030 D6    LDB  20
2265F032 C1    CMPB #01
2266F034 26    BNE  F02B
2267F036 35    PULS U/S,X,B,A,
2268F038 DF    STU  3B
2269F03A D7    STB  20
2270F03C 97    STA  1B
2271F03E 9F    STX  39
2272F040 BD    JSR  F2B1
2273F043 86    LDA  #FF
2274F045 A7    STA  [601A]
2275F049 39    RTS 
2276
2277
2278F04A 0F    CLR  20
2279F04C 0C    INC  20
2280F04E BD    JSR  F2B1
2281F051 20    BRA  F043
2282F053 BD    JSR  EF4F
2283F056 BD    JSR  EEB2
2284F059 96    LDA  5F
2285F05B 81    CMPA #04
2286F05D 26    BNE  F062
2287F05F 7A    DEC  E7C3
2288F062 0F    CLR  75
2289F064 DC    LDD  76
2290F066 1F    TFR  D,X
2291F068 1F    TFR  D,Y
2292F06A DE    LDU  62
2293F06C 36    PSHU Y,X,B,A,
2294F06E 36    PSHU Y,X,
2295F070 11 93 CMPU 60
2296F073 2E    BGT  F06C
2297F075 C6    LDB  #0
2298F077 96    LDA  5F
2299F079 85    BITA #E1
2300F07B 26    BNE  F083
2301F07D 86    LDA  #40
2302F07F 94    ANDA 19
2303F081 26    BNE  F091
2304F083 F4    ANDB E7C3
2305F086 27    BEQ  F091
2306F088 96    LDA  3B
2307F08A D6    LDB  3B
2308F08C 7A    DEC  E7C3
2309F08F 20    BRA  F066
2310F091 9E    LDX  1C
2311F093 86    LDA  #FF
2312F095 A7    STA  ,X+
2313F097 9C    CMPX 1E
2314F099 23    BLS  F095
2315F09B 7E    JMP  EF6D
2316F09E 9E    LDX  5A
2317F0A0 C6    LDB  #08
2318F0A2 39    RTS 
2319
2320
2321F0A3 96    LDA  1B
2322F0A5 91    CMPA 1D
2323F0A7 2F    BLE  F0B0
2324F0A9 4A    DECA
2325F0AA 7D    TST  961F
2326F0AD 7E    JMP  F00C
2327F0B0 0D    TST  3C
2328F0B2 2B    BMI  F0AB
2329F0B4 CC    LDD  #0802
2330F0B7 D4    ANDB 39
2331F0B9 27    BEQ  F0BC
2332F0BB 48    ASLA
2333F0BC 34    PSHS A,
2334F0BE 10 9E LDY  1E
2335F0C1 10 9C CMPY 1C
2336F0C4 23    BLS  F0CC
2337F0C6 E6    LDB  ,-Y
2338F0C8 E7    STB  1,Y
2339F0CA 20    BRA  F0C1
2340F0CC C6    LDB  #FF
2341F0CE E7    STB  ,Y
2342F0D0 44    LSRA
2343F0D1 85    BITA #08
2344F0D3 26    BNE  F0BE
2345F0D5 35    PULS A,
2346F0D7 8E    LDX  #F10D
2347F0DA CE    LDU  #F138
2348F0DD 34    PSHS U/S,X,A,
2349F0DF 6A    DEC  ,S
2350F0E1 2B    BMI  F10B
2351F0E3 BD    JSR  EEA9
2352F0E6 AD    JSR  [01,S]
2353F0E9 DC    LDD  76
2354F0EB AD    JSR  [03,S]
2355F0EE 96    LDA  5F
2356F0F0 85    BITA #81
2357F0F2 26    BNE  F0FA
2358F0F4 86    LDA  #40
2359F0F6 94    ANDA 19
2360F0F8 26    BNE  F107
2361F0FA 7A    DEC  E7C3
2362F0FD AD    JSR  [01,S]
2363F100 96    LDA  3B
2364F102 D6    LDB  3B
2365F104 AD    JSR  [03,S]
2366F107 0D    TST  78
2367F109 26    BNE  F0DF
2368F10B 35    PULS PC,U/S,X,A,
2369
2370
2371F10D 10 DF STS  6E
2372F110 DC    LDD  60
2373F112 C3    ADDD #0028
2374F115 DD    STD  6C
2375F117 DE    LDU  62
2376F119 32    LEAS FFD1,U
2377F11C 0D    TST  78
2378F11E 26    BNE  F124
2379F120 32    LEAS FFE8,S
2380F124 35    PULS Y,X,DP,B,A,
2381F126 36    PSHU Y,X,DP,B,A,
2382F128 32    LEAS f2,S
2383F12A 11 B3 CMPU 606C
2384F12E 22    BHI  F124
2385F130 86    LDA  #60
2386F132 1F    TFR  A,DP
2387F134 10 DE LDS  6E
2388
2389
2390F137 39    RTS 
2391F138 1F    TFR  D,X
2392F13A 1F    TFR  D,Y
2393F13C DE    LDU  60
2394F13E 33    LEAU 28,U
2395F141 0D    TST  78
2396F143 26    BNE  F149
2397F145 33    LEAU 0118,U
2398F149 36    PSHU Y,X,B,
2399F14B 11 93 CMPU 60
2400F14E 22    BHI  F149
2401F150 39    RTS 
2402
2403
2404F151 0C    INC  1B
2405F153 96    LDA  1B
2406F155 91    CMPA 1F
2407F157 10 23 LBLS F1B1
2408F15B 5F    CLRB
2409F15C 7E    JMP  EFC2
2410F15F BD    JSR  F09E
2411F162 96    LDA  20
2412F164 81    CMPA #01
2413F166 2E    BGT  F183
2414F168 0D    TST  43
2415F16A 27    BEQ  F172
2416F16C 31    LEAY FFE7,X
2417F170 8D    BSR  F1AC
2418F172 0D    TST  5F
2419F174 2A    BPL  F179
2420F176 C6    LDB  #50
2421F178 7D    TST  C628
2422F17B D7    STB  20
2423F17D BD    JSR  F2B1
2424F180 7E    JMP  F0A3
2425F183 0D    TST  43
2426F185 27    BEQ  F189
2427F187 8D    BSR  F18F
2428F189 0A    DEC  20
2429F18B BD    JSR  F2B1
2430F18E 39    RTS 
2431
2432
2433F18F 0D    TST  5F
2434F191 2A    BPL  F199
2435F193 B6    LDA  E7C3
2436F196 44    LSRA
2437F197 24    BCC  F1AA
2438F199 31    LEAY ff,X
2439F19B 20    BRA  F1AC
2440F19D 0D    TST  5F
2441F19F 2A    BPL  F1A7
2442F1A1 B6    LDA  E7C3
2443F1A4 44    LSRA
2444F1A5 25    BCS  F1AA
2445F1A7 31    LEAY 1,X
2446F1A9 7D    TST  3184
2447F1AC A6    LDA  ,X
2448F1AE 0D    TST  5F
2449F1B0 2A    BPL  F1B5
2450F1B2 BD    JSR  EE15
2451F1B5 A7    STA  ,Y
2452F1B7 30    LEAX FFD8,X
2453F1BA 31    LEAY FFD8,Y
2454F1BD 0D    TST  5F
2455F1BF 2A    BPL  F1C4
2456F1C1 BD    JSR  EE15
2457F1C4 5A    DECB
2458F1C5 26    BNE  F1AC
2459F1C7 39    RTS 
2460
2461
2462F1C8 96    LDA  39
2463F1CA 84    ANDA #F9
2464F1CC 97    STA  39
2465F1CE 86    LDA  #80
2466F1D0 9A    ORA  19
2467F1D2 97    STA  19
2468F1D4 39    RTS 
2469F1D5 86    LDA  #7F
2470F1D7 7D    TST  86FB
2471F1DA 94    ANDA 19
2472F1DC 97    STA  19
2473F1DE 39    RTS 
2474
2475
2476F1DF 96    LDA  19
2477F1E1 8A    ORA  #04
2478F1E3 97    STA  19
2479F1E5 CC    LDD  #30D3
2480F1E8 FD    STD  E7C6
2481F1EB 86    LDA  #46
2482F1ED B7    STA  E7C5
2483F1F0 A6    LDA  2,S
2484F1F2 84    ANDA #EF
2485F1F4 A7    STA  2,S
2486F1F6 63    COM  [605A]
2487F1FA 03    COM  75
2488F1FC 39    RTS 
2489
2490F1FD 96    LDA  19
2491F1FF 85    BITA #04
2492F201 27    BEQ  F213
2493F203 0D    TST  75
2494F205 27    BEQ  F213
2495F207 BD    JSR  EEA9
2496F20A BD    JSR  FB15
2497F20D 63    COM  [605A]
2498F211 03    COM  75
2499F213 39    RTS 
2500
2501
2502// routine qui fait du bruit (enfin il me semble)
2503F214 FC    LDD  E7CE
2504F217 34    PSHS B,A,
2505F219 C4    ANDB #FA
2506F21B FD    STD  E7CE
2507F21E B6    LDA  E7CD
2508F221 34    PSHS A,
2509F223 8A    ORA  #3F
2510F225 B7    STA  E7CD
2511F228 B6    LDA  E7CF
2512F22B 8A    ORA  #04
2513F22D B7    STA  E7CF
2514F230 B6    LDA  E7C1
2515F233 34    PSHS A,
2516F235 84    ANDA #F7
2517F237 B7    STA  E7C1
2518F23A C6    LDB  #12
2519F23C 0D    TST  73
2520F23E 26    BNE  F248
2521F240 B6    LDA  E7CD
2522F243 88    EORA #3F
2523F245 B7    STA  E7CD
2524F248 8E    LDX  #0080
2525F24B 30    LEAX -1,X
2526F24D 26    BNE  F24B
2527F24F 5A    DECB
2528F250 26    BNE  F23C
2529F252 35    PULS A,
2530F254 B7    STA  E7C1
2531F257 B6    LDA  E7CF
2532F25A 84    ANDA #FB
2533F25C B7    STA  E7CF
2534F25F 35    PULS A,
2535F261 B7    STA  E7CD
2536F264 FC    LDD  E7CE
2537F267 35    PULS B,A,
2538F269 FD    STD  E7CE
2539F26C FC    LDD  E7CC
2540F26F 39    RTS 
2541
2542
2543F270 4C    INCA
2544F271 4C    INCA
2545F272 4C    INCA
2546F273 4C    INCA
2547F274 48    ASLA
2548F275 97    STA  59
2549F277 39    RTS 
2550F278 C4    ANDB #3F
2551F27A 27    BEQ  F287
2552F27C D7    STB  6B
2553F27E D6    LDB  5D
2554F280 BD    JSR  ECF9
2555F283 0A    DEC  6B
2556F285 26    BNE  F27E
2557F287 0F    CLR  59
2558F289 39    RTS 
2559F28A 0D    TST  6A
2560F28C 26    BNE  F291
2561F28E D7    STB  6A
2562F290 39    RTS 
2563F291 C1    CMPB #40
2564F293 25    BCS  F2DE
2565F295 0D    TST  5F
2566F297 2A    BPL  F29E
2567F299 C8    EORB #C0
2568F29B C4    ANDB #7F
2569F29D 7D    TST  C43F
2570F2A0 D7    STB  20
2571F2A2 D6    LDB  6A
2572F2A4 C4    ANDB #3F
2573F2A6 D7    STB  1B
2574F2A8 8D    BSR  F2B1
2575F2AA 0F    CLR  6A
2576F2AC 0F    CLR  59
2577F2AE 7E    JMP  EF4F
2578F2B1 34    PSHS B,
2579F2B3 96    LDA  1B
2580F2B5 C6    LDB  #A0
2581F2B7 48    ASLA
2582F2B8 3D    MUL 
2583F2B9 C3    ADDD #4117
2584F2BC 0D    TST  5F
2585F2BE 2A    BPL  F2DA
2586F2C0 DD    STD  5A
2587F2C2 BD    JSR  F49D
2588F2C5 0F    CLR  86
2589F2C7 D6    LDB  20
2590F2C9 57    ASRB
2591F2CA 24    BCC  F2D2
2592F2CC 7C    INC  E7C3
2593F2CF 5C    INCB
2594F2D0 03    COM  86
2595F2D2 4F    CLRA
2596F2D3 D3    ADDD 5A
2597F2D5 DD    STD  5A
2598F2D7 35    PULS B,
2599F2D9 39    RTS 
2600F2DA DB    ADDB 20
2601F2DC 20    BRA  F2D5
2602F2DE C1    CMPB #30
2603F2E0 2D    BLT  F2E8
2604F2E2 8D    BSR  F31D
2605F2E4 8D    BSR  F2B1
2606F2E6 20    BRA  F2AA
2607F2E8 96    LDA  1B
2608F2EA DE    LDU  20
2609F2EC 9E    LDX  5A
2610F2EE 34    PSHS U/S,X,A,
2611F2F0 C1    CMPB #20
2612F2F2 2D    BLT  F303
2613F2F4 8D    BSR  F31D
2614F2F6 D7    STB  1D
2615F2F8 8D    BSR  F2B1
2616F2FA DC    LDD  5A
2617F2FC 83    SUBD #0118
2618F2FF DD    STD  60
2619F301 20    BRA  F310
2620F303 8D    BSR  F31D
2621F305 D7    STB  1F
2622F307 8D    BSR  F2B1
2623F309 DC    LDD  5A
2624F30B C3    ADDD #0028
2625F30E DD    STD  62
2626F310 35    PULS U/S,X,A,
2627F312 97    STA  1B
2628F314 DF    STU  20
2629F316 9F    STX  5A
2630F318 0F    CLR  6A
2631F31A 0F    CLR  59
2632F31C 39    RTS 
2633F31D 0F    CLR  20
2634F31F 0C    INC  20
2635F321 C4    ANDB #0F
2636F323 D7    STB  1B
2637F325 96    LDA  6A
2638F327 84    ANDA #0F
2639F329 C6    LDB  #0A
2640F32B 3D    MUL 
2641F32C DB    ADDB 1B
2642F32E D7    STB  1B
2643F330 39    RTS 
2644F331 C1    CMPB #40
2645F333 24    BCC  F350
2646F335 C1    CMPB #23
2647F337 27    BEQ  F34F
2648F339 C1    CMPB #20
2649F33B 27    BEQ  F349
2650F33D C1    CMPB #21
2651F33F 27    BEQ  F34F
2652F341 0F    CLR  59
2653F343 86    LDA  #7F
2654F345 94    ANDA 39
2655F347 20    BRA  F34D
2656F349 86    LDA  #80
2657F34B 9A    ORA  39
2658F34D 97    STA  39
2659F34F 39    RTS 
2660F350 0D    TST  39
2661F352 2A    BPL  F359
2662F354 CE    LDU  #F3F5
2663F357 20    BRA  F35C
2664F359 CE    LDU  #F3AD
2665F35C E1    CMPB ,U
2666F35E 33    LEAU 3,U
2667F360 25    BCS  F35C
2668F362 AD    JSR  [,--U]
2669F364 20    BRA  F341
2670F366 1F    TFR  B,A
2671F368 0F    CLR  59
2672F36A 81    CMPA #4B
2673F36C 27    BEQ  F392
2674F36E 84    ANDA #F0
2675F370 81    CMPA #40
2676F372 26    BNE  F378
2677F374 86    LDA  #02
2678F376 97    STA  70
2679F378 CE    LDU  #EB45
2680F37B 86    LDA  #15
2681F37D 10 8E LDY  #F3AD
2682F381 E1    CMPB ,-Y
2683F383 27    BEQ  F38B
2684F385 4A    DECA
2685F386 2A    BPL  F381
2686F388 0F    CLR  70
2687F38A 39    RTS 
2688F38B 1F    TFR  A,B
2689F38D 0F    CLR  75
2690F38F 7E    JMP  ED34
2691F392 86    LDA  #80
2692F394 97    STA  70
2693F396 39    RTS 
2694F397 4B    ILL 
2695F398 23    BLS  F3BE
2696F39A 26    BNE  F3C8
2697F39C 2D    BLT  F3CC
2698F39E 2F    BLE  F3D0
2699F3A0 31    LEAY f8,Y
2700F3A2 3C    ILL 
2701F3A3 3D    MUL 
2702F3A4 3E    ILL 
2703F3A5 41    ILL 
2704F3A6 42    ILL 
2705F3A7 43    COMA
2706F3A8 48    ASLA
2707F3A9 6A    DEC  fa,S
2708F3AB 7B    ILL 
2709F3AC 27    BEQ  F33A
2710F3AE F3    ADDD 4188
2711F3B1 F6    LDB  4D80
2712F3B4 F5    BITB 8F78
2713F3B7 F5    BITB 0770
2714F3BA F5    BITB 646E
2715F3BD F5    BITB AF6D
2716F3C0 F4    ANDB 196C
2717F3C3 F4    ANDB 206B
2718F3C6 F5    BITB A56A
2719F3C9 F5    BITB AA69
2720F3CC F5    BITB 9768
2721F3CF F5    BITB A060
2722F3D2 F5    BITB 8D5F
2723F3D5 F4    ANDB 435E
2724F3D8 F6    LDB  455C
2725F3DB F4    ANDB 685B
2726F3DE F5    BITB DA5A
2727F3E1 F5    BITB B459
2728F3E4 F6    LDB  3C58
2729F3E7 F4    ANDB C650
2730F3EA F5    BITB 0A4C
2731F3ED F5    BITB 2748
2732F3F0 F5    BITB E940
2733F3F3 F5    BITB 6780
2734F3F6 F3    ADDD 4178
2735F3F9 F4    ANDB DD70
2736F3FC F5    BITB 3560
2737F3FF F3    ADDD 415F
2738F402 F4    ANDB 2B5E
2739F405 F3    ADDD 415C
2740F408 F4    ANDB 5659
2741F40B F3    ADDD 4158
2742F40E F4    ANDB AF50
2743F411 F4    ANDB E048
2744F414 F3    ADDD 4140
2745F417 F5    BITB 38B6
2746F41A E7    STB  FFC3,U
2747F41E 20    BRA  F427
2748F420 B6    LDA  E7C9
2749F423 8A    ORA  #04
2750F425 84    ANDA #C7
2751F427 B7    STA  E7C9
2752
2753F42A 39    RTS
2754F42B 0D    TST  5F
2755F42D 26    BNE  F455
2756F42F 8D    BSR  F49D
2757F431 9E    LDX  60
2758F433 D6    LDB  5C
2759F435 27    BEQ  F455
2760F437 A6    LDA  ,X+
2761F439 81    CMPA #C0
2762F43B 26    BNE  F43F
2763F43D E7    STB  ff,X
2764F43F 9C    CMPX 62
2765F441 26    BNE  F437
2766F443 0D    TST  5F
2767F445 26    BNE  F455
2768F447 96    LDA  5C
2769F449 27    BEQ  F455
2770F44B D6    LDB  3B
2771F44D C1    CMPB #C0
2772F44F 26    BNE  F455
2773F451 97    STA  3B
2774F453 0F    CLR  5C
2775F455 39    RTS 
2776
2777F456 0D    TST  5F
2778F458 26    BNE  F472
2779F45A 9E    LDX  60
2780F45C 8D    BSR  F49D
2781F45E A6    LDA  ,X
2782F460 8D    BSR  F47D
2783F462 A7    STA  ,X+
2784F464 9C    CMPX 62
2785F466 26    BNE  F45E
2786F468 96    LDA  5F
2787F46A 26    BNE  F473
2788F46C 96    LDA  3B
2789F46E 8D    BSR  F47D
2790F470 97    STA  3B
2791F472 39    RTS 
2792
2793F473 44    LSRA
2794F474 24    BCC  F472
2795F476 96    LDA  5C
2796F478 8D    BSR  F47D
2797F47A 97    STA  5C
2798F47C 39    RTS 
2799
2800F47D 1F    TFR  A,B
2801F47F 34    PSHS B,
2802F481 84    ANDA #07
2803F483 48    ASLA
2804F484 48    ASLA
2805F485 48    ASLA
2806F486 C4    ANDB #38
2807F488 54    LSRB
2808F489 54    LSRB
2809F48A 54    LSRB
2810F48B 34    PSHS B,
2811F48D AB    ADDA ,S+
2812F48F 35    PULS B,
2813F491 C4    ANDB #C0
2814F493 58    ASLB
2815F494 24    BCC  F498
2816F496 CA    ORB  #40
2817F498 34    PSHS B,
2818F49A AB    ADDA ,S+
2819F49C 39    RTS 
2820
2821F49D 96    LDA  5F
2822F49F 84    ANDA #04
2823F4A1 27    BEQ  F4A6
2824F4A3 7E    JMP  EEB2
2825F4A6 B6    LDA  E7C3
2826F4A9 84    ANDA #FE
2827F4AB B7    STA  E7C3
2828F4AE 39    RTS 
2829F4AF 0D    TST  5F
2830F4B1 26    BNE  F4DC
2831F4B3 8D    BSR  F49D
2832F4B5 9E    LDX  60
2833F4B7 EC    LDD  ,X
2834F4B9 84    ANDA #80
2835F4BB C4    ANDB #80
2836F4BD C3    ADDD #4040
2837F4C0 ED    STD  ,X++
2838F4C2 9C    CMPX 62
2839F4C4 25    BCS  F4B7
2840F4C6 0D    TST  5F
2841F4C8 26    BNE  F4DC
2842F4CA 96    LDA  3B
2843F4CC 84    ANDA #7F
2844F4CE 81    CMPA #40
2845F4D0 27    BEQ  F4DC
2846F4D2 96    LDA  3B
2847F4D4 97    STA  5C
2848F4D6 84    ANDA #C0
2849F4D8 8A    ORA  #40
2850F4DA 97    STA  3B
2851F4DC 39    RTS 
2852
2853F4DD C4    ANDB #7F
2854F4DF 7D    TST  CA80
2855F4E2 0D    TST  5F
2856F4E4 26    BNE  F4DC
2857F4E6 8D    BSR  F49D
2858F4E8 C4    ANDB #87
2859F4EA D7    STB  6C
2860F4EC D7    STB  6D
2861F4EE 9E    LDX  60
2862F4F0 EC    LDD  ,X
2863F4F2 84    ANDA #78
2864F4F4 C4    ANDB #78
2865F4F6 D3    ADDD 6C
2866F4F8 ED    STD  ,X++
2867F4FA 9C    CMPX 62
2868F4FC 26    BNE  F4F0
2869F4FE 86    LDA  #80
2870F500 9A    ORA  3A
2871F502 97    STA  3A
2872F504 D6    LDB  6C
2873F506 7D    TST  C47F
2874F509 7D    TST  CA80
2875F50C 96    LDA  5F
2876F50E 26    BNE  F51A
2877F510 85    BITA #FE
2878F512 C4    ANDB #87
2879F514 96    LDA  3B
2880F516 84    ANDA #78
2881F518 20    BRA  F57F
2882F51A 44    LSRA
2883F51B 10 24 LBCC F585
2884F51F C4    ANDB #87
2885F521 96    LDA  5C
2886F523 84    ANDA #78
2887F525 20    BRA  F586
2888F527 C4    ANDB #03
2889F529 58    ASLB
2890F52A 96    LDA  39
2891F52C 84    ANDA #F9
2892F52E 34    PSHS B,
2893F530 AB    ADDA ,S+
2894F532 97    STA  39
2895F534 39    RTS 
2896
2897F535 C4    ANDB #F7
2898F537 7D    TST  CA08
2899F53A 0D    TST  5F
2900F53C 26    BNE  F585
2901F53E BD    JSR  F49D
2902F541 58    ASLB
2903F542 58    ASLB
2904F543 58    ASLB
2905F544 C4    ANDB #78
2906F546 D7    STB  6C
2907F548 D7    STB  6D
2908F54A 9E    LDX  60
2909F54C EC    LDD  ,X
2910F54E 84    ANDA #87
2911F550 C4    ANDB #87
2912F552 D3    ADDD 6C
2913F554 ED    STD  ,X++
2914F556 9C    CMPX 62
2915F558 26    BNE  F54C
2916F55A 96    LDA  3A
2917F55C 8A    ORA  #40
2918F55E 97    STA  3A
2919F560 D6    LDB  6C
2920F562 20    BRA  F57B
2921F564 C4    ANDB #F7
2922F566 7D    TST  CA08
2923F569 58    ASLB
2924F56A 58    ASLB
2925F56B 58    ASLB
2926F56C C4    ANDB #78
2927F56E 96    LDA  5F
2928F570 27    BEQ  F57B
2929F572 44    LSRA
2930F573 24    BCC  F585
2931F575 96    LDA  5C
2932F577 84    ANDA #87
2933F579 20    BRA  F586
2934F57B 96    LDA  3B
2935F57D 84    ANDA #87
2936F57F 34    PSHS B,
2937F581 AB    ADDA ,S+
2938F583 97    STA  3B
2939F585 39    RTS 
2940
2941F586 34    PSHS B,
2942F588 AB    ADDA ,S+
2943F58A 97    STA  5C
2944F58C 39    RTS 
2945
2946F58D CA    ORB  #08
2947F58F C4    ANDB #0F
2948F591 C8    EORB #08
2949F593 F7    STB  E7DD
2950F596 39    RTS 
2951
2952F597 0D    TST  5F
2953F599 26    BNE  F596
2954F59B 86    LDA  #BF
2955F59D 7E    JMP  F1DA
2956F5A0 86    LDA  #40
2957F5A2 7E    JMP  F1D0
2958F5A5 86    LDA  #80
2959F5A7 97    STA  3C
2960F5A9 39    RTS 
2961
2962F5AA 0F    CLR  3C
2963F5AC 0F    CLR  78
2964F5AE 39    RTS 
2965F5AF 8D    BSR  F5AA
2966F5B1 03    COM  78
2967F5B3 39    RTS 
2968
2969F5B4 96    LDA  5F
2970F5B6 10 27 LBEQ F56A
2971F5BA 2A    BPL  F5BC
2972F5BC 0F    CLR  16
2973F5BE 0F    CLR  5F
2974F5C0 96    LDA  19
2975F5C2 84    ANDA #AF
2976F5C4 97    STA  19
2977F5C6 D6    LDB  5C
2978F5C8 D7    STB  3B
2979F5CA BD    JSR  FCD6
2980F5CD 7F    CLR  E7DC
2981F5D0 BD    JSR  F62C
2982F5D3 96    LDA  19
2983F5D5 84    ANDA #AF
2984F5D7 97    STA  19
2985F5D9 39    RTS 
2986
2987F5DA 0D    TST  5F
2988F5DC 10 2B LBMI F56A
2989F5E0 BD    JSR  F660
2990F5E3 CC    LDD  #2A80
2991F5E6 16    LBRA F622
2992F5E9 BD    JSR  F660
2993F5EC 96    LDA  19
2994F5EE 84    ANDA #AF
2995F5F0 97    STA  19
2996F5F2 0F    CLR  16
2997F5F4 96    LDA  5F
2998F5F6 34    PSHS A,
2999F5F8 1F    TFR  B,A
3000F5FA 44    LSRA
3001F5FB 25    BCS  F602
3002F5FD 86    LDA  #04
3003F5FF 0C    INC  16
3004F601 7D    TST  8602
3005F604 97    STA  5F
3006F606 C0    SUBB #04
3007F608 1F    TFR  B,A
3008F60A 84    ANDA #02
3009F60C 27    BEQ  F610
3010F60E C4    ANDB #FE
3011F610 C4    ANDB #07
3012F612 CA    ORB  #20
3013F614 BD    JSR  FCD6
3014F617 F7    STB  E7DC
3015F61A 35    PULS A,
3016F61C 84    ANDA #0E
3017F61E 26    BNE  F635
3018F620 20    BRA  F62A
3019F622 BD    JSR  FCD6
3020F625 B7    STA  E7DC
3021F628 D7    STB  5F
3022F62A 0F    CLR  3B
3023F62C BD    JSR  EEB2
3024F62F BD    JSR  F67B
3025F632 BD    JSR  F053
3026F635 96    LDA  19
3027F637 8A    ORA  #50
3028F639 97    STA  19
3029F63B 39    RTS
3030
3031F63C BD    JSR  F660
3032F63F CC    LDD  #2101
3033F642 7E    JMP  F622
3034F645 8D    BSR  F660
3035F647 CC    LDD  #7B40
3036F64A 7E    JMP  F622
3037F64D C4    ANDB #03
3038F64F D7    STB  16
3039F651 96    LDA  5F
3040F653 85    BITA #20
3041F655 26    BNE  F66A
3042F657 BD    JSR  F660
3043F65A CC    LDD  #3F20
3044F65D 7E    JMP  F622
3045F660 0D    TST  5F
3046F662 2B    BMI  F66A
3047F664 26    BNE  F66A
3048F666 96    LDA  3B
3049F668 97    STA  5C
3050F66A 39    RTS 
3051
3052// Repos fenetre plein ecran
3053F66B 34    PSHS DP,B,A,
3054F66D 86    LDA  #60
3055F66F 1F    TFR  A,DP
3056F671 BD    JSR  F1D8
3057F674 8D    BSR  F67B
3058F676 BD    JSR  F5AA
3059F679 35    PULS PC,DP,B,A,
3060F67B CC    LDD  #4000
3061F67E DD    STD  60
3062F680 CC    LDD  #5F40
3063F683 DD    STD  62
3064F685 0F    CLR  1D
3065F687 86    LDA  #18
3066F689 97    STA  1F
3067F68B 39    RTS
3068
3069F68C 01    ILL 
3070F68D 01    ILL 
3071F68E 19    ILL 
3072F68F FE    LDU  E801
3073F692 18    ILL 
3074F693 00    NEG  02
3075F695 02    ILL 
3076F696 59    ROLB
3077F697 FD    STD  A802
3078F69A 58    ASLB
3079F69B 01    ILL 
3080F69C F2    SBCB 14F1
3081F69F 5F    CLRB
3082F6A0 F0    SUBB 11F1
3083F6A3 51    ILL 
3084F6A4 F0    SUBB A3F0
3085F6A7 53    COMB
3086F6A8 F0    SUBB 4AF1
3087F6AB C8    EORB #F1
3088F6AD D5    BITB F0
3089F6AF 49    ROLA
3090F6B0 F1    CMPB DFF2
3091F6B3 71    ILL 
3092F6B4 F0    SUBB 49F1
3093F6B7 D8    EORB F0
3094F6B9 49    ROLA
3095F6BA F2    SBCB 70F0
3096F6BD 49    ROLA
3097F6BE F0    SUBB 1BF0
3098F6C1 49    ROLA
3099F6C2 F0    SUBB 49F2
3100F6C5 73    COM  F049
3101F6C8 F0    SUBB 49EF
3102F6CB 6A    DEC  Illegal !
3103F6CD 72    ILL 
3104F6CE EC    LDD  Illegal !
3105F6D0 F3    ADDD 31F2
3106F6D3 8A    ORA  #F2
3107F6D5 78    ASL  F366
3108F6D8 00    NEG  F0
3109F6DA 0F    CLR  FF
3110
3111// vecteur VPLOT$ par défaut
3112F6DC 7D    TST  6041
3113F6DF 26    BNE  F6FA
3114F6E1 34    PSHS U/S,Y,X,DP,B,A,
3115F6E3 8D    BSR  F6F0
3116F6E5 BD    JSR  F7CC
3117F6E8 BD    JSR  F796
3118F6EB BD    JSR  F864
3119F6EE 35    PULS PC,U/S,Y,X,DP,B,A,
3120
3121
3122F6F0 86    LDA  #60
3123F6F2 1F    TFR  A,DP
3124F6F4 9F    STX  3D
3125F6F6 10 9F STY  3F
3126F6F9 39    RTS 
3127
3128F6FA 34    PSHS DP,B,A,
3129F6FC 8D    BSR  F6F0
3130F6FE 96    LDA  3C
3131F700 34    PSHS A,
3132F702 8A    ORA  #80
3133F704 97    STA  3C
3134F706 C6    LDB  #1F
3135F708 BD    JSR  ECC8
3136F70B 1F    TFR  Y,D
3137F70D CB    ADDB #40
3138F70F BD    JSR  ECC8
3139F712 1F    TFR  X,D
3140F714 CB    ADDB #40
3141F716 BD    JSR  ECC8
3142F719 D6    LDB  41
3143F71B BD    JSR  ECC8
3144F71E 35    PULS A,
3145F720 97    STA  3C
3146F722 35    PULS PC,DP,B,A,
3147F724 34    PSHS U/S,Y,X,DP,A,
3148F726 86    LDA  #60
3149F728 1F    TFR  A,DP
3150F72A BD    JSR  F7CC
3151F72D 96    LDA  5F
3152F72F 27    BEQ  F740
3153F731 E6    LDB  3,S
3154F733 85    BITA #41
3155F735 26    BNE  F769
3156F737 8D    BSR  F79E
3157F739 E4    ANDB ,X
3158F73B 27    BEQ  F75D
3159F73D 5F    CLRB
3160F73E 20    BRA  F767
3161F740 BD    JSR  FA49
3162F743 E6    LDB  3,S
3163F745 8D    BSR  F7A2
3164F747 1F    TFR  B,A
3165F749 E6    LDB  ,X
3166F74B 7C    INC  E7C3
3167F74E A4    ANDA ,X
3168F750 26    BNE  F760
3169F752 C4    ANDB #07
3170F754 7A    DEC  E7C3
3171F757 6D    TST  ,X
3172F759 2B    BMI  F75D
3173F75B CB    ADDB #08
3174F75D 53    COMB
3175F75E 20    BRA  F767
3176F760 54    LSRB
3177F761 54    LSRB
3178F762 54    LSRB
3179F763 C4    ANDB #0F
3180F765 C8    EORB #08
3181F767 35    PULS PC,U/S,Y,X,DP,A,
3182F769 44    LSRA
3183F76A 25    BCS  F779
3184F76C 54    LSRB
3185F76D E6    LDB  ,X
3186F76F 25    BCS  F775
3187F771 54    LSRB
3188F772 54    LSRB
3189F773 54    LSRB
3190F774 54    LSRB
3191F775 C4    ANDB #0F
3192F777 20    BRA  F767
3193F779 BD    JSR  F4A6
3194F77C BD    JSR  F7A2
3195F77F 34    PSHS B,
3196F781 4F    CLRA
3197F782 E4    ANDB ,X
3198F784 27    BEQ  F788
3199F786 4C    INCA
3200F787 48    ASLA
3201F788 35    PULS B,
3202F78A 7C    INC  E7C3
3203F78D E4    ANDB ,X
3204F78F 27    BEQ  F792
3205F791 4C    INCA
3206F792 1F    TFR  A,B
3207F794 20    BRA  F767
3208F796 96    LDA  5F
3209F798 85    BITA #40
3210F79A 26    BNE  F7BC
3211F79C D6    LDB  3E
3212F79E 85    BITA #20
3213F7A0 26    BNE  F7AA
3214F7A2 CE    LDU  #F8BE
3215F7A5 C4    ANDB #07
3216F7A7 E6    LDB  B,U
3217F7A9 39    RTS 
3218F7AA CE    LDU  #F8BE
3219F7AD C4    ANDB #03
3220F7AF E6    LDB  B,U
3221F7B1 96    LDA  16
3222F7B3 85    BITA #01
3223F7B5 27    BEQ  F7BB
3224F7B7 54    LSRB
3225F7B8 54    LSRB
3226F7B9 54    LSRB
3227F7BA 54    LSRB
3228F7BB 39    RTS 
3229F7BC EC    LDD  5,S
3230F7BE 54    LSRB
3231F7BF D6    LDB  38
3232F7C1 25    BCS  F7C9
3233F7C3 58    ASLB
3234F7C4 58    ASLB
3235F7C5 58    ASLB
3236F7C6 58    ASLB
3237F7C7 4F    CLRA
3238F7C8 39    RTS 
3239F7C9 C4    ANDB #0F
3240F7CB 39    RTS 
3241F7CC 96    LDA  5F
3242F7CE 85    BITA #60
3243F7D0 26    BNE  F7F9
3244F7D2 1F    TFR  Y,D
3245F7D4 86    LDA  #28
3246F7D6 3D    MUL 
3247F7D7 1E    EXG  D,X
3248F7D9 44    LSRA
3249F7DA 56    RORB
3250F7DB 44    LSRA
3251F7DC 56    RORB
3252F7DD 54    LSRB
3253F7DE 0D    TST  5F
3254F7E0 2A    BPL  F7F5
3255F7E2 54    LSRB
3256F7E3 30    LEAX D,X
3257F7E5 BD    JSR  EEB2
3258F7E8 24    BCC  F7ED
3259F7EA 7A    DEC  E7C3
3260F7ED 1F    TFR  X,D
3261F7EF C3    ADDD #4000
3262F7F2 1F    TFR  D,X
3263F7F4 39    RTS 
3264F7F5 30    LEAX D,X
3265F7F7 20    BRA  F7ED
3266F7F9 1F    TFR  Y,D
3267F7FB 86    LDA  #28
3268F7FD 3D    MUL 
3269F7FE 1E    EXG  D,X
3270F800 34    PSHS B,
3271F802 54    LSRB
3272F803 54    LSRB
3273F804 30    LEAX D,X
3274F806 BD    JSR  EEB2
3275F809 96    LDA  5F
3276F80B 85    BITA #20
3277F80D 27    BEQ  F81D
3278F80F 96    LDA  16
3279F811 85    BITA #02
3280F813 27    BEQ  F818
3281F815 7A    DEC  E7C3
3282F818 35    PULS B,
3283F81A 7E    JMP  F7ED
3284F81D 86    LDA  #04
3285F81F 3D    MUL 
3286F820 E0    SUBB ,S+
3287F822 53    COMB
3288F823 5C    INCB
3289F824 54    LSRB
3290F825 54    LSRB
3291F826 20    BRA  F7E8
3292F828 BD    JSR  FA39
3293F82B 96    LDA  38
3294F82D 2B    BMI  F842
3295F82F EA    ORB  ,X
3296F831 E7    STB  ,X
3297F833 D6    LDB  19
3298F835 C5    BITB #10
3299F837 26    BNE  F863
3300F839 48    ASLA
3301F83A 48    ASLA
3302F83B 48    ASLA
3303F83C 88    EORA #40
3304F83E C6    LDB  #87
3305F840 20    BRA  F858
3306F842 53    COMB
3307F843 E4    ANDB ,X
3308F845 E7    STB  ,X
3309F847 D6    LDB  19
3310F849 C5    BITB #10
3311F84B 26    BNE  F863
3312F84D 43    COMA
3313F84E 81    CMPA #08
3314F850 24    BCC  F854
3315F852 8B    ADDA #80
3316F854 84    ANDA #87
3317F856 C6    LDB  #78
3318F858 7A    DEC  E7C3
3319F85B E4    ANDB ,X
3320F85D E7    STB  ,X
3321F85F AB    ADDA ,X
3322F861 A7    STA  ,X
3323F863 39    RTS 
3324F864 96    LDA  5F
3325F866 85    BITA #40
3326F868 10 26 LBNE F8AE
3327F86C 85    BITA #20
3328F86E 10 26 LBNE F82B
3329F872 44    LSRA
3330F873 24    BCC  F828
3331F875 BD    JSR  EEB2
3332F878 96    LDA  38
3333F87A 84    ANDA #03
3334F87C 44    LSRA
3335F87D 1F    TFR  B,A
3336F87F 26    BNE  F891
3337F881 25    BCS  F891
3338F883 53    COMB
3339F884 E4    ANDB ,X
3340F886 E7    STB  ,X
3341F888 43    COMA
3342F889 7A    DEC  E7C3
3343F88C A4    ANDA ,X
3344F88E A7    STA  ,X
3345F890 39    RTS 
3346F891 25    BCS  F89A
3347F893 53    COMB
3348F894 E4    ANDB ,X
3349F896 E7    STB  ,X
3350F898 20    BRA  F8A6
3351F89A 26    BNE  F8A2
3352F89C EA    ORB  ,X
3353F89E E7    STB  ,X
3354F8A0 20    BRA  F888
3355F8A2 EA    ORB  ,X
3356F8A4 E7    STB  ,X
3357F8A6 7A    DEC  E7C3
3358F8A9 AA    ORA  ,X
3359F8AB A7    STA  ,X
3360F8AD 39    RTS 
3361F8AE 24    BCC  F8B3
3362F8B0 86    LDA  #F0
3363F8B2 7D    TST  860F
3364F8B5 A4    ANDA ,X
3365F8B7 A7    STA  ,X
3366F8B9 EA    ORB  ,X
3367F8BB E7    STB  ,X
3368F8BD 39    RTS 
3369F8BE 80    SUBA #40
3370F8C0 20    BRA  F8D2
3371F8C2 08    ASL  04
3372F8C4 02    ILL 
3373F8C5 01    ILL 
3374F8C6 34    PSHS U/S,Y,X,DP,B,A,
3375
3376// vecteur VDRAW par défaut
3377F8C8 86    LDA  #60
3378F8CA 1F    TFR  A,DP
3379F8CC CC    LDD  #0101
3380F8CF 34    PSHS B,A,
3381F8D1 4F    CLRA
3382F8D2 E6    LDB  8,S
3383F8D4 D0    SUBB 40
3384F8D6 22    BHI  F8E6
3385F8D8 26    BNE  F8E3
3386F8DA 0D    TST  41
3387F8DC 26    BNE  F8E3
3388F8DE 35    PULS B,A,
3389F8E0 7E    JMP  F95D
3390
3391
3392F8E3 60    NEG  1,S
3393F8E5 50    NEGB
3394F8E6 DD    STD  6E
3395F8E8 EC    LDD  5,S
3396F8EA 93    SUBD 3D
3397F8EC 22    BHI  F8F5
3398F8EE 60    NEG  ,S
3399F8F0 43    COMA
3400F8F1 53    COMB
3401F8F2 C3    ADDD #0001
3402F8F5 DD    STD  6C
3403F8F7 9E    LDX  3D
3404F8F9 10 9E LDY  3F
3405F8FC 10 93 CMPD 6E
3406F8FF 22    BHI  F92F
3407F901 D6    LDB  6F
3408F903 27    BEQ  F959
3409F905 54    LSRB
3410F906 50    NEGB
3411F907 86    LDA  #FF
3412F909 31    LEAY 1,Y
3413F90B 6D    TST  1,S
3414F90D 2A    BPL  F911
3415F90F 31    LEAY fe,Y
3416F911 D3    ADDD 6C
3417F913 2B    BMI  F91F
3418F915 30    LEAX 1,X
3419F917 6D    TST  ,S
3420F919 2A    BPL  F91D
3421F91B 30    LEAX fe,X
3422F91D 93    SUBD 6E
3423F91F 34    PSHS CC
3424F921 1A    ORCC #50
3425F923 BD    JSR  F6DC
3426F926 35    PULS CC
3427F928 10 AC CMPY 7,S
3428F92B 27    BEQ  F959
3429F92D 20    BRA  F909
3430F92F 43    COMA
3431F930 53    COMB
3432F931 C3    ADDD #0001
3433F934 47    ASRA
3434F935 56    RORB
3435F936 30    LEAX 1,X
3436F938 6D    TST  ,S
3437F93A 2A    BPL  F93E
3438F93C 30    LEAX fe,X
3439F93E D3    ADDD 6E
3440F940 2B    BMI  F94C
3441F942 31    LEAY 1,Y
3442F944 6D    TST  1,S
3443F946 2A    BPL  F94A
3444F948 31    LEAY fe,Y
3445F94A 93    SUBD 6C
3446F94C 34    PSHS CC
3447F94E 1A    ORCC #50
3448F950 BD    JSR  F6DC
3449F953 35    PULS CC
3450F955 AC    CMPX 5,S
3451F957 26    BNE  F936
3452F959 32    LEAS 2,S
3453F95B 35    PULS PC,U/S,Y,X,DP,B,A,
3454F95D 9C    CMPX 3D
3455F95F 22    BHI  F969
3456F961 27    BEQ  F9BE
3457F963 DE    LDU  3D
3458F965 1E    EXG  X,U
3459F967 DF    STU  3D
3460F969 34    PSHS X,
3461F96B 96    LDA  5F
3462F96D 85    BITA #60
3463F96F 26    BNE  F9CF
3464F971 DC    LDD  3D
3465F973 44    LSRA
3466F974 56    RORB
3467F975 44    LSRA
3468F976 56    RORB
3469F977 54    LSRB
3470F978 34    PSHS B,
3471F97A 1F    TFR  X,D
3472F97C 44    LSRA
3473F97D 56    RORB
3474F97E 44    LSRA
3475F97F 56    RORB
3476F980 54    LSRB
3477F981 E0    SUBB ,S+
3478F983 27    BEQ  F9C0
3479F985 34    PSHS B,
3480F987 9E    LDX  3D
3481F989 BD    JSR  F7CC
3482F98C BD    JSR  F796
3483F98F 58    ASLB
3484F990 5A    DECB
3485F991 BD    JSR  F864
3486F994 0D    TST  5F
3487F996 2A    BPL  F9A6
3488F998 B6    LDA  E7C3
3489F99B 44    LSRA
3490F99C 24    BCC  F9A3
3491F99E 7A    DEC  E7C3
3492F9A1 20    BRA  F9A8
3493F9A3 7C    INC  E7C3
3494F9A6 30    LEAX 1,X
3495F9A8 C6    LDB  #FF
3496F9AA 6A    DEC  ,S
3497F9AC 2E    BGT  F991
3498F9AE 35    PULS B,
3499F9B0 EC    LDD  ,S++
3500F9B2 BD    JSR  F7A5
3501F9B5 5A    DECB
3502F9B6 53    COMB
3503F9B7 BD    JSR  F864
3504F9BA AE    LDX  3,S
3505F9BC 9F    STX  3D
3506F9BE 35    PULS PC,U/S,Y,X,DP,B,A,
3507F9C0 9E    LDX  3D
3508F9C2 BD    JSR  F6DC
3509F9C5 30    LEAX 1,X
3510F9C7 AC    CMPX ,S
3511F9C9 2F    BLE  F9C2
3512F9CB 32    LEAS 2,S
3513F9CD 20    BRA  F9BA
3514F9CF DC    LDD  3D
3515F9D1 54    LSRB
3516F9D2 54    LSRB
3517F9D3 34    PSHS B,
3518F9D5 1F    TFR  X,D
3519F9D7 54    LSRB
3520F9D8 54    LSRB
3521F9D9 E0    SUBB ,S+
3522F9DB 27    BEQ  F9C0
3523F9DD 34    PSHS B,
3524F9DF 9E    LDX  3D
3525F9E1 8D    BSR  FA14
3526F9E3 6A    DEC  ,S
3527F9E5 2F    BLE  FA06
3528F9E7 BD    JSR  F7CC
3529F9EA 96    LDA  5F
3530F9EC 85    BITA #20
3531F9EE 26    BNE  FA23
3532F9F0 D6    LDB  38
3533F9F2 58    ASLB
3534F9F3 58    ASLB
3535F9F4 58    ASLB
3536F9F5 58    ASLB
3537F9F6 DA    ORB  38
3538F9F8 E7    STB  ,X
3539F9FA 7A    DEC  E7C3
3540F9FD E7    STB  ,X+
3541F9FF 7C    INC  E7C3
3542FA02 6A    DEC  ,S
3543FA04 2E    BGT  F9F8
3544FA06 35    PULS B,
3545FA08 EC    LDD  ,S
3546FA0A C4    ANDB #FC
3547FA0C 1F    TFR  D,X
3548FA0E EC    LDD  ,S++
3549FA10 8D    BSR  FA17
3550FA12 20    BRA  F9BA
3551FA14 1F    TFR  X,D
3552FA16 53    COMB
3553FA17 C4    ANDB #03
3554FA19 5C    INCB
3555FA1A BD    JSR  F6DC
3556FA1D 30    LEAX 1,X
3557FA1F 5A    DECB
3558FA20 26    BNE  FA1A
3559FA22 39    RTS 
3560FA23 C6    LDB  #F0
3561FA25 BD    JSR  F7B1
3562FA28 34    PSHS B,
3563FA2A E6    LDB  ,S
3564FA2C BD    JSR  F864
3565FA2F 30    LEAX 1,X
3566FA31 6A    DEC  1,S
3567FA33 2E    BGT  FA2A
3568FA35 35    PULS B,
3569FA37 20    BRA  FA06
3570FA39 96    LDA  5F
3571FA3B 2B    BMI  FA48
3572FA3D 27    BEQ  FA45
3573FA3F 96    LDA  16
3574FA41 84    ANDA #01
3575FA43 26    BNE  FA4F
3576FA45 7E    JMP  EEB2
3577FA48 39    RTS 
3578
3579FA49 96    LDA  16
3580FA4B 84    ANDA #01
3581FA4D 26    BNE  FA45
3582FA4F 7E    JMP  F4A6
3583
3584FA52 34    PSHS U/S,A,CC
3585FA54 CE    LDU  #3FEA
3586FA57 20    BRA  FA65
3587
3588
3589// IO K7
3590FA59 34    PSHS U/S,A,CC
3591FA5B CE    LDU  #3FF3
3592FA5E 20    BRA  FA65
3593
3594FA60 34    PSHS U/S,A,CC
3595FA62 CE    LDU  #3FF9
3596
3597FA65 1A    ORCC #50
3598FA67 86    LDA  #03
3599FA69 BD    JSR  EC03
3600FA6C 24    BCC  FA74
3601FA6E 86    LDA  #01
3602FA70 AA    ORA  ,S
3603FA72 20    BRA  FA78
3604FA74 86    LDA  #FE
3605FA76 A4    ANDA ,S
3606FA78 A7    STA  ,S
3607FA7A 35    PULS PC,U/S,A,CC
3608
3609// interruption FIRQ
3610FA7C 6E    JMP  [6023]
3611
3612// interruption IRQ
3613FA80 86    LDA  #E7
3614FA82 1F    TFR  A,DP
3615FA84 DC    LDD  C0      // est-ce une interrupt clavier?
3616FA86 2B    BMI  FA9E
3617FA88 B6    LDA  6074
3618FA8B 85    BITA #40
3619FA8D 27    BEQ  FA9A
3620FA8F DC    LDD  CE      // scrute manette (mouse)
3621FA91 1F    TFR  D,X
3622FA93 10 9E LDY  CC
3623FA96 85    BITA #C0
3624FA98 26    BNE  FAA9
3625FA9A 6E    JMP  [6021]  // appel de VIRQ (interruption 50Hz)
3626// cas evenement clavier
3627FA9E 85    BITA #02
3628FAA0 27    BEQ  FAA5 
3629FAA2 54    LSRB
3630FAA3 25    BCS  FAC5
3631FAA5 44    LSRA
3632FAA6 25    BCS  FACF
3633FAA8 3B    RTI
3634
3635// gestion souris 
3636FAA9 A6    LDA  a,S
3637FAAB 84    ANDA #F8
3638FAAD 81    CMPA #E0
3639FAAF 27    BEQ  FAC4
3640FAB1 FE    LDU  6055
3641FAB4 34    PSHS U/S,
3642FAB6 CE    LDU  #FFC3
3643
3644
3645// branche en ffc6 sur la rom mon 1
3646// cad lecture du clavier et de ses periph?
3647FAB9 FF    STU  6055
3648FABC BD    JSR  FFA0
3649FABF 35    PULS U/S,
3650FAC1 FF    STU  6055
3651FAC4 3B    RTI
3652FAC5 FE    LDU  6055
3653FAC8 34    PSHS U/S,
3654FACA CE    LDU  #FFC6
3655FACD 20    BRA  FAB9
3656
3657
3658// Gestion du clavier
3659FACF A6    LDA  a,S
3660FAD1 84    ANDA #F8
3661FAD3 81    CMPA #E0
3662FAD5 27    BEQ  FAEC
3663FAD7 7A    DEC  60DC
3664FADA 26    BNE  FAE4
3665FADC B6    LDA  E7C1
3666FADF 84    ANDA #F7
3667FAE1 B7    STA  E7C1
3668FAE4 B6    LDA  60D4
3669FAE7 8A    ORA  #80
3670FAE9 B7    STA  60D4
3671FAEC B6    LDA  6019
3672FAEF 85    BITA #20
3673FAF1 27    BEQ  FAF7
3674FAF3 6E    JMP  [6027]
3675
3676
3677FAF7 B6    LDA  6019
3678FAFA 85    BITA #04
3679FAFC 27    BEQ  FB11
3680FAFE F6    LDB  E7C3
3681FB01 34    PSHS B,
3682FB03 8D    BSR  FB15
3683FB05 63    COM  [605A]
3684FB09 73    COM  6075
3685FB0C 35    PULS B,
3686FB0E F7    STB  E7C3
3687FB11 BC    CMPX E7C6
3688FB14 3B    RTI 
3689
3690
3691FB15 BD    JSR  EEA9
3692FB18 7D    TST  605F
3693FB1B 2A    BPL  FB25
3694FB1D 7D    TST  6086
3695FB20 2B    BMI  FB25
3696FB22 7A    DEC  E7C3
3697FB25 39    RTS 
3698
3699
3700FB26 34    PSHS X,A,
3701FB28 B6    LDA  E7C3
3702FB2B 84    ANDA #02
3703FB2D 8E    LDX  #04E2
3704FB30 30    LEAX ff,X
3705FB32 26    BNE  FB30
3706FB34 B4    ANDA E7C3
3707FB37 8B    ADDA #FF
3708FB39 35    PULS PC,X,A,
3709
3710// vecteur VRSCOH par défaut
3711FB3B 34    PSHS U/S,Y,X,DP,B,A,CC
3712FB3D 86    LDA  #E7
3713FB3F 1F    TFR  A,DP
3714FB41 10 8E LDY  #603A
3715FB45 A6    LDA  f1,Y
3716FB47 1F    TFR  A,CC
3717FB49 25    BCS  FB7F
3718FB4B 29    BVS  FBC3
3719FB4D 27    BEQ  FB7F
3720FB4F 10 2B LBMI FBC9
3721FB53 85    BITA #20
3722FB55 26    BNE  FBCC
3723FB57 85    BITA #40
3724FB59 26    BNE  FB96
3725FB5B A6    LDA  f2,Y
3726FB5D 84    ANDA #FA
3727FB5F 27    BEQ  FB6B
3728FB61 A6    LDA  f2,Y
3729FB63 84    ANDA #15
3730FB65 8A    ORA  #10
3731FB67 A7    STA  f2,Y
3732FB69 20    BRA  FBD4
3733FB6B DC    LDD  E9
3734FB6D CA    ORB  #02
3735FB6F C4    ANDB #FE
3736FB71 D7    STB  EA
3737FB73 BE    LDX  608C
3738FB76 AF    STX  FFE7,Y
3739FB79 A6    LDA  f2,Y
3740FB7B 84    ANDA #70
3741FB7D 20    BRA  FB65
3742FB7F A6    LDA  f1,Y
3743FB81 85    BITA #08
3744FB83 26    BNE  FBC6
3745FB85 85    BITA #10
3746FB87 26    BNE  FB6B
3747FB89 85    BITA #04
3748FB8B 26    BNE  FB90
3749FB8D 86    LDA  #04
3750FB8F F5    BITB 8601
3751FB92 A5    BITA f2,Y
3752FB94 26    BNE  FBDF
3753FB96 A6    LDA  f2,Y
3754FB98 84    ANDA #7F
3755FB9A AA    ORA  f1,Y
3756FB9C A7    STA  f2,Y
3757FB9E A6    LDA  f1,Y
3758FBA0 81    CMPA #40
3759FBA2 26    BNE  FBE4
3760FBA4 96    LDA  C9
3761FBA6 84    ANDA #07
3762FBA8 8A    ORA  #02
3763FBAA 97    STA  C9
3764FBAC B6    LDA  6074
3765FBAF 85    BITA #10
3766FBB1 26    BNE  FBD4
3767FBB3 86    LDA  #40
3768FBB5 95    BITA C3
3769FBB7 26    BNE  FBD9
3770FBB9 B6    LDA  6074
3771FBBC 8A    ORA  #10
3772FBBE B7    STA  6074
3773FBC1 20    BRA  FBD4
3774FBC3 86    LDA  #01
3775FBC5 F5    BITB 8605
3776FBC8 F5    BITB 8645
3777FBCB F5    BITB 8640
3778FBCE A5    BITA f2,Y
3779FBD0 27    BEQ  FBDF
3780FBD2 8D    BSR  FC3B
3781FBD4 35    PULS U/S,Y,X,DP,B,A,CC
3782FBD6 1C    & CC #FE
3783FBD8 39    RTS 
3784
3785
3786FBD9 A6    LDA  f2,Y
3787FBDB 8A    ORA  #80
3788FBDD A7    STA  f2,Y
3789FBDF 35    PULS U/S,Y,X,DP,B,A,CC
3790FBE1 1A    ORCC #01
3791FBE3 39    RTS 
3792
3793
3794FBE4 1A    ORCC #10
3795FBE6 A6    LDA  a,Y
3796FBE8 AA    ORA  b,Y
3797FBEA 8E    LDX  #FCA3
3798FBED A1    CMPA ,X
3799FBEF 27    BEQ  FBFB
3800FBF1 30    LEAX 2,X
3801FBF3 8C    CMPX #FCB1
3802FBF6 26    BNE  FBED
3803FBF8 EE    LDU  a,Y
3804FBFA F5    BITB EE84
3805FBFD A6    LDA  c,Y
3806FBFF 84    ANDA #E1
3807FC01 88    EORA #61
3808FC03 8B    ADDA #40
3809FC05 1C    & CC #FE
3810FC07 46    RORA
3811FC08 24    BCC  FC0C
3812FC0A 8A    ORA  #80
3813FC0C 33    LEAU A,U
3814FC0E 1F    TFR  U,D
3815FC10 D7    STB  EB
3816FC12 E6    LDB  c,Y
3817FC14 C4    ANDB #1C
3818FC16 58    ASLB
3819FC17 58    ASLB
3820FC18 58    ASLB
3821FC19 96    LDA  EA
3822FC1B 84    ANDA #10
3823FC1D 8A    ORA  #09
3824FC1F A7    STA  32,Y
3825FC22 EA    ORB  32,Y
3826FC25 D7    STB  EA
3827FC27 53    COMB
3828FC28 D8    EORB EA
3829FC2A 5C    INCB
3830FC2B 26    BNE  FBD9
3831FC2D AE    LDX  FFE7,Y
3832FC30 BF    STX  608C
3833FC33 CE    LDU  #ECAC
3834FC36 EF    STU  FFE7,Y
3835FC39 20    BRA  FBD4
3836FC3B A6    LDA  f1,Y
3837FC3D 85    BITA #02
3838FC3F 26    BNE  FC6B
3839FC41 85    BITA #20
3840FC43 10 26 LBNE FC52
3841FC47 85    BITA #05
3842FC49 26    BNE  FC90
3843FC4B A6    LDA  f2,Y
3844FC4D 84    ANDA #FA
3845FC4F 27    BEQ  FC90
3846FC51 86    LDA  #40
3847FC53 95    BITA C3
3848FC55 26    BNE  FC51
3849FC57 D7    STB  C8
3850FC59 96    LDA  C9
3851FC5B 84    ANDA #07
3852FC5D 44    LSRA
3853FC5E 54    LSRB
3854FC5F 49    ROLA
3855FC60 97    STA  C9
3856FC62 84    ANDA #05
3857FC64 97    STA  C9
3858FC66 8A    ORA  #02
3859FC68 97    STA  C9
3860FC6A 39    RTS 
3861
3862
3863FC6B 96    LDA  E9
3864FC6D 85    BITA #08
3865FC6F 26    BNE  FC87
3866FC71 1A    ORCC #10
3867FC73 E6    LDB  c,Y
3868FC75 54    LSRB
3869FC76 54    LSRB
3870FC77 25    BCS  FC7C
3871FC79 48    ASLA
3872FC7A 2B    BMI  FC82
3873FC7C 96    LDA  EA
3874FC7E 8A    ORA  #08
3875FC80 97    STA  EA
3876FC82 35    PULS X,
3877FC84 16    LBRA FCDF
3878FC87 D6    LDB  E8
3879FC89 84    ANDA #03
3880FC8B 26    BNE  FC71
3881FC8D E7    STB  4,S
3882FC8F 39    RTS 
3883
3884
3885FC90 96    LDA  E9
3886FC92 85    BITA #10
3887FC94 27    BEQ  FC90
3888FC96 86    LDA  #3C
3889FC98 4A    DECA
3890FC99 26    BNE  FC98
3891FC9B 96    LDA  E9
3892FC9D 48    ASLA
3893FC9E 2B    BMI  FC90
3894FCA0 D7    STB  E8
3895FCA2 39    RTS 
3896
3897
3898FCA3 15    ILL 
3899FCA4 0C    INC  2E
3900FCA6 0A    DEC  62
3901FCA8 08    ASL  CA
3902FCAA 07    ASR  9B
3903FCAC 06    ROR  6E
3904FCAE 03    COM  07
3905FCB0 0E    JMP  34
3906
3907// SETP$ A=couleur à modif / X=16bits OR modifier / Y=16bits AND modifier
3908//si A=FF alors X pointe sur un tableau contenant la nouvelle palette
3909FCB1 34    PSHS U,Y,DP,B,A,CC
3910FCB3 C6    LDB  #E7
3911FCB5 1F    TFR  B,DP
3912FCB7 4D    TSTA     
3913FCB8 2A    BPL  FCE1  // prog d'une couleur
3914FCBA 8D    BSR  FCD6  // wait a VBL
3915FCBC 10 8E LDY  #0200
3916FCC0 31    LEAY -1,Y
3917FCC2 26    BNE  FCC0  // temporise 200x8µs
3918FCC4 0F    CLR  DB    // met a zero le registre de selection
3919FCC6 10 8E LDY  #0010 
3920FCCA EC    LDD  ,X++
3921FCCC D7    STB  DA    // ecrit la valeur 16 bits dans le registre de donnée
3922FCCE 97    STA  DA
3923FCD0 31    LEAY -1,Y
3924FCD2 26    BNE  FCCA  // repete 16fois
3925FCD4 35    PULS PC,U/S,Y,DP,B,A,CC 
3926// RETOUR
3927
3928
3929FCD6 7D    TST  E7E7            // Wait a VBL
3930FCD9 2A    BPL  FCD6
3931FCDB 7D    TST  E7E7
3932FCDE 2B    BMI  FCDB
3933FCE0 39    RTS 
3934
3935FCE1 1A    ORCC #50
3936FCE3 48    ASLA                         // multiplie l'index de couleur par 2
3937FCE4 34    PSHS A,
3938FCE6 8D    BSR  FD10            // attente de syncro
3939FCE8 C6    LDB  #0A
3940FCEA 5A    DECB
3941FCEB 26    BNE  FCEA            // attente 5*10 µs
3942FCED 12    NOP 
3943FCEE A6    LDA  ,S
3944FCF0 97    STA  DB              // ecrit l'index dans le registre de sel
3945FCF2 1F    TFR  X,D
3946FCF4 D4    ANDB DA              // application du masque & dans le registre donnée
3947FCF6 94    ANDA DA
3948FCF8 34    PSHS B,A,
3949FCFA 1F    TFR  Y,D
3950FCFC AA    ORA  ,S+
3951FCFE EA    ORB  ,S+
3952FD00 AC    CMPX ,X++   
3953FD02 1F    TFR  D,X
3954FD04 35    PULS A,
3955FD06 97    STA  DB              // ecrit l'index dans le registre de sel
3956FD08 1F    TFR  X,D
3957FD0A D7    STB  DA              // application du masque ou
3958FD0C 97    STA  DA
3959FD0E 35    PULS PC,U/S,Y,DP,B,A,CC
3960// sortie de
3961
3962// attente de sync avec l'écran
3963FD10 86    LDA  #20
3964FD12 95    BITA E7
3965FD14 27    BEQ  FD12
3966FD16 95    BITA E7
3967FD18 26    BNE  FD16
3968FD1A 5A    DECB
3969FD1B 34    PSHS U/S,Y,X,DP,B,A,
3970FD1D 3D    MUL 
3971FD1E 3D    MUL 
3972FD1F 1A    ORCC #00
3973FD21 35    PULS U/S,Y,X,DP,B,A,
3974FD23 B5    BITA E7E7
3975FD26 27    BEQ  FD1A
3976FD28 39    RTS 
3977// RETOUR
3978
3979// fin de SETP$
3980
3981// pt d'entrée extramoniteur
3982FD29 34    PSHS A,
3983FD2B B6    LDA  E7E6
3984FD2E 34    PSHS A,
3985FD30 7F    CLR  E7E6
3986FD33 B6    LDA  E7C3
3987FD36 84    ANDA #04  // verifie si cartouche présente
3988FD38 26    BNE  FD41
3989FD3A BA    ORA  0020
3990FD3D 84    ANDA #03
3991FD3F 20    BRA  FD44
3992FD41 BA    ORA  0020
3993FD44 34    PSHS A,
3994FD46 B6    LDA  E7C3
3995FD49 8A    ORA  #04
3996FD4B B7    STA  E7C3
3997FD4E B7    STA  0001
3998FD51 A6    LDA  2,S
3999FD53 BD    JSR  0029 // passe par la ROM1
4000FD56 35    PULS A,
4001FD58 8D    BSR  FD61
4002FD5A 35    PULS A,
4003FD5C B7    STA  E7E6
4004FD5F 35    PULS PC,A,
4005
4006
4007FD61 34    PSHS B,A,
4008FD63 84    ANDA #04
4009FD65 F6    LDB  E7C3
4010FD68 C4    ANDB #FB
4011FD6A 34    PSHS B,
4012FD6C AA    ORA  ,S
4013FD6E B7    STA  E7C3
4014FD71 86    LDA  #00
4015FD73 A7    STA  ,S
4016FD75 A7    STA  [,S++]
4017FD77 35    PULS PC,B,
4018
4019
4020// IO K7
4021FD79 34    PSHS A,
4022FD7B B6    LDA  E7E6
4023FD7E 34    PSHS A,
4024FD80 7F    CLR  E7E6
4025FD83 B6    LDA  E7C3
4026FD86 84    ANDA #04
4027FD88 26    BNE  FD91
4028FD8A BA    ORA  0020
4029FD8D 84    ANDA #03
4030FD8F 20    BRA  FD94
4031FD91 BA    ORA  0020
4032FD94 34    PSHS A,
4033FD96 A6    LDA  2,S
4034FD98 84    ANDA #30
4035FD9A 81    CMPA #30
4036FD9C 26    BNE  FDA4
4037FD9E A6    LDA  2,S
4038FDA0 84    ANDA #CF
4039FDA2 20    BRA  FDAA
4040
4041FDA4 A6    LDA  2,S
4042FDA6 84    ANDA #CF
4043FDA8 8A    ORA  #04
4044FDAA 8D    BSR  FD61
4045FDAC 34    PSHS A,
4046FDAE B6    LDA  60CD
4047FDB1 84    ANDA #C0
4048FDB3 81    CMPA #40
4049FDB5 35    PULS A,
4050FDB7 26    BNE  FDC0
4051FDB9 FF    STU  6055
4052FDBC BD    JSR  FFA0
4053FDBF 7D    TST  ADC4
4054FDC2 20    BRA  FD56
4055FDC4 6E    JMP  [602F]
4056
4057
4058Pt d'entrée apres reset
4059FDC8 1A    ORCC #50
4060FDCA 7F    CLR  E7E6
4061FDCD C6    LDB  #60
4062FDCF 1F    TFR  B,DP
4063FDD1 10 CE LDS  #60CC
4064FDD5 86    LDA  #D4
4065FDD7 DE    LDU  FE
4066FDD9 11 83 CMPU #A55A
4067FDDD 27    BEQ  FDF5    // Hot reset
4068FDDF 11 83 CMPU #A559
4069FDE3 27    BEQ  FDF5
4070FDE5 B7    STA  A7E7    // Memo GE7E7
4071FDE8 CE    LDU  #6000
4072FDEB 6F    CLR  ,U+
4073FDED 11 83 CMPU #7000   // clean zero page
4074FDF1 26    BNE  FDEB
4075FDF3 03    COM  80
4076FDF5 B7    STA  E7E7    // 60Hz Commutation RAM Mode Gate ARRAY
4077FDF8 CE    LDU  #E000
4078FDFB E6    LDB  ,U+
4079FDFD EB    ADDB ,U+
4080FDFF EB    ADDB ,U+
4081FE01 CB    ADDB #55
4082FE03 E1    CMPB ,U      // calcul du cookie
4083FE05 26    BNE  FE1D    // ici le resultat est 55
4084FE07 E6    LDB  -3,U
4085FE09 C1    CMPB #52     // 4D
4086FE0B 26    BNE  FE15    // le saut est pris
4087FE0D D6    LDB  CD
4088FE0F CA    ORB  #20
4089FE11 C4    ANDB #3F
4090FE13 20    BRA  FE21
4091
4092
4093FE15 D6    LDB  CD
4094FE17 C4    ANDB #DF
4095FE19 CA    ORB  #C0
4096FE1B 20    BRA  FE21
4097
4098FE1D D6    LDB  CD
4099FE1F C4    ANDB #1F
4100
4101FE21 86    LDA  #54
4102FE23 B7    STA  E7E7    // 50 Hz mode PIA
4103FE26 86    LDA  #01
4104FE28 97    STA  48
4105FE2A 0F    CLR  49
4106FE2C BD    JSR  E004    // appel (verif Disk)
4107FE2F 96    LDA  4E
4108FE31 24    BCC  FE3B
4109FE33 C5    BITB #C0
4110FE35 26    BNE  FE4C
4111FE37 0F    CLR  80
4112FE39 20    BRA  FE49
4113
4114FE3B 81    CMPA #43
4115FE3D 26    BNE  FE45
4116FE3F C4    ANDB #3F
4117FE41 CA    ORB  #40
4118FE43 20    BRA  FE49
4119
4120FE45 C4    ANDB #3F
4121FE47 CA    ORB  #80
4122FE49 86    LDA  #54
4123FE4B 7D    TST  86D4
4124FE4E D7    STB  CD
4125FE50 97    STA  81
4126FE52 B7    STA  E7E7
4127FE55 8E    LDX  #607C
4128FE58 96    LDA  47
4129FE5A D6    LDB  5F
4130FE5C 1F    TFR  D,Y
4131FE5E DE    LDU  74
4132FE60 D6    LDB  2C
4133FE62 4F    CLRA
4134
4135FE63 A7    STA  ,-X
4136FE65 8C    CMPX #6019
4137FE68 2E    BGT  FE63
4138FE6A D7    STB  2C
4139FE6C DF    STU  74
4140FE6E 1F    TFR  Y,D
4141FE70 97    STA  47
4142FE72 D7    STB  5F
4143FE74 C6    LDB  #F0
4144FE76 D7    STB  1A
4145FE78 D7    STB  1C
4146FE7A D7    STB  1E
4147
4148FE7C 8E    LDX  #E844
4149FE7F 9F    STX  21
4150FE81 9F    STX  23
4151FE83 9F    STX  27
4152FE85 9F    STX  2F
4153FE87 8E    LDX  #E845
4154FE8A 9F    STX  CF
4155FE8C 8E    LDX  #6082   
4156FE8F 9F    STX  79      // mise en place du ptr sur le buf clav
4157FE91 86    LDA  #04
4158FE93 97    STA  7B
4159FE95 8E    LDX  #6000
4160FE98 10 8E LDY  #FF69
4161FE9C DE    LDU  FE
4162FE9E 11 83 CMPU #A55A     // Cold or Hot reset
4163FEA2 26    BNE  FEA8
4164FEA4 30    LEAX 4,X
4165FEA6 31    LEAY 4,Y
4166
4167FEA8 EC    LDD  ,Y++      // copie la zone FF69-FF7D dans 6000-6014
4168FEAA ED    STD  ,X++
4169FEAC 10 8C CMPY #FF7F
4170FEB0 2B    BMI  FEA8
4171FEB2 8E    LDX  #3C3C
4172FEB5 BF    STX  E7CA
4173FEB8 C6    LDB  #F6
4174FEBA F7    STB  E7C9        // PIA SYS
4175FEBD CE    LDU  #3838
4176FEC0 FF    STU  E7CA
4177FEC3 CC    LDD  #FEFF
4178FEC6 FD    STD  E7C8
4179FEC9 BF    STX  E7CA
4180FECC CC    LDD  #0000
4181FECF CE    LDU  #E7CC       // PIA JOY
4182FED2 ED    STD  2,U
4183FED4 8E    LDX  #0030
4184FED7 AF    STX  ,U
4185FED9 8A    ORA  #04
4186FEDB CA    ORB  #04
4187FEDD ED    STD  2,U
4188FEDF 8E    LDX  #393D
4189FEE2 BF    STX  E7C1        //  6846 Partie PIA
4190FEE5 96    LDA  CD
4191FEE7 84    ANDA #C0
4192FEE9 81    CMPA #40
4193FEEB 27    BEQ  FEF0  ??? code space
4194FEED 86    LDA  #2C
4195FEEF 7D    TST  863C   // FEF0 LDA #3C
4196FEF2 B7    STA  E7C3
4197FEF5 B7    STA  0003   // commute la ROM 3 (gestion de fichiers)
4198FEF8 7E    JMP  3FF6
4199
4200
4201FEFB F7    STB  E7C3
4202FEFE E7    STB  ,Y
4203FF00 6E    JMP  [,U]
4204
4205
4206FF02 D7    STB  35
4207FF04 34    PSHS B,A,
4208FF06 8D    BSR  FF37
4209FF08 E4    ANDB 1,S
4210FF0A F7    STB  E7C3
4211FF0D 9E    LDX  8C
4212FF0F E7    STB  ,X
4213FF11 86    LDA  #55
4214FF13 9E    LDX  76
4215FF15 E6    LDB  ,X+
4216FF17 E7    STB  FF9F,X
4217FF1B 8C    CMPX #001B
4218FF1E 24    BCC  FF22
4219FF20 AB    ADDA ff,X
4220FF22 8C    CMPX #0021
4221FF25 25    BCS  FF15
4222FF27 8D    BSR  FF37
4223FF29 F7    STB  E7C3
4224FF2C F7    STB  0003
4225FF2F 8E    LDX  #5FA0
4226FF32 A1    CMPA 1A,X
4227FF35 35    PULS PC,B,A,
4228FF37 F6    LDB  E7C3
4229FF3A CA    ORB  #04
4230FF3C 39    RTS
4231
4232
4233// Utilisation de la table de redirection
4234FF3D 6E    JMP  [6000]
4235
4236FF41 6E    JMP  [6002]
4237
4238FF45 6E    JMP  [6004]
4239
4240FF49 6E    JMP  [6006]
4241
4242FF4D 6E    JMP  [6008]
4243
4244FF51 6E    JMP  [600A]
4245
4246FF55 6E    JMP  [600C]
4247
4248FF59 6E    JMP  [600E]
4249
4250FF5D 6E    JMP  [6010]
4251
4252FF61 6E    JMP  [6012]
4253
4254FF65 6E    JMP  [6014]
4255
4256// Table Zero Page redir vectors At Bootup
4257FF69 FF7F
4258     FF82
4259     FF85 
4260     FF88 
4261     FF8B 
4262     FF8E 
4263     FF91   
4264     FF94   
4265     FF97
4266     FF9A
4267     FF9D   
4268
4269// vecteurs zéro Page par défaut
4270FF7F 7E    JMP  FA60
4271
4272FF82 7E    JMP  FB26
4273
4274FF85 7E    JMP  EC30 ??? … verifier
4275
4276FF88 7E    JMP  EC7A
4277
4278FF8B 7E    JMP  ECC8
4279
4280FF8E BD    JSR  ECB8
4281
4282FF91 7E    JMP  F8C6
4283
4284FF94 7E    JMP  F6DC
4285
4286FF97 7E    JMP  FB3B
4287
4288FF9A 7E    JMP  F724
4289
4290FF9D BD    JSR  ECB8
4291
4292// Switch & execute
4293FFA0 34    PSHS A,CC
4294FFA2 1A    ORCC #50
4295FFA4 B6    LDA  E7C3
4296FFA7 8A    ORA  #10
4297FFA9 B7    STA  E7C3   // passe à l'autre ROM Moniteur
4298
4299// execute (from other page)
4300FFAC 35    PULS A,CC
4301FFAE AD    JSR  [6055]
4302FFB2 34    PSHS A,CC
4303FFB4 1A    ORCC #50
4304FFB6 B6    LDA  E7C3
4305FFB9 8A    ORA  #10
4306FFBB B7    STA  E7C3    // repasse à la ROM mon 1
4307
4308FFBE 35    PULS PC,A,CC // FIN de switch & execute
4309
4310
4311FFC0 7E    JMP  EC3E
4312
4313FFC3 7E    JMP  EC7C
4314
4315FFC6 FF    STU  FFFF
4316FFC9 FF    STU  FFFF
4317FFCC FF    STU  FFFF
4318FFCF FF    STU  CCCC
4319FFD2 CC    LDD  #CCCC
4320FFD5 CC    LDD  #CCCC
4321FFD8 CC    LDD  #CCCC
4322FFDB CC    LDD  #CCCC
4323FFDE CC    LDD  #CCCC
4324FFE1 CC    LDD  #CCCC
4325FFE4 CC    LDD  #CCCC
4326FFE7 CC    LDD  #CCCC
4327FFEA CC    LDD  #CCCC
4328FFED CC    LDD  #CCCC
4329
4330FFF0 0300  RESERVED
4331FFF2 7000  SWI3
4332FFF4 6800  SWI2
4333FFF6 FA7C  FIRQ
4334FFF8 FA80  IRQ
4335FFFA FDC4  SWI
4336FFFC FDC8  NMI
4337FFFE FDC8  RESET
Note: See TracBrowser for help on using the repository browser.