asm/title.awa

   1 entry_title:
   2   bsr kill_all_threads
   3   set [key_start], 0
   4   set [key_quit], 0
   5   set [title_phase], 0
   6   rst FRST_ML_TITLE
   7
   8   jmp .title_done
   9
  10 .title_fadein_loop:
  11   jne quit_program, [key_quit], 0
  12   jne .title_done, [key_start], 0
  13   ;
  14   ;rst FRST_DRAW_MASK, [title_phase]
  15   brk
  16   ;
  17   add [title_phase], 1
  18   jls .title_fadein_loop, [title_phase], 6
  19
  20 .title_wait_start:
  21   jne quit_program, [key_quit], 0
  22   brk
  23   jeq .title_wait_start, [key_start], 0
  24
  25 .title_fadeout_loop:
  26   jne quit_program, [key_quit], 0
  27   ;
  28   ;rst FRST_DRAW_MASK, [title_phase]
  29   brk
  30   ;
  31   sub [title_phase], 1
  32   jge .title_fadeout_loop, [title_phase], 0
  33
  34 .title_done:
  35   jmp entry_game_start
  36
  37 quit_program:
  38   end