/[projet1]/users/chema/TINE/stars.s
Defence Force logotype

Diff of /users/chema/TINE/stars.s

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

revision 353 by Chema, Wed Feb 24 12:25:29 2010 UTC revision 354 by Chema, Sun Jun 27 19:32:47 2010 UTC
# Line 19  Line 19 
19  ;  ;
20  INITSTAR  INITSTAR
21  .(  .(
22      jsr _init_rand          ldy #NSTARS
     ldy #NSTARS  
23  LOOP  LOOP
24      jsr NEWSTAR      jsr NEWSTAR
25      dey      dey
# Line 44  patch Line 43  patch
43  NEWSTAR  NEWSTAR
44  .(        .(      
45               ;.Y contains index into star table               ;.Y contains index into star table
46           jsr _gen_rnd_number  #ifdef REALRANDOM
47                    jsr randgen
48    #else
49                    jsr _gen_rnd_number
50    #endif
51  loop1  loop1
52                   cmp #(CLIP_BOTTOM-CENTER_Y)  ;100                   cmp #(CLIP_BOTTOM-CENTER_Y)  ;100
53           bcc SETY           bcc SETY
# Line 56  loop1 Line 59  loop1
59                   jmp loop1                   jmp loop1
60  SETY     STA STARY,Y  SETY     STA STARY,Y
61    
62    #ifdef REALRANDOM
63                    lda randseed
64    #else
65           lda _rnd_seed           lda _rnd_seed
66    #endif
67  loop2  loop2
68           cmp #(CLIP_RIGHT-CENTER_X)             ;120           cmp #(CLIP_RIGHT-CENTER_X)             ;120
69           bcc SETX           bcc SETX
# Line 158  move_stars Line 165  move_stars
165          lda g_alpha          lda g_alpha
166          eor #$80          eor #$80
167          sta g_alpha          sta g_alpha
168          lda g_beta          ;lda g_beta
169            ;eor #$80
170            ;sta g_beta
171            lda g_delta
172          eor #$80          eor #$80
173          sta g_beta          sta g_delta
174  normal1  normal1
175    
176      lda g_alpha      lda g_alpha
# Line 184  nowdelta Line 194  nowdelta
194      lda g_delta      lda g_delta
195      beq nowtheta      beq nowtheta
196          bmi negmove3          bmi negmove3
197          and #$7f          ;and #$7f
198          sta tmp          sta tmp
199  loop1  loop1
200      jsr STARROTP      jsr STARROTP
# Line 194  loop1 Line 204  loop1
204      jmp nowtheta      jmp nowtheta
205  negmove3  negmove3
206          and #$7f          and #$7f
207            beq nowtheta
208          sta tmp          sta tmp
209  loop2  loop2
210      jsr STARROTM      jsr STARROTM

Legend:
Removed from v.353  
changed lines
  Added in v.354

  ViewVC Help
Powered by ViewVC 1.1.26