|
0
|
1 ;=============================================================================
|
|
|
2 ;
|
|
613
|
3 ; File text_multilang.asm V2.99-9
|
|
0
|
4 ;
|
|
|
5 ; Implementation text in various selectable languages.
|
|
|
6 ;
|
|
|
7 ; Copyright (c) 2011, JD Gascuel, HeinrichsWeikamp, all right reserved.
|
|
|
8 ;=============================================================================
|
|
|
9 ; HISTORY
|
|
604
|
10 ; 2011-06-12 : [jDG] Creation
|
|
0
|
11
|
|
604
|
12 #include "hwos.inc"
|
|
0
|
13 #include "text_multilang.inc"
|
|
|
14
|
|
604
|
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 at address 0xHHH000.
|
|
|
17 texts code 0x009000
|
|
0
|
18
|
|
|
19 ;=============================================================================
|
|
604
|
20 global text_1_base
|
|
448
|
21 text_1_base:
|
|
0
|
22 ;---- PASS 1 : generate description block ------------------------------------
|
|
604
|
23 tcode_idx set 0
|
|
|
24 LANG set 0
|
|
|
25 #define TCODE TCODE_1
|
|
0
|
26
|
|
604
|
27 IF _language_1==en
|
|
613
|
28 MESSG "1st Language: English"
|
|
604
|
29 #include "text_english.inc"
|
|
|
30 ELSE
|
|
|
31 IF _language_1==de
|
|
613
|
32 MESSG "1st Language: German"
|
|
604
|
33 #include "text_german.inc"
|
|
|
34 ELSE
|
|
|
35 IF _language_1==fr
|
|
613
|
36 MESSG "1st Language: French"
|
|
604
|
37 #include "text_french.inc"
|
|
|
38 ELSE
|
|
|
39 IF _language_1==it
|
|
613
|
40 MESSG "1st Language: Italian"
|
|
|
41 #include "text_italian.inc"
|
|
604
|
42 ELSE
|
|
613
|
43 MESSG "1st Language: Default (English)"
|
|
604
|
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
|
|
613
|
66 #include "text_italian.inc"
|
|
604
|
67 ELSE
|
|
|
68 #include "text_english.inc"
|
|
|
69 ENDIF
|
|
|
70 ENDIF
|
|
|
71 ENDIF
|
|
|
72 ENDIF
|
|
|
73
|
|
|
74 #undefine TCODE
|
|
0
|
75
|
|
|
76 ;=============================================================================
|
|
560
|
77
|
|
604
|
78 IF _language_2!=none
|
|
560
|
79
|
|
604
|
80 global text_2_base
|
|
448
|
81 text_2_base:
|
|
0
|
82 ;---- PASS 1 : generate description block ------------------------------------
|
|
604
|
83 tcode_idx set 0
|
|
|
84 LANG set 1
|
|
|
85 #define TCODE TCODE_1
|
|
0
|
86
|
|
604
|
87 IF _language_2==en
|
|
613
|
88 MESSG "2nd Language: English"
|
|
604
|
89 #include "text_english.inc"
|
|
|
90 ELSE
|
|
|
91 IF _language_2==de
|
|
613
|
92 MESSG "2nd Language: German"
|
|
604
|
93 #include "text_german.inc"
|
|
|
94 ELSE
|
|
|
95 IF _language_2==fr
|
|
613
|
96 MESSG "2nd Language: French"
|
|
604
|
97 #include "text_french.inc"
|
|
|
98 ELSE
|
|
|
99 IF _language_2==it
|
|
613
|
100 MESSG "2nd Language: Italian"
|
|
|
101 #include "text_italian.inc"
|
|
604
|
102 ELSE
|
|
613
|
103 MESSG "2nd Language: Default (English)"
|
|
604
|
104 #include "text_english.inc"
|
|
|
105 ENDIF
|
|
|
106 ENDIF
|
|
|
107 ENDIF
|
|
|
108 ENDIF
|
|
|
109
|
|
|
110 #undefine TCODE
|
|
0
|
111
|
|
604
|
112 ;---- PASS 2 : generate text contents ----------------------------------------
|
|
|
113 tcode_idx set 0
|
|
|
114 #define TCODE TCODE_2
|
|
0
|
115
|
|
604
|
116 IF _language_2==en
|
|
|
117 #include "text_english.inc"
|
|
|
118 ELSE
|
|
|
119 IF _language_2==de
|
|
|
120 #include "text_german.inc"
|
|
|
121 ELSE
|
|
|
122 IF _language_2==fr
|
|
|
123 #include "text_french.inc"
|
|
|
124 ELSE
|
|
|
125 IF _language_2==it
|
|
613
|
126 #include "text_italian.inc"
|
|
604
|
127 ELSE
|
|
|
128 #include "text_english.inc"
|
|
|
129 ENDIF
|
|
|
130 ENDIF
|
|
|
131 ENDIF
|
|
|
132 ENDIF
|
|
|
133
|
|
|
134 #undefine TCODE
|
|
|
135
|
|
|
136 ENDIF
|
|
0
|
137
|
|
|
138 ;=============================================================================
|
|
|
139
|
|
604
|
140 END
|
