PATRIOTE.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: 2.0 KB

Line
1	*********************************
2	* * *
3	* PATRIOTE * Affichage OVERSCAN *
4	* * *
5	*********************************
6	* *
7	* AFFICHAGE DU DRAPEAU FRANCAIS *
8	* *
9	*********************************
10	* *
11	* Pour ASCINEWS 3 / ASSEMBLEUR6 *
12	* Michel SAINT-BRIANT / ASCI(C) *
13	* *
14	*********************************
15
16
17	ORG $8000
18
19	PSHS U,Y,X,DP,B,A,CC
20	G ORCC #$50
21	LDU #$E7DD
22	LDY #$E7E7
23	ATTRA0 LDA ,Y
24	BPL ATTRA0
25	ATTRA1 LDA ,Y
26	BMI ATTRA1
27	LDX #624
28	LDY #750 =750/25=30 s
29	LDB #4
30	STB ,U
31	BRA DEBUT
32
33	BLEU LDB #4 2 us ) ROUGE
34	STB ,U 4 us ___)__6 us
35	NOP ) )
36	NOP ) )
37	NOP ) ) BLEU
38	NOP ) 7x2 us )
39	DEBUT NOP ) )
40	NOP ) )
41	NOP ) ) 20 us
42	BLANC LDB #7 2 us )
43	STB ,U 4 us ___)_______
44	NOP ) )
45	NOP ) )
46	NOP ) ) BLANC
47	NOP ) 7x2 us )
48	NOP ) )
49	NOP ) )
50	NOP ) ) 20 us
51	ROUGE LDB #1 2 us )
52	STB ,U 4 us ___)_______
53	NOP ) )
54	NOP ) ) ROUGE
55	NOP ) 5x2 us )
56	NOP ) ) 18 us
57	NOP ) ) +
58	LEAX -1,X 5 us ) 6 us
59	BNE BLEU 3 us ___)_
60	LDB #4 2 us ) 6 us
61	STB ,U 4 us ___)_
62	LDX #624 3 us )
63	LEAY -1,Y 5 us ) 14 us
64	LBNE BLANC 6 us ______)
65
66	FIN CLR ,U
67	ANDCC #$AF
68	K PULS CC,A,B,DP,X,Y,U,PC
69
70	END

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