/[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 209 by Chema, Sun Jan 24 17:41:36 2010 UTC revision 210 by Chema, Mon Jan 25 17:49:04 2010 UTC
# Line 85  init_intro Line 85  init_intro
85          jsr _DoubleBuffOff          jsr _DoubleBuffOff
86          jsr clr_hires          jsr clr_hires
87          jsr load_frame          jsr load_frame
88            jsr set_ink2
89          jsr _DoubleBuffOn          jsr _DoubleBuffOn
90          jmp init_view_ship          jmp init_view_ship
91  .)  .)
# Line 219  init_front_view Line 220  init_front_view
220          jsr clr_hires          jsr clr_hires
221          jsr load_frame          jsr load_frame
222    
223            jsr set_ink2
224    
225  +_patch_launch_msg  +_patch_launch_msg
226          lda #0                  ;SMC          lda #0                  ;SMC
227          bne nomsg          bne nomsg
# Line 326  wait Line 329  wait
329          sta counter          sta counter
330  loop  loop
331          lda counter          lda counter
332          cmp #25*2          cmp #25
333          bcc loop          bcc loop
334          rts          rts
335  .)  .)
# Line 336  dock Line 339  dock
339          ; Docking ship... must call docking sequence          ; Docking ship... must call docking sequence
340          lda _current_screen          lda _current_screen
341          cmp #SCR_FRONT          cmp #SCR_FRONT
342          bne l1          beq l1
343            jsr frontview
344    l1
345      jsr _DoubleBuffOff      jsr _DoubleBuffOff
346      jsr save_frame      jsr save_frame
 l1  
347      dec _docked      dec _docked
348    
349          ldx #6*8          ldx #6*12
350          ldy #40          ldy #40
351          jsr gotoXY          jsr gotoXY
352          ldx #>str_land          ldx #>str_land
# Line 350  l1 Line 354  l1
354          jsr print          jsr print
355          jsr gs_planet_name          jsr gs_planet_name
356          jsr wait          jsr wait
357            jsr wait
358      jsr info      jsr info
359      jmp _TineLoop      jmp _TineLoop
360  .)  .)
# Line 375  loopcl Line 380  loopcl
380          bne loopcl          bne loopcl
381    
382          ; If we have changed ink color, put it back to white          ; If we have changed ink color, put it back to white
383          lda attr_changed  +_patch_set_ink
384          beq nochange          nop
385          lda #A_FWWHITE          nop
386          jsr set_ink          nop
         lda #0  
         sta attr_changed  
 nochange  
387    
388          ; Call ship tactics          ; Call ship tactics
389      jsr _Tactics      jsr _Tactics
# Line 397  nochange Line 399  nochange
399          ; Trick to invert object's Z in case of rear view          ; Trick to invert object's Z in case of rear view
400  +_patch_invertZa  +_patch_invertZa
401          jsr invertZ          jsr invertZ
 ;noinvert  
402    
403          ; Set the radar          ; Set the radar
404      ldx VOB      ldx VOB
# Line 462  nomessage Line 463  nomessage
463          ldx #(15*6)          ldx #(15*6)
464          ldy #0          ldy #0
465          jsr gotoXY          jsr gotoXY
466          lda invert  
467          beq noinv  +_patch_invert_msg      
     lda #<str_rearview  
     ldx #>str_rearview  
         jmp doinv  
 noinv  
468      lda #<str_frontview      lda #<str_frontview
469      ldx #>str_frontview      ldx #>str_frontview
470  doinv  
471      jsr print      jsr print
472          inc print2dbuffer          inc print2dbuffer
473    
# Line 1183  ecm_on Line 1180  ecm_on
1180                  beq noecm                  beq noecm
1181                  ; It needs energy                  ; It needs energy
1182                  lda _energy+1                  lda _energy+1
1183                  cmp #11+5 ; Some security margin                  cmp #6+2 ; Some security margin
1184                  bcc noecm                  bcc noecm
1185                  sec                  sec
1186                  sbc #10                  sbc #5
1187                  sta _energy+1                  sta _energy+1
1188                  jmp SetECMOn                  jmp SetECMOn
1189  noecm  noecm
# Line 1340  frontview Line 1337  frontview
1337          inc _docked     ; docked is either ff or 0, this gets it back to 0,          inc _docked     ; docked is either ff or 0, this gets it back to 0,
1338                  lda #0                  lda #0
1339                  sta _patch_launch_msg+1                  sta _patch_launch_msg+1
1340    
1341    #ifdef RAMSAVE
1342                    ldx #(__commander_data_end-__commander_data_start)-1
1343    loop
1344                    lda __commander_data_start,x
1345                    sta _default_commander,x
1346                    dex
1347                    bpl loop
1348    #endif
1349    
1350  notdocked  notdocked
1351                  jmp init_front_view     ; This is jsr/rts                  jmp init_front_view     ; This is jsr/rts
1352  nothing  nothing
# Line 1916  patch_invert_code Line 1923  patch_invert_code
1923          lda     #>invertZ          lda     #>invertZ
1924          sta     _patch_invertZa+2          sta     _patch_invertZa+2
1925          sta     _patch_invertZb+2          sta     _patch_invertZb+2
1926    
1927            lda #<str_rearview
1928            ldx #>str_rearview
1929          jmp end          jmp end
1930  setnops  setnops
1931          lda #$ea        ; nop opcode          lda #$ea        ; nop opcode
# Line 1925  loop Line 1935  loop
1935          sta _patch_invertZb,x          sta _patch_invertZb,x
1936          dex          dex
1937          bpl loop          bpl loop
1938    
1939            lda #<str_frontview
1940            ldx #>str_frontview
1941  end  end
1942            ; Patch front/rear view message
1943            sta _patch_invert_msg+1
1944            stx _patch_invert_msg+3
1945          rts          rts
1946  .)  .)
1947    

Legend:
Removed from v.209  
changed lines
  Added in v.210

  ViewVC Help
Powered by ViewVC 1.1.26