asm/getcode.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 /* set level_code_len and level_code_ofs */
  16 eproc: entry_get_level_code
  17 arg: .level
  18   jlt .bad_level, [.level], 0
  19   jgt .bad_level, [.level], [max_level]
  20   set [level_code_len], 6
  21   mul [.level], 7, [level_code_ofs]
  22   add [level_code_ofs], level_codes
  23   /*
  24   dbgprintstr "code for level "
  25   dbgprintnum [.level]
  26   dbgprintstr " is ["
  27   dbgprintstrvar [level_code_ofs]
  28   dbgprintstr "]"
  29   dbgprintnl
  30   */
  31   ret
  32 .bad_level:
  33   set [level_code_len], 0
  34   ret
  35 endp: entry_get_level_code