Désassemblage (+commentaires) de la ROM du TO8
Moniteur Page 0 E000-FFFF


Sur les TO7-70 cette partie de ROM (+-2ko) est
contenue dans l'extension Ctrl Disk

E000 4D    TSTA     // Table Cookie 
E001 54    LSRB        
E002 44    LSRA 
E003 3A    ABX

// PT d'entrée DISK 
E004 16    LBRA E076

E007 16    LBRA E025

E00A 16    LBRA DFB3

E00D 17    LBSR DFB8
E010 17    LBSR DFB8
E013 17    LBSR DFB8
E016 17    LBSR DFB8
E019 17    LBSR DFB8
E01C 17    LBSR DFB8
E01F 17    LBSR DFB8
E022 17    LBSR DFB8
E025 8D    BSR  E09D
E027 0F    CLR  49
E029 8D    BSR  E0A7
E02B 17    LBSR DFFE
E02E 86    LDA  #02
E030 34    PSHS A,
E032 0F    CLR  58
E034 CC    LDD  #0001
E037 DD    STD  4B
E039 CE    LDU  #6200
E03C DF    STU  4F
E03E 17    LBSR E0A7
E041 8D    BSR  E0B9
E043 DE    LDU  4F
E045 24    BCC  E04F
E047 96    LDA  58
E049 26    BNE  E06B
E04B 03    COM  58
E04D 20    BRA  E034
E04F 10 8E LDY  #627F
E053 34    PSHS Y,
E055 86    LDA  #55
E057 6A    DEC  ,U
E059 63    COM  ,U
E05B AB    ADDA ,U+
E05D 11 A3 CMPU ,S
E060 26    BNE  E057
E062 35    PULS Y,
E064 A1    CMPA ,U
E066 26    BNE  E070
E068 7E    JMP  6200
E06B 35    PULS A,
E06D 4A    DECA 
E06E 26    BNE  E030
E070 0F    CLR  80
E072 6E    JMP  [001E]

// Pt d'entrée disk
E076 34    PSHS U/S,Y,X,DP,B,A,CC
E078 8D    BSR  E09D  --> init des registres
E07A 96    LDA  48
E07C 81    CMPA #01
E07E 27    BEQ  E086  --> init ctrl disk
E080 96    LDA  49
E082 81    CMPA #04   --> Detection RAMDISK
E084 27    BEQ  E093  
E086 8D    BSR  E0A7  --> selection unité
E088 8D    BSR  E0C2  --> traite la commande
E08A 8D    BSR  E0B9  --> termine les commandes
E08C 35    PULS A,
E08E 1E    EXG  A,CC
E090 44    LSRA 
E091 35    PULS PC,U/S,Y,X,DP,B,A,

// Gestion du RAMDISK
E093 CE    LDU  #E004
E096 DF    STU  55
E098 BD    JSR  FFA0
E09B 20    BRA  E08C

// init des routines disk 
// X pointe sur le debut des registres disk
E09D 86    LDA  #60
E09F 1F    TFR  A,DP
E0A1 8E    LDX  #E7D0
E0A4 0F    CLR  4E	-- raz de DSK.STA
E0A6 39    RTS  

// selection unité disk
E0A7 DC    LDD  48  --> B=DSK.DRV
E0A9 81    CMPA #01 --> si DSK.OP!=1 (init)
E0AB 26    BNE  E0AF
E0AD C6    LDB  #01 	alors B=1
E0AF CE    LDU  #E0BE
E0B2 A6    LDA  B,U --> A=DSKREG[B]
E0B4 A7    STA  2,X
E0B6 97    STA  57
E0B8 39    RTS  

// disk : fin des operations ...
E0B9 86    LDA  #40
E0BB A7    STA  2,X
E0BD 39    RTS  


// Table selection disk
// DSKREG[4]={0x41,0x01,0x42,0x02}
E0BE 41    ILL
E0BF 01    ILL  
E0C0 42    ILL  
E0C1 02    ILL

// disk : traitement de la commande
E0C2 86    LDA  #02
E0C4 34    PSHS A,
E0C6 4F    CLRA 			A=0
E0C7 D6    LDB  48		B=DSK.OP<<1 
E0C9 54    LSRB 		LA: 	B=B>>1
E0CA 4C    INCA         	A++
E0CB 24    BCC  E0C9		if (B&0x01==0) GOTO LA
E0CD 4A    DECA 			A--
E0CE 48    ASLA 			A*=2 
E0CF 10 8E LDY  #E0F0
E0D3 AD    JSR  [A,Y]		appel de la commande
E0D5 24    BCC  E0EE
E0D7 96    LDA  4E		gestion des codes de retour
E0D9 85    BITA #51
E0DB 26    BNE  E0EE
E0DD 6A    DEC  ,S
E0DF 27    BEQ  E0ED
E0E1 0F    CLR  4E
E0E3 81    CMPA #08
E0E5 27    BEQ  E0C6
E0E7 8D    BSR  E134
E0E9 25    BCS  E0DD
E0EB 20    BRA  E0C6
E0ED 53    COMB 
E0EE 35    PULS PC,A,

// Table d'adressage (JMP [A,Y]) des fonctions disk
E0F0 E0FE    0x01 initialisation du controleur
E0F2 E3A7    0x02 lecture d'un secteur
E0F4 E16E    0x04 rien
E0F6 E177    0x08 ecriture d'un secteur
E0F8 E174    0x10 rien
E0FA E134    0x20 positionne tete piste 0
E0FC E452    0x40 positionne tete piste n


// fonction disk 0x01 initialisation du controleur
E0FE 8D    BSR  E134	// posit tete piste 0
E100 25    BCS  E133	
E102 86    LDA  #01
E104 97    STA  4B
E106 17    LBSR E17A
E109 C6    LDB  #44
E10B A6    LDA  1,X
E10D 85    BITA #08
E10F 27    BEQ  E113
E111 C6    LDB  #43
E113 D7    STB  4E
E115 8D    BSR  E134	// posit tete piste 0
E117 0F    CLR  52
E119 0F    CLR  54
E11B 6F    CLR  ,X
E11D 0F    CLR  58
E11F DC    LDD  E9
E121 93    SUBD ED
E123 2C    BGE  E12A
E125 43    COMA 
E126 53    COMB 
E127 C3    ADDD #0001
E12A 4D    TSTA 
E12B 26    BNE  E132
E12D 5D    TSTB 
E12E 2A    BPL  E132
E130 03    COM  58
E132 4F    CLRA 
E133 39    RTS

// fonction disk 0x20 : positionne tete piste 0 
E134 C6    LDB  #64     
E136 A6    LDA  1,X
E138 85    BITA #08
E13A 26    BNE  E14F
E13C 96    LDA  57
E13E 8A    ORA  #10
E140 A7    STA  2,X
E142 84    ANDA #EF
E144 A7    STA  2,X
E146 8D    BSR  E165		Wait 6ms
E148 5A    DECB 
E149 10 27 LBEQ E174
E14D 20    BRA  E136
E14F 8D    BSR  E15F		Wait 15ms		
E151 17    LBSR E1A8	??? semble etre un bug	
E154 6F    CLR  ,Y
E156 6F    CLR  6,X
E158 39    RTS  

// bcle de tempo 864µs
E159 10 8E LDY  #006C
E15D 20    BRA  E169

// bcle de tempo 14976µs
E15F 10 8E LDY  #0750
E163 20    BRA  E169

// bcle de tempo 5984µs
E165 10 8E LDY  #02EC
E169 31    LEAY -1,Y
E16B 26    BNE  E169
E16D 39    RTS  


// fonction disk 0x04 : rien
E16E 86    LDA  #FF
E170 97    STA  58
E172 4F    CLRA 
E173 39    RTS


// fonction disk 4 :
E174 0F    CLR  58
E176 39    RTS  

// fonction disk 0x08 écriture d'un secteur 
E177 17    LBSR E152
E17A 25    BCS  E176
E17C A6    LDA  1,X
E17E 85    BITA #04
E180 27    BEQ  E187
E182 86    LDA  #01
E184 16    LBRA E176


E187 96    LDA  58
E189 10 26 LBNE E120
E18D 17    LBSR E141
E190 C6    LDB  #19
E192 34    PSHS CC
E194 17    LBSR E194
E197 10 8E LDY  #7500
E19B 31    LEAY ff,Y
E19D 10 27 LBEQ E140
E1A1 E6    LDB  ,X
E1A3 C5    BITB #02
E1A5 27    BEQ  E19B
E1A7 A7    STA  3,X	| E1A8 03    COM E6
E1A9 E6    LDB  ,X	| E1AA 84	 ANDA #2A
E1AB 2A    BPL  E1A9	| 
E1AD A7    STA  3,X
E1AF E6    LDB  ,X
E1B1 2A    BPL  E1AF
E1B3 C6    LDB  #FB
E1B5 E7    STB  3,X
E1B7 4F    CLRA 
E1B8 E6    LDB  ,X
E1BA 2A    BPL  E1B8
E1BC E6    LDB  ,U+
E1BE E7    STB  3,X
E1C0 4A    DECA 
E1C1 26    BNE  E1B8
E1C3 E6    LDB  ,X
E1C5 C5    BITB #08
E1C7 27    BEQ  E1C3
E1C9 8D    BSR  E159
E1CB 0D    TST  48
E1CD 2A    BPL  E217
E1CF 17    LBSR E15A
E1D2 C6    LDB  #1B
E1D4 17    LBSR E194
E1D7 86    LDA  #04
E1D9 10 8E LDY  #7500
E1DD 31    LEAY ff,Y
E1DF 10 27 LBEQ E1DC
E1E3 E6    LDB  ,X
E1E5 C5    BITB #02
E1E7 27    BEQ  E1DD
E1E9 E6    LDB  3,X
E1EB 4A    DECA 
E1EC 10 27 LBEQ E248
E1F0 E6    LDB  ,X
E1F2 2A    BPL  E1F0
E1F4 E6    LDB  3,X
E1F6 C1    CMPB #FB
E1F8 26    BNE  E1EB
E1FA 4F    CLRA 
E1FB E6    LDB  ,X
E1FD 2A    BPL  E1FB
E1FF E6    LDB  3,X
E201 E1    CMPB ,U+
E203 26    BNE  E208
E205 4A    DECA 
E206 26    BNE  E1FB
E208 E6    LDB  ,X
E20A C5    BITB #08
E20C 27    BEQ  E208
E20E 4D    TSTA 
E20F 26    BNE  E213
E211 C5    BITB #04
E213 10 26 LBNE E1DC
E217 35    PULS CC
E219 6F    CLR  ,X
E21B 39    RTS  
E21C 34    PSHS CC
E21E 20    BRA  E1CF
E220 17    LBSR E254
E223 17    LBSR E25B
E226 34    PSHS CC
E228 34    PSHS B,A,
E22A 17    LBSR E1EA
E22D 24    BCC  E234
E22F 35    PULS B,A,
E231 16    LBRA E240
E234 C6    LDB  #FF
E236 E7    STB  4,X
E238 CC    LDD  #0624
E23B E7    STB  ,X
E23D E6    LDB  ,X
E23F 2A    BPL  E23D
E241 6F    CLR  3,X
E243 4A    DECA 
E244 26    BNE  E23D
E246 E6    LDB  ,X
E248 2A    BPL  E246
E24A CC    LDD  #FBC7
E24D ED    STD  3,X
E24F C6    LDB  #FF
E251 A6    LDA  ,X
E253 2A    BPL  E251
E255 A6    LDA  ,U+
E257 ED    STD  3,X
E259 86    LDA  #7F
E25B E6    LDB  ,X
E25D 2A    BPL  E25B
E25F E6    LDB  ,U+
E261 E7    STB  3,X
E263 4A    DECA 
E264 26    BNE  E25B
E266 E6    LDB  ,X
E268 2A    BPL  E266
E26A 35    PULS B,
E26C E7    STB  3,X
E26E 43    COMA 
E26F 26    BNE  E266
E271 E6    LDB  ,X
E273 2A    BPL  E271
E275 6F    CLR  3,X
E277 E6    LDB  ,X
E279 2A    BPL  E277
E27B C6    LDB  #20
E27D E7    STB  ,X
E27F E6    LDB  ,X
E281 2A    BPL  E27F
E283 E6    LDB  3,X
E285 43    COMA 
E286 26    BNE  E27F
E288 32    LEAS fe,S
E28A 17    LBSR E259
E28D 0D    TST  48
E28F 2A    BPL  E2D3
E291 17    LBSR E25A
E294 8D    BSR  E2EA
E296 25    BCS  E2DA
E298 C6    LDB  #FB
E29A E7    STB  3,X
E29C CC    LDD  #8038
E29F E7    STB  ,X
E2A1 10 8E LDY  #0100
E2A5 31    LEAY ff,Y
E2A7 27    BEQ  E2DA
E2A9 E6    LDB  ,X
E2AB C5    BITB #01
E2AD 27    BEQ  E2A5
E2AF E6    LDB  3,X
E2B1 C6    LDB  #28
E2B3 E7    STB  ,X
E2B5 E6    LDB  ,X
E2B7 2A    BPL  E2B5
E2B9 E6    LDB  3,X
E2BB E1    CMPB ,U+
E2BD 26    BNE  E2DA
E2BF 4A    DECA 
E2C0 26    BNE  E2B5
E2C2 A6    LDA  ,X
E2C4 2A    BPL  E2C2
E2C6 A6    LDA  3,X
E2C8 E6    LDB  ,X
E2CA 2A    BPL  E2C8
E2CC E6    LDB  3,X
E2CE 10 A3 CMPD ,S
E2D1 26    BNE  E2DA
E2D3 35    PULS B,A,
E2D5 35    PULS CC
E2D7 6F    CLR  ,X
E2D9 39    RTS  
E2DA 35    PULS B,A,
E2DC 86    LDA  #20
E2DE 16    LBRA E34A
E2E1 34    PSHS CC
E2E3 CC    LDD  #5D30
E2E6 34    PSHS B,A,
E2E8 20    BRA  E291
E2EA 86    LDA  #C7
E2EC A7    STA  4,X
E2EE 86    LDA  #FE
E2F0 A7    STA  3,X
E2F2 86    LDA  #30
E2F4 DE    LDU  4F
E2F6 1A    ORCC #50
E2F8 C6    LDB  #38
E2FA E7    STB  ,X
E2FC 10 8E LDY  #1700
E300 31    LEAY ff,Y
E302 27    BEQ  E33E
E304 E6    LDB  ,X
E306 C5    BITB #01
E308 27    BEQ  E300
E30A E6    LDB  3,X
E30C C6    LDB  #28
E30E E7    STB  ,X
E310 E6    LDB  ,X
E312 2A    BPL  E310
E314 E6    LDB  3,X
E316 D1    CMPB 4B
E318 26    BNE  E33B
E31A E6    LDB  ,X
E31C 2A    BPL  E31A
E31E E6    LDB  3,X
E320 26    BNE  E33B
E322 E6    LDB  ,X
E324 2A    BPL  E322
E326 E6    LDB  3,X
E328 D1    CMPB 4C
E32A 26    BNE  E33B
E32C E6    LDB  ,X
E32E 2A    BPL  E32C
E330 E6    LDB  3,X
E332 26    BNE  E33B
E334 17    LBSR E359
E337 4F    CLRA 
E338 A6    LDA  ,X
E33A 39    RTS  
E33B 4A    DECA 
E33C 26    BNE  E2F8
E33E 53    COMB 
E33F 20    BRA  E338
E341 D6    LDB  4B
E343 C1    CMPB #39
E345 2A    BPL  E34C
E347 CC    LDD  #9F20
E34A 20    BRA  E34F
E34C CC    LDD  #1F22
E34F A7    STA  7,X
E351 E7    STB  1,X
E353 39    RTS  
E354 86    LDA  #BF
E356 A7    STA  7,X
E358 6F    CLR  1,X
E35A 39    RTS  
E35B DE    LDU  4F
E35D 10 8E LDY  #0080
E361 CC    LDD  #BF84
E364 34    PSHS B,A,
E366 A6    LDA  ,S
E368 A8    EORA ,U+
E36A 34    PSHS A,
E36C 44    LSRA 
E36D 44    LSRA 
E36E 44    LSRA 
E36F 44    LSRA 
E370 A8    EORA ,S
E372 A7    STA  ,S
E374 1F    TFR  A,B
E376 54    LSRB 
E377 54    LSRB 
E378 54    LSRB 
E379 48    ASLA 
E37A 48    ASLA 
E37B 48    ASLA 
E37C 48    ASLA 
E37D E8    EORB 2,S
E37F E7    STB  2,S
E381 1F    TFR  A,B
E383 A8    EORA 2,S
E385 A7    STA  1,S
E387 58    ASLB 
E388 E8    EORB ,S
E38A E7    STB  2,S
E38C 32    LEAS 1,S
E38E 31    LEAY ff,Y
E390 26    BNE  E366
E392 35    PULS PC,B,A,
E394 96    LDA  4C
E396 A7    STA  5,X
E398 86    LDA  #0A
E39A A7    STA  4,X
E39C 86    LDA  #A1
E39E A7    STA  3,X
E3A0 1A    ORCC #50
E3A2 DE    LDU  4F
E3A4 E7    STB  ,X
E3A6 39    RTS  


// fonction disk 0x02 : lecture d'un secteur
E3A7 17    LBSR E352
E3AA 10 25 LBCS E33F
E3AE 34    PSHS CC
E3B0 96    LDA  58
E3B2 26    BNE  E3F1
E3B4 8D    BSR  E341
E3B6 C6    LDB  #1B
E3B8 8D    BSR  E394
E3BA 86    LDA  #04
E3BC 10 8E LDY  #7500
E3C0 31    LEAY ff,Y
E3C2 27    BEQ  E440
E3C4 E6    LDB  ,X
E3C6 C5    BITB #02
E3C8 27    BEQ  E3C0
E3CA E6    LDB  3,X
E3CC 4A    DECA 
E3CD 27    BEQ  E448
E3CF E6    LDB  ,X
E3D1 2A    BPL  E3CF
E3D3 E6    LDB  3,X
E3D5 C1    CMPB #FB
E3D7 26    BNE  E3CC
E3D9 4F    CLRA 
E3DA E6    LDB  ,X
E3DC 2A    BPL  E3DA
E3DE E6    LDB  3,X
E3E0 E7    STB  ,U+
E3E2 4A    DECA 
E3E3 26    BNE  E3DA
E3E5 E6    LDB  ,X
E3E7 C5    BITB #08
E3E9 27    BEQ  E3E5
E3EB C5    BITB #04
E3ED 26    BNE  E444
E3EF 20    BRA  E43B
E3F1 17    LBSR E454
E3F4 17    LBSR E3EA
E3F7 25    BCS  E440
E3F9 31    LEAY 3,Y
E3FB 17    LBSR E469
E3FE C6    LDB  #FB
E400 E7    STB  3,X
E402 CC    LDD  #8038
E405 E7    STB  ,X
E407 10 8E LDY  #0100
E40B 31    LEAY ff,Y
E40D 27    BEQ  E448
E40F E6    LDB  ,X
E411 C5    BITB #01
E413 27    BEQ  E40B
E415 E6    LDB  3,X
E417 C6    LDB  #28
E419 E7    STB  ,X
E41B E6    LDB  ,X
E41D 2A    BPL  E41B
E41F E6    LDB  3,X
E421 E7    STB  ,U+
E423 4A    DECA 
E424 26    BNE  E41B
E426 E6    LDB  ,X
E428 2A    BPL  E426
E42A E6    LDB  3,X
E42C 34    PSHS B,
E42E 43    COMA 
E42F 26    BNE  E426
E431 17    LBSR E45B
E434 1E    EXG  A,B
E436 10 A3 CMPD ,S++
E439 26    BNE  E444
E43B 35    PULS CC
E43D 6F    CLR  ,X
E43F 39    RTS  
E440 86    LDA  #04
E442 20    BRA  E44A
E444 86    LDA  #08
E446 20    BRA  E44A
E448 86    LDA  #02
E44A 97    STA  4E
E44C 6F    CLR  ,X
E44E 35    PULS CC
E450 43    COMA 
E451 39    RTS  

// disk commande 0x80 : verif de la sauvegarde
E452 8D    BSR  E45A
E454 25    BCS  E459
E456 8D    BSR  E47A
E458 4F    CLRA 
E459 39    RTS  
E45A 10 8E LDY  #8000
E45E D6    LDB  57
E460 CA    ORB  #04
E462 E7    STB  2,X
E464 C4    ANDB #FB
E466 E7    STB  2,X
E468 31    LEAY ff,Y
E46A 27    BEQ  E474
E46C E6    LDB  1,X
E46E C4    ANDB #02
E470 27    BEQ  E45E
E472 4F    CLRA 
E473 39    RTS  
E474 86    LDA  #10
E476 34    PSHS CC
E478 20    BRA  E44A
E47A 17    LBSR E465
E47D 8D    BSR  E4A8
E47F E6    LDB  ,Y
E481 96    LDA  57
E483 D0    SUBB 4B
E485 27    BEQ  E49F
E487 2A    BPL  E48C
E489 8A    ORA  #20
E48B 50    NEGB 
E48C A7    STA  2,X
E48E 8A    ORA  #14
E490 A7    STA  2,X
E492 84    ANDA #EB
E494 A7    STA  2,X
E496 17    LBSR E465
E499 5A    DECB 
E49A 26    BNE  E48E
E49C 17    LBSR E45F
E49F 8D    BSR  E4A8
E4A1 D6    LDB  4B
E4A3 E7    STB  6,X
E4A5 E7    STB  ,Y
E4A7 39    RTS  
E4A8 10 8E LDY  #6052
E4AC 96    LDA  49
E4AE 84    ANDA #02
E4B0 31    LEAY A,Y
E4B2 39    RTS  
E4B3 34    PSHS U/S,Y,X,DP,B,A,CC
E4B5 17    LBSR E49D
E4B8 96    LDA  49
E4BA 81    CMPA #04
E4BC 26    BNE  E4C8
E4BE CE    LDU  #E00A
E4C1 DF    STU  55
E4C3 BD    JSR  FFA0
E4C6 20    BRA  E51E
E4C8 8D    BSR  E533
E4CA 96    LDA  48
E4CC 84    ANDA #80
E4CE 97    STA  48
E4D0 17    LBSR E4A7
E4D3 17    LBSR E45A
E4D6 25    BCS  E51E
E4D8 17    LBSR E534
E4DB 25    BCS  E51E
E4DD 0F    CLR  4B
E4DF 8D    BSR  E521
E4E1 25    BCS  E51E
E4E3 34    PSHS CC
E4E5 1A    ORCC #50
E4E7 17    LBSR E478
E4EA 86    LDA  #02
E4EC 34    PSHS A,
E4EE 17    LBSR E4A8
E4F1 8E    LDX  #E7D0
E4F4 17    LBSR E55A
E4F7 17    LBSR E4E5
E4FA 24    BCC  E507
E4FC 6A    DEC  ,S
E4FE 26    BNE  E4EE
E500 35    PULS A,
E502 35    PULS CC
E504 43    COMA 
E505 20    BRA  E51E
E507 35    PULS A,
E509 35    PULS CC
E50B 96    LDA  4B
E50D 81    CMPA #4F
E50F 27    BEQ  E515
E511 8D    BSR  E52E
E513 20    BRA  E4E3
E515 17    LBSR E590
E518 25    BCS  E51E
E51A 86    LDA  #50
E51C 97    STA  4B
E51E 16    LBRA E58A
E521 A6    LDA  1,X
E523 85    BITA #04
E525 26    BNE  E529
E527 4F    CLRA 
E528 39    RTS  
E529 86    LDA  #01
E52B 16    LBRA E576
E52E 0C    INC  4B
E530 16    LBRA E57A
E533 34    PSHS X,
E535 CE    LDU  #E55E
E538 8E    LDX  #0003
E53B C6    LDB  #04
E53D A6    LDA  ,X
E53F A1    CMPA ,U
E541 27    BEQ  E54C
E543 5C    INCB 
E544 33    LEAU B,U
E546 A6    LDA  ,U
E548 26    BNE  E538
E54A 20    BRA  E55C
E54C 30    LEAX ff,X
E54E 26    BNE  E553
E550 8E    LDX  #001A
E553 33    LEAU 1,U
E555 5A    DECB 
E556 26    BNE  E53D
E558 A6    LDA  ,U
E55A 97    STA  58
E55C 35    PULS PC,X,
E55E 52    ILL  
E55F 45    ILL  
E560 47    ASRA 
E561 6E    JMP  [4349]
E565 50    NEGB 
E566 4A    DECA 
E567 FF    STU  4C45
E56A 4D    TSTA 
E56B 74    LSR  FF4C
E56E 4F    CLRA 
E56F 50    NEGB 
E570 B5    BITA 0053
E573 45    ILL  
E574 47    ASRA 
E575 B6    LDA  0000
E578 8E    LDX  #60D3
E57B C6    LDB  #10
E57D 6F    CLR  B,X
E57F 5A    DECB 
E580 26    BNE  E57D
E582 30    LEAX 10,X
E585 34    PSHS X,
E587 8E    LDX  #60D3
E58A 86    LDA  #01
E58C D6    LDB  4D
E58E A7    STA  ,X
E590 30    LEAX B,X
E592 4C    INCA 
E593 81    CMPA #10
E595 22    BHI  E5A5
E597 AC    CMPX ,S
E599 25    BCS  E59D
E59B 30    LEAX f0,X
E59D 6D    TST  ,X
E59F 27    BEQ  E58E
E5A1 30    LEAX 1,X
E5A3 20    BRA  E597
E5A5 32    LEAS 2,S
E5A7 39    RTS  

E5A8 8E    LDX  #60D3
E5AB DE    LDU  4F
E5AD E6    LDB  ,X+
E5AF 27    BEQ  E5CE
E5B1 96    LDA  4B
E5B3 A7    STA  ,U
E5B5 6F    CLR  1,U
E5B7 E7    STB  2,U
E5B9 10 8E LDY  #0004
E5BD 96    LDA  58
E5BF 4C    INCA 
E5C0 A7    STA  3,U
E5C2 27    BEQ  E5CF
E5C4 CC    LDD  #B230
E5C7 17    LBSR E564
E5CA ED    STD  ,U++
E5CC 20    BRA  E5AD
E5CE 39    RTS  

E5CF CC    LDD  #EF21
E5D2 20    BRA  E5C7
E5D4 E6    LDB  1,X
E5D6 C5    BITB #40
E5D8 27    BEQ  E5D4
E5DA E6    LDB  3,X
E5DC E6    LDB  ,X
E5DE 2A    BPL  E5DA
E5E0 E6    LDB  ,X
E5E2 2A    BPL  E5E0
E5E4 39    RTS  
E5E5 86    LDA  #10
E5E7 34    PSHS A,
E5E9 DE    LDU  4F
E5EB 96    LDA  58
E5ED 10 26 LBNE E5AA
E5F1 17    LBSR E641
E5F4 8D    BSR  E5D4
E5F6 CC    LDD  #4EFF
E5F9 ED    STD  3,X
E5FB C6    LDB  #04
E5FD E7    STB  ,X
E5FF 86    LDA  #1E
E601 E6    LDB  ,X
E603 2A    BPL  E601
E605 C6    LDB  #4E
E607 E7    STB  3,X
E609 4A    DECA 
E60A 26    BNE  E601
E60C 86    LDA  #0C
E60E E6    LDB  ,X
E610 2A    BPL  E60E
E612 6F    CLR  3,X
E614 4A    DECA 
E615 26    BNE  E60E
E617 E6    LDB  ,X
E619 2A    BPL  E617
E61B CC    LDD  #A10A
E61E ED    STD  3,X
E620 E6    LDB  ,X
E622 2A    BPL  E620
E624 A7    STA  3,X
E626 E6    LDB  ,X
E628 2A    BPL  E626
E62A A7    STA  3,X
E62C E6    LDB  ,X
E62E 2A    BPL  E62C
E630 CC    LDD  #FEFF
E633 ED    STD  3,X
E635 86    LDA  #06
E637 E6    LDB  ,X
E639 2A    BPL  E637
E63B E6    LDB  ,U+
E63D E7    STB  3,X
E63F 4A    DECA 
E640 26    BNE  E637
E642 86    LDA  #16
E644 E6    LDB  ,X
E646 2A    BPL  E644
E648 C6    LDB  #4E
E64A E7    STB  3,X
E64C 4A    DECA 
E64D 26    BNE  E644
E64F 86    LDA  #0C
E651 E6    LDB  ,X
E653 2A    BPL  E651
E655 6F    CLR  3,X
E657 4A    DECA 
E658 26    BNE  E651
E65A E6    LDB  ,X
E65C 2A    BPL  E65A
E65E CC    LDD  #A10A
E661 ED    STD  3,X
E663 E6    LDB  ,X
E665 2A    BPL  E663
E667 A7    STA  3,X
E669 E6    LDB  ,X
E66B 2A    BPL  E669
E66D A7    STA  3,X
E66F E6    LDB  ,X
E671 2A    BPL  E66F
E673 CC    LDD  #FBFF
E676 ED    STD  3,X
E678 4F    CLRA 
E679 E6    LDB  ,X
E67B 2A    BPL  E679
E67D C6    LDB  #E5
E67F E7    STB  3,X
E681 4A    DECA 
E682 26    BNE  E679
E684 E6    LDB  ,X
E686 2A    BPL  E684
E688 C6    LDB  #78
E68A E7    STB  3,X
E68C E6    LDB  ,X
E68E 2A    BPL  E68C
E690 C6    LDB  #27
E692 E7    STB  3,X
E694 86    LDA  #2C
E696 E6    LDB  ,X
E698 2A    BPL  E696
E69A C6    LDB  #4E
E69C E7    STB  3,X
E69E 4A    DECA 
E69F 26    BNE  E696
E6A1 6A    DEC  ,S
E6A3 10 26 LBNE E70C
E6A7 16    LBRA E64B
E6AA 17    LBSR E654
E6AD 17    LBSR E6D4
E6B0 CC    LDD  #FFFF
E6B3 ED    STD  3,X
E6B5 C6    LDB  #24
E6B7 E7    STB  ,X
E6B9 86    LDA  #10
E6BB E6    LDB  ,X
E6BD 2A    BPL  E6BB
E6BF C6    LDB  #FF
E6C1 E7    STB  3,X
E6C3 4A    DECA 
E6C4 26    BNE  E6BB
E6C6 86    LDA  #06
E6C8 E6    LDB  ,X
E6CA 2A    BPL  E6C8
E6CC 6F    CLR  3,X
E6CE 4A    DECA 
E6CF 26    BNE  E6C8
E6D1 E6    LDB  ,X
E6D3 2A    BPL  E6D1
E6D5 CC    LDD  #FEC7
E6D8 ED    STD  3,X
E6DA E6    LDB  ,X
E6DC 2A    BPL  E6DA
E6DE C6    LDB  #FF
E6E0 A6    LDA  ,U+
E6E2 ED    STD  3,X
E6E4 86    LDA  #05
E6E6 E6    LDB  ,X
E6E8 2A    BPL  E6E6
E6EA E6    LDB  ,U+
E6EC E7    STB  3,X
E6EE 4A    DECA 
E6EF 26    BNE  E6E6
E6F1 86    LDA  #0C
E6F3 E6    LDB  ,X
E6F5 2A    BPL  E6F3
E6F7 C6    LDB  #FF
E6F9 E7    STB  3,X
E6FB 4A    DECA 
E6FC 26    BNE  E6F3
E6FE 86    LDA  #06
E700 E6    LDB  ,X
E702 2A    BPL  E700
E704 6F    CLR  3,X
E706 4A    DECA 
E707 26    BNE  E700
E709 E6    LDB  ,X
E70B 2A    BPL  E709
E70D CC    LDD  #FBC7
E710 ED    STD  3,X
E712 E6    LDB  ,X
E714 2A    BPL  E712
E716 CC    LDD  #E5FF
E719 ED    STD  3,X
E71B 86    LDA  #7F
E71D E6    LDB  ,X
E71F 2A    BPL  E71D
E721 C6    LDB  #E5
E723 E7    STB  3,X
E725 4A    DECA 
E726 26    BNE  E71D
E728 E6    LDB  ,X
E72A 2A    BPL  E728
E72C C6    LDB  #5D
E72E E7    STB  3,X
E730 E6    LDB  ,X
E732 2A    BPL  E730
E734 C6    LDB  #30
E736 E7    STB  3,X
E738 86    LDA  #16
E73A E6    LDB  ,X
E73C 2A    BPL  E73A
E73E C6    LDB  #FF
E740 E7    STB  3,X
E742 4A    DECA 
E743 26    BNE  E73A
E745 6A    DEC  ,S
E747 10 26 LBNE E7C6
E74B A6    LDA  1,X
E74D 85    BITA #40
E74F 26    BNE  E759
E751 A6    LDA  ,X
E753 2A    BPL  E751
E755 E7    STB  3,X
E757 20    BRA  E74B


E759 35    PULS A,
E75B 6F    CLR  ,X
E75D 0D    TST  48
E75F 2A    BPL  E783
E761 86    LDA  #E5
E763 8D    BSR  E784
E765 CE    LDU  #60D3
E768 17    LBSR E75A
E76B A6    LDA  ,U+
E76D 27    BEQ  E783
E76F 97    STA  4C
E771 34    PSHS U/S,
E773 96    LDA  58
E775 27    BEQ  E77C
E777 17    LBSR E7E1
E77A 20    BRA  E77F
E77C 17    LBSR E71C
E77F 35    PULS U/S,
E781 24    BCC  E76B
E783 39    RTS  

E784 DE    LDU  4F
E786 D6    LDB  58
E788 C4    ANDB #80
E78A A7    STA  ,U+
E78C 5A    DECB 
E78D 26    BNE  E78A
E78F 39    RTS  

E790 86    LDA  #14
E792 97    STA  4B
E794 17    LBSR E77A
E797 86    LDA  #FF
E799 8D    BSR  E784
E79B 86    LDA  #10
E79D 97    STA  4C
E79F 17    LBSR E75A
E7A2 17    LBSR E787
E7A5 25    BCS  E7BF
E7A7 0A    DEC  4C
E7A9 26    BNE  E79F
E7AB DE    LDU  4F
E7AD 6F    CLR  ,U
E7AF CC    LDD  #FEFE
E7B2 ED    STD  29,U
E7B5 86    LDA  #02
E7B7 97    STA  4C
E7B9 17    LBSR E787
E7BC 25    BCS  E7BF
E7BE 4F    CLRA 
E7BF 39    RTS

// Périph‚riques

// 6846
E7C0  ???
E7C1  CRC
E7C2
E7C3

E7C4 00    NEG  46
E7C6 21    BRN  E7E5

// PIA système
E7C8 PORTA / DDRA
E7C9 PORTB / DDRB
E7CA CRA
E7CB CRB  

// PIA ctrl de manettes
E7CC PORTA / DDRA
E7CD PORTB / DDRB
E7CE CRA
E7CF CRB  

// 
E7D0 
E7D1 30    LEAX 0,X
E7D3 00    NEG  00
E7D5 00    NEG  00
E7D7 00    NEG  84
E7D9 30    LEAX 0,X

// Gate Array Video
E7DA	Registre de palette
E7DB  Registre d'index de palette
E7DC  Registre mode graphique
E7DD  Registre couleur contour

// libre
E7DE CC    LDD  #CCCC
E7E1 CC    LDD  #CCCC

// Gate array ancienne génération (compteurs trame+ sync)
E7E4 00     
E7E5 0F
E7E6 00    
E7E7 02

// Libre
E7E8 CC    LDD  #CCCC
E7EB CC    LDD  #CCCC
E7EE CC    LDD  #CCCC
E7F1 CC    LDD  #CCCC
E7F4 CC    LDD  #CCCC
E7F7 CC    LDD  #CCCC
E7FA CC    LDD  #CCCC
E7FD CC    LDD  #CCCC


// pt d'entr‚e Moniteur
// repositionnement de fenetre plein ecran
E800 7E    JMP  F66B

// pt d'entrée PUTCH$
E803 7E    JMP  FF4D

// pt d'entrée GETCH$
E806 7E    JMP  FF51

// pt d'entrée KTSTH$
E809 7E    JMP  EC12

// pt d'entrée DRAW$
E80C 7E    JMP  FF55

// pt d'entrée PLOT$
E80F 7E    JMP  FF59

// pt d'entrée RSCOH$
E812 7E    JMP  FF5D

// pt d'entrée IO K7
E815 7E    JMP  FA59

// coordonn‚es light pen
E818 7E    JMP  FF3D

// teste contact lightpen
E81B 7E    JMP  FF41

// pt d'entree NOTE$
E81E BD    JSR  ECB8

// GETP$ lecture d'un point
E821 7E    JMP  FF61

// GETS$ lecture de l'ecran (char)
E824 7E    JMP  FF65

// pt d'entrée JOYS$
E827 BD    JSR  ECB8

// pt d'entrée disk
E82A 7E    JMP  E004

// MENU$
E82D 7E    JMP  FDC8

// KBIN$
E830 7E    JMP  FAF7

// CHPL$
E833 7E    JMP  F6FA

E836 04    LSR  6A
E838 01    ILL  
E839 9B    ADDA 00
E83B CA    ORB  #00
E83D 62    ILL  
E83E 00    NEG  2E
E840 00    NEG  15
E842 00    NEG  07

// vecteur VIRQ par defaut (MENU)
E844 3B    RTI 

 
E845 00    NEG  00
E847 00    NEG  00
E849 00    NEG  00
E84B 00    NEG  00
E84D 00    NEG  10
E84F 00    NEG  10
E851 10 10 ILL  
E853 10 00 ILL  
E855 00    NEG  00
E857 00    NEG  00
E859 50    NEGB 
E85A 28    BVC  E870
E85C 00    NEG  28
E85E 28    BVC  E85E
E860 28    BVC  E860
E862 28    BVC  E88C
E864 00    NEG  10
E866 FC    LDD  127C
E869 90    SUBA 7C
E86B 10 00 ILL  
E86D 00    NEG  46
E86F 26    BNE  E881
E871 08    ASL  64
E873 62    ILL  
E874 00    NEG  00
E876 3A    ABX  
E877 4C    INCA 
E878 4A    DECA 
E879 30    LEAX 8,U
E87B 30    LEAX 0,X
E87D 00    NEG  00
E87F 00    NEG  00
E881 18    ILL  
E882 0C    INC  0C
E884 00    NEG  00
E886 08    ASL  10
E888 10 10 ILL  
E88A 10 08 ILL  
E88C 00    NEG  00
E88E 10 08 ILL  
E890 08    ASL  08
E892 08    ASL  10
E894 00    NEG  00
E896 54    LSRB 
E897 38    ILL  
E898 6C    INC  f8,Y
E89A 54    LSRB 
E89B 00    NEG  00
E89D 00    NEG  10
E89F 10 7C ILL  
E8A1 10 10 ILL  
E8A3 00    NEG  00
E8A5 00    NEG  10
E8A7 0C    INC  0C
E8A9 00    NEG  00
E8AB 00    NEG  00
E8AD 00    NEG  00
E8AF 00    NEG  7C
E8B1 00    NEG  00
E8B3 00    NEG  00
E8B5 00    NEG  18
E8B7 18    ILL  
E8B8 00    NEG  00
E8BA 00    NEG  00
E8BC 00    NEG  80
E8BE 40    NEGA 
E8BF 20    BRA  E8D1
E8C1 08    ASL  04
E8C3 02    ILL  
E8C4 01    ILL  
E8C5 00    NEG  3C
E8C7 62    ILL  
E8C8 52    ILL  
E8C9 4A    DECA 
E8CA 46    RORA 
E8CB 3C    ILL  
E8CC 00    NEG  00
E8CE 3C    ILL  
E8CF 08    ASL  08
E8D1 28    BVC  E8EB
E8D3 08    ASL  00
E8D5 00    NEG  7E
E8D7 40    NEGA 
E8D8 3C    ILL  
E8D9 02    ILL  
E8DA 42    ILL  
E8DB 3C    ILL  
E8DC 00    NEG  00
E8DE 3C    ILL  
E8DF 42    ILL  
E8E0 02    ILL  
E8E1 1C    & CC #42
E8E3 3C    ILL  
E8E4 00    NEG  00
E8E6 04    LSR  7E
E8E8 24    BCC  E8FE
E8EA 0C    INC  04
E8EC 00    NEG  00
E8EE 3C    ILL  
E8EF 42    ILL  
E8F0 02    ILL  
E8F1 7C    INC  407E
E8F4 00    NEG  00
E8F6 3C    ILL  
E8F7 42    ILL  
E8F8 42    ILL  
E8F9 7C    INC  201C
E8FC 00    NEG  00
E8FE 40    NEGA 
E8FF 20    BRA  E911
E901 08    ASL  04
E903 7E    JMP  0000
E906 3C    ILL  
E907 42    ILL  
E908 42    ILL  
E909 3C    ILL  
E90A 42    ILL  
E90B 3C    ILL  
E90C 00    NEG  00
E90E 38    ILL  
E90F 04    LSR  3E
E911 42    ILL  
E912 42    ILL  
E913 3C    ILL  
E914 00    NEG  00
E916 18    ILL  
E917 18    ILL  
E918 00    NEG  18
E91A 18    ILL  
E91B 00    NEG  00
E91D 10 0C ILL  
E91F 00    NEG  0C
E921 0C    INC  00
E923 00    NEG  00
E925 00    NEG  08
E927 10 20 ILL  
E929 20    BRA  E93B
E92B 08    ASL  00
E92D 00    NEG  00
E92F 7E    JMP  007E
E932 00    NEG  00
E934 00    NEG  00
E936 10 08 ILL  
E938 04    LSR  04
E93A 08    ASL  10
E93C 00    NEG  00
E93E 08    ASL  00
E940 08    ASL  04
E942 22    BHI  E960
E944 00    NEG  00
E946 3E    ILL  
E947 5C    INCB 
E948 52    ILL  
E949 5E    ILL  
E94A 42    ILL  
E94B 3C    ILL  
E94C 00    NEG  00
E94E 42    ILL  
E94F 42    ILL  
E950 7E    JMP  4224
E953 18    ILL  
E954 00    NEG  00
E956 7E    JMP  2222
E959 3C    ILL  
E95A 22    BHI  E9D8
E95C 00    NEG  00
E95E 3C    ILL  
E95F 42    ILL  
E960 40    NEGA 
E961 40    NEGA 
E962 42    ILL  
E963 3C    ILL  
E964 00    NEG  00
E966 7C    INC  2222
E969 22    BHI  E98D
E96B 7C    INC  0000
E96E 7E    JMP  4040
E971 78    ASL  407E
E974 00    NEG  00
E976 40    NEGA 
E977 40    NEGA 
E978 40    NEGA 
E979 78    ASL  407E
E97C 00    NEG  00
E97E 3C    ILL  
E97F 42    ILL  
E980 4E    ILL  
E981 40    NEGA 
E982 42    ILL  
E983 3C    ILL  
E984 00    NEG  00
E986 42    ILL  
E987 42    ILL  
E988 42    ILL  
E989 7E    JMP  4242
E98C 00    NEG  00
E98E 38    ILL  
E98F 10 10 ILL  
E991 10 10 ILL  
E993 38    ILL  
E994 00    NEG  00
E996 3C    ILL  
E997 42    ILL  
E998 02    ILL  
E999 02    ILL  
E99A 02    ILL  
E99B 02    ILL  
E99C 00    NEG  00
E99E 44    LSRA 
E99F 48    ASLA 
E9A0 50    NEGB 
E9A1 70    NEG  4844
E9A4 00    NEG  00
E9A6 7E    JMP  4040
E9A9 40    NEGA 
E9AA 40    NEGA 
E9AB 40    NEGA 
E9AC 00    NEG  00
E9AE 42    ILL  
E9AF 42    ILL  
E9B0 42    ILL  
E9B1 5A    DECB 
E9B2 66    ROR  2,U
E9B4 00    NEG  00
E9B6 42    ILL  
E9B7 46    RORA 
E9B8 4A    DECA 
E9B9 52    ILL  
E9BA 62    ILL  
E9BB 42    ILL  
E9BC 00    NEG  00
E9BE 3C    ILL  
E9BF 42    ILL  
E9C0 42    ILL  
E9C1 42    ILL  
E9C2 42    ILL  
E9C3 3C    ILL  
E9C4 00    NEG  00
E9C6 40    NEGA 
E9C7 40    NEGA 
E9C8 7C    INC  4242
E9CB 7C    INC  0000
E9CE 3A    ABX  
E9CF 44    LSRA 
E9D0 4A    DECA 
E9D1 42    ILL  
E9D2 42    ILL  
E9D3 3C    ILL  
E9D4 00    NEG  00
E9D6 42    ILL  
E9D7 44    LSRA 
E9D8 7C    INC  4242
E9DB 7C    INC  0000
E9DE 3C    ILL  
E9DF 42    ILL  
E9E0 02    ILL  
E9E1 3C    ILL  
E9E2 40    NEGA 
E9E3 3C    ILL  
E9E4 00    NEG  00
E9E6 10 10 ILL  
E9E8 10 10 ILL  
E9EA 10 7C ILL  
E9EC 00    NEG  00
E9EE 3C    ILL  
E9EF 42    ILL  
E9F0 42    ILL  
E9F1 42    ILL  
E9F2 42    ILL  
E9F3 42    ILL  
E9F4 00    NEG  00
E9F6 18    ILL  
E9F7 24    BCC  EA1D
E9F9 42    ILL  
E9FA 42    ILL  
E9FB 42    ILL  
E9FC 00    NEG  00
E9FE 42    ILL  
E9FF 66    ROR  fa,U
EA01 42    ILL  
EA02 42    ILL  
EA03 42    ILL  
EA04 00    NEG  00
EA06 42    ILL  
EA07 24    BCC  EA21
EA09 18    ILL  
EA0A 24    BCC  EA4E
EA0C 00    NEG  00
EA0E 10 10 ILL  
EA10 10 10 ILL  
EA12 28    BVC  EA58
EA14 00    NEG  00
EA16 7E    JMP  2010
EA19 08    ASL  04
EA1B 7E    JMP  0000
EA1E 38    ILL  
EA1F 20    BRA  EA41
EA21 20    BRA  EA43
EA23 38    ILL  
EA24 00    NEG  01
EA26 02    ILL  
EA27 04    LSR  08
EA29 10 20 ILL  
EA2B 40    NEGA 
EA2C 80    SUBA #00
EA2E 1C    & CC #04
EA30 04    LSR  04
EA32 04    LSR  1C
EA34 00    NEG  00
EA36 10 10 ILL  
EA38 10 7C ILL  
EA3A 38    ILL  
EA3B 10 00 ILL  
EA3D FF    STU  0000
EA40 00    NEG  00
EA42 00    NEG  00
EA44 00    NEG  00
EA46 00    NEG  00
EA48 00    NEG  FF
EA4A 00    NEG  00
EA4C 00    NEG  00
EA4E 3A    ABX  
EA4F 44    LSRA 
EA50 38    ILL  
EA51 04    LSR  38
EA53 00    NEG  00
EA55 00    NEG  5C
EA57 62    ILL  
EA58 42    ILL  
EA59 62    ILL  
EA5A 5C    INCB 
EA5B 40    NEGA 
EA5C 00    NEG  00
EA5E 3C    ILL  
EA5F 42    ILL  
EA60 40    NEGA 
EA61 42    ILL  
EA62 3C    ILL  
EA63 00    NEG  00
EA65 00    NEG  3A
EA67 46    RORA 
EA68 42    ILL  
EA69 46    RORA 
EA6A 3A    ABX  
EA6B 02    ILL  
EA6C 00    NEG  00
EA6E 3C    ILL  
EA6F 40    NEGA 
EA70 7E    JMP  423C
EA73 00    NEG  00
EA75 00    NEG  10
EA77 10 7C ILL  
EA79 10 12 ILL  
EA7B 0C    INC  00
EA7D 3C    ILL  
EA7E 02    ILL  
EA7F 3A    ABX  
EA80 46    RORA 
EA81 46    RORA 
EA82 3C    ILL  
EA83 00    NEG  00
EA85 00    NEG  42
EA87 42    ILL  
EA88 42    ILL  
EA89 62    ILL  
EA8A 5C    INCB 
EA8B 40    NEGA 
EA8C 00    NEG  00
EA8E 1C    & CC #08
EA90 08    ASL  08
EA92 18    ILL  
EA93 00    NEG  08
EA95 38    ILL  
EA96 44    LSRA 
EA97 04    LSR  04
EA99 04    LSR  04
EA9B 00    NEG  04
EA9D 00    NEG  22
EA9F 34    PSHS Y,DP,
EAA1 24    BCC  EAC5
EAA3 20    BRA  EAA5
EAA5 00    NEG  1C
EAA7 08    ASL  08
EAA9 08    ASL  08
EAAB 18    ILL  
EAAC 00    NEG  00
EAAE 92    SBCA 92
EAB0 92    SBCA DA
EAB2 A4    ANDA 0,X
EAB4 00    NEG  00
EAB6 22    BHI  EADA
EAB8 22    BHI  EAEC
EABA 4C    INCA 
EABB 00    NEG  00
EABD 00    NEG  3C
EABF 42    ILL  
EAC0 42    ILL  
EAC1 42    ILL  
EAC2 3C    ILL  
EAC3 00    NEG  00
EAC5 40    NEGA 
EAC6 5C    INCB 
EAC7 62    ILL  
EAC8 42    ILL  
EAC9 62    ILL  
EACA 5C    INCB 
EACB 00    NEG  00
EACD 02    ILL  
EACE 3A    ABX  
EACF 46    RORA 
EAD0 46    RORA 
EAD1 46    RORA 
EAD2 3A    ABX  
EAD3 00    NEG  00
EAD5 00    NEG  40
EAD7 40    NEGA 
EAD8 40    NEGA 
EAD9 62    ILL  
EADA 5C    INCB 
EADB 00    NEG  00
EADD 00    NEG  7C
EADF 02    ILL  
EAE0 3C    ILL  
EAE1 40    NEGA 
EAE2 3C    ILL  
EAE3 00    NEG  00
EAE5 00    NEG  0C
EAE7 12    NOP  
EAE8 10 10 ILL  
EAEA 38    ILL  
EAEB 10 00 ILL  
EAED 00    NEG  3A
EAEF 46    RORA 
EAF0 42    ILL  
EAF1 42    ILL  
EAF2 42    ILL  
EAF3 00    NEG  00
EAF5 00    NEG  18
EAF7 24    BCC  EB3B
EAF9 42    ILL  
EAFA 42    ILL  
EAFB 00    NEG  00
EAFD 00    NEG  24
EAFF 5A    DECB 
EB00 42    ILL  
EB01 42    ILL  
EB02 42    ILL  
EB03 00    NEG  00
EB05 00    NEG  42
EB07 24    BCC  EB21
EB09 24    BCC  EB4D
EB0B 00    NEG  00
EB0D 3C    ILL  
EB0E 42    ILL  
EB0F 1A    ORCC #66
EB11 42    ILL  
EB12 42    ILL  
EB13 00    NEG  00
EB15 00    NEG  7E
EB17 20    BRA  EB31
EB19 04    LSR  7E
EB1B 00    NEG  00
EB1D 0C    INC  08
EB1F 08    ASL  10
EB21 08    ASL  08
EB23 0C    INC  00
EB25 10 10 ILL  
EB27 10 10 ILL  
EB29 10 10 ILL  
EB2B 10 10 ILL  
EB2D 30    LEAX f0,X
EB2F 10 08 ILL  
EB31 10 10 ILL  
EB33 30    LEAX 0,X
EB35 00    NEG  00
EB37 00    NEG  00
EB39 00    NEG  00
EB3B 00    NEG  FF
EB3D FF    STU  FFFF
EB40 FF    STU  FFFF
EB43 FF    STU  FF18
EB46 3C    ILL  
EB47 42    ILL  
EB48 40    NEGA 
EB49 42    ILL  
EB4A 3C    ILL  
EB4B 00    NEG  00
EB4D 00    NEG  7E
EB4F 21    BRN  EB61
EB51 7C    INC  1012
EB54 0C    INC  10
EB56 FC    LDD  127C
EB59 90    SUBA 7C
EB5B 10 00 ILL  
EB5D 28    BVC  EB87
EB5F FE    LDU  28FE
EB62 28    BVC  EB8C
EB64 00    NEG  00
EB66 00    NEG  10
EB68 20    BRA  EBE9
EB6A 20    BRA  EB7C
EB6C 00    NEG  10
EB6E 10 10 ILL  
EB70 10 54 ILL  
EB72 38    ILL  
EB73 10 00 ILL  
EB75 00    NEG  00
EB77 08    ASL  04
EB79 FE    LDU  0408
EB7C 00    NEG  00
EB7E 10 38 ILL  
EB80 54    LSRB 
EB81 10 10 ILL  
EB83 10 10 ILL  
EB85 00    NEG  00
EB87 00    NEG  00
EB89 20    BRA  EBDB
EB8B 20    BRA  EB8D
EB8D 00    NEG  7C
EB8F 10 10 ILL  
EB91 7C    INC  1010
EB94 00    NEG  00
EB96 00    NEG  10
EB98 00    NEG  7C
EB9A 00    NEG  10
EB9C 00    NEG  04
EB9E BE    LDX  54EC
EBA1 54    LSRB 
EBA2 48    ASLA 
EBA3 C4    ANDB #42
EBA5 1E    EXG  A,A
EBA7 44    LSRA 
EBA8 E2    SBCB fc,U
EBAA 48    ASLA 
EBAB C4    ANDB #42
EBAD 04    LSR  BE
EBAF 54    LSRB 
EBB0 EC    LDD  f4,Y
EBB2 68    ASL  4,Y
EBB4 E2    SBCB 0,X
EBB6 00    NEG  00
EBB8 00    NEG  00
EBBA 00    NEG  18
EBBC 30    LEAX 0,X
EBBE 00    NEG  00
EBC0 00    NEG  00
EBC2 00    NEG  18
EBC4 0C    INC  00
EBC6 00    NEG  00
EBC8 00    NEG  00
EBCA 00    NEG  24
EBCC 18    ILL  
EBCD 00    NEG  00
EBCF 00    NEG  00
EBD1 00    NEG  00
EBD3 00    NEG  66
EBD5 00    NEG  7F
EBD7 90    SUBA 90
EBD9 9C    CMPX 90
EBDB 7E    JMP  0000
EBDE 6C    INC  Illegal !
EBE0 9E    LDX  92
EBE2 6C    INC  0,X
EBE4 00    NEG  00
EBE6 2C    BGE  EC0A
EBE8 22    BHI  EC16
EBEA 24    BCC  EC04
EBEC 00    NEG  3C
EBEE 02    ILL  
EBEF 1C    & CC #22
EBF1 1C    & CC #20
EBF3 1E    EXG  D,D
EBF5 00    NEG  42
EBF7 42    ILL  
EBF8 7E    JMP  2418
EBFB 00    DCB  00,00,00,00,00

// SETP$ - Set palette
EC00 7E    JMP  FCB1
// IO K7
EC03 7E    JMP  FD79
EC06 7E    JMP  FF45
EC09 7E    JMP  FF49 
EC0C 7E    JMP  FD29 
EC0F 7E    JMP  FF02


// KTSTH$ teste l'appui sur une touche
EC12 34    PSHS A,
EC14 B6    LDA  E7C8  // bit0 de E7C8 Keytest
EC17 44    LSRA 
EC18 25    BCS  EC2E  // retour touche pressée
EC1A B6    LDA  605E  // READCL
EC1D B1    CMPA 6067  
EC20 27    BEQ  EC2E  // les 2 index sont égaux, pas de touche
EC22 B6    LDA  608B	// si le buffer est plein	
EC25 88    EORA #10	// une fois sur deux repondre OK
EC27 B7    STA  608B
EC2A 48    ASLA 
EC2B 48    ASLA 
EC2C 48    ASLA 
EC2D 48    ASLA 		
EC2E 35    PULS PC,A,


EC30 34    PSHS U/S,DP,B,A,
EC32 B6    LDA  6074
EC35 48    ASLA 
EC36 2A    BPL  EC40
EC38 86    LDA  #1F
EC3A B7    STA  E7CE
EC3D 7D    TST  344E
EC40 86    LDA  #60
EC42 1F    TFR  A,DP
EC44 CE    LDU  #027F
EC47 96    LDA  5F
EC49 2B    BMI  EC55
EC4B CE    LDU  #013F
EC4E 85    BITA #60
EC50 27    BEQ  EC55
EC52 CE    LDU  #009F
EC55 9E    LDX  D8
EC57 2A    BPL  EC5B
EC59 9E    LDX  76
EC5B 11 93 CMPU D8
EC5E 2A    BPL  EC62
EC60 1F    TFR  U,X
EC62 9F    STX  D8
EC64 DC    LDD  D6
EC66 2A    BPL  EC6A
EC68 5F    CLRB 
EC69 4F    CLRA 
EC6A 10 83 CMPD #00C7
EC6E 23    BLS  EC73
EC70 4F    CLRA 
EC71 C6    LDB  #C7
EC73 DD    STD  D6
EC75 1F    TFR  D,Y
EC77 4F    CLRA 
EC78 35    PULS PC,U/S,DP,B,A,
EC7A 34    PSHS B,A,
EC7C 1C    & CC #FA
EC7E 34    PSHS CC
EC80 B6    LDA  6074
EC83 48    ASLA 
EC84 2A    BPL  EC9F
EC86 B6    LDA  E7CC
EC89 C6    LDB  #C8
EC8B 5A    DECB 
EC8C 26    BNE  EC8B
EC8E B4    ANDA E7CC
EC91 43    COMA 
EC92 84    ANDA #03
EC94 8B    ADDA #02
EC96 84    ANDA #05
EC98 B7    STA  60D3
EC9B AA    ORA  ,S
EC9D A7    STA  ,S
EC9F 35    PULS PC,B,A,CC
ECA1 00    NEG  01
ECA3 05    ILL  
ECA4 00    NEG  07
ECA6 08    ASL  06
ECA8 00    NEG  03
ECAA 02    ILL  
ECAB 04    LSR  86
ECAD 08    ASL  95
ECAF E9    ADCB 7,Y
ECB1 05    ILL  
ECB2 43    COMA 
ECB3 94    ANDA EA
ECB5 97    STA  EA
ECB7 3B    RTI  


ECB8 34    PSHS U/S,
ECBA EE    LDU  2,S	// U=adr de retour
ECBC 33    LEAU -3,U
ECBE FF    STU  6055
ECC1 35    PULS U/S,
ECC3 32    LEAS 2,S
ECC5 7E    JMP  FFA0	// swap la rom1 et retourne avant le JSR

// vecteur VPUTCH par défaut
ECC8 34    PSHS U/S,Y,X,DP,B,A,CC
ECCA 1A    ORCC #50
ECCC 86    LDA  #60
ECCE 1F    TFR  A,DP
ECD0 BD    JSR  F1FD
ECD3 BD    JSR  EEA2
ECD6 0D    TST  5F
ECD8 2A    BPL  ECDD
ECDA BD    JSR  F2B1
ECDD 8E    LDX  #F6CE
ECE0 96    LDA  59
ECE2 AD    JSR  [A,X]
ECE4 0F    CLR  42
ECE6 0F    CLR  43
ECE8 35    PULS PC,U/S,Y,X,DP,B,A,CC


ECEA C1    CMPB #20
ECEC 24    BCC  ECF9
ECEE C1    CMPB #07
ECF0 25    BCS  ED1B
ECF2 4F    CLRA 
ECF3 58    ASLB 
ECF4 8E    LDX  #F68E
ECF7 6E    JMP  [B,X]

ECF9 BD    JSR  EEA2
ECFC 0D    TST  5F
ECFE 2A    BPL  ED03
ED00 BD    JSR  F2B1
ED03 0F    CLR  75
ED05 D7    STB  5D
ED07 0F    CLR  43
ED09 0D    TST  19
ED0B 10 2B LBMI ED07
ED0F 0D    TST  70
ED11 2B    BMI  ED1C
ED13 27    BEQ  ED27
ED15 C1    CMPB #41
ED17 24    BCC  ED27
ED19 0F    CLR  70
ED1B 39    RTS  


ED1C 0F    CLR  70
ED1E C1    CMPB #63
ED20 26    BNE  ED1B
ED22 CE    LDU  #EB45
ED25 20    BRA  ED39
ED27 5D    TSTB 
ED28 2B    BMI  ED30
ED2A DE    LDU  CF
ED2C C0    SUBB #20
ED2E 20    BRA  ED34
ED30 DE    LDU  2D
ED32 C0    SUBB #80
ED34 86    LDA  #08
ED36 3D    MUL  
ED37 33    LEAU D,U
ED39 10 9E LDY  5A
ED3C 96    LDA  5F
ED3E 44    LSRA 
ED3F 25    BCS  ED49
ED41 8E    LDX  #ED77
ED44 CC    LDD  #ED93
ED47 20    BRA  ED4F
ED49 8E    LDX  #EDC7
ED4C CC    LDD  #ED99
ED4F 34    PSHS X,B,A,
ED51 D6    LDB  39
ED53 C4    ANDB #07
ED55 54    LSRB 
ED56 54    LSRB 
ED57 10 26 LBNE ED24
ED5B BD    JSR  EE59
ED5E 37    PULU A,
ED60 AD    JSR  [,S]
ED62 24    BCC  ED66
ED64 AD    JSR  [,S]
ED66 5A    DECB 
ED67 26    BNE  ED5E
ED69 32    LEAS 4,S
ED6B BD    JSR  EE73
ED6E 8D    BSR  ED93
ED70 30    LEAX ff,X
ED72 26    BNE  ED6E
ED74 7E    JMP  EE54
ED77 0D    TST  5F
ED79 2A    BPL  ED91
ED7B A7    STA  ,Y
ED7D 34    PSHS A,CC
ED7F BD    JSR  EE1B
ED82 44    LSRA 
ED83 25    BCS  ED88
ED85 E7    STB  ,Y
ED87 7D    TST  E721
ED8A BD    JSR  EE1B
ED8D 35    PULS A,CC
ED8F 20    BRA  ED95
ED91 E7    STB  1,Y
ED93 A7    STA  ,Y
ED95 31    LEAY FFD8,Y
ED98 39    RTS  


ED99 8E    LDX  #EDD5
ED9C 34    PSHS B,A,CC
ED9E 96    LDA  5C
EDA0 D6    LDB  5C
EDA2 84    ANDA #03
EDA4 48    ASLA 
EDA5 48    ASLA 
EDA6 C4    ANDB #18
EDA8 58    ASLB 
EDA9 3A    ABX  
EDAA 30    LEAX A,X
EDAC A6    LDA  1,S
EDAE A4    ANDA 2,X
EDB0 A8    EORA 3,X
EDB2 A7    STA  ,Y
EDB4 7A    DEC  E7C3
EDB7 A6    LDA  1,S
EDB9 A4    ANDA ,X
EDBB A8    EORA 1,X
EDBD A7    STA  ,Y
EDBF 7C    INC  E7C3
EDC2 31    LEAY FFD8,Y
EDC5 35    PULS PC,B,A,CC
EDC7 8D    BSR  ED99
EDC9 31    LEAY 29,Y
EDCC 1E    EXG  B,A
EDCE 8D    BSR  ED99
EDD0 31    LEAY ff,Y
EDD2 1E    EXG  A,B
EDD4 39    RTS  


// Table
EDD5 00    NEG  00
EDD7 00    NEG  00
EDD9 00    NEG  00
EDDB FF    STU  FFFF
EDDE FF    STU  0000
EDE1 FF    STU  FFFF
EDE4 FF    STU  0000
EDE7 FF    STU  0000
EDEA 00    NEG  00
EDEC FF    STU  FFFF
EDEF FF    STU  00FF
EDF2 FF    STU  00FF
EDF5 FF    STU  0000
EDF8 00    NEG  FF
EDFA 00    NEG  FF
EDFC FF    STU  00FF
EDFF 00    NEG  00
EE01 00    NEG  FF
EE03 FF    STU  FFFF
EE06 00    NEG  FF
EE08 00    NEG  FF
EE0A 00    NEG  00
EE0C FF    STU  00FF
EE0F FF    STU  0000
EE12 FF    STU  00FF
EE15 34    PSHS A,
EE17 8D    BSR  EE1B
EE19 35    PULS PC,A,
EE1B B6    LDA  E7C3
EE1E 88    EORA #01
EE20 B7    STA  E7C3
EE23 39    RTS  
EE24 8D    BSR  EE59
EE26 37    PULU A,
EE28 34    PSHS B,CC
EE2A 97    STA  6C
EE2C CC    LDD  #8000
EE2F 04    LSR  6C
EE31 46    RORA 
EE32 56    RORB 
EE33 47    ASRA 
EE34 56    RORB 
EE35 24    BCC  EE2F
EE37 35    PULS CC
EE39 AD    JSR  [03,S]
EE3C 24    BCC  EE41
EE3E AD    JSR  [03,S]
EE41 35    PULS B,
EE43 5A    DECB 
EE44 26    BNE  EE26
EE46 32    LEAS 4,S
EE48 8D    BSR  EE73
EE4A BD    JSR  ED77
EE4D 30    LEAX ff,X
EE4F 26    BNE  EE4A
EE51 7D    TST  3262
EE54 0D    TST  70
EE56 27    BEQ  EE8B
EE58 39    RTS  
EE59 34    PSHS CC
EE5B C6    LDB  #08
EE5D 0D    TST  70
EE5F 27    BEQ  EE71
EE61 0A    DEC  70
EE63 26    BNE  EE71
EE65 5A    DECB 
EE66 96    LDA  5D
EE68 81    CMPA #60
EE6A 2A    BPL  EE70
EE6C 81    CMPA #55
EE6E 26    BNE  EE71
EE70 5A    DECB 
EE71 35    PULS PC,CC
EE73 8E    LDX  #0008
EE76 24    BCC  EE7A
EE78 30    LEAX 8,X
EE7A 86    LDA  #40
EE7C 94    ANDA 19
EE7E 26    BNE  EE52
EE80 D6    LDB  3B
EE82 BD    JSR  F49D
EE85 10 9E LDY  5A
EE88 1F    TFR  B,A
EE8A 39    RTS  
EE8B 96    LDA  39
EE8D 85    BITA #04
EE8F 27    BEQ  EE93
EE91 8D    BSR  EE9C
EE93 7E    JMP  EF7C
EE96 96    LDA  70
EE98 81    CMPA #01
EE9A 27    BEQ  EEA1
EE9C 0C    INC  20
EE9E BD    JSR  F2B1
EEA1 39    RTS  
EEA2 B6    LDA  605F
EEA5 2B    BMI  EEBA
EEA7 27    BEQ  EEB2
EEA9 B6    LDA  605F
EEAC 84    ANDA #04
EEAE 10 26 LBNE EEA6
EEB2 B6    LDA  E7C3
EEB5 8A    ORA  #01
EEB7 B7    STA  E7C3
EEBA 39    RTS  
EEBB 10 DF STS  6E
EEBE 10 DE LDS  6C
EEC1 EC    LDD  5,S
EEC3 DE    LDU  60
EEC5 32    LEAS 28,U
EEC8 33    LEAU 7,U
EECA 0D    TST  78
EECC 26    BNE  EED0
EECE 32    LEAS D,S
EED0 35    PULS Y,X,DP,B,A,
EED2 36    PSHU Y,X,DP,B,A,
EED4 33    LEAU e,U
EED6 11 BC CMPS 6062
EEDA 25    BCS  EED0
EEDC 7E    JMP  F130
EEDF 10 DF STS  6E
EEE2 1F    TFR  D,X
EEE4 1F    TFR  D,Y
EEE6 10 DE LDS  6C
EEE9 EC    LDD  3,S
EEEB DE    LDU  62
EEED 33    LEAU FFE0,U
EEF0 0D    TST  78
EEF2 26    BNE  EEF6
EEF4 33    LEAU D,U
EEF6 1F    TFR  X,D
EEF8 1F    TFR  D,S
EEFA 36    PSHU U/S,Y,X,B,A,
EEFC 33    LEAU 10,U
EEFF 11 93 CMPU 62
EF02 23    BLS  EEFA
EF04 7E    JMP  F134
EF07 10 9E LDY  5A
EF0A 31    LEAY FFE8,Y
EF0E 86    LDA  #94
EF10 97    STA  6D
EF12 8E    LDX  #F6D8
EF15 8D    BSR  EF26
EF17 8D    BSR  EF26
EF19 C4    ANDB #05
EF1B 5C    INCB 
EF1C 54    LSRB 
EF1D 8D    BSR  EF26
EF1F 1C    & CC #FE
EF21 BD    JSR  ED6B
EF24 20    BRA  EF7E
EF26 D7    STB  6C
EF28 C4    ANDB #03
EF2A A6    LDA  B,X
EF2C A7    STA  ,Y
EF2E 31    LEAY 28,Y
EF31 04    LSR  6D
EF33 24    BCC  EF2C
EF35 D6    LDB  6C
EF37 54    LSRB 
EF38 54    LSRB 
EF39 39    RTS  
EF3A D6    LDB  39
EF3C D4    ANDB 3A
EF3E D7    STB  39
EF40 D6    LDB  3B
EF42 0D    TST  3A
EF44 2B    BMI  EF4E
EF46 0D    TST  5F
EF48 2B    BMI  EF4E
EF4A C4    ANDB #F8
EF4C D7    STB  3B
EF4E 39    RTS  
EF4F 0D    TST  3C
EF51 2A    BPL  EF69
EF53 96    LDA  19
EF55 84    ANDA #7F
EF57 97    STA  19
EF59 8D    BSR  EF3A
EF5B 96    LDA  3A
EF5D 84    ANDA #40
EF5F 26    BNE  EF69
EF61 CA    ORB  #78
EF63 0D    TST  5F
EF65 2B    BMI  EF69
EF67 D7    STB  3B
EF69 39    RTS  
EF6A BD    JSR  F1FD
EF6D 0F    CLR  20
EF6F 0C    INC  20
EF71 0D    TST  3C
EF73 2A    BPL  EF77
EF75 8D    BSR  EF4F
EF77 96    LDA  1D
EF79 7E    JMP  F00C
EF7C 0C    INC  20
EF7E 0D    TST  5F
EF80 2B    BMI  EF8E
EF82 96    LDA  20
EF84 81    CMPA #29
EF86 27    BEQ  EFA4
EF88 81    CMPA #2A
EF8A 27    BEQ  EFA2
EF8C 20    BRA  EF98
EF8E 96    LDA  20
EF90 81    CMPA #51
EF92 27    BEQ  EFA4
EF94 81    CMPA #52
EF96 27    BEQ  EFA2
EF98 0D    TST  43
EF9A 27    BEQ  EF9F
EF9C BD    JSR  F19D
EF9F 8D    BSR  F00E
EFA1 39    RTS  
EFA2 8D    BSR  F00E
EFA4 0D    TST  43
EFA6 27    BEQ  EFAF
EFA8 31    LEAY 0119,X
EFAC BD    JSR  F1AC
EFAF CC    LDD  #0102
EFB2 97    STA  20
EFB4 0D    TST  42
EFB6 2B    BMI  EFC2
EFB8 9E    LDX  1A
EFBA D5    BITB 39
EFBC 27    BEQ  EFC0
EFBE 6F    CLR  ff,X
EFC0 6F    CLR  ,X
EFC2 D4    ANDB 39
EFC4 58    ASLB 
EFC5 58    ASLB 
EFC6 8E    LDX  #F68C
EFC9 3A    ABX  
EFCA 96    LDA  1B
EFCC AB    ADDA ,X
EFCE 97    STA  1B
EFD0 0D    TST  3C
EFD2 2A    BPL  EFD7
EFD4 BD    JSR  EF3A
EFD7 91    CMPA 1F
EFD9 2E    BGT  EFDD
EFDB 20    BRA  F00E
EFDD 0D    TST  3C
EFDF 10 2B LBMI EF75
EFE3 9F    STX  6C
EFE5 E6    LDB  ,X
EFE7 10 9E LDY  1C
EFEA 10 9C CMPY 1E
EFED 24    BCC  EFF5
EFEF A6    LDA  1,Y
EFF1 A7    STA  ,Y+
EFF3 20    BRA  EFEA
EFF5 86    LDA  #FF
EFF7 A7    STA  ,Y
EFF9 5A    DECB 
EFFA 26    BNE  EFE7
EFFC A6    LDA  ,X
EFFE 48    ASLA 
EFFF 48    ASLA 
F000 48    ASLA 
F001 8E    LDX  #EEBB
F004 CE    LDU  #EEDF
F007 BD    JSR  F0DD
F00A 96    LDA  1F
F00C 97    STA  1B
F00E 7E    JMP  F2B1
F011 BD    JSR  F09E
F014 86    LDA  #FF
F016 97    STA  42
F018 7E    JMP  EF7C
F01B DE    LDU  3B
F01D D6    LDB  20
F01F 96    LDA  1B
F021 9E    LDX  39
F023 34    PSHS U/S,X,B,A,
F025 96    LDA  3C
F027 8A    ORA  #80
F029 97    STA  3C
F02B C6    LDB  #20
F02D BD    JSR  ECF9
F030 D6    LDB  20
F032 C1    CMPB #01
F034 26    BNE  F02B
F036 35    PULS U/S,X,B,A,
F038 DF    STU  3B
F03A D7    STB  20
F03C 97    STA  1B
F03E 9F    STX  39
F040 BD    JSR  F2B1
F043 86    LDA  #FF
F045 A7    STA  [601A]
F049 39    RTS  


F04A 0F    CLR  20
F04C 0C    INC  20
F04E BD    JSR  F2B1
F051 20    BRA  F043
F053 BD    JSR  EF4F
F056 BD    JSR  EEB2
F059 96    LDA  5F
F05B 81    CMPA #04
F05D 26    BNE  F062
F05F 7A    DEC  E7C3
F062 0F    CLR  75
F064 DC    LDD  76
F066 1F    TFR  D,X
F068 1F    TFR  D,Y
F06A DE    LDU  62
F06C 36    PSHU Y,X,B,A,
F06E 36    PSHU Y,X,
F070 11 93 CMPU 60
F073 2E    BGT  F06C
F075 C6    LDB  #0
F077 96    LDA  5F
F079 85    BITA #E1
F07B 26    BNE  F083
F07D 86    LDA  #40
F07F 94    ANDA 19
F081 26    BNE  F091
F083 F4    ANDB E7C3
F086 27    BEQ  F091
F088 96    LDA  3B
F08A D6    LDB  3B
F08C 7A    DEC  E7C3
F08F 20    BRA  F066
F091 9E    LDX  1C
F093 86    LDA  #FF
F095 A7    STA  ,X+
F097 9C    CMPX 1E
F099 23    BLS  F095
F09B 7E    JMP  EF6D
F09E 9E    LDX  5A
F0A0 C6    LDB  #08
F0A2 39    RTS  


F0A3 96    LDA  1B
F0A5 91    CMPA 1D
F0A7 2F    BLE  F0B0
F0A9 4A    DECA 
F0AA 7D    TST  961F
F0AD 7E    JMP  F00C
F0B0 0D    TST  3C
F0B2 2B    BMI  F0AB
F0B4 CC    LDD  #0802
F0B7 D4    ANDB 39
F0B9 27    BEQ  F0BC
F0BB 48    ASLA 
F0BC 34    PSHS A,
F0BE 10 9E LDY  1E
F0C1 10 9C CMPY 1C
F0C4 23    BLS  F0CC
F0C6 E6    LDB  ,-Y
F0C8 E7    STB  1,Y
F0CA 20    BRA  F0C1
F0CC C6    LDB  #FF
F0CE E7    STB  ,Y
F0D0 44    LSRA 
F0D1 85    BITA #08
F0D3 26    BNE  F0BE
F0D5 35    PULS A,
F0D7 8E    LDX  #F10D
F0DA CE    LDU  #F138
F0DD 34    PSHS U/S,X,A,
F0DF 6A    DEC  ,S
F0E1 2B    BMI  F10B
F0E3 BD    JSR  EEA9
F0E6 AD    JSR  [01,S]
F0E9 DC    LDD  76
F0EB AD    JSR  [03,S]
F0EE 96    LDA  5F
F0F0 85    BITA #81
F0F2 26    BNE  F0FA
F0F4 86    LDA  #40
F0F6 94    ANDA 19
F0F8 26    BNE  F107
F0FA 7A    DEC  E7C3
F0FD AD    JSR  [01,S]
F100 96    LDA  3B
F102 D6    LDB  3B
F104 AD    JSR  [03,S]
F107 0D    TST  78
F109 26    BNE  F0DF
F10B 35    PULS PC,U/S,X,A,


F10D 10 DF STS  6E
F110 DC    LDD  60
F112 C3    ADDD #0028
F115 DD    STD  6C
F117 DE    LDU  62
F119 32    LEAS FFD1,U
F11C 0D    TST  78
F11E 26    BNE  F124
F120 32    LEAS FFE8,S
F124 35    PULS Y,X,DP,B,A,
F126 36    PSHU Y,X,DP,B,A,
F128 32    LEAS f2,S
F12A 11 B3 CMPU 606C
F12E 22    BHI  F124
F130 86    LDA  #60
F132 1F    TFR  A,DP
F134 10 DE LDS  6E


F137 39    RTS  
F138 1F    TFR  D,X
F13A 1F    TFR  D,Y
F13C DE    LDU  60
F13E 33    LEAU 28,U
F141 0D    TST  78
F143 26    BNE  F149
F145 33    LEAU 0118,U
F149 36    PSHU Y,X,B,
F14B 11 93 CMPU 60
F14E 22    BHI  F149
F150 39    RTS  


F151 0C    INC  1B
F153 96    LDA  1B
F155 91    CMPA 1F
F157 10 23 LBLS F1B1
F15B 5F    CLRB 
F15C 7E    JMP  EFC2
F15F BD    JSR  F09E
F162 96    LDA  20
F164 81    CMPA #01
F166 2E    BGT  F183
F168 0D    TST  43
F16A 27    BEQ  F172
F16C 31    LEAY FFE7,X
F170 8D    BSR  F1AC
F172 0D    TST  5F
F174 2A    BPL  F179
F176 C6    LDB  #50
F178 7D    TST  C628
F17B D7    STB  20
F17D BD    JSR  F2B1
F180 7E    JMP  F0A3
F183 0D    TST  43
F185 27    BEQ  F189
F187 8D    BSR  F18F
F189 0A    DEC  20
F18B BD    JSR  F2B1
F18E 39    RTS  


F18F 0D    TST  5F
F191 2A    BPL  F199
F193 B6    LDA  E7C3
F196 44    LSRA 
F197 24    BCC  F1AA
F199 31    LEAY ff,X
F19B 20    BRA  F1AC
F19D 0D    TST  5F
F19F 2A    BPL  F1A7
F1A1 B6    LDA  E7C3
F1A4 44    LSRA 
F1A5 25    BCS  F1AA
F1A7 31    LEAY 1,X
F1A9 7D    TST  3184
F1AC A6    LDA  ,X
F1AE 0D    TST  5F
F1B0 2A    BPL  F1B5
F1B2 BD    JSR  EE15
F1B5 A7    STA  ,Y
F1B7 30    LEAX FFD8,X
F1BA 31    LEAY FFD8,Y
F1BD 0D    TST  5F
F1BF 2A    BPL  F1C4
F1C1 BD    JSR  EE15
F1C4 5A    DECB 
F1C5 26    BNE  F1AC
F1C7 39    RTS  


F1C8 96    LDA  39
F1CA 84    ANDA #F9
F1CC 97    STA  39
F1CE 86    LDA  #80
F1D0 9A    ORA  19
F1D2 97    STA  19
F1D4 39    RTS  
F1D5 86    LDA  #7F
F1D7 7D    TST  86FB
F1DA 94    ANDA 19
F1DC 97    STA  19
F1DE 39    RTS  


F1DF 96    LDA  19
F1E1 8A    ORA  #04
F1E3 97    STA  19
F1E5 CC    LDD  #30D3
F1E8 FD    STD  E7C6
F1EB 86    LDA  #46
F1ED B7    STA  E7C5
F1F0 A6    LDA  2,S
F1F2 84    ANDA #EF
F1F4 A7    STA  2,S
F1F6 63    COM  [605A]
F1FA 03    COM  75
F1FC 39    RTS  

F1FD 96    LDA  19
F1FF 85    BITA #04
F201 27    BEQ  F213
F203 0D    TST  75
F205 27    BEQ  F213
F207 BD    JSR  EEA9
F20A BD    JSR  FB15
F20D 63    COM  [605A]
F211 03    COM  75
F213 39    RTS  


// routine qui fait du bruit (enfin il me semble)
F214 FC    LDD  E7CE
F217 34    PSHS B,A,
F219 C4    ANDB #FA
F21B FD    STD  E7CE
F21E B6    LDA  E7CD
F221 34    PSHS A,
F223 8A    ORA  #3F
F225 B7    STA  E7CD
F228 B6    LDA  E7CF
F22B 8A    ORA  #04
F22D B7    STA  E7CF
F230 B6    LDA  E7C1
F233 34    PSHS A,
F235 84    ANDA #F7
F237 B7    STA  E7C1
F23A C6    LDB  #12
F23C 0D    TST  73
F23E 26    BNE  F248
F240 B6    LDA  E7CD
F243 88    EORA #3F
F245 B7    STA  E7CD
F248 8E    LDX  #0080
F24B 30    LEAX -1,X
F24D 26    BNE  F24B
F24F 5A    DECB 
F250 26    BNE  F23C
F252 35    PULS A,
F254 B7    STA  E7C1
F257 B6    LDA  E7CF
F25A 84    ANDA #FB
F25C B7    STA  E7CF
F25F 35    PULS A,
F261 B7    STA  E7CD
F264 FC    LDD  E7CE
F267 35    PULS B,A,
F269 FD    STD  E7CE
F26C FC    LDD  E7CC
F26F 39    RTS  


F270 4C    INCA 
F271 4C    INCA 
F272 4C    INCA 
F273 4C    INCA 
F274 48    ASLA 
F275 97    STA  59
F277 39    RTS  
F278 C4    ANDB #3F
F27A 27    BEQ  F287
F27C D7    STB  6B
F27E D6    LDB  5D
F280 BD    JSR  ECF9
F283 0A    DEC  6B
F285 26    BNE  F27E
F287 0F    CLR  59
F289 39    RTS  
F28A 0D    TST  6A
F28C 26    BNE  F291
F28E D7    STB  6A
F290 39    RTS  
F291 C1    CMPB #40
F293 25    BCS  F2DE
F295 0D    TST  5F
F297 2A    BPL  F29E
F299 C8    EORB #C0
F29B C4    ANDB #7F
F29D 7D    TST  C43F
F2A0 D7    STB  20
F2A2 D6    LDB  6A
F2A4 C4    ANDB #3F
F2A6 D7    STB  1B
F2A8 8D    BSR  F2B1
F2AA 0F    CLR  6A
F2AC 0F    CLR  59
F2AE 7E    JMP  EF4F
F2B1 34    PSHS B,
F2B3 96    LDA  1B
F2B5 C6    LDB  #A0
F2B7 48    ASLA 
F2B8 3D    MUL  
F2B9 C3    ADDD #4117
F2BC 0D    TST  5F
F2BE 2A    BPL  F2DA
F2C0 DD    STD  5A
F2C2 BD    JSR  F49D
F2C5 0F    CLR  86
F2C7 D6    LDB  20
F2C9 57    ASRB 
F2CA 24    BCC  F2D2
F2CC 7C    INC  E7C3
F2CF 5C    INCB 
F2D0 03    COM  86
F2D2 4F    CLRA 
F2D3 D3    ADDD 5A
F2D5 DD    STD  5A
F2D7 35    PULS B,
F2D9 39    RTS  
F2DA DB    ADDB 20
F2DC 20    BRA  F2D5
F2DE C1    CMPB #30
F2E0 2D    BLT  F2E8
F2E2 8D    BSR  F31D
F2E4 8D    BSR  F2B1
F2E6 20    BRA  F2AA
F2E8 96    LDA  1B
F2EA DE    LDU  20
F2EC 9E    LDX  5A
F2EE 34    PSHS U/S,X,A,
F2F0 C1    CMPB #20
F2F2 2D    BLT  F303
F2F4 8D    BSR  F31D
F2F6 D7    STB  1D
F2F8 8D    BSR  F2B1
F2FA DC    LDD  5A
F2FC 83    SUBD #0118
F2FF DD    STD  60
F301 20    BRA  F310
F303 8D    BSR  F31D
F305 D7    STB  1F
F307 8D    BSR  F2B1
F309 DC    LDD  5A
F30B C3    ADDD #0028
F30E DD    STD  62
F310 35    PULS U/S,X,A,
F312 97    STA  1B
F314 DF    STU  20
F316 9F    STX  5A
F318 0F    CLR  6A
F31A 0F    CLR  59
F31C 39    RTS  
F31D 0F    CLR  20
F31F 0C    INC  20
F321 C4    ANDB #0F
F323 D7    STB  1B
F325 96    LDA  6A
F327 84    ANDA #0F
F329 C6    LDB  #0A
F32B 3D    MUL  
F32C DB    ADDB 1B
F32E D7    STB  1B
F330 39    RTS  
F331 C1    CMPB #40
F333 24    BCC  F350
F335 C1    CMPB #23
F337 27    BEQ  F34F
F339 C1    CMPB #20
F33B 27    BEQ  F349
F33D C1    CMPB #21
F33F 27    BEQ  F34F
F341 0F    CLR  59
F343 86    LDA  #7F
F345 94    ANDA 39
F347 20    BRA  F34D
F349 86    LDA  #80
F34B 9A    ORA  39
F34D 97    STA  39
F34F 39    RTS  
F350 0D    TST  39
F352 2A    BPL  F359
F354 CE    LDU  #F3F5
F357 20    BRA  F35C
F359 CE    LDU  #F3AD
F35C E1    CMPB ,U
F35E 33    LEAU 3,U
F360 25    BCS  F35C
F362 AD    JSR  [,--U]
F364 20    BRA  F341
F366 1F    TFR  B,A
F368 0F    CLR  59
F36A 81    CMPA #4B
F36C 27    BEQ  F392
F36E 84    ANDA #F0
F370 81    CMPA #40
F372 26    BNE  F378
F374 86    LDA  #02
F376 97    STA  70
F378 CE    LDU  #EB45
F37B 86    LDA  #15
F37D 10 8E LDY  #F3AD
F381 E1    CMPB ,-Y
F383 27    BEQ  F38B
F385 4A    DECA 
F386 2A    BPL  F381
F388 0F    CLR  70
F38A 39    RTS  
F38B 1F    TFR  A,B
F38D 0F    CLR  75
F38F 7E    JMP  ED34
F392 86    LDA  #80
F394 97    STA  70
F396 39    RTS  
F397 4B    ILL  
F398 23    BLS  F3BE
F39A 26    BNE  F3C8
F39C 2D    BLT  F3CC
F39E 2F    BLE  F3D0
F3A0 31    LEAY f8,Y
F3A2 3C    ILL  
F3A3 3D    MUL  
F3A4 3E    ILL  
F3A5 41    ILL  
F3A6 42    ILL  
F3A7 43    COMA 
F3A8 48    ASLA 
F3A9 6A    DEC  fa,S
F3AB 7B    ILL  
F3AC 27    BEQ  F33A
F3AE F3    ADDD 4188
F3B1 F6    LDB  4D80
F3B4 F5    BITB 8F78
F3B7 F5    BITB 0770
F3BA F5    BITB 646E
F3BD F5    BITB AF6D
F3C0 F4    ANDB 196C
F3C3 F4    ANDB 206B
F3C6 F5    BITB A56A
F3C9 F5    BITB AA69
F3CC F5    BITB 9768
F3CF F5    BITB A060
F3D2 F5    BITB 8D5F
F3D5 F4    ANDB 435E
F3D8 F6    LDB  455C
F3DB F4    ANDB 685B
F3DE F5    BITB DA5A
F3E1 F5    BITB B459
F3E4 F6    LDB  3C58
F3E7 F4    ANDB C650
F3EA F5    BITB 0A4C
F3ED F5    BITB 2748
F3F0 F5    BITB E940
F3F3 F5    BITB 6780
F3F6 F3    ADDD 4178
F3F9 F4    ANDB DD70
F3FC F5    BITB 3560
F3FF F3    ADDD 415F
F402 F4    ANDB 2B5E
F405 F3    ADDD 415C
F408 F4    ANDB 5659
F40B F3    ADDD 4158
F40E F4    ANDB AF50
F411 F4    ANDB E048
F414 F3    ADDD 4140
F417 F5    BITB 38B6
F41A E7    STB  FFC3,U
F41E 20    BRA  F427
F420 B6    LDA  E7C9
F423 8A    ORA  #04
F425 84    ANDA #C7
F427 B7    STA  E7C9

F42A 39    RTS
F42B 0D    TST  5F
F42D 26    BNE  F455
F42F 8D    BSR  F49D
F431 9E    LDX  60
F433 D6    LDB  5C
F435 27    BEQ  F455
F437 A6    LDA  ,X+
F439 81    CMPA #C0
F43B 26    BNE  F43F
F43D E7    STB  ff,X
F43F 9C    CMPX 62
F441 26    BNE  F437
F443 0D    TST  5F
F445 26    BNE  F455
F447 96    LDA  5C
F449 27    BEQ  F455
F44B D6    LDB  3B
F44D C1    CMPB #C0
F44F 26    BNE  F455
F451 97    STA  3B
F453 0F    CLR  5C
F455 39    RTS  

F456 0D    TST  5F
F458 26    BNE  F472
F45A 9E    LDX  60
F45C 8D    BSR  F49D
F45E A6    LDA  ,X
F460 8D    BSR  F47D
F462 A7    STA  ,X+
F464 9C    CMPX 62
F466 26    BNE  F45E
F468 96    LDA  5F
F46A 26    BNE  F473
F46C 96    LDA  3B
F46E 8D    BSR  F47D
F470 97    STA  3B
F472 39    RTS  

F473 44    LSRA
F474 24    BCC  F472
F476 96    LDA  5C
F478 8D    BSR  F47D
F47A 97    STA  5C
F47C 39    RTS  

F47D 1F    TFR  A,B
F47F 34    PSHS B,
F481 84    ANDA #07
F483 48    ASLA 
F484 48    ASLA 
F485 48    ASLA 
F486 C4    ANDB #38
F488 54    LSRB 
F489 54    LSRB 
F48A 54    LSRB 
F48B 34    PSHS B,
F48D AB    ADDA ,S+
F48F 35    PULS B,
F491 C4    ANDB #C0
F493 58    ASLB 
F494 24    BCC  F498
F496 CA    ORB  #40
F498 34    PSHS B,
F49A AB    ADDA ,S+
F49C 39    RTS  

F49D 96    LDA  5F
F49F 84    ANDA #04
F4A1 27    BEQ  F4A6
F4A3 7E    JMP  EEB2
F4A6 B6    LDA  E7C3
F4A9 84    ANDA #FE
F4AB B7    STA  E7C3
F4AE 39    RTS  
F4AF 0D    TST  5F
F4B1 26    BNE  F4DC
F4B3 8D    BSR  F49D
F4B5 9E    LDX  60
F4B7 EC    LDD  ,X
F4B9 84    ANDA #80
F4BB C4    ANDB #80
F4BD C3    ADDD #4040
F4C0 ED    STD  ,X++
F4C2 9C    CMPX 62
F4C4 25    BCS  F4B7
F4C6 0D    TST  5F
F4C8 26    BNE  F4DC
F4CA 96    LDA  3B
F4CC 84    ANDA #7F
F4CE 81    CMPA #40
F4D0 27    BEQ  F4DC
F4D2 96    LDA  3B
F4D4 97    STA  5C
F4D6 84    ANDA #C0
F4D8 8A    ORA  #40
F4DA 97    STA  3B
F4DC 39    RTS  

F4DD C4    ANDB #7F
F4DF 7D    TST  CA80
F4E2 0D    TST  5F
F4E4 26    BNE  F4DC
F4E6 8D    BSR  F49D
F4E8 C4    ANDB #87
F4EA D7    STB  6C
F4EC D7    STB  6D
F4EE 9E    LDX  60
F4F0 EC    LDD  ,X
F4F2 84    ANDA #78
F4F4 C4    ANDB #78
F4F6 D3    ADDD 6C
F4F8 ED    STD  ,X++
F4FA 9C    CMPX 62
F4FC 26    BNE  F4F0
F4FE 86    LDA  #80
F500 9A    ORA  3A
F502 97    STA  3A
F504 D6    LDB  6C
F506 7D    TST  C47F
F509 7D    TST  CA80
F50C 96    LDA  5F
F50E 26    BNE  F51A
F510 85    BITA #FE
F512 C4    ANDB #87
F514 96    LDA  3B
F516 84    ANDA #78
F518 20    BRA  F57F
F51A 44    LSRA 
F51B 10 24 LBCC F585
F51F C4    ANDB #87
F521 96    LDA  5C
F523 84    ANDA #78
F525 20    BRA  F586
F527 C4    ANDB #03
F529 58    ASLB 
F52A 96    LDA  39
F52C 84    ANDA #F9
F52E 34    PSHS B,
F530 AB    ADDA ,S+
F532 97    STA  39
F534 39    RTS  

F535 C4    ANDB #F7
F537 7D    TST  CA08
F53A 0D    TST  5F
F53C 26    BNE  F585
F53E BD    JSR  F49D
F541 58    ASLB 
F542 58    ASLB 
F543 58    ASLB 
F544 C4    ANDB #78
F546 D7    STB  6C
F548 D7    STB  6D
F54A 9E    LDX  60
F54C EC    LDD  ,X
F54E 84    ANDA #87
F550 C4    ANDB #87
F552 D3    ADDD 6C
F554 ED    STD  ,X++
F556 9C    CMPX 62
F558 26    BNE  F54C
F55A 96    LDA  3A
F55C 8A    ORA  #40
F55E 97    STA  3A
F560 D6    LDB  6C
F562 20    BRA  F57B
F564 C4    ANDB #F7
F566 7D    TST  CA08
F569 58    ASLB 
F56A 58    ASLB 
F56B 58    ASLB 
F56C C4    ANDB #78
F56E 96    LDA  5F
F570 27    BEQ  F57B
F572 44    LSRA 
F573 24    BCC  F585
F575 96    LDA  5C
F577 84    ANDA #87
F579 20    BRA  F586
F57B 96    LDA  3B
F57D 84    ANDA #87
F57F 34    PSHS B,
F581 AB    ADDA ,S+
F583 97    STA  3B
F585 39    RTS  

F586 34    PSHS B,
F588 AB    ADDA ,S+
F58A 97    STA  5C
F58C 39    RTS  

F58D CA    ORB  #08
F58F C4    ANDB #0F
F591 C8    EORB #08
F593 F7    STB  E7DD
F596 39    RTS  

F597 0D    TST  5F
F599 26    BNE  F596
F59B 86    LDA  #BF
F59D 7E    JMP  F1DA
F5A0 86    LDA  #40
F5A2 7E    JMP  F1D0
F5A5 86    LDA  #80
F5A7 97    STA  3C
F5A9 39    RTS  

F5AA 0F    CLR  3C
F5AC 0F    CLR  78
F5AE 39    RTS  
F5AF 8D    BSR  F5AA
F5B1 03    COM  78
F5B3 39    RTS  

F5B4 96    LDA  5F
F5B6 10 27 LBEQ F56A
F5BA 2A    BPL  F5BC
F5BC 0F    CLR  16
F5BE 0F    CLR  5F
F5C0 96    LDA  19
F5C2 84    ANDA #AF
F5C4 97    STA  19
F5C6 D6    LDB  5C
F5C8 D7    STB  3B
F5CA BD    JSR  FCD6
F5CD 7F    CLR  E7DC
F5D0 BD    JSR  F62C
F5D3 96    LDA  19
F5D5 84    ANDA #AF
F5D7 97    STA  19
F5D9 39    RTS  

F5DA 0D    TST  5F
F5DC 10 2B LBMI F56A
F5E0 BD    JSR  F660
F5E3 CC    LDD  #2A80
F5E6 16    LBRA F622
F5E9 BD    JSR  F660
F5EC 96    LDA  19
F5EE 84    ANDA #AF
F5F0 97    STA  19
F5F2 0F    CLR  16
F5F4 96    LDA  5F
F5F6 34    PSHS A,
F5F8 1F    TFR  B,A
F5FA 44    LSRA 
F5FB 25    BCS  F602
F5FD 86    LDA  #04
F5FF 0C    INC  16
F601 7D    TST  8602
F604 97    STA  5F
F606 C0    SUBB #04
F608 1F    TFR  B,A
F60A 84    ANDA #02
F60C 27    BEQ  F610
F60E C4    ANDB #FE
F610 C4    ANDB #07
F612 CA    ORB  #20
F614 BD    JSR  FCD6
F617 F7    STB  E7DC
F61A 35    PULS A,
F61C 84    ANDA #0E
F61E 26    BNE  F635
F620 20    BRA  F62A
F622 BD    JSR  FCD6
F625 B7    STA  E7DC
F628 D7    STB  5F
F62A 0F    CLR  3B
F62C BD    JSR  EEB2
F62F BD    JSR  F67B
F632 BD    JSR  F053
F635 96    LDA  19
F637 8A    ORA  #50
F639 97    STA  19
F63B 39    RTS

F63C BD    JSR  F660
F63F CC    LDD  #2101
F642 7E    JMP  F622
F645 8D    BSR  F660
F647 CC    LDD  #7B40
F64A 7E    JMP  F622
F64D C4    ANDB #03
F64F D7    STB  16
F651 96    LDA  5F
F653 85    BITA #20
F655 26    BNE  F66A
F657 BD    JSR  F660
F65A CC    LDD  #3F20
F65D 7E    JMP  F622
F660 0D    TST  5F
F662 2B    BMI  F66A
F664 26    BNE  F66A
F666 96    LDA  3B
F668 97    STA  5C
F66A 39    RTS  

// Repos fenetre plein ecran
F66B 34    PSHS DP,B,A,
F66D 86    LDA  #60
F66F 1F    TFR  A,DP
F671 BD    JSR  F1D8
F674 8D    BSR  F67B
F676 BD    JSR  F5AA
F679 35    PULS PC,DP,B,A,
F67B CC    LDD  #4000
F67E DD    STD  60
F680 CC    LDD  #5F40
F683 DD    STD  62
F685 0F    CLR  1D
F687 86    LDA  #18
F689 97    STA  1F
F68B 39    RTS

F68C 01    ILL  
F68D 01    ILL  
F68E 19    ILL  
F68F FE    LDU  E801
F692 18    ILL  
F693 00    NEG  02
F695 02    ILL  
F696 59    ROLB 
F697 FD    STD  A802
F69A 58    ASLB 
F69B 01    ILL  
F69C F2    SBCB 14F1
F69F 5F    CLRB 
F6A0 F0    SUBB 11F1
F6A3 51    ILL  
F6A4 F0    SUBB A3F0
F6A7 53    COMB 
F6A8 F0    SUBB 4AF1
F6AB C8    EORB #F1
F6AD D5    BITB F0
F6AF 49    ROLA 
F6B0 F1    CMPB DFF2
F6B3 71    ILL  
F6B4 F0    SUBB 49F1
F6B7 D8    EORB F0
F6B9 49    ROLA 
F6BA F2    SBCB 70F0
F6BD 49    ROLA 
F6BE F0    SUBB 1BF0
F6C1 49    ROLA 
F6C2 F0    SUBB 49F2
F6C5 73    COM  F049
F6C8 F0    SUBB 49EF
F6CB 6A    DEC  Illegal !
F6CD 72    ILL  
F6CE EC    LDD  Illegal !
F6D0 F3    ADDD 31F2
F6D3 8A    ORA  #F2
F6D5 78    ASL  F366
F6D8 00    NEG  F0
F6DA 0F    CLR  FF

// vecteur VPLOT$ par défaut
F6DC 7D    TST  6041
F6DF 26    BNE  F6FA
F6E1 34    PSHS U/S,Y,X,DP,B,A,
F6E3 8D    BSR  F6F0
F6E5 BD    JSR  F7CC
F6E8 BD    JSR  F796
F6EB BD    JSR  F864
F6EE 35    PULS PC,U/S,Y,X,DP,B,A,


F6F0 86    LDA  #60
F6F2 1F    TFR  A,DP
F6F4 9F    STX  3D
F6F6 10 9F STY  3F
F6F9 39    RTS  

F6FA 34    PSHS DP,B,A,
F6FC 8D    BSR  F6F0
F6FE 96    LDA  3C
F700 34    PSHS A,
F702 8A    ORA  #80
F704 97    STA  3C
F706 C6    LDB  #1F
F708 BD    JSR  ECC8
F70B 1F    TFR  Y,D
F70D CB    ADDB #40
F70F BD    JSR  ECC8
F712 1F    TFR  X,D
F714 CB    ADDB #40
F716 BD    JSR  ECC8
F719 D6    LDB  41
F71B BD    JSR  ECC8
F71E 35    PULS A,
F720 97    STA  3C
F722 35    PULS PC,DP,B,A,
F724 34    PSHS U/S,Y,X,DP,A,
F726 86    LDA  #60
F728 1F    TFR  A,DP
F72A BD    JSR  F7CC
F72D 96    LDA  5F
F72F 27    BEQ  F740
F731 E6    LDB  3,S
F733 85    BITA #41
F735 26    BNE  F769
F737 8D    BSR  F79E
F739 E4    ANDB ,X
F73B 27    BEQ  F75D
F73D 5F    CLRB 
F73E 20    BRA  F767
F740 BD    JSR  FA49
F743 E6    LDB  3,S
F745 8D    BSR  F7A2
F747 1F    TFR  B,A
F749 E6    LDB  ,X
F74B 7C    INC  E7C3
F74E A4    ANDA ,X
F750 26    BNE  F760
F752 C4    ANDB #07
F754 7A    DEC  E7C3
F757 6D    TST  ,X
F759 2B    BMI  F75D
F75B CB    ADDB #08
F75D 53    COMB 
F75E 20    BRA  F767
F760 54    LSRB 
F761 54    LSRB 
F762 54    LSRB 
F763 C4    ANDB #0F
F765 C8    EORB #08
F767 35    PULS PC,U/S,Y,X,DP,A,
F769 44    LSRA 
F76A 25    BCS  F779
F76C 54    LSRB 
F76D E6    LDB  ,X
F76F 25    BCS  F775
F771 54    LSRB 
F772 54    LSRB 
F773 54    LSRB 
F774 54    LSRB 
F775 C4    ANDB #0F
F777 20    BRA  F767
F779 BD    JSR  F4A6
F77C BD    JSR  F7A2
F77F 34    PSHS B,
F781 4F    CLRA 
F782 E4    ANDB ,X
F784 27    BEQ  F788
F786 4C    INCA 
F787 48    ASLA 
F788 35    PULS B,
F78A 7C    INC  E7C3
F78D E4    ANDB ,X
F78F 27    BEQ  F792
F791 4C    INCA 
F792 1F    TFR  A,B
F794 20    BRA  F767
F796 96    LDA  5F
F798 85    BITA #40
F79A 26    BNE  F7BC
F79C D6    LDB  3E
F79E 85    BITA #20
F7A0 26    BNE  F7AA
F7A2 CE    LDU  #F8BE
F7A5 C4    ANDB #07
F7A7 E6    LDB  B,U
F7A9 39    RTS  
F7AA CE    LDU  #F8BE
F7AD C4    ANDB #03
F7AF E6    LDB  B,U
F7B1 96    LDA  16
F7B3 85    BITA #01
F7B5 27    BEQ  F7BB
F7B7 54    LSRB 
F7B8 54    LSRB 
F7B9 54    LSRB 
F7BA 54    LSRB 
F7BB 39    RTS  
F7BC EC    LDD  5,S
F7BE 54    LSRB 
F7BF D6    LDB  38
F7C1 25    BCS  F7C9
F7C3 58    ASLB 
F7C4 58    ASLB 
F7C5 58    ASLB 
F7C6 58    ASLB 
F7C7 4F    CLRA 
F7C8 39    RTS  
F7C9 C4    ANDB #0F
F7CB 39    RTS  
F7CC 96    LDA  5F
F7CE 85    BITA #60
F7D0 26    BNE  F7F9
F7D2 1F    TFR  Y,D
F7D4 86    LDA  #28
F7D6 3D    MUL  
F7D7 1E    EXG  D,X
F7D9 44    LSRA 
F7DA 56    RORB 
F7DB 44    LSRA 
F7DC 56    RORB 
F7DD 54    LSRB 
F7DE 0D    TST  5F
F7E0 2A    BPL  F7F5
F7E2 54    LSRB 
F7E3 30    LEAX D,X
F7E5 BD    JSR  EEB2
F7E8 24    BCC  F7ED
F7EA 7A    DEC  E7C3
F7ED 1F    TFR  X,D
F7EF C3    ADDD #4000
F7F2 1F    TFR  D,X
F7F4 39    RTS  
F7F5 30    LEAX D,X
F7F7 20    BRA  F7ED
F7F9 1F    TFR  Y,D
F7FB 86    LDA  #28
F7FD 3D    MUL  
F7FE 1E    EXG  D,X
F800 34    PSHS B,
F802 54    LSRB 
F803 54    LSRB 
F804 30    LEAX D,X
F806 BD    JSR  EEB2
F809 96    LDA  5F
F80B 85    BITA #20
F80D 27    BEQ  F81D
F80F 96    LDA  16
F811 85    BITA #02
F813 27    BEQ  F818
F815 7A    DEC  E7C3
F818 35    PULS B,
F81A 7E    JMP  F7ED
F81D 86    LDA  #04
F81F 3D    MUL  
F820 E0    SUBB ,S+
F822 53    COMB 
F823 5C    INCB 
F824 54    LSRB 
F825 54    LSRB 
F826 20    BRA  F7E8
F828 BD    JSR  FA39
F82B 96    LDA  38
F82D 2B    BMI  F842
F82F EA    ORB  ,X
F831 E7    STB  ,X
F833 D6    LDB  19
F835 C5    BITB #10
F837 26    BNE  F863
F839 48    ASLA 
F83A 48    ASLA 
F83B 48    ASLA 
F83C 88    EORA #40
F83E C6    LDB  #87
F840 20    BRA  F858
F842 53    COMB 
F843 E4    ANDB ,X
F845 E7    STB  ,X
F847 D6    LDB  19
F849 C5    BITB #10
F84B 26    BNE  F863
F84D 43    COMA 
F84E 81    CMPA #08
F850 24    BCC  F854
F852 8B    ADDA #80
F854 84    ANDA #87
F856 C6    LDB  #78
F858 7A    DEC  E7C3
F85B E4    ANDB ,X
F85D E7    STB  ,X
F85F AB    ADDA ,X
F861 A7    STA  ,X
F863 39    RTS  
F864 96    LDA  5F
F866 85    BITA #40
F868 10 26 LBNE F8AE
F86C 85    BITA #20
F86E 10 26 LBNE F82B
F872 44    LSRA 
F873 24    BCC  F828
F875 BD    JSR  EEB2
F878 96    LDA  38
F87A 84    ANDA #03
F87C 44    LSRA 
F87D 1F    TFR  B,A
F87F 26    BNE  F891
F881 25    BCS  F891
F883 53    COMB 
F884 E4    ANDB ,X
F886 E7    STB  ,X
F888 43    COMA 
F889 7A    DEC  E7C3
F88C A4    ANDA ,X
F88E A7    STA  ,X
F890 39    RTS  
F891 25    BCS  F89A
F893 53    COMB 
F894 E4    ANDB ,X
F896 E7    STB  ,X
F898 20    BRA  F8A6
F89A 26    BNE  F8A2
F89C EA    ORB  ,X
F89E E7    STB  ,X
F8A0 20    BRA  F888
F8A2 EA    ORB  ,X
F8A4 E7    STB  ,X
F8A6 7A    DEC  E7C3
F8A9 AA    ORA  ,X
F8AB A7    STA  ,X
F8AD 39    RTS  
F8AE 24    BCC  F8B3
F8B0 86    LDA  #F0
F8B2 7D    TST  860F
F8B5 A4    ANDA ,X
F8B7 A7    STA  ,X
F8B9 EA    ORB  ,X
F8BB E7    STB  ,X
F8BD 39    RTS  
F8BE 80    SUBA #40
F8C0 20    BRA  F8D2
F8C2 08    ASL  04
F8C4 02    ILL  
F8C5 01    ILL  
F8C6 34    PSHS U/S,Y,X,DP,B,A,

// vecteur VDRAW par défaut
F8C8 86    LDA  #60
F8CA 1F    TFR  A,DP
F8CC CC    LDD  #0101
F8CF 34    PSHS B,A,
F8D1 4F    CLRA 
F8D2 E6    LDB  8,S
F8D4 D0    SUBB 40
F8D6 22    BHI  F8E6
F8D8 26    BNE  F8E3
F8DA 0D    TST  41
F8DC 26    BNE  F8E3
F8DE 35    PULS B,A,
F8E0 7E    JMP  F95D


F8E3 60    NEG  1,S
F8E5 50    NEGB 
F8E6 DD    STD  6E
F8E8 EC    LDD  5,S
F8EA 93    SUBD 3D
F8EC 22    BHI  F8F5
F8EE 60    NEG  ,S
F8F0 43    COMA 
F8F1 53    COMB 
F8F2 C3    ADDD #0001
F8F5 DD    STD  6C
F8F7 9E    LDX  3D
F8F9 10 9E LDY  3F
F8FC 10 93 CMPD 6E
F8FF 22    BHI  F92F
F901 D6    LDB  6F
F903 27    BEQ  F959
F905 54    LSRB 
F906 50    NEGB 
F907 86    LDA  #FF
F909 31    LEAY 1,Y
F90B 6D    TST  1,S
F90D 2A    BPL  F911
F90F 31    LEAY fe,Y
F911 D3    ADDD 6C
F913 2B    BMI  F91F
F915 30    LEAX 1,X
F917 6D    TST  ,S
F919 2A    BPL  F91D
F91B 30    LEAX fe,X
F91D 93    SUBD 6E
F91F 34    PSHS CC
F921 1A    ORCC #50
F923 BD    JSR  F6DC
F926 35    PULS CC
F928 10 AC CMPY 7,S
F92B 27    BEQ  F959
F92D 20    BRA  F909
F92F 43    COMA 
F930 53    COMB 
F931 C3    ADDD #0001
F934 47    ASRA 
F935 56    RORB 
F936 30    LEAX 1,X
F938 6D    TST  ,S
F93A 2A    BPL  F93E
F93C 30    LEAX fe,X
F93E D3    ADDD 6E
F940 2B    BMI  F94C
F942 31    LEAY 1,Y
F944 6D    TST  1,S
F946 2A    BPL  F94A
F948 31    LEAY fe,Y
F94A 93    SUBD 6C
F94C 34    PSHS CC
F94E 1A    ORCC #50
F950 BD    JSR  F6DC
F953 35    PULS CC
F955 AC    CMPX 5,S
F957 26    BNE  F936
F959 32    LEAS 2,S
F95B 35    PULS PC,U/S,Y,X,DP,B,A,
F95D 9C    CMPX 3D
F95F 22    BHI  F969
F961 27    BEQ  F9BE
F963 DE    LDU  3D
F965 1E    EXG  X,U
F967 DF    STU  3D
F969 34    PSHS X,
F96B 96    LDA  5F
F96D 85    BITA #60
F96F 26    BNE  F9CF
F971 DC    LDD  3D
F973 44    LSRA 
F974 56    RORB 
F975 44    LSRA 
F976 56    RORB 
F977 54    LSRB 
F978 34    PSHS B,
F97A 1F    TFR  X,D
F97C 44    LSRA 
F97D 56    RORB 
F97E 44    LSRA 
F97F 56    RORB 
F980 54    LSRB 
F981 E0    SUBB ,S+
F983 27    BEQ  F9C0
F985 34    PSHS B,
F987 9E    LDX  3D
F989 BD    JSR  F7CC
F98C BD    JSR  F796
F98F 58    ASLB 
F990 5A    DECB 
F991 BD    JSR  F864
F994 0D    TST  5F
F996 2A    BPL  F9A6
F998 B6    LDA  E7C3
F99B 44    LSRA 
F99C 24    BCC  F9A3
F99E 7A    DEC  E7C3
F9A1 20    BRA  F9A8
F9A3 7C    INC  E7C3
F9A6 30    LEAX 1,X
F9A8 C6    LDB  #FF
F9AA 6A    DEC  ,S
F9AC 2E    BGT  F991
F9AE 35    PULS B,
F9B0 EC    LDD  ,S++
F9B2 BD    JSR  F7A5
F9B5 5A    DECB 
F9B6 53    COMB 
F9B7 BD    JSR  F864
F9BA AE    LDX  3,S
F9BC 9F    STX  3D
F9BE 35    PULS PC,U/S,Y,X,DP,B,A,
F9C0 9E    LDX  3D
F9C2 BD    JSR  F6DC
F9C5 30    LEAX 1,X
F9C7 AC    CMPX ,S
F9C9 2F    BLE  F9C2
F9CB 32    LEAS 2,S
F9CD 20    BRA  F9BA
F9CF DC    LDD  3D
F9D1 54    LSRB 
F9D2 54    LSRB 
F9D3 34    PSHS B,
F9D5 1F    TFR  X,D
F9D7 54    LSRB 
F9D8 54    LSRB 
F9D9 E0    SUBB ,S+
F9DB 27    BEQ  F9C0
F9DD 34    PSHS B,
F9DF 9E    LDX  3D
F9E1 8D    BSR  FA14
F9E3 6A    DEC  ,S
F9E5 2F    BLE  FA06
F9E7 BD    JSR  F7CC
F9EA 96    LDA  5F
F9EC 85    BITA #20
F9EE 26    BNE  FA23
F9F0 D6    LDB  38
F9F2 58    ASLB 
F9F3 58    ASLB 
F9F4 58    ASLB 
F9F5 58    ASLB 
F9F6 DA    ORB  38
F9F8 E7    STB  ,X
F9FA 7A    DEC  E7C3
F9FD E7    STB  ,X+
F9FF 7C    INC  E7C3
FA02 6A    DEC  ,S
FA04 2E    BGT  F9F8
FA06 35    PULS B,
FA08 EC    LDD  ,S
FA0A C4    ANDB #FC
FA0C 1F    TFR  D,X
FA0E EC    LDD  ,S++
FA10 8D    BSR  FA17
FA12 20    BRA  F9BA
FA14 1F    TFR  X,D
FA16 53    COMB 
FA17 C4    ANDB #03
FA19 5C    INCB 
FA1A BD    JSR  F6DC
FA1D 30    LEAX 1,X
FA1F 5A    DECB 
FA20 26    BNE  FA1A
FA22 39    RTS  
FA23 C6    LDB  #F0
FA25 BD    JSR  F7B1
FA28 34    PSHS B,
FA2A E6    LDB  ,S
FA2C BD    JSR  F864
FA2F 30    LEAX 1,X
FA31 6A    DEC  1,S
FA33 2E    BGT  FA2A
FA35 35    PULS B,
FA37 20    BRA  FA06
FA39 96    LDA  5F
FA3B 2B    BMI  FA48
FA3D 27    BEQ  FA45
FA3F 96    LDA  16
FA41 84    ANDA #01
FA43 26    BNE  FA4F
FA45 7E    JMP  EEB2
FA48 39    RTS  

FA49 96    LDA  16
FA4B 84    ANDA #01
FA4D 26    BNE  FA45
FA4F 7E    JMP  F4A6

FA52 34    PSHS U/S,A,CC
FA54 CE    LDU  #3FEA
FA57 20    BRA  FA65


// IO K7
FA59 34    PSHS U/S,A,CC
FA5B CE    LDU  #3FF3
FA5E 20    BRA  FA65

FA60 34    PSHS U/S,A,CC
FA62 CE    LDU  #3FF9

FA65 1A    ORCC #50
FA67 86    LDA  #03
FA69 BD    JSR  EC03
FA6C 24    BCC  FA74
FA6E 86    LDA  #01
FA70 AA    ORA  ,S
FA72 20    BRA  FA78
FA74 86    LDA  #FE
FA76 A4    ANDA ,S
FA78 A7    STA  ,S
FA7A 35    PULS PC,U/S,A,CC

// interruption FIRQ
FA7C 6E    JMP  [6023]

// interruption IRQ
FA80 86    LDA  #E7
FA82 1F    TFR  A,DP
FA84 DC    LDD  C0	// est-ce une interrupt clavier?
FA86 2B    BMI  FA9E
FA88 B6    LDA  6074
FA8B 85    BITA #40
FA8D 27    BEQ  FA9A
FA8F DC    LDD  CE	// scrute manette (mouse)
FA91 1F    TFR  D,X
FA93 10 9E LDY  CC
FA96 85    BITA #C0
FA98 26    BNE  FAA9
FA9A 6E    JMP  [6021]	// appel de VIRQ (interruption 50Hz)
// cas evenement clavier
FA9E 85    BITA #02
FAA0 27    BEQ  FAA5  
FAA2 54    LSRB 
FAA3 25    BCS  FAC5
FAA5 44    LSRA 
FAA6 25    BCS  FACF
FAA8 3B    RTI

// gestion souris  
FAA9 A6    LDA  a,S
FAAB 84    ANDA #F8
FAAD 81    CMPA #E0
FAAF 27    BEQ  FAC4
FAB1 FE    LDU  6055
FAB4 34    PSHS U/S,
FAB6 CE    LDU  #FFC3


// branche en ffc6 sur la rom mon 1
// cad lecture du clavier et de ses periph?
FAB9 FF    STU  6055
FABC BD    JSR  FFA0
FABF 35    PULS U/S,
FAC1 FF    STU  6055
FAC4 3B    RTI
FAC5 FE    LDU  6055
FAC8 34    PSHS U/S,
FACA CE    LDU  #FFC6
FACD 20    BRA  FAB9


// Gestion du clavier 
FACF A6    LDA  a,S
FAD1 84    ANDA #F8
FAD3 81    CMPA #E0
FAD5 27    BEQ  FAEC
FAD7 7A    DEC  60DC
FADA 26    BNE  FAE4
FADC B6    LDA  E7C1
FADF 84    ANDA #F7
FAE1 B7    STA  E7C1
FAE4 B6    LDA  60D4
FAE7 8A    ORA  #80
FAE9 B7    STA  60D4
FAEC B6    LDA  6019
FAEF 85    BITA #20
FAF1 27    BEQ  FAF7
FAF3 6E    JMP  [6027]


FAF7 B6    LDA  6019
FAFA 85    BITA #04
FAFC 27    BEQ  FB11
FAFE F6    LDB  E7C3
FB01 34    PSHS B,
FB03 8D    BSR  FB15
FB05 63    COM  [605A]
FB09 73    COM  6075
FB0C 35    PULS B,
FB0E F7    STB  E7C3
FB11 BC    CMPX E7C6
FB14 3B    RTI  


FB15 BD    JSR  EEA9
FB18 7D    TST  605F
FB1B 2A    BPL  FB25
FB1D 7D    TST  6086
FB20 2B    BMI  FB25
FB22 7A    DEC  E7C3
FB25 39    RTS  


FB26 34    PSHS X,A,
FB28 B6    LDA  E7C3
FB2B 84    ANDA #02
FB2D 8E    LDX  #04E2
FB30 30    LEAX ff,X
FB32 26    BNE  FB30
FB34 B4    ANDA E7C3
FB37 8B    ADDA #FF
FB39 35    PULS PC,X,A,

// vecteur VRSCOH par défaut
FB3B 34    PSHS U/S,Y,X,DP,B,A,CC
FB3D 86    LDA  #E7
FB3F 1F    TFR  A,DP
FB41 10 8E LDY  #603A
FB45 A6    LDA  f1,Y
FB47 1F    TFR  A,CC
FB49 25    BCS  FB7F
FB4B 29    BVS  FBC3
FB4D 27    BEQ  FB7F
FB4F 10 2B LBMI FBC9
FB53 85    BITA #20
FB55 26    BNE  FBCC
FB57 85    BITA #40
FB59 26    BNE  FB96
FB5B A6    LDA  f2,Y
FB5D 84    ANDA #FA
FB5F 27    BEQ  FB6B
FB61 A6    LDA  f2,Y
FB63 84    ANDA #15
FB65 8A    ORA  #10
FB67 A7    STA  f2,Y
FB69 20    BRA  FBD4
FB6B DC    LDD  E9
FB6D CA    ORB  #02
FB6F C4    ANDB #FE
FB71 D7    STB  EA
FB73 BE    LDX  608C
FB76 AF    STX  FFE7,Y
FB79 A6    LDA  f2,Y
FB7B 84    ANDA #70
FB7D 20    BRA  FB65
FB7F A6    LDA  f1,Y
FB81 85    BITA #08
FB83 26    BNE  FBC6
FB85 85    BITA #10
FB87 26    BNE  FB6B
FB89 85    BITA #04
FB8B 26    BNE  FB90
FB8D 86    LDA  #04
FB8F F5    BITB 8601
FB92 A5    BITA f2,Y
FB94 26    BNE  FBDF
FB96 A6    LDA  f2,Y
FB98 84    ANDA #7F
FB9A AA    ORA  f1,Y
FB9C A7    STA  f2,Y
FB9E A6    LDA  f1,Y
FBA0 81    CMPA #40
FBA2 26    BNE  FBE4
FBA4 96    LDA  C9
FBA6 84    ANDA #07
FBA8 8A    ORA  #02
FBAA 97    STA  C9
FBAC B6    LDA  6074
FBAF 85    BITA #10
FBB1 26    BNE  FBD4
FBB3 86    LDA  #40
FBB5 95    BITA C3
FBB7 26    BNE  FBD9
FBB9 B6    LDA  6074
FBBC 8A    ORA  #10
FBBE B7    STA  6074
FBC1 20    BRA  FBD4
FBC3 86    LDA  #01
FBC5 F5    BITB 8605
FBC8 F5    BITB 8645
FBCB F5    BITB 8640
FBCE A5    BITA f2,Y
FBD0 27    BEQ  FBDF
FBD2 8D    BSR  FC3B
FBD4 35    PULS U/S,Y,X,DP,B,A,CC
FBD6 1C    & CC #FE
FBD8 39    RTS  


FBD9 A6    LDA  f2,Y
FBDB 8A    ORA  #80
FBDD A7    STA  f2,Y
FBDF 35    PULS U/S,Y,X,DP,B,A,CC
FBE1 1A    ORCC #01
FBE3 39    RTS  


FBE4 1A    ORCC #10
FBE6 A6    LDA  a,Y
FBE8 AA    ORA  b,Y
FBEA 8E    LDX  #FCA3
FBED A1    CMPA ,X
FBEF 27    BEQ  FBFB
FBF1 30    LEAX 2,X
FBF3 8C    CMPX #FCB1
FBF6 26    BNE  FBED
FBF8 EE    LDU  a,Y
FBFA F5    BITB EE84
FBFD A6    LDA  c,Y
FBFF 84    ANDA #E1
FC01 88    EORA #61
FC03 8B    ADDA #40
FC05 1C    & CC #FE
FC07 46    RORA 
FC08 24    BCC  FC0C
FC0A 8A    ORA  #80
FC0C 33    LEAU A,U
FC0E 1F    TFR  U,D
FC10 D7    STB  EB
FC12 E6    LDB  c,Y
FC14 C4    ANDB #1C
FC16 58    ASLB 
FC17 58    ASLB 
FC18 58    ASLB 
FC19 96    LDA  EA
FC1B 84    ANDA #10
FC1D 8A    ORA  #09
FC1F A7    STA  32,Y
FC22 EA    ORB  32,Y
FC25 D7    STB  EA
FC27 53    COMB 
FC28 D8    EORB EA
FC2A 5C    INCB 
FC2B 26    BNE  FBD9
FC2D AE    LDX  FFE7,Y
FC30 BF    STX  608C
FC33 CE    LDU  #ECAC
FC36 EF    STU  FFE7,Y
FC39 20    BRA  FBD4
FC3B A6    LDA  f1,Y
FC3D 85    BITA #02
FC3F 26    BNE  FC6B
FC41 85    BITA #20
FC43 10 26 LBNE FC52
FC47 85    BITA #05
FC49 26    BNE  FC90
FC4B A6    LDA  f2,Y
FC4D 84    ANDA #FA
FC4F 27    BEQ  FC90
FC51 86    LDA  #40
FC53 95    BITA C3
FC55 26    BNE  FC51
FC57 D7    STB  C8
FC59 96    LDA  C9
FC5B 84    ANDA #07
FC5D 44    LSRA 
FC5E 54    LSRB 
FC5F 49    ROLA 
FC60 97    STA  C9
FC62 84    ANDA #05
FC64 97    STA  C9
FC66 8A    ORA  #02
FC68 97    STA  C9
FC6A 39    RTS  


FC6B 96    LDA  E9
FC6D 85    BITA #08
FC6F 26    BNE  FC87
FC71 1A    ORCC #10
FC73 E6    LDB  c,Y
FC75 54    LSRB 
FC76 54    LSRB 
FC77 25    BCS  FC7C
FC79 48    ASLA 
FC7A 2B    BMI  FC82
FC7C 96    LDA  EA
FC7E 8A    ORA  #08
FC80 97    STA  EA
FC82 35    PULS X,
FC84 16    LBRA FCDF
FC87 D6    LDB  E8
FC89 84    ANDA #03
FC8B 26    BNE  FC71
FC8D E7    STB  4,S
FC8F 39    RTS  


FC90 96    LDA  E9
FC92 85    BITA #10
FC94 27    BEQ  FC90
FC96 86    LDA  #3C
FC98 4A    DECA 
FC99 26    BNE  FC98
FC9B 96    LDA  E9
FC9D 48    ASLA 
FC9E 2B    BMI  FC90
FCA0 D7    STB  E8
FCA2 39    RTS  


FCA3 15    ILL  
FCA4 0C    INC  2E
FCA6 0A    DEC  62
FCA8 08    ASL  CA
FCAA 07    ASR  9B
FCAC 06    ROR  6E
FCAE 03    COM  07
FCB0 0E    JMP  34

// SETP$ A=couleur à modif / X=16bits OR modifier / Y=16bits AND modifier
//si A=FF alors X pointe sur un tableau contenant la nouvelle palette
FCB1 34    PSHS U,Y,DP,B,A,CC
FCB3 C6    LDB  #E7
FCB5 1F    TFR  B,DP
FCB7 4D    TSTA     
FCB8 2A    BPL  FCE1  // prog d'une couleur
FCBA 8D    BSR  FCD6  // wait a VBL
FCBC 10 8E LDY  #0200
FCC0 31    LEAY -1,Y
FCC2 26    BNE  FCC0  // temporise 200x8µs
FCC4 0F    CLR  DB    // met a zero le registre de selection
FCC6 10 8E LDY  #0010  
FCCA EC    LDD  ,X++
FCCC D7    STB  DA    // ecrit la valeur 16 bits dans le registre de donnée
FCCE 97    STA  DA
FCD0 31    LEAY -1,Y
FCD2 26    BNE  FCCA  // repete 16fois
FCD4 35    PULS PC,U/S,Y,DP,B,A,CC  
// RETOUR


FCD6 7D    TST  E7E7		// Wait a VBL
FCD9 2A    BPL  FCD6
FCDB 7D    TST  E7E7
FCDE 2B    BMI  FCDB
FCE0 39    RTS  

FCE1 1A    ORCC #50
FCE3 48    ASLA 			// multiplie l'index de couleur par 2
FCE4 34    PSHS A,
FCE6 8D    BSR  FD10		// attente de syncro
FCE8 C6    LDB  #0A
FCEA 5A    DECB 
FCEB 26    BNE  FCEA		// attente 5*10 µs
FCED 12    NOP  
FCEE A6    LDA  ,S
FCF0 97    STA  DB		// ecrit l'index dans le registre de sel
FCF2 1F    TFR  X,D
FCF4 D4    ANDB DA		// application du masque & dans le registre donnée
FCF6 94    ANDA DA
FCF8 34    PSHS B,A,
FCFA 1F    TFR  Y,D
FCFC AA    ORA  ,S+
FCFE EA    ORB  ,S+
FD00 AC    CMPX ,X++	
FD02 1F    TFR  D,X
FD04 35    PULS A,
FD06 97    STA  DB		// ecrit l'index dans le registre de sel
FD08 1F    TFR  X,D
FD0A D7    STB  DA		// application du masque ou
FD0C 97    STA  DA
FD0E 35    PULS PC,U/S,Y,DP,B,A,CC
// sortie de 

// attente de sync avec l'écran
FD10 86    LDA  #20
FD12 95    BITA E7
FD14 27    BEQ  FD12
FD16 95    BITA E7
FD18 26    BNE  FD16
FD1A 5A    DECB 
FD1B 34    PSHS U/S,Y,X,DP,B,A,
FD1D 3D    MUL  
FD1E 3D    MUL  
FD1F 1A    ORCC #00
FD21 35    PULS U/S,Y,X,DP,B,A,
FD23 B5    BITA E7E7
FD26 27    BEQ  FD1A
FD28 39    RTS  
// RETOUR

// fin de SETP$

// pt d'entrée extramoniteur
FD29 34    PSHS A,
FD2B B6    LDA  E7E6
FD2E 34    PSHS A,
FD30 7F    CLR  E7E6
FD33 B6    LDA  E7C3
FD36 84    ANDA #04  // verifie si cartouche présente
FD38 26    BNE  FD41
FD3A BA    ORA  0020
FD3D 84    ANDA #03
FD3F 20    BRA  FD44
FD41 BA    ORA  0020
FD44 34    PSHS A,
FD46 B6    LDA  E7C3
FD49 8A    ORA  #04
FD4B B7    STA  E7C3
FD4E B7    STA  0001
FD51 A6    LDA  2,S
FD53 BD    JSR  0029 // passe par la ROM1
FD56 35    PULS A,
FD58 8D    BSR  FD61
FD5A 35    PULS A,
FD5C B7    STA  E7E6
FD5F 35    PULS PC,A,


FD61 34    PSHS B,A,
FD63 84    ANDA #04
FD65 F6    LDB  E7C3
FD68 C4    ANDB #FB
FD6A 34    PSHS B,
FD6C AA    ORA  ,S
FD6E B7    STA  E7C3
FD71 86    LDA  #00
FD73 A7    STA  ,S
FD75 A7    STA  [,S++]
FD77 35    PULS PC,B,


// IO K7
FD79 34    PSHS A,
FD7B B6    LDA  E7E6
FD7E 34    PSHS A,
FD80 7F    CLR  E7E6
FD83 B6    LDA  E7C3
FD86 84    ANDA #04
FD88 26    BNE  FD91
FD8A BA    ORA  0020
FD8D 84    ANDA #03
FD8F 20    BRA  FD94
FD91 BA    ORA  0020
FD94 34    PSHS A,
FD96 A6    LDA  2,S
FD98 84    ANDA #30
FD9A 81    CMPA #30
FD9C 26    BNE  FDA4
FD9E A6    LDA  2,S
FDA0 84    ANDA #CF
FDA2 20    BRA  FDAA

FDA4 A6    LDA  2,S
FDA6 84    ANDA #CF
FDA8 8A    ORA  #04
FDAA 8D    BSR  FD61
FDAC 34    PSHS A,
FDAE B6    LDA  60CD
FDB1 84    ANDA #C0
FDB3 81    CMPA #40
FDB5 35    PULS A,
FDB7 26    BNE  FDC0
FDB9 FF    STU  6055
FDBC BD    JSR  FFA0
FDBF 7D    TST  ADC4
FDC2 20    BRA  FD56
FDC4 6E    JMP  [602F]


Pt d'entrée apres reset
FDC8 1A    ORCC #50
FDCA 7F    CLR  E7E6
FDCD C6    LDB  #60
FDCF 1F    TFR  B,DP
FDD1 10 CE LDS  #60CC
FDD5 86    LDA  #D4
FDD7 DE    LDU  FE
FDD9 11 83 CMPU #A55A
FDDD 27    BEQ  FDF5    // Hot reset
FDDF 11 83 CMPU #A559
FDE3 27    BEQ  FDF5
FDE5 B7    STA  A7E7    // Memo GE7E7
FDE8 CE    LDU  #6000
FDEB 6F    CLR  ,U+
FDED 11 83 CMPU #7000   // clean zero page
FDF1 26    BNE  FDEB
FDF3 03    COM  80
FDF5 B7    STA  E7E7    // 60Hz Commutation RAM Mode Gate ARRAY
FDF8 CE    LDU  #E000
FDFB E6    LDB  ,U+
FDFD EB    ADDB ,U+
FDFF EB    ADDB ,U+
FE01 CB    ADDB #55
FE03 E1    CMPB ,U      // calcul du cookie 
FE05 26    BNE  FE1D    // ici le resultat est 55
FE07 E6    LDB  -3,U
FE09 C1    CMPB #52     // 4D
FE0B 26    BNE  FE15    // le saut est pris
FE0D D6    LDB  CD
FE0F CA    ORB  #20
FE11 C4    ANDB #3F
FE13 20    BRA  FE21


FE15 D6    LDB  CD
FE17 C4    ANDB #DF
FE19 CA    ORB  #C0
FE1B 20    BRA  FE21

FE1D D6    LDB  CD
FE1F C4    ANDB #1F

FE21 86    LDA  #54
FE23 B7    STA  E7E7    // 50 Hz mode PIA
FE26 86    LDA  #01
FE28 97    STA  48
FE2A 0F    CLR  49
FE2C BD    JSR  E004    // appel (verif Disk)
FE2F 96    LDA  4E
FE31 24    BCC  FE3B
FE33 C5    BITB #C0
FE35 26    BNE  FE4C
FE37 0F    CLR  80
FE39 20    BRA  FE49

FE3B 81    CMPA #43
FE3D 26    BNE  FE45
FE3F C4    ANDB #3F
FE41 CA    ORB  #40
FE43 20    BRA  FE49

FE45 C4    ANDB #3F
FE47 CA    ORB  #80
FE49 86    LDA  #54
FE4B 7D    TST  86D4
FE4E D7    STB  CD
FE50 97    STA  81
FE52 B7    STA  E7E7
FE55 8E    LDX  #607C
FE58 96    LDA  47
FE5A D6    LDB  5F
FE5C 1F    TFR  D,Y
FE5E DE    LDU  74
FE60 D6    LDB  2C
FE62 4F    CLRA 

FE63 A7    STA  ,-X
FE65 8C    CMPX #6019
FE68 2E    BGT  FE63
FE6A D7    STB  2C
FE6C DF    STU  74
FE6E 1F    TFR  Y,D
FE70 97    STA  47
FE72 D7    STB  5F
FE74 C6    LDB  #F0
FE76 D7    STB  1A
FE78 D7    STB  1C
FE7A D7    STB  1E

FE7C 8E    LDX  #E844
FE7F 9F    STX  21
FE81 9F    STX  23
FE83 9F    STX  27
FE85 9F    STX  2F
FE87 8E    LDX  #E845
FE8A 9F    STX  CF
FE8C 8E    LDX  #6082	
FE8F 9F    STX  79	// mise en place du ptr sur le buf clav
FE91 86    LDA  #04
FE93 97    STA  7B
FE95 8E    LDX  #6000
FE98 10 8E LDY  #FF69
FE9C DE    LDU  FE
FE9E 11 83 CMPU #A55A     // Cold or Hot reset
FEA2 26    BNE  FEA8
FEA4 30    LEAX 4,X
FEA6 31    LEAY 4,Y

FEA8 EC    LDD  ,Y++      // copie la zone FF69-FF7D dans 6000-6014
FEAA ED    STD  ,X++
FEAC 10 8C CMPY #FF7F
FEB0 2B    BMI  FEA8
FEB2 8E    LDX  #3C3C
FEB5 BF    STX  E7CA
FEB8 C6    LDB  #F6
FEBA F7    STB  E7C9        // PIA SYS
FEBD CE    LDU  #3838
FEC0 FF    STU  E7CA
FEC3 CC    LDD  #FEFF
FEC6 FD    STD  E7C8
FEC9 BF    STX  E7CA
FECC CC    LDD  #0000
FECF CE    LDU  #E7CC       // PIA JOY
FED2 ED    STD  2,U
FED4 8E    LDX  #0030
FED7 AF    STX  ,U
FED9 8A    ORA  #04
FEDB CA    ORB  #04
FEDD ED    STD  2,U
FEDF 8E    LDX  #393D
FEE2 BF    STX  E7C1        //  6846 Partie PIA
FEE5 96    LDA  CD
FEE7 84    ANDA #C0
FEE9 81    CMPA #40
FEEB 27    BEQ  FEF0  ??? code space
FEED 86    LDA  #2C
FEEF 7D    TST  863C   // FEF0 LDA #3C
FEF2 B7    STA  E7C3
FEF5 B7    STA  0003   // commute la ROM 3 (gestion de fichiers)
FEF8 7E    JMP  3FF6


FEFB F7    STB  E7C3
FEFE E7    STB  ,Y
FF00 6E    JMP  [,U]


FF02 D7    STB  35
FF04 34    PSHS B,A,
FF06 8D    BSR  FF37
FF08 E4    ANDB 1,S
FF0A F7    STB  E7C3
FF0D 9E    LDX  8C
FF0F E7    STB  ,X
FF11 86    LDA  #55
FF13 9E    LDX  76
FF15 E6    LDB  ,X+
FF17 E7    STB  FF9F,X
FF1B 8C    CMPX #001B
FF1E 24    BCC  FF22
FF20 AB    ADDA ff,X
FF22 8C    CMPX #0021
FF25 25    BCS  FF15
FF27 8D    BSR  FF37
FF29 F7    STB  E7C3
FF2C F7    STB  0003
FF2F 8E    LDX  #5FA0
FF32 A1    CMPA 1A,X
FF35 35    PULS PC,B,A,
FF37 F6    LDB  E7C3
FF3A CA    ORB  #04
FF3C 39    RTS


// Utilisation de la table de redirection
FF3D 6E    JMP  [6000]

FF41 6E    JMP  [6002]

FF45 6E    JMP  [6004]

FF49 6E    JMP  [6006]

FF4D 6E    JMP  [6008]

FF51 6E    JMP  [600A]

FF55 6E    JMP  [600C]

FF59 6E    JMP  [600E]

FF5D 6E    JMP  [6010]

FF61 6E    JMP  [6012]

FF65 6E    JMP  [6014]

// Table Zero Page redir vectors At Bootup
FF69 FF7F 
     FF82 
     FF85  
     FF88  
     FF8B  
     FF8E  
     FF91   
     FF94   
     FF97
     FF9A 
     FF9D    

// vecteurs zéro Page par défaut
FF7F 7E    JMP  FA60

FF82 7E    JMP  FB26

FF85 7E    JMP  EC30 ??? … verifier

FF88 7E    JMP  EC7A

FF8B 7E    JMP  ECC8

FF8E BD    JSR  ECB8

FF91 7E    JMP  F8C6

FF94 7E    JMP  F6DC

FF97 7E    JMP  FB3B

FF9A 7E    JMP  F724

FF9D BD    JSR  ECB8

// Switch & execute
FFA0 34    PSHS A,CC
FFA2 1A    ORCC #50
FFA4 B6    LDA  E7C3
FFA7 8A    ORA  #10
FFA9 B7    STA  E7C3   // passe à l'autre ROM Moniteur

// execute (from other page)
FFAC 35    PULS A,CC
FFAE AD    JSR  [6055]
FFB2 34    PSHS A,CC
FFB4 1A    ORCC #50
FFB6 B6    LDA  E7C3
FFB9 8A    ORA  #10
FFBB B7    STA  E7C3	// repasse à la ROM mon 1

FFBE 35    PULS PC,A,CC	// FIN de switch & execute


FFC0 7E    JMP  EC3E

FFC3 7E    JMP  EC7C

FFC6 FF    STU  FFFF
FFC9 FF    STU  FFFF
FFCC FF    STU  FFFF
FFCF FF    STU  CCCC
FFD2 CC    LDD  #CCCC
FFD5 CC    LDD  #CCCC
FFD8 CC    LDD  #CCCC
FFDB CC    LDD  #CCCC
FFDE CC    LDD  #CCCC
FFE1 CC    LDD  #CCCC
FFE4 CC    LDD  #CCCC
FFE7 CC    LDD  #CCCC
FFEA CC    LDD  #CCCC
FFED CC    LDD  #CCCC

FFF0 0300  RESERVED
FFF2 7000  SWI3
FFF4 6800  SWI2
FFF6 FA7C  FIRQ
FFF8 FA80  IRQ
FFFA FDC4  SWI
FFFC FDC8  NMI
FFFE FDC8  RESET