TTFIL zsz_othpool.ttt
1 {FILELEVEL=1?
2 $INCLUDE SINGLE.TTT
3 }
4
5 $REQUIRE TRAINDEF.TTT
6 $REQUIRE FIXTRAIN.TTT
7 $REQUIRE JMD_DEF.TTT
8
9 #
10 # Germany
11 #
12 {D?
13 %ADDPOOL(POOL_D,D_ENV)
14 {E6?
15 C=<DBAG_TRAVCA(|L),DBAG_ICEL(1L,4*(2L,3L),2L,11L,12L,13,14,15,15,17);
16 C=>DBAG_TRAVCA(|L),DBAG_ICEL(1,4*(2,3),2,11,12,13L,14L,15L,15L,17L);
17 }
18 %ENDPOOL;
19 }
20 #
21 # Switzerland
22 #
23 {CH?
24 %ADDPOOL(POOL_CH,CH_ENV)
25 {E5?
26 TX=FLP: Ferrovia Lugano-Ponte Tresa; \
27 C=<FLP_BE48TL,FLP_BE48E;
28 TX=FLP: Ferrovia Lugano-Ponte Tresa; \
29 C=<FLP_BE48STL,FLP_BE48M,FLP_BE48SE;
30 }
31 $ADD TX=FRT / FART (Centovallibahn);
32 {E2?
33 C=FRT_BCFE4_4B,FRT_BC4_109;
34 C=FRT_BCFE4_4B,2*FRT_BC4_73;
35 }
36 {E3?
37 C=FRT_BCFE4_4,FRT_BC4_108;
38 C=FART_XE2_2_7;
39 }
40 {E4?
41 C=FART_ABE8_821;
42 C=FART_ABDE6_631;
43 }
44 $ADD
45 %ENDPOOL;
46 }
47 #
48 # Austria
49 #
50 {A?
51 $DEF C_STANTE=C45H_STANTE1|BOX14_STANTE1
52 %ADDPOOL(POOL_A,A_ENV)
53 {E6?
54 NAME=STANTE1; \
55 C=DBAG_193_3G,DBAG_193_3G, \
56 15-20*(AAE_SGGMRSS90|AAE_SGGMRSS90A|AAE_SGGMRS90|AAE_SGGMRS90M|CBR_SGGMRSS1|WASC_SGGMRSS90| \
57 G_SGGMRSG(|2|3|4|5|7))(|L)[O:C_STANTE,*75,11][O:C_STANTE,*-76,11];
58 }
59 %ENDPOOL;
60 }
61 #
62 # France
63 #
64 {F?
65 %ADDPOOL(POOL_F,F_ENV)
66 {E4?
67 C=SNCF_4BB16030L,SNCF_4DX_U56L,SNCF_4IM56TEE_A8L,SNCF_4IM56TEE_A8,SNCF_4IM56TEE_A8,SNCF_Y_WRRBL, \
68 SNCF_4IM56TEE_A8L,SNCF_4IM56TEE_A8,SNCF_4IM56TEE_A8; \
69 D=L;
70 C=SNCF_4BB22210,SNCF_M69_A4DTUXJ,SNCF_M69_A8UJL,SNCF_M69_A8TUJL,SNCF_M69_VRUJL,SNCF_M69_A8TUJ, \
71 SNCF_M69_ARUXJL,SNCF_M69_A8TUJL,SNCF_M69_A8TUJ,SNCF_M69_A4DTUXJL; \
72 D=L;
73 C=SNCF_4BB22210L,SNCF_M69_A4DTUXJL,SNCF_M69_A8UJ,SNCF_M69_A8TUJ,SNCF_M69_VRUJ,SNCF_M69_A8TUJL, \
74 SNCF_M69_ARUXJ,SNCF_M69_A8TUJ,SNCF_M69_A8TUJL,SNCF_M69_A4DTUXJ; \
75 D=R;
76 }
77 %ENDPOOL;
78 }
79
80 #
81 # Spain
82 #
83 {E?
84 %ADDPOOL(POOL_E,E_ENV)
85 {E3?
86 TX=Express Madrid-Coruña-Ferrol del Caudillo, 1964; \
87 C=RF_7700, \
88 (<RF_DD5000G,RF_DGDC2002,RF_DGDC2003,RF_CC5000V1,RF_CC5000V1,RF_BB5000G,RF_BB5000E, \
89 RF_AA5003V2,RF_AAWR3000V1,RF_WL2663,RF_WL2663L,RF_AAWL5000G1,RF_BB3000G1,RF_CC5000V1); \
90 F=EP3; \
91 ORIGNAME=EXP_CORUNA_FERROL_7700;
92 TX=Express Mardid-Lissabon, The Lusitania; \
93 C=RF_2000N1,RF_2000N2,CIWL_E_BGN,CIWL_E_WL1N,CIWL_E_WL2N,CIWL_E_WRN,RF_A70001N,RF_B70001N, \
94 RF_B70002N; \
95 D=L;
96 }
97 {E4?
98 TX=Express Barcelona-Granada-Almería 1970; \
99 C=RF_7601, \
100 (>RF_DV340201,RF_DV340202,RF_BB8004A,RF_AABB1L,RF_BB5000UIC,RF_BB5000F,RF_BB5000H, \
101 RF_BBL8004A,RF_BB3000D,RF_BB8004B,RF_AA5000I,RF_BB80004C,RF_BB80004D); \
102 ORIGNAME=EXP_705_BARCELONA_MURCIA_GRANADA_ALMERIA_0;
103 TX=Express Costa Brava Madrid-Portbou; \
104 C=RF_333E,(<RF_DD8004,RF_WL5302,RF_WL5302L,RF_WR4080,RF_BBL8004,RF_BBL8004,RF_AA8004,RF_BB8004); \
105 F=DP4; \
106 ORIGNAME=EXP_COSTA_BRAVA;
107 }
108 {E6?
109 TX=Avlo Talgo 350 Madrid-Barcelona 2022; \
110 C=(<RF_AVLO1L,RF_AVLO2L,RF_AVLO3L,RF_AVLO4L,RF_AVLO5L,RF_AVLO6L,RF_AVLO7L,RF_AVLO8,RF_AVLO9, \
111 RF_AVLO10,RF_AVLO11,RF_AVLO12,RF_AVLO13,RF_AVLO1)| \
112 (<RF_AVLO1L,RF_AVLO13L,RF_AVLO12L,RF_AVLO11L,RF_AVLO10L,RF_AVLO9L,RF_AVLO8L,RF_AVLO7, \
113 RF_AVLO6,RF_AVLO5,RF_AVLO4,RF_AVLO3,RF_AVLO2,RF_AVLO1); \
114 F=EP6;
115 TX=Ouigo Espagna Avelia Euroduplex,Madrod-Barcelona 2022; \
116 C=(<OUIES_TGV2N2_1L,OUIES_TGV2N2_2L,2*OUIES_TGV2N2_3L,OUIES_TGV2N2_5L,3*OUIES_TGV2N2_6, \
117 OUIES_TGV2N2_9,OUIES_TGV2N2_1)| \
118 (<OUIES_TGV2N2_1L,OUIES_TGV2N2_9L,3*OUIES_TGV2N2_6L,OUIES_TGV2N2_5,2*OUIES_TGV2N2_3, \
119 OUIES_TGV2N2_2,OUIES_TGV2N2_1); \
120 F=EP6;
121 }
122 %ENDPOOL;
123 }
124 #
125 # Italy
126 #
127 {I?
128 %ADDPOOL(POOL_I,I_ENV)
129 C=<FS_ETR1000A_1L,FS_ETR1000A_2L,FS_ETR1000A_3L,FS_ETR1000A_4L,FS_ETR1000A_5L,FS_ETR1000A_6L, \
130 FS_ETR1000A_7L,FS_ETR1000A_8; \
131 F=EP6;
132 C=<FS_ETR1000A_8L,FS_ETR1000A_7,FS_ETR1000A_6,FS_ETR1000A_5,FS_ETR1000A_4,FS_ETR1000A_3, \
133 FS_ETR1000A_2,FS_ETR1000A_1; \
134 F=EP6;
135 C=<FS_ETR500D1L,FS_ETR500D2L,FS_ETR500D2L,FS_ETR500D4,FS_ETR500D2L,FS_ETR500D6L,FS_ETR500D2L, \
136 FS_ETR500D2L,FS_ETR500D2L,FS_ETR500D2L,FS_ETR500D2L,FS_ETR500D2L,FS_ETR500D1; \
137 F=EP6;
138 C=>FS_ETR500D1,FS_ETR500D2,FS_ETR500D2,FS_ETR500D4L,FS_ETR500D2,FS_ETR500D6,FS_ETR500D2, \
139 FS_ETR500D2,FS_ETR500D2,FS_ETR500D2,FS_ETR500D2,FS_ETR500D2,FS_ETR500D1L; \
140 F=EP6;
141 %ENDPOOL;
142 }
143 #
144 # Jugoslavia, Serbia
145 #
146 {YU?
147 %ADDPOOL(POOL_YU,YU_ENV)
148 {E4?
149 C=<JZ_412BL,JZ_416BL,JZ_416B,JZ_412B;
150 }
151 %ENDPOOL;
152 }
153 {ASSD?
154 %ADDPOOL(POOL_OTH,YU_ENV)
155 #
156 # Bosnia-Herzegovina
157 #
158 {E6?
159 C=ZFBH_441T,(<ZFBH_TALGO_(R1,2*R2,R3WR,R4,8*R5,R6)); \
160 F=EP6;
161 C=ZFBH_813_035; \
162 F=DPU6;
163 C=<ZFBH_814_043,ZFBH_813_035; \
164 F=DPU6;
165 #
166 # Macedonia
167 #
168 TX=Mazedonien MZ 412/416; \
169 C=<MZ_412OL,MZ_416OL,MZ_416O,MZ_412O; \
170 F=EPRU6;
171 TX=Montenegro ZCG 412/416; \
172 C=<ZCG_412WRL,ZCG_416WRL,ZCG_416WR,ZCG_412WR; \
173 F=EPU6;
174 }
175 %ENDPOOL;
176 }
177 {BG?
178 %ADDPOOL(POOL_BG,BG_ENV)
179 {E4|E5|E6?
180 C=<BDZ_32_01L,BDZ_32_02L,BDZ_32_02,BDZ_32_01;
181 }
182 %ENDPOOL;
183 }
184 {TR?
185 %ADDPOOL(POOL_TR,TR_ENV[TX#=TCDD Turkey])
186 #
187 # Turkey
188 #
189 {E3|E4|E5?
190 TX=Istambul subrban train E8000; \
191 C=<TCDD_E8000A[!L],TCDD_E8000B,TCDD_E8000A;
192 C=TCDD_MT5301[!L],TCDD_T5301,TCDD_MT5301;
193 }
194 {E4|E5?
195 C=1-2*TCDD_MT5727;
196 C=TCDD_RM3006,TCDD_RP3006;
197 C=TCDD_RAILBUS1;
198 C=<(OSE_AA171[!L],OSE_AA172)|(OSE_AA172[!L],OSE_AA171);
199 }
200 {E5|E6?
201 C=<TCDD_MT5500[!L],TCDD_T5500,TCDD_MT5500;
202 TX=Istambul subrban train E8000; \
203 C=<TCDD_E8009A[!L],TCDD_E8009B,TCDD_E8009A;
204 C=TCDD_MT5706;
205 }
206 {E6?
207 C=<TCDD_HT65000M[!L],3*TCDD_HT65000C,TCDD_HT65000WR,TCDD_HT65000M;
208 }
209 %ENDPOOL;
210 }
211
212 #
213 # Sovietunion, Russia
214 #
215 {SU?
216 %ADDPOOL(POOL_SU,SU_ENV)
217 {E1|E2?
218 C=ZKV_1_N124|SZD_2_F9826,3-10*SZD_KRYTY_12;
219 }
220 {E3?
221 C=SZD_TE(0313|0335|1687|3266|3368|6115|6744|7517)(|L),12-40*SZD_KRYTY_3;
222 C=SZD_LSO(01|02|03|04|05|06|07|11)(|L),1-2*SZD_KRYTY_12,2-5*SZD_18M_(1|2)(|L),SZD_SVPS, \
223 3-5*SZD_1928_(28|32|86)_MEST(|L); \
224 VH=62;
225 C=<SZD_ER2_1962_01L,SZD_ER2_1962_02L,SZD_ER2_1962_03L,SZD_ER2_1962_02L,SZD_ER2_1962_03L, \
226 SZD_ER2_1962_02L,SZD_ER2_1962_02,SZD_ER2_1962_03,SZD_ER2_1962_02,SZD_ER2_1962_01;
227 C=<SZD_ER2_1974_01L,SZD_ER2_1974_02L,SZD_ER2_1974_03L,SZD_ER2_1974_02L,SZD_ER2_1974_03L, \
228 SZD_ER2_1974_02L,SZD_ER2_1974_02,SZD_ER2_1974_03,SZD_ER2_1974_02,SZD_ER2_1974_01;
229 C=<2*(SZD_ER22_01L,SZD_ER22_02L,SZD_ER22_02,SZD_ER22_01);
230 }
231 {E4?
232 C=RZD_AS1A; \
233 F=PU5;
234 C=RZD_AS1A_1563; \
235 F=PU5;
236 C=RZD_AS1A_2943; \
237 F=PU5;
238 C=RZD_AS1A_3288; \
239 F=PU5;
240 C=<SZD_DR1AL,2*SZD_DR1AM,SZD_DR1A; \
241 F=PU5;
242 }
243 {E5?
244 C=RZD_D1_445; \
245 F=PU5;
246 C=RZD_D1_457; \
247 F=PU5;
248 C=RZD_D1_469; \
249 F=PU5;
250 C=RZD_D1_518; \
251 F=PU5;
252 C=RZD_D1_553; \
253 F=PU5;
254 C=RZD_D1_582; \
255 F=PU5;
256 C=<RZD_EM2_1L,RZD_EM2_2L,RZD_EM2_3L,RZD_EM2_2L,RZD_EM2_3L,RZD_EM2_2L,RZD_EM2_2,RZD_EM2_3, \
257 RZD_EM2_2,RZD_EM2_1; \
258 F=EP5;
259 C=<RZD_ER1(Y|B|D|W)(FL,(EL|(EL,B,B)|(EL,B,EL)|(EL,3*(B,EL))),E,F); \
260 F=EPU5;
261 C=<RZD_ER1(Y|B|D|W)(FL,(ETL|(ETL,B,B)|(ETL,B,ETL)|(ETL,3*(B,ETL))),ET,F); \
262 F=EPU5; \
263 VH=62;
264 C=<RZD_ER2(Y|B|D|A|E|F|G|H|I|J|K|L)(FL,(EL|(EL,B,B)|(EL,B,EL)|3:(EL,3*(B,EL))),E,F); \
265 F=EPU5;
266 C=<RZD_ER2(Y|B|D|A|E|F|G|H|I|J|K|L)(FL,(ETL|(ETL,B,B)|(ETL,B,ETL)|3:(ETL,3*(B,ETL))),ET,F); \
267 F=EPU5; \
268 VH=62;
269 C=<SZD_ER7K_1(FL,(ETL|(ETL,B,B)|(ETL,B,ETL)|(ETL,3*(B,ETL))),ET,F); \
270 F=EPU5; \
271 VH=62;
272 C=<RZD_E(R9A|R9B|R9P_1|R9P_2|R9P_3|R9PK_1|M9A|M9B) \
273 (FL,(ETL|(ETL,B,B)|(ETL,B,ETL)|(ETL,3*(B,ETL))),ET,F); \
274 F=EPU5; \
275 VH=62;
276 C=<UZ_(ER1|ER2|ER2B|ER2C|ER2D)(FL,(EL|(EL,B,B)|(EL,B,EL)|3:(EL,3*(B,EL))),E,F); \
277 F=EPU5;
278 C=<UZ_(ER1|ER2|ER2B|ER2C|ER2D)(FL,(ETL|(ETL,B,B)|(ETL,B,ETL)|3:(ETL,3*(B,ETL))),ET,F); \
279 F=EPU5; \
280 VH=62;
281 C=<ER_ER(1B_1|1B_2|1B_3|1B_4|2A)(FL,EL,E,F); \
282 F=EPU5;
283 C=<ER_ER(1B_1|1B_2|1B_3|1B_4|2A)(FL,ETL,ET,F); \
284 F=EPU5; \
285 VH=62;
286 C=RZD_LOC1,2:|RZD_BAG1,9-14*RZD_(KRK|WPW47)_ALTAY(|L); \
287 F=EP5; \
288 VH=62;
289 C=RZD_LOC1,4-6*RZD_KRK_BAIKAL(|L),1-2*RZD_61828_BAIKAL(|L),6-8*RZD_KRK_BAIKAL(|L); \
290 F=EP5; \
291 VH=62;
292 C=RZD_LOC1,0-2*RZD_BAG1,8-12*RZD_KRK_BYELOMORYE(|L); \
293 F=EP5; \
294 VH=62;
295 C=RZD_LOC1,3-5*RZD_5614177_V1_DAURIA(|L),RZD_6614177_V1_DAURIA(|L),8-10*RZD_6KRK_DAURIA(|L); \
296 F=EP5; \
297 VH=62;
298 C=RZD_LOC1,3:|RZD_BAG1,8-14*RZD_614177_V2_DESNA(|L); \
299 F=EP5; \
300 VH=62;
301 C=RZD_LOC1,3:|RZD_BAG1,4-6*RZD_61820_KAMA(|L),4-6*RZD_KRK_KAMA(|L); \
302 F=EP5; \
303 VH=62;
304 C=RZD_LOC1,3:|RZD_BAG1,7-12*RZD_61828_KUZBASS(|L); \
305 F=EP5; \
306 VH=62;
307 C=RZD_LOC1,8-12*RZD_B_NEVSKY; \
308 F=EP5; \
309 VH=62;
310 C=RZD_LOC1,3:|RZD_BAG1,7-12*RZD_KRK_OKEAN(|L); \
311 F=EP5; \
312 VH=62;
313 C=RZD_LOC1,3:|RZD_BAG1,7-12*RZD_KRK_OMICH(|L); \
314 F=EP5; \
315 VH=62;
316 C=RZD_LOC1,1-2*RZD_BAG_PERESVET(|L),4-6*RZD_614177_V(1|2)_PERESVET,4-6*RZD_KRK_PERESVET(|L); \
317 F=EP5; \
318 VH=62;
319 C=RZD_LOC1,RZD_BAG1,4-6*RZD_KRK_SAYANI(|L),RZD_WPW47_SAYANI(|L),4-6*RZD_KRK_SAYANI(|L); \
320 F=EP5; \
321 VH=62;
322 C=RZD_LOC1,0-2*RZD_BAG1,6-14*RZD_KRK_SIBIRYAK(|L); \
323 F=EP5; \
324 VH=62;
325 C=RZD_LOC1,0-2*RZD_BAG1,3-6*RZD_614177_V2_SOLOVEY(|L),4-6*RZD_KRK_SOLOVEY(|L); \
326 F=EP5; \
327 VH=62;
328 C=RZD_LOC1,0-2*RZD_BAG1,4-6*RZD_614177_L2_TOMICH(|L),4-8*RZD_KRK_TOMICH(|L); \
329 F=EP5; \
330 VH=62;
331 C=RZD_LOC1,RZD_61517_URAL(|L),RZD_POST_URAL,3*RZD_KRK_URAL(|L),RZD_SKK_URAL(|L), \
332 7*RZD_KRK_URAL(|L); \
333 F=EP5; \
334 VH=62;
335 C=RZD_LOC1,4-6*RZD_61828_VOLGA(|L),RZD_SKK_VOLGA(|L),6-8*RZD_61828_VOLGA(|L); \
336 F=EP5; \
337 VH=62;
338 C=RZD_LOC1,|RZD_BAG1,8-12*RZD_61828_VOLOGDA(|L); \
339 F=EP5;
340 C=RZD_LOC1,1-2*RZD_6BAG_VOSTOK(|L),3-5*RZD_6WPW47_VOSTOK(|L),RZD_6SKK_VOSTOK(|L), \
341 6-8*RZD_6KRK_VOSTOK(|1)(|L); \
342 F=EP5; \
343 VH=62;
344 C=RZD_LOC1,3-6*RZD_614177_V1_VYATKA(|L),1-2*RZD_WPW47_VYATKA(|L),4-6*RZD_61828_VYATKA(|L); \
345 F=EP5; \
346 VH=62;
347 C=RZD_LOC1,10-14*RZD_614177_V2_YANTAR(|L); \
348 F=EP5; \
349 VH=62;
350 C=RZD_LOC1,10-14*RZD_61828_YUGRA(|A)(|L); \
351 F=EP5; \
352 VH=62;
353 C=RZD_LOC1,2:|RZD_BAG1,11-15*(RZD_KRK_L2_ZAURALYE|RZD_61828_ZAURALYE)(|L); \
354 F=EP5; \
355 VH=62;
356 M=BACK; \
357 C=RZD_TGM23SO(01|02|03|04|05|06)(|L), \
358 1-3*(SZD_BAM15880|4:RZD_TANK8_(03|04|07|09)(|L)|4:RZD_TANK8_(01|02|05|06)| \
359 4:RZD_TANK4_(01|02|03|04)); \
360 F=F5O;
361 C=RZD_TEM2,10-15*RZD_OP4; \
362 F=EP5;
363 C=RZD_TEM7,20-30*CISNEFT; \
364 F=EP5;
365 C=RZD_TEP70(BS|U)SO01(|L)|RZD_CHS4TSO(19|20)(|L),4-6*RZD_6WLABM(1|3)(|L),RZD_VR_SC245, \
366 3-5*RZD_KRK_N(|L); \
367 F=EP5; \
368 VH=62;
369 C=<RZD_SOKOL250F[!L],RZD_SOKOL250B,RZD_SOKOL250A,RZD_SOKOL250B,RZD_SOKOL250F; \
370 F=EP5;
371 M=BACK; \
372 C=UZ_TGM23SO(01|02|03|04)(|L),1-5*UZ_11066; \
373 F=F5O;
374 C=UZ_LOC1,UZ_KRK_D(Y|W)(|L),3-6*UZ_KRK_Y(|L),UZ_KRK_WR(Y|W)(|L),3-6*UZ_KRK_Y(|L); \
375 F=EP5; \
376 VH=62;
377 C=UZ_LOC1,4-6*UZ_DNIPRO_B(|L),UZ_DNIPRO_WR(|L),4-6*UZ_DNIPRO_B(|L); \
378 F=EP5; \
379 VH=62;
380 C=BCH_LOC1,BCH_BAGAZH1(|L),2-4*(BCH_61820|BCH_614177B|BCH_614178B|BCH_WPW47)(|L),BCH_SKK(|L), \
381 3-8*BCH_KRK(|L); \
382 F=EP5; \
383 VH=62;
384 C=AZ_LOC1,8-12@AZ_KRK(|1|2|3|4); \
385 F=EP5; \
386 VH=62;
387 C=KTZ_TULPAR,KTZ_TULPAR_1; \
388 F=EP5;
389 C=UZB_TEP70BSSO01(|L),6-12*UZB_P1|UZB_P2; \
390 F=P5;
391 }
392 {E6?
393 C=<RZD_EVS2_1L,RZD_EVS2_2[PU],RZD_EVS2_2[PD],2*RZD_EVS2_4,RZD_EVS2_5L,RZD_EVS2_4L, \
394 RZD_EVS2_2L[PD],RZD_EVS2_2L[PU],RZD_EVS2_1; \
395 F=EP6;
396 C=<RZD_EG2TV_1L,RZD_EG2TV_2L,RZD_EG2TV_3L,RZD_EG2TV_2L,RZD_EG2TV_2,RZD_EG2TV_3,RZD_EG2TV_1; \
397 F=EP6;
398 C=<RZD_EM4_1L,RZD_EM4_2L,RZD_EM4_3L,RZD_EM4_2L,RZD_EM4_2,RZD_EM4_3,RZD_EM4_2,RZD_EM4_1; \
399 F=EP6;
400 }
401 %ENDPOOL;
402 }
403
404 {AF?
405 #
406 # Egypt
407 #
408 %ADDPOOL(POOL_NE,NE_ENV)
409 C=<ENR_6500M1[!L],2*ENR_6500R1,ENR_6500M1;
410 %ENDPOOL;
411 }
412 #
413 # Japan
414 #
415 {J?
416 %ADDPOOL(POOL_JP,J_ENV)
417
418 C=<JRE_E956_1L,JRE_E956_2L,JRE_E956_3L,JRE_E956_4L,JRE_E956_5L,JRE_E956_6L,JRE_E956_7L,JRE_E956_8L,JRE_E956_9L,JRE_E956_10;
419 C=<JRE_E956_10L,JRE_E956_9,JRE_E956_8,JRE_E956_7,JRE_E956_6,JRE_E956_5,JRE_E956_4,JRE_E956_3,JRE_E956_2,JRE_E956_1;
420 %ENDPOOL;
421 }
422 #
423 # China
424 #
425 {CN?
426 %ADDPOOL(POOL_CN,CN_ENV)
427 C=CR_ARPAD;
428 C=<CR_JINLUNA[!L],3*CR_JINLUNB,CR_JINLUNA;
429 C=<CR_D1AL,4*CR_D1B,CR_D1A;
430 C=>CR_DDJ1,CR_RZ225DT1,5*CR_RZ225DT2,CR_RZ225DK[!L];
431 C=<CR_NZJ_M[!L],6*CR_NZJ_A,CR_NZJ_M;
432 C=<CR_SYZ25M1L,4*CR_SYZ25T,CR_SYZ25M2;
433 C=CR_CBM9;
434 C=CR_CHINASTAR8|CR_CHINASTAR11;
435 C=CR_X2000(|A|L);
436 C=CR_H1A;
437 C=CR_H1B;
438 C=CR_H1C;
439 C=<CR_H1BPS2AL,CR_H1BPS2BL,CR_H1BPS2C,3*CR_H1BPS2CL,CR_H1BPS2B,CR_H1BPS2A;
440 C=CR_H2;
441 C=<CR_H2O1L,CR_H2O2,CR_H2O3,CR_H2O4,CR_H2O5,CR_H2O6,CR_H2O7,CR_H2O1;
442 C=<CR_H2C1L,CR_H2O2,CR_H2O3,CR_H2O4,CR_H2O5,CR_H2O6,CR_H2O7,CR_H2C1;
443 C=<CR_H2H1L,CR_H2O2,CR_H2O3,CR_H2O4,CR_H2O5,CR_H2O6,CR_H2O7,CR_H2H1;
444 C=<CR_H2M1L,CR_H2O2,CR_H2O3,CR_H2O4,CR_H2O5,CR_H2O6,CR_H2O7,CR_H2M1;
445 C=CR_H2ADY;
446 C=<CR_H5O1L,CR_H5O2,CR_H5O3,CR_H5O4,CR_H5O2,CR_H5O5,CR_H5O4,CR_H5O1;
447 C=<CR_H5H1L,CR_H5H2,CR_H5H3,CR_H5H4,CR_H5H2,CR_H5H5,CR_H5H4,CR_H5H1;
448 C=<CR_H5W1L,CR_H5W2,CR_H5W3,CR_H5W4,CR_H5W2,CR_H5W5,CR_H5W4,CR_H5W1;
449 C=CR_H5_2;
450 C=<CR_CENCHSTAR1L,CR_CENCHSTAR2,CR_CENCHSTAR3,CR_CENCHSTAR4,CR_CENCHSTAR3,CR_CENCHSTAR4, \
451 2*CR_CENCHSTAR3,CR_CENCHSTAR2,CR_CENCHSTAR3,CR_CENCHSTAR2,CR_CENCHSTAR3,CR_CENCHSTAR2, \
452 CR_CENCHSTAR1;
453 C=CR_DF4~TKH|CR_DF4HG1|CR_DF4C2|CR_DF4B~TKH,CR_25TTZ; \
454 D=L;
455 C=CR_DF8B_0059|CR_DF8B_7001|CR_DF8B_5178|CR_DF8B_0074,CR_25K(1|2); \
456 D=L;
457 C=CR_DF8B_0059|CR_DF8B_7001|CR_DF8B_5178|CR_DF8B_0074,CR_25ZGZ;
458 %ENDPOOL;
459 }
460
461 #
462 # Taiwan
463 #
464 {AS?
465 %ADDPOOL(POOL_AS,AS_ENV)
466 TX=Taiwan DR2510; \
467 C=<TRA_DR2510AL,TRA_DR2510B;
468 TX=Taiwan DR3100; \
469 C=TRA_3100;
470 TX=Taiwan DR1000; \
471 C=1-3*TRA_DR1000(|A|AL);
472 TX=Taiwan LDR2300, LTPB1900; \
473 C=<TRA_LDR2300AL,TRA_LDR2300B;
474 TX=Taiwan DR2000; \
475 C=TRA_2000;
476 TX=Taiwan DR2100 original state; \
477 C=<TRA_DR2100;
478 TX=Taiwan DR2100 rebuilt; \
479 C=<TRA_2100N;
480 TX=Taiwan DR2700-2750-2700; \
481 C=TRA_2700A;
482 TX=Taiwan DR2700-2750-2700; \
483 C=TRA_2700B;
484 TX=Taiwan EMU700 original; \
485 C=TRA_700A;
486 TX=Taiwan EMU700 repainted; \
487 C=TRA_700B;
488 TX=Taiwan, TEMU1000 (Taroko); \
489 C=TRA_TEMU1000;
490 TX=Taiwan THSR 700T; \
491 C=<THSR_700T_AL,THSR_700T_B,THSR_700T_C,THSR_700T_D,THSR_700T_E,THSR_700T_F,THSR_700T_G, \
492 THSR_700T_H,THSR_700T_I,THSR_700T_J,THSR_700T_A;
493 TX=Pakistan 4700+passenger train; \
494 C=PRC_4700(|L),PRC_6,4*PRC_5,PRC_4,4*PRC_5;
495 TX=Pakistan 4700+passenger train; \
496 C=PRC_4700(|L),PRC_2,4-8*PRC_1;
497 TX=India; \
498 C=INR_DLOC1,INR_LR4,4*INR_SL2,3*INR_GS3;
499 TX=India; \
500 C=INR_DLOC1,4*INR_CC2,6*INR_CC1;
501 TX=India; \
502 C=INR_DLOC1,INR_LR3,2*INR_GS2,5*INR_CC3,2*INR_CC4;
503 TX=India; \
504 C=INR_DLOC1,INR_LR2,6*INR_CS1,INR_C31,2*INR_C32;
505 TX=India; \
506 C=INR_DLOC1,INR_LR1,INR_GS1,2*INR_SL1,2*INR_CS2,INR_C33,2*INR_C34;
507 TX=India; \
508 C=INR_DLOC1,15-30*INR_BXN(1|2|3);
509 TX=India; \
510 C=INR_DLOC1,15-25*INR_BCN(1|2|3);
511 %ENDPOOL
512 }
513
514 {SA?
515 %ADDPOOL(POOL_SA,SA_ENV)
516 #
517 # CUBA
518 #
519
520 C=FDC_E502E,FDC_E502M,FDC_E502E;
521 C=FDC_E502E,FDC_E502M,FDC_E502F;
522 #
523 # BRAZIL
524 #
525 C=$DIR(EFA_GP9OL,EFA_GP9O),EFA_MAIL(|L),4*EFA_B1,EFA_REST(|L),2*EFA_A1; \
526 F=DP;
527 C=EFA_GP18RWL,CPB_GP18RW,EFA_CS_MAIL,4*EFA_CS_PAS,EFA_CS_REST,2*EFA_CS_PAS; \
528 F=DP;
529 C=EFCB_383,EFCB_CSUL_BUFBAG,6*EFCB_CSUL_SLP; \
530 F=SP;
531 C=$DIR(EFCB_SD40L,EFCB_SD40),EFCB_SD40,EFCB_BUDD_BAG,3*EFCB_BUDD_A,EFCB_BUDD_ROOM,EFCB_BUDD_REST; \
532 F=DP;
533 C=<EFSJ_GUALIXO_VANL,EFSJ_GUALIXO_MOT(|L),EFSJ_GUALIXO_VAN; \
534 F=EPU4;
535 C=2*EFVM_BB40_2OL,15-22*EFVM_HOP; \
536 D=L; \
537 F=DF;
538 C=(<EFVM_B12L,EFVM_B12),EFVM_MAILOL,5*EFVM_BO,2*EFVM_AO; \
539 F=DP;
540 C=EFVM_BB40_2NL,EFVM_MAILNL,5*EFVM_BN,2*EFVM_AN; \
541 D=L; \
542 F=DP;
543 C=<RFFSA_GANZ_MBL,RFFSA_GANZ_A,RFFSA_GANZ_BUF,RFFSA_GANZ_MB; \
544 F=DP4;
545 C=<RFFSA_GUALIXO_VANL,RFFSA_GUALIXO_MOT(|L),RFFSA_GUALIXO_VAN; \
546 F=EP4;
547 C=VFRGS_908,VFRGS_FAR_MAIL,4*VFRGS_FAR_A,VFRGS_FAR_REST,3*VFRGS_FAR_SLP; \
548 F=SP;
549 #
550 # URUGUAY
551 #
552 C=AFE_153,AFE_53; \
553 F=DP;
554 #
555 # CHILE
556 #
557 C=4:1|2*FFCCDE_AM10(1|1U|2|3|4|5|6)(|L); \
558 F=DPBB;
559 C=EFE_269(A|B)(|L),1-3*EFE_TS1(|L),4-7*EFE_TS2(|L); \
560 F=EP;
561 %ENDPOOL;
562 }