OVERSCAN.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.5 KB

Line
1	****************************************
2	* *
3	* COMPETENCE SANS FRONTIERE:L'OVERSCAN *
4	* *
5	****************************************
6	* Codé le 10-9-90 par doc Lô *
7
8	ORG $D5B2
9
10	G ORCC #80
11	LDA #$E7
12	EXG A,DP
13	STA RDP+2
14	LDD #32
15	STA <$DB
16	STA <$DA
17	DECB
18	BNE *-3
19	LDA #$21
20	STA <$DC
21	CLR <$DD
22	LDA <$C3
23	ORA #1
24	STA <$C3
25	LDX #$4000
26	CLR ,X+
27	CMPX #$5F40
28	BNE *-5
29	DEC <$C3
30	CLR ,-X
31	CMPX #$4000
32	BNE *-5
33	LDX #MAP
34	STX $616B
35	LDD #$FF0E
36	STA $6249
37	STB $616D
38	LDD #$60B
39	STD $61D6
40	CLR $6288
41	LDB #69
42	JSR $EC0C
43	LDA #255
44	LDX #COULS
45	JSR $EC00
46	LDA <$CD
47	BITA #64
48	BNE *-4
49	LDD #32
50	STA <$DB
51	STA <$DA
52	DECB
53	BNE *-3
54	LDX #$4467
55	LDU #$A000
56	LDA ,U+
57	STA ,X+
58	CMPX #$5F40
59	BNE *-7
60	INC <$C3
61	LDX #$4467
62	LDA ,U+
63	STA ,X+
64	CMPX #$5F40
65	BNE *-7
66	LDA #255
67	LDX #COULS+8
68	JSR $EC00
69
70	LDA #100
71	LDX #8*312
72	LEAX -1,X
73	BNE *-2
74	DECA
75	BNE *-8
76
77	NORMAL LDA #32
78	BITA <$E7
79	BEQ *-2
80	BITA <$E7
81	BNE *-2
82	PSHS A
83	MUL
84	MUL
85	MUL
86	MUL
87	PULS A
88	BITA <$E7
89	BEQ *-10
90	MUL
91	MUL
92	MUL
93	MUL
94	MUL
95	TST <$E7
96	BPL *-7
97	MUL
98	MUL
99	MUL
100	MUL
101	MUL
102	TST <$E7
103	BMI *-7
104	LDB #$5C
105	TST <$C8
106	BNE RDP
107	LDA <$CC
108	BITA #2
109	BNE NORMAL
110
111	GOON LDA #$7C
112	STA <$E7
113	LDX #4
114	LEAX -1,X
115	BNE *-2
116	STB <$E7
117	LDX #8
118	LEAX -1,X
119	BNE *-2
120	LDA <$C8
121	BNE RDP
122	LDA <$CC
123	BITA #1
124	BNE GOON
125	BRA NORMAL
126
127	RDP LDD #$FF00
128	CLR <$DC
129	TFR B,DP
130	LDX #COULS+16
131	JSR $EC00
132	RTS
133
134	COULS FDB 0,$F00,$200,$600
135	FDB 0,19,40,1996
136	FDB 0,15,240,255,3840,3855
137	FDB 4080,4095,1911,826
138	MAP
139
140	END

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