/[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 720 by Chema, Fri Oct 28 10:49:26 2011 UTC revision 721 by Chema, Sat Nov 5 22:26:36 2011 UTC
# Line 392  notzero Line 392  notzero
392          sta demo_bpl_bne          sta demo_bpl_bne
393    
394          ; Ask the user to change names          ; Ask the user to change names
395    
396            ; Empty box
397            jsr empty_box
398            jsr printit2
399    
400          jsr change_names          jsr change_names
401    
402          ; Play the main tune          ; Play the main tune
# Line 694  change_lesson Line 699  change_lesson
699    
700          ; Get lesson code from table          ; Get lesson code from table
701          ldx current_lesson_index          ldx current_lesson_index
702          lda main_timetable,x          cpx #64
703            bcc noend
704            ldx #0
705            stx current_lesson_index
706    noend
707    
708    
709          ; Is it playtime?          ; Is it playtime?
710          cmp #243          cmp #243
# Line 874  printit Line 884  printit
884  #endif  #endif
885          jsr search_string          jsr search_string
886    
887  printit2  +printit2
888          jsr write_text_up          jsr write_text_up
889    
890          ; Now dump the buffer into the screen          ; Now dump the buffer into the screen
# Line 1182  clear_name_and_title Line 1192  clear_name_and_title
1192    
1193  clear_name  clear_name
1194  .(  .(
1195            jsr empty_box
1196            jsr write_text_up
1197            jmp dump_title2
1198    .)
1199    
1200    
1201    empty_box
1202    .(
1203  #ifdef BRK2SETTMP0  #ifdef BRK2SETTMP0
1204          brk          brk
1205          .word st_space          .word st_space
# Line 1191  clear_name Line 1209  clear_name
1209          lda #>st_space          lda #>st_space
1210          sta tmp0+1          sta tmp0+1
1211  #endif  #endif
1212          jsr write_text_up          jmp write_text_down
1213          jsr write_text_down          rts
         jmp dump_title2  
1214  .)  .)
1215    
   
1216  #define ADDR_LINE $a000+40*110  #define ADDR_LINE $a000+40*110
1217    
1218  change_name  change_name
# Line 1363  end Line 1379  end
1379  #endif  #endif
1380    
1381    
 st_safeletter  
         .byt 0,0  
 st_space  
         .asc " ",0  
   
   
 st_lines  
         .asc "000 lines"  
         .byt 0  
   

Legend:
Removed from v.720  
changed lines
  Added in v.721

  ViewVC Help
Powered by ViewVC 1.1.26