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

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

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

revision 326 by Chema, Wed May 5 20:28:25 2010 UTC revision 327 by Chema, Mon May 24 19:13:37 2010 UTC
# Line 653  end Line 653  end
653      sty plotY      sty plotY
654      stx plotX      stx plotX
655        
656      lda #12    ;lda #6      lda #12  
     ;jsr plot_cross  
657      jsr plot_cross      jsr plot_cross
658    
659      ;lda #6      ; Draw fuel circle
660      ;jsr plot_cross      ldy #0
661        lda plotX
662        sta cx
663        sty cx+1
664        lda plotY
665        sta cy
666        sty cy+1
667        lda _fuel
668            lsr
669            lsr
670        sta rad
671        sty rad+1
672        jsr _circleMidpoint
673    
674    
675      pla      pla
676      sta plotX      sta plotX
677      pla      pla
# Line 669  postdraw2 Line 682  postdraw2
682      ; Draw the cursor      ; Draw the cursor
683      lda #6      lda #6
684      jsr plot_cross      jsr plot_cross
685    
686      rts      rts
687    
688  .)  .)
# Line 774  in_range Line 788  in_range
788      lda tmp2  ; HI part of seed.w1 is sys X      lda tmp2  ; HI part of seed.w1 is sys X
789      sec      sec
790      sbc _cpl_system+SYSX      sbc _cpl_system+SYSX
     ;sta tmp  
791      sta op1      sta op1
792      bcs nonegx      bcs nonegx
793      dec op1+1      dec op1+1
 nonegx  
794      jsr abs      jsr abs
795    nonegx
796            
797      lda #0      lda #0
798      sta op2+1      sta op2+1
# Line 789  nonegx Line 802  nonegx
802      ;bcs end      ;bcs end
803          bpl end          bpl end
804    
   
805  checkY      checkY    
806      lda #0      lda #0
807      sta op1+1      sta op1+1
# Line 797  checkY Line 809  checkY
809      sec      sec
810      sbc _cpl_system+SYSY      sbc _cpl_system+SYSY
811      sta op1      sta op1
    ;sta tmp+1  
812      bcs nonegy      bcs nonegy
813      dec op1+1      dec op1+1
 nonegy  
814      jsr abs      jsr abs
815    nonegy
816      lda #0      lda #0
817      sta op2+1      sta op2+1
818      lda #$26      lda #$26
819      sta op2      sta op2
820      jsr cmp16      jmp cmp16   ; This is jsr/rts
821    
822  end  end
823      rts      rts
# Line 861  loop3 Line 871  loop3
871      inc num      inc num
872    
873      jsr in_range      jsr in_range
874      ;bcs next      bpl next
         bpl next  
875        
876    
877      ; Ok it is in range, prepare where to place the name      ; Ok it is in range, prepare where to place the name
# Line 1273  short_chart_to_universe Line 1282  short_chart_to_universe
1282      txa      txa
1283      sec      sec
1284      sbc #SHORT_CENTRE_X      sbc #SHORT_CENTRE_X
1285      bmi by4      bmi by4b
1286      clc          lsr
1287      bcc by4b          lsr
1288  by4          jmp by4end
1289      sec  by4b
1290      ror          sec
1291      sec          ror
1292      ror          sec
1293      jmp by4end          ror
 by4b      
     ror  
     ror  
1294  by4end  by4end
1295    
1296      clc      clc
1297      adc _cpl_system+SYSX      adc _cpl_system+SYSX
1298      tax      tax
# Line 1340  loop3 Line 1347  loop3
1347      cmp #SCR_CHART      cmp #SCR_CHART
1348      bne nocheck      bne nocheck
1349      jsr in_range    ; BEWARE. In long-chart this should not be called!!      jsr in_range    ; BEWARE. In long-chart this should not be called!!
     ;bcs next  
1350          bpl next          bpl next
1351    
1352  nocheck  nocheck

Legend:
Removed from v.326  
changed lines
  Added in v.327

  ViewVC Help
Powered by ViewVC 1.1.26