Mercurial > public > hwos_code

view src/text_multilang.asm @ 601:08a0162d3ca1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix false CNS readings in logbook
author heinrichsweikamp
date Tue, 14 Aug 2018 11:01:47 +0200
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