Mercurial > public > hwos_code

view src/text_multilang.asm @ 574:b8f45b57302d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
language, compass and color update
author heinrichsweikamp
date Wed, 14 Feb 2018 16:27:54 +0100
parents b7eb98dbd800
children ca4556fb60b9
line wrap: on
line source

;=============================================================================
;
;   File text_multilang.asm								Version 2.92 = 2.26
;
;   Implementation text in various selectable languages.
;
;   Copyright (c) 2011, JD Gascuel, HeinrichsWeikamp, all right reserved.
;=============================================================================
; HISTORY
;  2011-06-12 : [jDG] Creation...

#include "text_multilang.inc"
#include "hwos.inc"	    

; Because text are indexed by 12bits value in FSR register, they can't
; just be anywhere. It is safe to make them start in address 0xHHH000.
texts       code    0x009000

;=============================================================================
            global  text_1_base
text_1_base:
    IFNDEF	    french_italian
	MESSG "hwOS code in English and German!"
;---- PASS 1 : generate description block ------------------------------------
tcode_idx   set     0
LANG        set     0
#define     TCODE TCODE_1
#include    "text_english.inc"
#undefine   TCODE

;---- PASS 2 : generate text contens -----------------------------------------
tcode_idx   set     0
#define     TCODE TCODE_2
#include    "text_english.inc"
#undefine   TCODE

;=============================================================================


	global  text_2_base
text_2_base:

;---- PASS 1 : generate description block ------------------------------------
tcode_idx   set     0
LANG        set     1
#define     TCODE TCODE_1
#include    "text_german.inc"
#undefine   TCODE

;---- PASS 2 : generate text contens -----------------------------------------
tcode_idx   set     0
#define     TCODE TCODE_2
#include    "text_german.inc"
#undefine   TCODE

	ELSE
	MESSG "hwOS code in French and Italian!"
;=============================================================================
;---- PASS 1 : generate description block ------------------------------------
tcode_idx   set     0
LANG        set     0
#define     TCODE TCODE_1
#include    "text_french.inc"
#undefine   TCODE

;---- PASS 2 : generate text contens -----------------------------------------
tcode_idx   set     0
#define     TCODE TCODE_2
#include    "text_french.inc"
#undefine   TCODE

;=============================================================================
            global  text_2_base
text_2_base:

;---- PASS 1 : generate description block ------------------------------------
tcode_idx   set     0
LANG        set     1
#define     TCODE TCODE_1
#include    "text_italian.inc"
#undefine   TCODE

;---- PASS 2 : generate text contens -----------------------------------------
tcode_idx   set     0
#define     TCODE TCODE_2
#include    "text_italian.inc"
#undefine   TCODE

    ENDIF
   
;=============================================================================

        END