Subversion Repositories SvarDOS

Rev

Rev 1484 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1484 Rev 1485
Line 136... Line 136...
136 
; DE [44h 45h]
 136 
; DE [44h 45h]
137 
mov     bp, TEXT_DE
 137 
mov     bp, TEXT_DE
138 
cmp     ax, 4544h
 138 
cmp     ax, 4544h
139 
je      LANGOK
 139 
je      LANGOK
140 
 
 140 
 
- 
 
 141 
; DK [44h 4Bh]
- 
 
 142 
mov     bp, TEXT_DK
- 
 
 143 
cmp     ax, 4B44h
- 
 
 144 
je      LANGOK
- 
 
 145 
 
- 
 
 146 
; ES [45h 53h]
- 
 
 147 
mov     bp, TEXT_ES
- 
 
 148 
cmp     ax, 5345h
- 
 
 149 
je      LANGOK
- 
 
 150 
 
- 
 
 151 
; FI [46h 49h]
- 
 
 152 
mov     bp, TEXT_FI
- 
 
 153 
cmp     ax, 4946h
- 
 
 154 
je      LANGOK
- 
 
 155 
 
141 
; FR [46h 52h]
 156 
; FR [46h 52h]
142 
mov     bp, TEXT_FR
 157 
mov     bp, TEXT_FR
143 
cmp     ax, 5246h
 158 
cmp     ax, 5246h
144 
je      LANGOK
 159 
je      LANGOK
145 
 
 160 
 
- 
 
 161 
; IT [49h 54h]
- 
 
 162 
mov     bp, TEXT_IT
- 
 
 163 
cmp     ax, 5449h
- 
 
 164 
je      LANGOK
- 
 
 165 
 
146 
; NL [4Eh 4Ch]
 166 
; NL [4Eh 4Ch]
147 
mov     bp, TEXT_NL
 167 
mov     bp, TEXT_NL
148 
cmp     ax, 4C4Eh
 168 
cmp     ax, 4C4Eh
149 
je      LANGOK
 169 
je      LANGOK
150 
 
 170 
 
Line 156... Line 176...
156 
; RU [52h 55h]
 176 
; RU [52h 55h]
157 
mov     bp, TEXT_RU
 177 
mov     bp, TEXT_RU
158 
cmp     ax, 5552h
 178 
cmp     ax, 5552h
159 
je      LANGOK
 179 
je      LANGOK
160 
 
 180 
 
- 
 
 181 
; SL [53h 4Ch]
- 
 
 182 
mov     bp, TEXT_SL
- 
 
 183 
cmp     ax, 4C53h
- 
 
 184 
je      LANGOK
- 
 
 185 
 
- 
 
 186 
; SV [53h 56h]
- 
 
 187 
mov     bp, TEXT_SV
- 
 
 188 
cmp     ax, 5653h
- 
 
 189 
je      LANGOK
- 
 
 190 
 
161 
; TR [54h 52h]
 191 
; TR [54h 52h]
162 
mov     bp, TEXT_TR
 192 
mov     bp, TEXT_TR
163 
cmp     ax, 5254h
 193 
cmp     ax, 5254h
164 
je      LANGOK
 194 
je      LANGOK
165 
 
 195 
 
Line 336... Line 366...
336 
LANG DB "LANG="
 366 
LANG DB "LANG="
337 
SEPAR1 DB "--- $"
 367 
SEPAR1 DB "--- $"
338 
SEPAR2 DB " ---$"
 368 
SEPAR2 DB " ---$"
339 
 
 369 
 
340 
TEXT_DE DB "WEITER$"
 370 
TEXT_DE DB "WEITER$"
- 
 
 371 
TEXT_DK DB "MERE$"
- 
 
 372 
TEXT_ES DB "M", 0B5h, "S$"              ; "MAS" with an A-acute (CP 850)
341 
TEXT_EN DB "MORE$"
 373 
TEXT_EN DB "MORE$"
- 
 
 374 
TEXT_FI DB "LIS", 8Eh, 8Eh, "$"         ; "LISAA" - AA with diaeresis (CP 850)
342 
TEXT_FR DB "PLUS$"
 375 
TEXT_FR DB "PLUS$"
- 
 
 376 
TEXT_IT DB "PI", 0EBh, "$"              ; "PIU" with U-acute (CP 850)
343 
TEXT_NL DB "MEER$"
 377 
TEXT_NL DB "MEER$"
344 
TEXT_PL DB "DALEJ$"
 378 
TEXT_PL DB "DALEJ$"
345 
TEXT_RU DB 84h,80h,8Bh,85h,85h,'$'     ; "DALEE" (CP 866)
 379 
TEXT_RU DB 84h,80h,8Bh,85h,85h,'$'     ; "DALEE" (CP 866)
- 
 
 380 
TEXT_SL DB "VE", 0ACh, "$"             ; "VEC" with C-caron (CP 852)
- 
 
 381 
TEXT_SV DB "MERA$"
346 
TEXT_TR DB "DAHA FAZLA$"
 382 
TEXT_TR DB "DAHA FAZLA$"
347 
 
 383 
 
348 
; uninitialized area (must be defined last)
 384 
; uninitialized area (must be defined last)
349 
 
 385 
 
350 
FHANDLE dw      ?                      ; file handle I read from (DUPed stdin)
 386 
FHANDLE dw      ?                      ; file handle I read from (DUPed stdin)