Mercurial > public > hwos_code

comparison src/text_multilang.asm @ 604:ca4556fb60b9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
bump to 2.99beta, work on 3.00 stable
author heinrichsweikamp
date Thu, 22 Nov 2018 19:47:26 +0100
parents b7eb98dbd800
children 8077ee960199
comparison
equal deleted inserted replaced
603:00b24fb4324d 604:ca4556fb60b9
1 ;============================================================================= 1 ;=============================================================================
2 ; 2 ;
3 ; File text_multilang.asm Version 2.92 = 2.26 3 ; File text_multilang.asm V2.99c
4 ; 4 ;
5 ; Implementation text in various selectable languages. 5 ; Implementation text in various selectable languages.
6 ; 6 ;
7 ; Copyright (c) 2011, JD Gascuel, HeinrichsWeikamp, all right reserved. 7 ; Copyright (c) 2011, JD Gascuel, HeinrichsWeikamp, all right reserved.
8 ;============================================================================= 8 ;=============================================================================
9 ; HISTORY 9 ; HISTORY
10 ; 2011-06-12 : [jDG] Creation... 10 ; 2011-06-12 : [jDG] Creation
11 11
12 #include "hwos.inc"
12 #include "text_multilang.inc" 13 #include "text_multilang.inc"
13 #include "hwos.inc"
14 14
15 ; Because text are indexed by 12bits value in FSR register, they can't 15 ; Because text are indexed by 12 bits values in FSR register, they can't
16 ; just be anywhere. It is safe to make them start in address 0xHHH000. 16 ; just be anywhere. It is safe to make them start at address 0xHHH000.
17 texts code 0x009000 17 texts code 0x009000
18 18
19 ;============================================================================= 19 ;=============================================================================
20 global text_1_base 20 global text_1_base
21 text_1_base: 21 text_1_base:
22 IFNDEF french_italian
23 MESSG "hwOS code in English and German!"
24 ;---- PASS 1 : generate description block ------------------------------------ 22 ;---- PASS 1 : generate description block ------------------------------------
25 tcode_idx set 0 23 tcode_idx set 0
26 LANG set 0 24 LANG set 0
27 #define TCODE TCODE_1 25 #define TCODE TCODE_1
28 #include "text_english.inc"
29 #undefine TCODE
30 26
31 ;---- PASS 2 : generate text contens ----------------------------------------- 27 IF _language_1==en
32 tcode_idx set 0 28 MESSG "1st Laguage: English"
33 #define TCODE TCODE_2 29 #include "text_english.inc"
34 #include "text_english.inc" 30 ELSE
35 #undefine TCODE 31 IF _language_1==de
32 MESSG "1st Laguage: German"
33 #include "text_german.inc"
34 ELSE
35 IF _language_1==fr
36 MESSG "1st Laguage: French"
37 #include "text_french.inc"
38 ELSE
39 IF _language_1==it
40 MESSG "1st Laguage: Italian"
41 #include "text_english.inc"
42 ELSE
43 MESSG "1st Laguage: Default (English)"
44 #include "text_english.inc"
45 ENDIF
46 ENDIF
47 ENDIF
48 ENDIF
49
50 #undefine TCODE
51
52 ;---- PASS 2 : generate text contents ----------------------------------------
53 tcode_idx set 0
54 #define TCODE TCODE_2
55
56 IF _language_1==en
57 #include "text_english.inc"
58 ELSE
59 IF _language_1==de
60 #include "text_german.inc"
61 ELSE
62 IF _language_1==fr
63 #include "text_french.inc"
64 ELSE
65 IF _language_1==it
66 #include "text_english.inc"
67 ELSE
68 #include "text_english.inc"
69 ENDIF
70 ENDIF
71 ENDIF
72 ENDIF
73
74 #undefine TCODE
36 75
37 ;============================================================================= 76 ;=============================================================================
38 77
78 IF _language_2!=none
39 79
40 global text_2_base 80 global text_2_base
41 text_2_base: 81 text_2_base:
82 ;---- PASS 1 : generate description block ------------------------------------
83 tcode_idx set 0
84 LANG set 1
85 #define TCODE TCODE_1
42 86
43 ;---- PASS 1 : generate description block ------------------------------------ 87 IF _language_2==en
44 tcode_idx set 0 88 MESSG "2nd Laguage: English"
45 LANG set 1 89 #include "text_english.inc"
46 #define TCODE TCODE_1 90 ELSE
47 #include "text_german.inc" 91 IF _language_2==de
48 #undefine TCODE 92 MESSG "2nd Laguage: German"
93 #include "text_german.inc"
94 ELSE
95 IF _language_2==fr
96 MESSG "2nd Laguage: French"
97 #include "text_french.inc"
98 ELSE
99 IF _language_2==it
100 MESSG "2nd Laguage: Italian"
101 #include "text_english.inc"
102 ELSE
103 MESSG "2nd Laguage: Default (English)"
104 #include "text_english.inc"
105 ENDIF
106 ENDIF
107 ENDIF
108 ENDIF
49 109
50 ;---- PASS 2 : generate text contens ----------------------------------------- 110 #undefine TCODE
51 tcode_idx set 0
52 #define TCODE TCODE_2
53 #include "text_german.inc"
54 #undefine TCODE
55 111
56 ELSE 112 ;---- PASS 2 : generate text contents ----------------------------------------
57 MESSG "hwOS code in French and Italian!" 113 tcode_idx set 0
58 ;============================================================================= 114 #define TCODE TCODE_2
59 ;---- PASS 1 : generate description block ------------------------------------
60 tcode_idx set 0
61 LANG set 0
62 #define TCODE TCODE_1
63 #include "text_french.inc"
64 #undefine TCODE
65 115
66 ;---- PASS 2 : generate text contens ----------------------------------------- 116 IF _language_2==en
67 tcode_idx set 0 117 #include "text_english.inc"
68 #define TCODE TCODE_2 118 ELSE
69 #include "text_french.inc" 119 IF _language_2==de
70 #undefine TCODE 120 #include "text_german.inc"
121 ELSE
122 IF _language_2==fr
123 #include "text_french.inc"
124 ELSE
125 IF _language_2==it
126 #include "text_english.inc"
127 ELSE
128 #include "text_english.inc"
129 ENDIF
130 ENDIF
131 ENDIF
132 ENDIF
133
134 #undefine TCODE
135
136 ENDIF
71 137
72 ;============================================================================= 138 ;=============================================================================
73 global text_2_base
74 text_2_base:
75 139
76 ;---- PASS 1 : generate description block ------------------------------------ 140 END
77 tcode_idx set 0
78 LANG set 1
79 #define TCODE TCODE_1
80 #include "text_italian.inc"
81 #undefine TCODE
82
83 ;---- PASS 2 : generate text contens -----------------------------------------
84 tcode_idx set 0
85 #define TCODE TCODE_2
86 #include "text_italian.inc"
87 #undefine TCODE
88
89 ENDIF
90
91 ;=============================================================================
92
93 END