COPYROME.ASM@ ceffc47

main

Last change on this file since ceffc47 was ceffc47, checked in by Adrien Destugues <pulkomandy@…>, 10 years ago

Add that collection of 3rdparty source I had lying on my disk for some time...

git-svn-id: svn://localhost/thomson@51 85ae3b6b-dc8f-4344-a89d-598714f2e4e5

File size: 1.3 KB

Line
1	* COPYROME *************************
2	* *
3	* LECTURE DES 16 Ko ROM en $E000/$FFFF *
4	* ( moniteur en deux parties de 8 Ko ) *
5	* *
6	* par Michel SAINT-BRIANT/ASCI (c) *
7
8	ORG $8000
9
10	* Sauvegarde des registres
11
12	PSHS U,X,Y,DP,A,B,CC
13
14	* Initialisation de la bank courante
15	* en bank 3 (no BASIC donc valeur=4)
16
17	LDA #4
18	STA $E7E5
19
20	* Copie du moniteur partie haute
21	* à lire en BANK 3 de $C000 à $DFFF
22
23	LDA $E7C3 la commutation des
24	ORA #$10 deux parties se
25	STA $E7C3 joue sur le bit 4
26	* du 6846 en $E7C3
27	* =1 -> part.haute
28	LDX #$C000
29	LDY #$E000
30	COP0 LDU ,Y++
31	STU ,X++
32	CMPX #$E000
33	BLO COP0
34
35	* Copie du moniteur partie basse
36	* à lire en BANK 3 de $A000 à $BFFF
37
38	LDA $E7C3 la commutation des
39	ANDA #$EF deux parties se
40	STA $E7C3 joue sur le bit 4
41	* du 6846 en $E7C3
42	* =0 -> part.basse
43	LDX #$A000
44	LDY #$E000
45	COP1 LDU ,Y++
46	STU ,X++
47	CMPX #$C000
48	BLO COP1
49
50
51	* On restaure les registres et on sort.
52
53	PULS CC,B,A,DP,Y,X,U,PC
54
55	END

Note: See TracBrowser for help on using the repository browser.