/* Configuration file of the library Graph */
 
//#define PLOT_ROM
//#define PLOT_FAST_NO_TABLE
#define PLOT_FAST_TABLE
 
#define TableStart 0xF000 // If table used

#ifdef PLOT_ROM
#define Graph_Plot Graph_Plot_ROM
#endif PLOT_ROM
 
#ifdef PLOT_FAST_NO_TABLE
#define Graph_Plot Graph_Plot_NoTab
#endif PLOT_FAST_NO_TABLE
 
#ifdef PLOT_FAST_TABLE
#define Graph_Plot Graph_Plot_Tab
#endif PLOT_FAST_TABLE

C053 ; ---------------------------------------------------------------------------
C053
C053 INVERT:
C053                 ld      hl, 4000h
C056                 ld      bc, 1800h
C059
C059 loc_C059:                               ; CODE XREF: C061
C059                 ld      a, (hl)
C05A                 xor     0FFh
C05C                 ld      (hl), a
C05D                 dec     bc
C05E                 inc     hl
C05F                 ld      a, b
C060                 or      c
C061                 jr      nz, loc_C059
C063                 ret
C064 ; ---------------------------------------------------------------------------

MODULE Mega;
(* -------------------- *)
(* MEGA BASIC for ZXDev *)
(*   by Oleg N. Cher    *)
(*    VEDAsoft, 2013    *)
(* -------------------- *)
 
PROCEDURE INVERT*; END INVERT;
 
END Mega.

/* -------------------- */
/* YS MegaBasic v4.0    */
/* (c) 1984 Mike Leaman */
/* MEGA BASIC for ZXDev */
/*   by Oleg N. Cher    */
/*    VEDAsoft, 2013    */
/* -------------------- */
 
#include "SYSTEM.h"
#include "Mega.h"
 
export void Mega_INVERT (void);
 
/*================================== Header ==================================*/
 
/* "INVERT" - инвертирование экрана: тон становится фоном, а фон - тоном. */
void Mega_INVERT (void)
{
__asm
  LD   HL, #0x4000
  LD   BC, #0x1800
INV_LOOP$:
  LD   A, (HL)
  XOR  #0xFF
  LD   (HL), A
  DEC  BC
  INC  HL
  LD   A, B
  OR   C
  JR   NZ, INV_LOOP$
__endasm;
} //Mega_INVERT

 
#ifndef Mega__h
#define Mega__h
 
#include "SYSTEM.h"
 
 
import void Mega_INVERT (void);
#define Mega__init()
 
 
#endif

MODULE DemoInvert;
IMPORT Console, Mega;
 
BEGIN
	Mega.INVERT;
	Console.WriteStr(" To Be Inverted!");
	Mega.INVERT;
	Console.WriteStr(" To Be Inverted!");
	Mega.INVERT;
END DemoInvert.

PROCEDURE Border* (color: SHORTINT);
BEGIN
  Asm.Code("LD   A,4(IX)");
  Asm.Code("CALL 0x229B ");
END Border;

PROCEDURE Border* (color: INTEGER); END Border;

/*--------------------------------- Cut here ---------------------------------*/
void _Laser_LB_SL1V (void) __naked {
__asm
  LD   DE,#__Laser_LB_035
  JP   __Laser_LB_056
__endasm;
} //_Laser_LB_SL1V

_AsmTest_Border_start::
_AsmTest_Border:
	push	ix ; фрейм Enter
	ld	ix,#0
	add	ix,sp
; ...
	pop	ix ; фрейм Leave
	ret
_AsmTest_Border_end::

PROCEDURE FONT* (addr: LONGINT); END FONT;

#define Basic_FONT(fontAddr) (*(unsigned*) (0x5C36) = (fontAddr - 256))

CONST constcolor* = 4; (* Это в модуле Cfg *)
VAR varcolor-: INTEGER; (* Неважно какое у неё значение - *)
(* это фиктивная константа, которая реализуется на уровне Си *)
…
(* Уже в другом модуле: *)
b.BORDER(constcolor); (* транслируется в Basic_BORDER(4). *)
b.BORDER(varcolor); (* транслируется в Basic_BORDER(Cfg_varcolor) *)