Mercurial > hg > Members > kono > nitros9-code

comparison level1/modules/rbdw3.asm @ 2231:27f07aa0bca0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Updated modules to use Darren Atkinson's latest changes to low level read/write routines
author boisy
date Sun, 12 Apr 2009 18:48:24 +0000
parents 0d9a3b9b5886
children 07b2433f0c65
comparison
equal deleted inserted replaced
2230:236cbc2d2dc8 2231:27f07aa0bca0
209 jsr 6,u 209 jsr 6,u
210 210
211 * Get 256 bytes of sector data 211 * Get 256 bytes of sector data
212 ldx 5,s 212 ldx 5,s
213 ldx PD.BUF,x get buffer pointer into X 213 ldx PD.BUF,x get buffer pointer into X
214 lda #255 214 ldy #$0100
215 jsr 3,u 215 jsr 3,u
216 bcs ReadEr1 216 bcs ReadEr1
217 cmpd #256
218 bne ReadEr1 217 bne ReadEr1
219 pshs y 218 pshs y
220 leax ,s 219 leax ,s
221 ldy #$0002 220 ldy #$0002
222 jsr 6,u write checksum to server 221 jsr 6,u write checksum to server
223 222
224 * Get error code byte 223 * Get error code byte
225 leax ,s 224 leax ,s
226 lda #255 225 ldy #$0001
227 jsr 3,u 226 jsr 3,u
228 bcs ReadEr0 branch if we timed out 227 bcs ReadEr0 branch if we timed out
229 cmpd #0001
230 bne ReadEr0 228 bne ReadEr0
231 puls d 229 puls d
232 tfr a,b transfer byte to B (in case of error) 230 tfr a,b transfer byte to B (in case of error)
233 tstb is it zero? 231 tstb is it zero?
234 beq ReadEx if not, exit with error 232 beq ReadEx if not, exit with error
298 leax ,s 296 leax ,s
299 ldy #$0002 297 ldy #$0002
300 jsr 6,u 298 jsr 6,u
301 299
302 * Await acknowledgement from server on receipt of sector 300 * Await acknowledgement from server on receipt of sector
303 * ldy #$0001 301 leax ,s
304 lda #255 302 ldy #$0001
305 leax ,s
306 jsr 3,u read ack byte from server 303 jsr 3,u read ack byte from server
307 bcs WritEx0 304 bcs WritEx0
308 cmpd #$0001
309 bne WritEx0 305 bne WritEx0
310 puls d 306 puls d
311 tsta 307 tsta
312 beq WritEx yep 308 beq WritEx yep
313 tfr a,b 309 tfr a,b