/[projet1]/public/oric/demos/PushingTheEnvelope/code/loader.asm
Defence Force logotype

Diff of /public/oric/demos/PushingTheEnvelope/code/loader.asm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1402 by dbug, Sun Feb 2 12:27:33 2014 UTC revision 1403 by Jede, Mon Apr 17 20:43:40 2017 UTC
# Line 265  same_track Line 265  same_track
265  #endif  #endif
266    
267          lda current_sector          lda current_sector
268            .dsb ((FDC_sector_register&3)-((*+3)&3))&3,$ea
269          sta FDC_sector_register,y          sta FDC_sector_register,y
270          inc current_sector          inc current_sector
271                    
272          ; Check if the drive is on the correct track                      ; Check if the drive is on the correct track            
273          lda current_track          lda current_track
274            .dsb ((FDC_track_register&3)-((*+3)&3))&3,$ea
275          cmp FDC_track_register,y                  cmp FDC_track_register,y        
276          beq stay_on_the_track          beq stay_on_the_track
277                                    
278            .dsb ((FDC_data&3)-((*+3)&3))&3,$ea
279          ; Set the new track          ; Set the new track
280          sta FDC_data,y          sta FDC_data,y
281                                    
282          lda #CMD_Seek          lda #CMD_Seek
283            .dsb ((FDC_command_register&3)-((*+3)&3))&3,$ea
284          sta FDC_command_register,y                sta FDC_command_register,y      
285          jsr WaitCompletion          jsr WaitCompletion
286                    
# Line 286  stay_on_the_track Line 290  stay_on_the_track
290          sta FDC_flags,y          sta FDC_flags,y
291    
292          lda #CMD_ReadSector          lda #CMD_ReadSector
293            .dsb ((FDC_command_register&3)-((*+3)&3))&3,$ea
294          sta FDC_command_register,y          sta FDC_command_register,y
295    
296          ;cli          ;cli
# Line 296  stay_on_the_track Line 301  stay_on_the_track
301          ; Read the sector data          ; Read the sector data
302          ;          ;
303          ldx #0          ldx #0
304            .dsb (($318&3)-((*+3)&3))&3,$ea
305  microdisc_read_data  microdisc_read_data
306          lda $0318          lda $0318
307      bmi microdisc_read_data      bmi microdisc_read_data
308            ;.dsb ((FDC_data&3)-((*+3)&3))&3,$ea
309          lda FDC_data,y          lda FDC_data,y
310          sta $200,x              ; Store the byte in page 2          sta $200,x              ; Store the byte in page 2
311          inx          inx
312    
313          bne microdisc_read_data          bne microdisc_read_data
314    
315            .dsb ((FDC_status_register&3)-((*+3)&3))&3,$ea
316          lda FDC_status_register,y          lda FDC_status_register,y
317          and #$1C          and #$1C
318    
# Line 338  r_wait_completion Line 345  r_wait_completion
345          bne r_wait_completion          bne r_wait_completion
346          plp          plp
347    
348            
349            .dsb ((FDC_status_register&3)-((*+3)&3))&3,$ea
350  r2_wait_completion  r2_wait_completion
351          lda FDC_status_register,y          lda FDC_status_register,y
352          lsr          lsr

Legend:
Removed from v.1402  
changed lines
  Added in v.1403

  ViewVC Help
Powered by ViewVC 1.1.26