/[projet1]/public/atari/demos/next/phaleon-gigademo/mine-sweeper/FDCR.S
Defence Force logotype

Contents of /public/atari/demos/next/phaleon-gigademo/mine-sweeper/FDCR.S

Parent Directory Parent Directory | Revision Log Revision Log


Revision 63 - (show annotations)
Thu Apr 23 18:52:18 2009 UTC (10 years, 9 months ago) by dbug
File size: 1109 byte(s)
Added the Mine Sweeper screen of the Phaleon Demo (by Lonewolf)
1 *** loading
2 * d3 nb secteur to read
3 * d4 nb piste to begin
4 * d5 nb secteur to begin
5 disk_read
6 moveq #0,d1
7 move.l a0,a4
8 bsr drive
9
10 moveq #1,d7
11 bsr waitinf0
12 bsr fdc_waitread
13 tst d1
14 bmi .erreur
15
16 bra.s .loopr0a
17 .loopr0
18 moveq #1,d5
19 .loopr0a
20
21 * on met n piste ds data reg. puis seek sur la piste
22 move #$86,$ffff8606.w
23 move d4,$ffff8604.w
24 bsr wait
25
26 * seek
27 move #$80,$ffff8606.w
28 moveq #$10,d7
29 bsr waitinf0a
30 bsr fdc_waitread
31
32 .loopr
33 ** fo mettre a jour le registre de secteur
34 move #$84,$ffff8606.w
35 bsr wait
36 move d5,$ffff8604.w
37 bsr wait
38
39 * on met l'adr. de destination ds les reg. du dma..
40 move.l a4,d6
41 move.b d6,$ffff860d.w
42 lsr #8,d6
43 move.b d6,$ffff860b.w
44 swap d6
45 move.b d6,$ffff8609.w
46
47 * on s'amuse avec le dma sect count
48 move #$190,$ffff8606.w
49 move #$90,$ffff8606.w
50 move #$1f,$ffff8604.w
51
52 move #$80,$ffff8606.w
53 move #$80,d7
54 bsr waitinf0a
55 bsr fdc_waitread
56 tst d1
57 bmi.s .erreur
58 lea 512(a4),a4
59
60
61 subq #1,d3
62 beq.s .erreur
63 addq #1,d5
64 cmp #10,d5
65 ble.s .loopr
66 addq #1,d4
67 bra .loopr0
68 .erreur
69 bsr fina
70
71 rts

  ViewVC Help
Powered by ViewVC 1.1.26