/[projet1]/users/barnsey123/HNEFATAFL/draw.s
Defence Force logotype

Diff of /users/barnsey123/HNEFATAFL/draw.s

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

revision 933 by barnsey123, Tue May 21 16:18:47 2013 UTC revision 934 by barnsey123, Mon Jun 3 15:10:45 2013 UTC
# Line 94  loop Line 94  loop
94          dex          dex
95          bne loop          bne loop
96          rts          rts
97  .)        .)
98    
99  _deadatt  _deadatt
100  .(  .(
# Line 200  skip Line 200  skip
200  .)  .)
201    
202    
203    ;_eorMagicValueTable    .byt 0,128,63,63+128
204    ;_eorMagicValue         .byt 0
205    ;_eorMagicValueCounter  .byt 3
206    
207    ;_tileloop2
208    ;.(
209    ;   ;inc _eorMagicValueCounter
210     ;  lda #1
211    ;   and #3
212    ;   tax
213    ;   lda _eorMagicValueTable,x
214    ;   sta _eorMagicValue
215    ;
216    ;   lda _ptr_graph+0
217    ;   sta tmp0+0
218    ;   lda _ptr_graph+1
219    ;   sta tmp0+1
220    ;      
221    ;   ldx _col
222    ;   ldy _row
223    ;   jsr _SetScreenAddress
224    ;            
225    ;   ; Draw loop
226    ;   .(
227    ;   ldx #18
228    ;loop
229    ;   ldy #0
230    ;   lda (tmp0),y
231    ;   eor _eorMagicValue
232    ;   sta (tmp1),y
233    ;   iny
234    ;   lda (tmp0),y
235    ;   eor _eorMagicValue
236    ;   sta (tmp1),y
237    ;   iny
238    ;   lda (tmp0),y
239    ;   eor _eorMagicValue
240    ;   sta (tmp1),y
241    ;   .(
242    ;   clc
243    ;   lda tmp0+0
244    ;   adc #3
245    ;   sta tmp0+0
246    ;   bcc skip
247    ;   inc tmp0+1
248    ;skip  
249    ;   .)
250    ;   jsr _Add40                  
251    ;   dex
252    ;   bne loop
253    ;   .)
254    ; Update ptr_graph (for animation purpose)
255    ;   lda tmp0+0
256    ;   sta _ptr_graph+0
257    ;   lda tmp0+1
258    ;   sta _ptr_graph+1    
259    ;   rts
260    ;.)
261    
262    
263  /*  /*
264  void drawtile() // draws a board tile, player piece or "arrow"  void drawtile() // draws a board tile, player piece or "arrow"
# Line 299  set_tile_to_draw Line 358  set_tile_to_draw
358    
359    
360  ; Draw an inversed colr box to highlight selected box  ; Draw an inversed colr box to highlight selected box
361  ; _inversex=screen x position  ; _cx=screen x position
362  ; _inversey=screen y position  ; _cy=screen y position
363  _inverse  _inverse
364  .(  .(
365          ldx _inversex          ldx _cx
366          ldy _inversey          ldy _cy
367          jsr _SetScreenAddress          jsr _SetScreenAddress
           
         jsr _Add40  
368          jsr _Add40          jsr _Add40
369            ;jsr _Add40
370                    
371          ; Draw loop          ; Draw loop
372          .(          .(
373          ldx #18-3          ldx #17
374  loop  loop
375          ldy #0          ldy #0
376          lda (tmp1),y          lda (tmp1),y
377          eor #%001111          eor #%111111
378            eor #128
379          sta (tmp1),y          sta (tmp1),y
380          iny          iny
381          lda (tmp1),y          lda (tmp1),y
382          eor #%111111          eor #%111111
383            eor #128
384          sta (tmp1),y          sta (tmp1),y
385          iny          iny
386          lda (tmp1),y          lda (tmp1),y
387          eor #%111110          eor #%111111
388            eor #128
389          sta (tmp1),y          sta (tmp1),y
390    
391          jsr _Add40          jsr _Add40
# Line 336  loop Line 397  loop
397          rts          rts
398  .)  .)
399    
400    _inverse2
 ; _cx=x coordinate  
 ; _cy=y coordinate  
 ; _fb=0 -> Erase  
 ; _fb=1 -> Draw  
 _drawcursor  
401  .(  .(
402          ldx _cx          ldx _cx
403          ldy _cy          ldy _cy
404          jsr _SetScreenAddress          jsr _SetScreenAddress
           
405          jsr _Add40          jsr _Add40
   
         lda _fb  
         beq erase  
                   
 draw  
         .(  
         ; top line  
         ldy #0  
         lda #%101010  
         sta (tmp1),y  
         iny  
         sta (tmp1),y  
         iny  
         sta (tmp1),y  
                   
                   
406          ; Draw loop          ; Draw loop
407          .(          .(
408          ldx #8          ldx #17
409  loop  loop
         jsr _Add40  
   
         ; draw    
410          ldy #0          ldy #0
411          lda (tmp1),y          lda (tmp1),y
412          ora #%010000          eor #%111111
413            eor #128
414            eor #63
415          sta (tmp1),y          sta (tmp1),y
416          iny          iny
417            lda (tmp1),y
418            eor #%111111
419            eor #128
420            eor #63
421            sta (tmp1),y
422          iny          iny
423          lda (tmp1),y          lda (tmp1),y
424          ora #%000001          eor #%111111
425            eor #128
426            eor #63
427          sta (tmp1),y          sta (tmp1),y
428            
429          jsr _Add40          jsr _Add40
430                                                    
431          dex          dex
432          bne loop          bne loop
433          .)          .)
434                            
         ; bottom line  
         ldy #0  
         lda #%101010  
         sta (tmp1),y  
         iny  
         sta (tmp1),y  
         iny  
         sta (tmp1),y  
           
435          rts          rts
436          .)  .)
437    
438  erase  ; _cx=x coordinate
439          .(  ; _cy=y coordinate
440          ; top line  ; _fb=0 -> Erase
441          ldy #0  ; _fb=1 -> Draw
442          lda #%1100000  ;_drawcursor
443          sta (tmp1),y  ;.(
444          iny  ;       ldx _cx
445          lda #%1000000  ;       ldy _cy
446          sta (tmp1),y  ;       jsr _SetScreenAddress
447          iny  ;      
448          sta (tmp1),y  ;       jsr _Add40
449                    ;
450    ;       lda _fb
451    ;       beq erase
452    ;              
453    ;draw
454    ;       .(
455    ;       ; top line
456    ;       ldy #0
457    ;       lda #%101010
458    ;       sta (tmp1),y
459    ;       iny
460    ;       sta (tmp1),y
461    ;       iny
462    ;       sta (tmp1),y
463    ;              
464                                    
465          ; Draw loop          ; Draw loop
466          .(  ;       .(
467          ldx #8  ;       ldx #8
468  loop  ;loop
469          jsr _Add40  ;       jsr _Add40
470    ;       ; draw  
471    ;       ldy #0
472    ;       lda (tmp1),y
473    ;       ora #%010000
474    ;       sta (tmp1),y
475    ;       iny
476    ;       iny
477    ;       lda (tmp1),y
478    ;       ora #%000001
479    ;       sta (tmp1),y
480    ;       jsr _Add40
481    ;       dex
482    ;       bne loop
483    ;       .)
484    ;              
485    ;       ; bottom line
486    ;       ldy #0
487    ;       lda #%101010
488    ;       sta (tmp1),y
489    ;       iny
490    ;       sta (tmp1),y
491    ;       iny
492    ;       sta (tmp1),y
493    ;      
494    ;       rts
495    ;       .)
496    ;erase
497    ;       .(
498    ;       ; top line
499    ;       ldy #0
500    ;       lda #%1000000
501    ;       sta (tmp1),y
502    ;       iny
503    ;       ;lda #%1000000
504    ;       sta (tmp1),y
505    ;       iny
506    ;       sta (tmp1),y
507    ;              
508                    
509    ;       ; Draw loop
510    ;       .(
511    ;       ldx #8
512    ;loop
513    ;       jsr _Add40
514    ;
515          ; draw            ; draw  
516          ldy #0  ;       ldy #0
517          lda (tmp1),y  ;       lda (tmp1),y
518          and #%11101111  ;       and #%11111111
519          sta (tmp1),y  ;       sta (tmp1),y
520          iny  ;       iny
521          iny  ;       lda (tmp1),y
522          lda (tmp1),y  ;       sta (tmp1),y
523          and #%11111110  ;       iny
524          sta (tmp1),y  ;       lda (tmp1),y
525            ;       and #%11111110
526          jsr _Add40  ;       sta (tmp1),y
527                            ;      
528          dex  ;       jsr _Add40
529          bne loop  ;                      
530          .)  ;       dex
531    ;       bne loop
532    ;       .)
533                    
534          ; bottom line          ; bottom line
535          ldy #0  ;       ldy #0
536          lda #%1100000  ;       lda #%1000000
537          sta (tmp1),y  ;       sta (tmp1),y
538          iny  ;       iny
539          lda #%1000000  ;       ;lda #%1000000
540          sta (tmp1),y  ;       sta (tmp1),y
541          iny  ;       iny
542          sta (tmp1),y  ;       sta (tmp1),y
543                    
544          rts  ;       rts
545          .)  ;       .)
546  .)  ;.)
547    
548    
549  ;_hiresasm  ;_hiresasm
550  ;       LDA $02C0  ;       LDA $02C0

Legend:
Removed from v.933  
changed lines
  Added in v.934

  ViewVC Help
Powered by ViewVC 1.1.26