CARTOONS.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.9 KB

Line
1	**************************************
2	**************************************
3
4	* * * * * * * *
5	** * * * * * * * * * * ** * * **
6	** * * * * * * * * * **
7	** * * * * * * * * * * * * * **
8	* * * * * * * * * * *
9
10	**************************************
11	**************************************
12
13	Par Michel SAINT-BRIANT (c) ASCI
14
15	**************************************
16	**************************************
17	* permet de transferer une zone de la
18	* page d'affichage no 0 sur les pages
19	* 2 ou 3 puis de commuter ladite page
20	* ce qui permet un affichage instan-
21	* utilisable pour des animations.
22	**************************************
23
24
25	ORG $8000
26	G PSHS X,Y,U,A,B,DP,CC
27	LDA #2 commutation de la
28	STA $E7E5 bank basic 1
29	LDU #$4262 zone lecture
30	LDY #$C4BA zone écriture
31	LDA #170 170 lignes
32	STA COMPT sur compteur
33	BOUCLE PULU A,B,X < équivaut LDD,U++
34	STD ,Y++ & LDX,Y++ mais en
35	STX ,Y++ plus rapide: 9 cy
36	PULU A,B,X cles au lieu de16
37	STD ,Y++ < 8 cycles
38	STX ,Y++ < 8 cycles
39	PULU A,B,X
40	STD ,Y++ donc (8+8+9)*5=
41	STX ,Y++ 125 cycles par
42	PULU A,B,X ligne + 16 pour
43	STD ,Y++ boucle donc en
44	STX ,Y++ tout 151*170=
45	PULU A,B,X 25670 cycles
46	STD ,Y++ d'où 1/40 s
47	STX ,Y++
48	LEAU 20,U 8 cycles )
49	LEAY 20,Y 8 cycles ) =
50	DEC COMPT 7 cycles ) 26
51	BNE BOUCLE 3 cycles )
52	LDA #$80 on valide bank 1
53	STA $E7DD pour l'écran
54	PULS CC,A,B,DP,X,Y,U,PC
55	COMPT NOP
56	END

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