source: thomson/code/3rdparty/sources2-hcl/COULEURS.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
  • Property mode set to 100644
File size: 2.6 KB
Line 
1****************************************
2* *
3* " Pour Quelques Couleurs De Plus " *
4* *
5****************************************
6* Codé le 5-7-90 (en 8 mn!) par doc Lô *
7
8 ORG $A000
9
10
11G ORCC #80
12 LDA #$E7
13 EXG A,DP
14 STA RDP+1
15 LDD #32
16 STA <$DB
17 STA <$DA
18 DECB
19 BNE *-3
20 LDA #$21
21 STA <$DC
22 CLR <$DD
23 LDA <$C3
24 ORA #1
25 STA <$C3
26 LDX #$4000
27 CLR ,X+
28 CMPX #$5F40
29 BNE *-5
30 DEC <$C3
31 CLR ,-X
32 CMPX #$4000
33 BNE *-5
34 LDX #MAP
35 STX $616B
36 LDD #$FF0E
37 STA $6249
38 STB $616D
39 LDD #$60B
40 STD $61D6
41 CLR $6288
42 LDB #69
43 JSR $EC0C
44 LDA #255
45 LDX #PRINT-8
46 JSR $EC00
47 LDA <$CD
48 BITA #64
49 BNE *-4
50 LDD #32
51 STA <$DB
52 STA <$DA
53 DECB
54 BNE *-3
55 LDU #PRINT
56 LDB ,U+
57 JSR $E803
58 BNE *-5
59
60 LDA #32
61 BITA <$E7
62 BEQ *-2
63 BITA <$E7
64 BNE *-2
65 PSHS A
66 MUL
67 MUL
68 MUL
69 MUL
70 PULS A
71 BITA <$E7
72 BEQ *-10
73 MUL
74 MUL
75 MUL
76 MUL
77 MUL
78 TST <$E7
79 BPL *-7
80 MUL
81 MUL
82 MUL
83 MUL
84 MUL
85 TST <$E7
86 BMI *-7
87 LDX #679
88 LEAX -1,X
89 BNE *-2
90 LDD #0
91
92HDEG STA <$DB
93 STB <$DA
94 STA <$DA
95 STA <$DB
96 STB <$DA
97 TST ,X++
98 TST ,--X
99 LDA #15
100 STA <$DA
101 CLRA
102 TST [D,X]
103 INCB
104 BNE HDEG
105
106 STB <$DB
107 STB <$DA
108 STB <$DA
109 STB <$DA
110 STB <$DA
111
112 LDX #441
113 LDA <$CC
114 BITA #1
115 BNE *+8
116 LDX #449
117 NOP
118 BRA JOIN
119 BITA #2
120 BEQ *+4
121 BRA JOIN
122 LDX #433
123JOIN LDA 1,U
124 CLRA
125 LEAX -1,X
126 BNE *-2
127 TST <$C8
128 BEQ HDEG
129RDP LDA #0
130 TFR A,DP
131 LDB ,U+
132 JSR $E803
133 BNE *-5
134 LDA #255
135 LEAX ,U
136 JSR $EC00
137 RTS
138
139 FDB 0,$FF,$22,$66
140PRINT FDB $1B5B,$0C0A,$4843,$4C00
141 FCB $1B,$5A,0
142 FDB 0,15,240,255,3840,3855
143 FDB 4080,4095,1911,826,931,938
144 FDB 2611,2618,3815,123
145MAP
146 END
Note: See TracBrowser for help on using the repository browser.