Mercurial > public > mk2
annotate code_part1/OSTC_code_asm_part1/multilang_text.asm @ 841:8d73c9dcf851 default tip
3.16 release
| author | mh |
|---|---|
| date | Tue, 24 Oct 2023 10:38:04 +0200 |
| parents | 2a0e5d884fc3 |
| children |
| rev | line source |
|---|---|
| 174 | 1 |
| 815 | 2 ; OSTC Mk.2, 2N and 2C - diving computer code |
|
807
c50296c3059e
BUGFIX: Divetime had unwanted "." behind the minutes
heinrichsweikamp
parents:
604
diff
changeset
|
3 ; Copyright (C) 2015 HeinrichsWeikamp GbR |
| 174 | 4 |
| 5 ; This program is free software: you can redistribute it and/or modify | |
| 6 ; it under the terms of the GNU General Public License as published by | |
| 7 ; the Free Software Foundation, either version 3 of the License, or | |
| 8 ; (at your option) any later version. | |
| 9 | |
| 10 ; This program is distributed in the hope that it will be useful, | |
| 11 ; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
| 12 ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
| 13 ; GNU General Public License for more details. | |
| 14 | |
| 15 ; You should have received a copy of the GNU General Public License | |
| 16 ; along with this program. If not, see <http://www.gnu.org/licenses/>. | |
| 17 | |
| 18 | |
| 19 ; hold texts and parameters for the texts | |
| 20 ; written by: Matthias Heinrichs, info@heinrichsweikamp.com | |
| 21 ; History: | |
| 22 ; 2007/10/13: written | |
| 23 ; 2008/05/24: Last update Matthias | |
| 24 ; 2011/02/02: moving texts to english_text.asm to prepare multilingual. | |
| 25 ; known bugs: | |
| 26 ; ToDo: | |
| 27 | |
| 187 | 28 texts code_pack 0x15000 |
| 174 | 29 |
| 30 TCODE_1 macro x, y, text | |
| 31 ; Compile-time checking on provided parameters: | |
| 32 If x<0 || x>.159 | |
| 33 Error "Bad X coordinate ", #v(tcode_idx), x | |
| 34 Endif | |
| 35 If y<0 || y>.239 | |
| 36 Error "Bad Y coordinate ", y | |
| 37 Endif | |
| 38 dw tcode_ptr_#v(tcode_idx) | |
| 39 db 0+x, 0+y | |
| 40 tcode_idx set tcode_idx+1 | |
| 41 endm | |
| 42 | |
| 43 TCODE_2 macro x, y, text | |
| 44 tcode_ptr_#v(tcode_idx): | |
| 45 db text, 0 | |
| 46 tcode_idx set tcode_idx+1 | |
| 47 endm | |
| 48 | |
| 49 ;---- Manage language ------------------------------------------------------- | |
| 50 ; Compile with ASM macro definition GERMAN=1 to use another | |
| 51 ; file... | |
| 604 | 52 #ifdef ITALIAN |
| 53 #define LANGUAGE_FILE "italian_text.asm" | |
| 54 #endif | |
| 182 | 55 #ifdef SPANISH |
| 56 #define LANGUAGE_FILE "spanish_text.asm" | |
| 57 #endif | |
| 174 | 58 #ifdef GERMAN |
| 59 #define LANGUAGE_FILE "german_text.asm" | |
| 60 #endif | |
| 61 #ifdef FRENCH | |
| 62 #define LANGUAGE_FILE "french_text.asm" | |
| 63 #endif | |
| 424 | 64 #ifdef RUSSIAN |
| 65 #define LANGUAGE_FILE "russian_text.asm" | |
| 66 #endif | |
| 495 | 67 #ifdef TURKISH |
| 68 #define LANGUAGE_FILE "turkish_text.asm" | |
| 69 #endif | |
| 174 | 70 #ifndef LANGUAGE_FILE |
| 71 #define LANGUAGE_FILE "english_text.asm" | |
| 72 #endif | |
| 73 | |
| 74 ;---- PASS 1 : generate description block ------------------------------------ | |
| 75 text_pointer: | |
| 76 | |
| 77 tcode_idx set 1 | |
| 78 #define TCODE TCODE_1 | |
| 79 #include LANGUAGE_FILE | |
| 80 #undefine TCODE | |
| 81 | |
| 82 ;---- PASS 2 : generate text contens ----------------------------------------- | |
| 83 tcode_idx set 1 | |
| 84 #define TCODE TCODE_2 | |
| 85 #include LANGUAGE_FILE | |
| 86 #undefine TCODE | |
| 87 | |
| 88 code | |
| 89 |