ORG &7000 ;'RRAN-ALL.TXT'
NOLIST    ;2022.12.16
NOCODE    ;54 Zeilen

DEU EQU 1
ENG EQU 0
FRA EQU 0
SPA EQU 0


;Applikation in FutureOS X-ROM aufrufen

RRAX LD HL,RRA_ROM:LD DE,&B000:LD BC,RRA_END-RRA_ROM:LDIR:JP &B000


RRA_ROM DB &01,&00,&DF ;Nach &B000 ins RAM kopieren, um XROM Appl. aufzurufen

 DB &ED,&49,&21,&00,&C0,&7E,&FE,&02,&20,&62,&2C,&7E,&FE
 DB &09,&20,&5C,&C5,&79,&08,&2E,&04,&7E,&2C,&66,&6F,&11,&08,&B1,&06
 DB &80,&7E,&B8,&30,&05,&12,&23,&13,&18,&F7,&90,&12,&AF,&13,&12,&23
 DB &EB,&FD,&62,&FD,&6B,&ED,&4B,&68,&B9,&ED,&49,&08,&11,&04,&B1,&CD
 DB &8A,&D5,&DD,&21,&F5,&C4,&CD,&2A,&FF,&21,&ED,&B0,&CD,&8C,&D4,&CD
 DB &71,&C6,&FD,&E5,&CD,&77,&FD,&FD,&E1,&0F,&30,&0E,&0F,&30,&0F,&0F
 DB &30,&08,&0F,&30,&09,&0F,&30,&16,&18,&E8,&C1,&0D,&18,&95,&C1,&0C
 DB &20,&91,&ED,&4B,&68,&B9,&ED,&49,&21,&9D,&FE,&C3,&12,&FF,&DD,&2E
 DB &00,&FD,&54,&FD,&5D,&C1,&C5,&ED,&49,&21,&8A,&C4,&22,&48,&B8,&21
 DB &00,&B7,&01,&20,&20,&71,&2C,&10,&FC,&68,&1A,&B7,&28,&D4,&06,&80
 DB &B8,&30,&06,&77,&2C,&13,&1A,&18,&F7,&90,&77,&D5,&ED,&4B,&68,&B9
 DB &ED,&49,&01,&20,&00,&68,&CD,&E0,&CC,&CD,&71,&C6,&FD,&E5,&CD,&77
 DB &FD,&FD,&E1,&0F,&0F,&30,&09,&0F,&0F,&30,&05,&0F,&30,&10,&18,&EC
 DB &D1,&13,&DD,&2C,&C1,&C5,&ED,&49,&1A,&B7,&20,&A9,&18,&A0,&DD,&7D
 DB &87,&DD,&85,&C6,&09,&C1,&C1,&ED,&49,&26,&C0,&6F,&E9,&1E,&12,&00

IF DEU
 DB &41,&6E,&77,&65,&6E,&64,&75,&6E,&67,&3A,&1E,&10,&00,&58,&2D,&52
ENDIF

IF ENG
 DB &20,&20,&50,&72,&6F,&67,&72,&61,&6D,&3A,&1E,&10,&00,&58,&2D,&52
ENDIF

IF FRA
 DB &50,&72,&6F,&67,&72,&61,&6D,&6D,&65,&3A,&1E,&10,&00,&58,&2D,&52
ENDIF

IF SPA
 DB &20,&50,&72,&6F,&67,&72,&61,&6D,&61,&3A,&1E,&10,&00,&58,&2D,&52
ENDIF

 DB &4F,&4D,&20,&26,&4E,&4E,&3A,&20

RRA_END nop

