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

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

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

revision 265 by Chema, Fri Feb 5 22:05:50 2010 UTC revision 266 by Chema, Mon Feb 8 22:12:53 2010 UTC
# Line 244  nomsg Line 244  nomsg
244  _FirstFrame  _FirstFrame
245  .(  .(
246          jsr update_all_controls          jsr update_all_controls
247            
248      lda #PDIST_MASSLOCK      lda #PDIST_MASSLOCK
249      sta _planet_dist      sta _planet_dist
250    
# Line 274  noinvert Line 274  noinvert
274  noinvert2  noinvert2
275    
276          jsr PatchLaserDraw          jsr PatchLaserDraw
277            jsr clear_vertex
278      jmp dump_buf      jmp dump_buf
279  .)  .)
280    
# Line 422  loop Line 423  loop
423      jsr move_stars      jsr move_stars
424    
425  ;****** START OF DRAWING SECTION ******  ;****** START OF DRAWING SECTION ******
   
         ; Clear vertices where lasers start/end in each object  
         ldx NUMOBJS  
         lda #0  
 loopcl  
         sta _vertexXLO-1,x  
         sta _vertexXHI-1,x  
         sta _vertexYLO-1,x  
         sta _vertexYHI-1,x  
         dex  
 +fixed_objects  
         cpx #0  ; SMC  
         bne loopcl  
   
426          ; Clear the off-screen buffer          ; Clear the off-screen buffer
427          jsr clr_hires2          jsr clr_hires2
428    
# Line 933  cont Line 920  cont
920                  ;beq end                  ;beq end
921                                    
922  isdock  isdock
923                    cpx #7  ; Hack with planet search
924                    beq skip
925          lda double_buff          lda double_buff
926          beq skip          beq skip
927          stx savx+1          stx savx+1
# Line 1209  noecm Line 1198  noecm
1198  ; P  ; P
1199  power_redir  power_redir
1200  .(  .(
1201            lda #SCR_FRONT
1202            cmp _current_screen
1203            beq doredir
1204                    rts
1205    doredir
1206                  jsr SndPic                  jsr SndPic
1207                  lda _ptla                  lda _ptla
1208                  beq step2                  beq step2
# Line 1242  lookrear Line 1236  lookrear
1236                  eor #$ff                  eor #$ff
1237                  sta invert                  sta invert
1238    
1239                    jsr clear_vertex
1240                  jsr patch_invert_code                  jsr patch_invert_code
1241                  jsr update_compass                  jsr update_compass
1242                  jmp INITSTAR                  jmp INITSTAR
# Line 1428  loadsave Line 1423  loadsave
1423  ;R  ;R
1424  splanet  splanet
1425  .(  .(
         jsr SndPic  
1426      lda _current_screen      lda _current_screen
1427      cmp #SCR_GALAXY      cmp #SCR_GALAXY
1428      beq doit      beq doit
# Line 1436  splanet Line 1430  splanet
1430  ;    beq doit  ;    beq doit
1431      rts      rts
1432  doit  doit
1433            jsr SndPic
1434      ; ask for planet and search it      ; ask for planet and search it
1435      jsr prepare_area          jsr prepare_area    
1436      lda #(A_FWGREEN+A_FWYELLOW*16+128)      lda #(A_FWGREEN+A_FWYELLOW*16+128)
# Line 1980  PatchLaserDraw Line 1975  PatchLaserDraw
1975  .)  .)
1976    
1977    
1978    clear_vertex
1979    .(
1980            ; Clear vertices where lasers start/end in each object
1981            ldx #(MAXSHIPS)
1982            lda #0
1983    loopcl
1984            sta _vertexXLO-1,x
1985            sta _vertexXHI-1,x
1986            sta _vertexYLO-1,x
1987            sta _vertexYHI-1,x
1988            dex
1989            bne loopcl
1990            rts
1991    .)
1992    
1993  VOB      .byt 00           ;View object  VOB      .byt 00           ;View object
1994    
1995  ;Pattern table  ;Pattern table

Legend:
Removed from v.265  
changed lines
  Added in v.266

  ViewVC Help
Powered by ViewVC 1.1.26