source: thomson/code/3rdparty/sources3-lambinet/Turbodisk/TURBOPIO.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: 4.4 KB
Line 
1
2
3
4***********************************
5******** TURBODISK pour ********
6******** PIO1 Version 1.2 ********
7******** AVEC VERIFICATION ********
8****************************10/10/89*
9
10*********** EQUATES ***********
11
12FLGEL EQU FIN
13FLGERR EQU FIN+1
14COMPTP EQU FIN+2
15COMPTB EQU FIN+3
16DEBZON EQU FIN+4
17ESSAI EQU FIN+6
18FLGCNT EQU FIN+7
19
20*********** PROGRAM ***********
21
22 ORG $8000
23 PSHS U,Y,X,DP,B,A,CC
24 LDD #$0114
25 DECA
26 BNE FACE1
27 INCB
28 BRA FACE0
29FACE1 LDA #$01
30FACE0 STA $6049
31 STB $604B
32 LDA #$03 No basic prem.bank
33 STA $E7E5
34NEXTBK LDA #$03
35 STA COMPTP
36 INC $E7E5
37 LDX #$A000
38 STX DEBZON
39NEXTPS DEC $6049
40 BEQ INIESS
41 DEC $604B
42 LDD #$4001
43 STD $6048
44INIESS LDA #4
45 STA ESSAI
46 CLR FLGCNT
47 LDX DEBZON
48 LEAX $1556,X
49 STX ECRZON+1,PCR
50 STX LECZON+1,PCR
51 STX CNTZON+1,PCR
52NEXTES LBSR TETE
53 LDY #0
54ATT0 LDA <$D1
55 BITA #$40
56 BEQ ATT0
57ATT1 LDA <$D3
58 LDA <$D0
59 BPL ATT1
60ATT2 LDA <$D0
61 BPL ATT2
62 TST FLGEL
63 BNE LECT
64 TST FLGCNT
65 LBNE CNTROL
66 LDD #$4EFF
67 STD <$D3
68 LDB #$04
69 STB <$D0
70 LDB #$40
71ATT3 LDA <$D0
72 BPL ATT3
73 CLR <$D3
74 DECB
75 BNE ATT3
76ATT4 LDA <$D0
77 BPL ATT4
78 LDD #$A10A
79 STD <$D3
80ATT5 LDB <$D0
81 BPL ATT5
82 STA <$D3
83ATT6 LDB <$D0
84 BPL ATT6
85 STA <$D3
86ATT7 LDA <$D0
87 BPL ATT7
88 LDD #$FBFF
89 STD <$D3
90 LDX DEBZON
91BECRI LDB <$D0
92 BPL BECRI
93 LDA ,X+
94 STA <$D3
95 LEAY A,Y
96ECRZON CMPX #$0000
97 BNE BECRI
98 TFR Y,D
99 STD CHKSUM+1,PCR
100ATT8 TST <$D0
101 BPL ATT8
102 STA <$D3
103ATT9 TST <$D0
104 BPL ATT9
105 STB <$D3
106 LDA #$10
107ATT10 LDB <$D0
108 BPL ATT10
109 STA <$D3
110 DECA
111 BNE ATT10
112 INC FLGCNT
113 LBRA NEXTES
114LECT LDA <$D3
115ATT14 LDA <$D0
116 BPL ATT14
117 BITA #$01
118 BNE LECT
119 CLRB
120 LDX DEBZON
121 LDA <$D3
122ATT15 LDA <$D0
123 BPL ATT15
124 LDA <$D3
125 CMPA #$FB
126 BEQ ATT16
127 DECB
128 BNE ATT15
129 BRA PBLECT
130ATT16 LDA <$D0
131 BPL ATT16
132 LDA <$D3
133 STA ,X+
134 LEAY A,Y
135LECZON CMPX #$0000
136 BNE ATT16
137 TFR Y,D
138ATT17 TST <$D0
139 BPL ATT17
140 CMPA <$D3
141 BNE PBLECT
142ATT18 TST <$D0
143 BPL ATT18
144 CMPB <$D3
145 BEQ FINPST
146PBLECT DEC ESSAI
147 LBNE NEXTES
148 LDA #$FF
149 STA FLGERR
150FINPST CLR <$D0
151 LDA #$40
152 STA <$D2
153 LDX LECZON+1,PCR
154 STX DEBZON
155 DEC COMPTP
156 LBNE NEXTPS
157 DEC COMPTB
158 LBNE NEXTBK
159 PULS CC,A,B,DP,X,Y,U,PC
160
161
162
163TETE JSR $E09D
164 JSR $E0A7
165 JSR $E45A
166 JSR $E4A8
167 LDB ,Y
168 LDA <$57
169 SUBB <$4B
170 BEQ TETE2
171 BPL TETE0
172 ORA #$20
173 NEGB
174TETE0 STA 2,X
175TETE1 ORA #$14
176 STA 2,X
177 ANDA #$EB
178 STA 2,X
179 JSR $E165
180 DECB
181 BNE TETE1
182TETE2 BSR TETE3
183 LDB <$4B
184 STB 6,X
185 STB ,Y
186 JSR $E341
187 LDB #$18
188 JSR $E394
189 LDA #$E7
190 TFR A,DP
191 RTS
192TETE3 LDY #$6052
193 LDA <$49
194 ANDA #$02
195 LEAY A,Y
196 RTS
197
198
199CNTROL LDA <$D3
200ATT19 LDA <$D0
201 BPL ATT19
202 BITA #$01
203 BNE CNTROL
204 CLRB
205 LDX DEBZON
206 LDA <$D3
207ATT20 LDA <$D0
208 BPL ATT20
209 LDA <$D3
210 CMPA #$FB
211 BEQ ATT21
212 DECB
213 BNE ATT20
214 BRA PBCNT
215ATT21 LDA <$D0
216 BPL ATT21
217 LDA <$D3
218 CMPA ,X+
219 BNE PBCNT
220CNTZON CMPX #$0000
221 BNE ATT21
222CHKSUM LDD #0
223ATT22 TST <$D0
224 BPL ATT22
225 CMPA <$D3
226 BNE PBCNT
227ATT23 TST <$D0
228 BPL ATT23
229 CMPB <$D3
230 BEQ FP
231PBCNT CLR FLGCNT
232 DEC ESSAI
233 LBNE NEXTES
234 LDA #$FF
235 STA FLGERR
236FP CLR FLGCNT
237 LBRA FINPST
238
239
240
241
242FIN NOP
243
244 END
Note: See TracBrowser for help on using the repository browser.