Mercurial > public > hwos_code

view src/text_multilang.asm @ 548:abf3cbd5815e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
minor cleanup, 2.25 stable RC3
author heinrichsweikamp
date Fri, 08 Sep 2017 14:04:38 +0200
parents 89b480ce4a26
children b7eb98dbd800
line wrap: on
line source

;=============================================================================
;
;   File text_multilang.asm
;
;   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