source: thomson/code/3rdparty/sources2-hcl/HCL Megademo/MULTIMOD.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: 3.0 KB
Line 
1****************************************
2* *
3**** M U L T I M O D ****
4*HCL* *HCL*
5****************************************
6* J'ai honte ! Pourtant c'est bien moi *
7
8
9 ORG $A000
10MAP2 EQU $A477
11
12
13G ORCC #80
14 LDA #$E7
15 EXG A,DP
16 STA RDP+1
17 LDD #32
18 STA <$DB
19 STA <$DA
20 DECB
21 BNE *-3
22 LDA #$21
23 STA <$DC
24 CLR <$DD
25 LDA <$C3
26 ORA #1
27 STA <$C3
28 LDX #$4000
29 CLR ,X+
30 CMPX #$5F40
31 BNE *-5
32 DEC <$C3
33 CLR ,-X
34 CMPX #$4000
35 BNE *-5
36 LDX #MAP
37 STX $616B
38 LDD #$FF0E
39 STA $6249
40 STB $616D
41 LDD #$60B
42 STD $61D6
43 CLR $6288
44 LDB #69
45 JSR $EC0C
46 LDA #255
47 LDX #DATAS-8
48 JSR $EC00
49 LDA <$CD
50 BITA #64
51 BNE *-4
52 LDD #32
53 STA <$DB
54 STA <$DA
55 DECB
56 BNE *-3
57 LDX #MAP2
58 STX $616B
59 LDD #$FF0E
60 STA $6249
61 STB $616D
62 LDD #$100
63 STD $61D6
64 CLR $6288
65 LDB #69
66 JSR $EC0C
67
68 LDA #32
69 BITA <$E7
70 BEQ *-2
71 BITA <$E7
72 BNE *-2
73 PSHS A
74 MUL
75 MUL
76 MUL
77 MUL
78 PULS A
79 BITA <$E7
80 BEQ *-10
81 MUL
82 MUL
83 MUL
84 MUL
85 MUL
86 TST <$E7
87 BPL *-7
88 MUL
89 MUL
90 MUL
91 MUL
92 MUL
93 TST <$E7
94 BMI *-7
95 LDX #892
96 LEAX -1,X
97 BNE *-2
98 TST ,X
99 LDU #DATAS
100
101 PULU X
102WAIT MUL
103 MUL
104 MUL
105 MUL
106 TST ,Y++
107 LEAX -1,X
108 BEQ *+4
109 BRA WAIT
110 LDX #7
111COULS LDA ,U+
112 ASLA
113 STA <$DB
114 PULU D
115 STB <$DA
116 STA <$DA
117 TST 1,Y
118 MUL
119 MUL
120 LEAX -1,X
121 BNE COULS
122MODE LDA ,U+
123 NOP
124 STA <$DC
125 CMPU #FINDAT
126 BEQ *+4
127 BRA *+5
128 LDU #DATAS
129 MUL
130 MUL
131 ABX
132 TST <$C8
133 BEQ WAIT-2
134RDP LDA #0
135 TFR A,DP
136 LDB #12
137 JSR $E803
138 LDA #255
139 LDX #FINDAT
140 JSR $EC00
141 RTS
142
143 FDB 0,$F0,$20,$60
144DATAS FDB 64,$10F,4,$0016,0,6,$2B
145 FDB 0,8,$5F,0,$2A
146 FDB 32,$102,$2202,$555,$30F
147 FDB $FF0A,$1BF,0,$C,$6FE,0,$21
148 FDB 40,0,2,$2,0,$E,$DFD,0,0,0
149 FDB 0,$7B
150 FDB 40,$103,3,$1B,$601,$6F08
151 FDB $777,$A00,$400C,$841,$E0F
152 FDB $9400
153 FDB 96,$501,$2407,$FFF,$0901
154 FDB $150B,$049F,$0D01,$3E00,0
155 FDB 0,0
156
157FINDAT FDB 0,15,240,255,3840,3855
158 FDB 4080,4095,1911,826,931,938
159 FDB 2611,2618,3815,123
160MAP
161 END
Note: See TracBrowser for help on using the repository browser.