/[projet1]/users/chema/skooldaze/init.s
Defence Force logotype

Diff of /users/chema/skooldaze/init.s

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

revision 601 by Chema, Fri Sep 2 17:19:46 2011 UTC revision 602 by Chema, Fri Sep 2 18:53:59 2011 UTC
# Line 114  loop Line 114  loop
114    
115  set_hires  set_hires
116  .(  .(
117          lda #30          ;lda #30
118          ;lda $f934          lda $f934
119          sta $bfdf          sta $bfdf
120                    
121          lda #A_BGBLACK          lda #A_BGBLACK
# Line 450  loop Line 450  loop
450    
451          ldx #(21*5-1)          ldx #(21*5-1)
452  loopsrb  loopsrb
453          lda #$fc          ;lda #$fc
454            lda #0
455          sta SRB,x          sta SRB,x
456          dex          dex
457          lda #$ff          ;lda #$ff
458            lda #0
459          ldy #2          ldy #2
460  loopsrb2  loopsrb2
461          sta SRB,x          sta SRB,x
462          dex          dex
463          dey          dey
464          bpl loopsrb2          bpl loopsrb2
465          lda #$3f          ;lda #$3f
466            lda #0
467          sta SRB,x          sta SRB,x
468          dex          dex
469          bpl loopsrb          bpl loopsrb
# Line 473  loopsrb2 Line 476  loopsrb2
476          */          */
477          jsr clr_hires          jsr clr_hires
478          jsr set_ink2          jsr set_ink2
479          jsr render_screen          ;jsr render_screen
480    
481          /*          /*
482          lda #A_BGCYAN          lda #A_BGCYAN
# Line 486  loopsrb2 Line 489  loopsrb2
489          ; Clear scorepanel          ; Clear scorepanel
490          jsr clear_scorepanel          jsr clear_scorepanel
491    
492            lda #$da
493            sta first_col
494    
495          ; Scroll the screen          ; Scroll the screen
496          lda #5          lda #42
497          sta tmp4          sta tmp4
498  loops  loops
499          jsr _scroll_left          jsr scroll1_left
500          dec tmp4          dec tmp4
501          bne loops          bne loops
502    
# Line 956  change_names Line 962  change_names
962          lda #A_BGCYAN          lda #A_BGCYAN
963          sta smc_paper_2+1          sta smc_paper_2+1
964          jsr set_ink2          jsr set_ink2
         lda #A_BGYELLOW  
         sta smc_paper_2+1  
965    
966          lda #<$a000+40*4+3          lda #<$a000+40*4+3
967          sta tmp0          sta tmp0
# Line 974  looprk Line 978  looprk
978          beq end          beq end
979          bne looprk          bne looprk
980  end  end
981            lda #A_BGYELLOW
982            sta smc_paper_2+1
983          rts          rts
984  .)  .)
985    
# Line 981  start_catwalk Line 987  start_catwalk
987  .(  .(
988          jsr clr_hires          jsr clr_hires
989          jsr set_ink2          jsr set_ink2
990            lda #A_BGYELLOW
991            sta smc_paper_2+1
992    
993          ; Print "CAST OF CHARACTERS"          ; Print "CAST OF CHARACTERS"
994          lda #<$a000+40*4+13          lda #<$a000+40*4+13
# Line 1041  loopchars Line 1049  loopchars
1049    
1050          ; Is he looking right?          ; Is he looking right?
1051          lda flags,x          lda flags,x
1052          ora #IS_FACING_RIGHT          and #IS_FACING_RIGHT
1053          bne isok          bne isok
1054          jsr change_direction          jsr change_direction
1055  isok  isok
# Line 1086  notyet Line 1094  notyet
1094  walk_char_out  walk_char_out
1095  walk_char_in  walk_char_in
1096  .(  .(
1097          lda #(3+20)*2          lda #(3+19)*2
1098          sta tmp7+1          sta tmp7+1
1099          stx loop+1          stx loop+1
1100  loop  loop
# Line 1095  loop Line 1103  loop
1103          jsr render_screen          jsr render_screen
1104    
1105          ; Wait a bit, else they run too fast          ; Wait a bit, else they run too fast
1106          ldy #50          ldy #30
1107  wlo  wlo
1108          ldx #$ff          ldx #$ff
1109  wl      dex  wl      dex
# Line 1282  loop_read Line 1290  loop_read
1290          beq skip                  beq skip        
1291  nodel  nodel
1292          sta (tmp0),y          sta (tmp0),y
1293          cpy #14          cpy #12
1294          beq skip          beq skip
1295          inc tmp6          inc tmp6
1296  skip  skip

Legend:
Removed from v.601  
changed lines
  Added in v.602

  ViewVC Help
Powered by ViewVC 1.1.26