asm/title.awa

   1 /*
   2  * This program is free software: you can redistribute it and/or modify
   3  * it under the terms of the GNU General Public License as published by
   4  * the Free Software Foundation, either version 3 of the License, or
   5  * (at your option) any later version.
   6  *
   7  * This program is distributed in the hope that it will be useful,
   8  * but WITHOUT ANY WARRANTY; without even the implied warranty of
   9  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  10  * GNU General Public License for more details.
  11  *
  12  * You should have received a copy of the GNU General Public License
  13  * along with this program.  If not, see <http://www.gnu.org/licenses/>.
  14  */
  15 /* game starts here */
  16 defevar: title_phase
  17
  18 extern: defgvar: flag_skip_title
  19
  20 entry_title:
  21   ;jne entry_title, [flag_skip_title], 0
  22   bsr kill_all_threads
  23   bsr clear_stack
  24
  25   set [key_start], 0
  26   set [key_quit], 0
  27   set [title_phase], 0
  28   rst FRST_ML_TITLE
  29
  30   jne .title_done, [goobers], 0
  31   jne .title_done, [flag_skip_title], 0
  32
  33 .title_fadein_loop:
  34   jne quit_program, [key_quit], 0
  35   jne .title_done, [key_start], 0
  36   brk
  37   brk
  38   add [title_phase], 1
  39   jlt .title_fadein_loop, [title_phase], 6
  40
  41 .title_wait_start:
  42   jne quit_program, [key_quit], 0
  43   brk
  44   jeq .title_wait_start, [key_start], 0
  45
  46 .title_fadeout_loop:
  47   jne quit_program, [key_quit], 0
  48   brk
  49   brk
  50   sub [title_phase], 1
  51   jge .title_fadeout_loop, [title_phase], 0
  52
  53 .title_done:
  54   jmp entry_game_start
  55
  56 quit_program:
  57   end