source: branches/AS8051toC/Test/Test2.a51

;*******************************************************************************
; Toto je komentář

$ INCLUDE(SOUBOR.I51)

PUBLIC _PRINT_INT  ; Veřejná proměnná

EXTRN CODE(ParGetParm,ParGetParmRaw) ; Import externí proměnné

%DEFINE(DATE)    (12/06/12)  ; DD/MM/YY
_DATE EQU %DATE    ; Test equ

  CSEG   AT RESET        ; Volba segmentu
  JMP    MainStart       ; Instrukce skoku

; Podminka preprocesoru
            %IF(%NO_COMPILE EQ 0)
            THEN
            (    
                JMP    Timer2Us
            )ELSE
            (
                RETI
            ) FI    

ADRVERZE:       DB 13,10
                DB 'VRVS',0
                DB '0'+%MODEL/10,'0'+%MODEL-(%MODEL/10)*10,'.'

MAINBIT         SEGMENT BIT
                RSEG MAINBIT

WATCHDOG:       DBIT 1                  ; STAV WATCHDOGU

 KEYS_LEN       EQU  $-KEYS

%SET(CHARBEG,0)
%*DEFINE(CHARDEFA(NAME,ASCII,LENGTH,LIST))
(
  CHAR_%NAME EQU %CHARCNT
  %SET(CHARBEG,%CHARBEG+%LENGTH+1)
)

; MENU CISELNEHO PARAMETRU
%*DEFINE(MenuNbrPar(NAME,DISP_NBR,PARAM,TEXT)) LOCAL MENULEN
(
RSEG PARTXT_SEG
_%NAME:
 DB %TEXT,0
 
RSEG    MENUCODE  
%SET(MENUCNT,%MENUCNT+1)
%NAME:
        DB   MENUNBR OR %MENULEN      ; CISLO BEZ PODMENU
        DB   %DISP_NBR
        DW   %PARAM
        DW   _%NAME
%MENULEN        EQU     $-%NAME

)

; MENU CISELNEHO PARAMETRU
%*DEFINE(MenuNbrPar(NAME,DISP_NBR,PARAM,TEXT)) LOCAL MENULEN
(
RSEG PARTXT_SEG
_%NAME:
 DB %TEXT,0
 
RSEG    MENUCODE  
%SET(MENUCNT,%MENUCNT+1)
%NAME:
        DB   MENUNBR OR %MENULEN      ; CISLO BEZ PODMENU
        DB   %DISP_NBR
        DW   %PARAM
        DW   _%NAME
%MENULEN        EQU     $-%NAME

)

%*DEFINE(MenuStNbrPar(NAME,DISP_NBR,PARAM,TEXT,CNT)) LOCAL MENULEN
(
RSEG PARTXT_SEG
_%NAME:
 DB %TEXT,0
 
RSEG    MENUCODE  
%SET(MENUCNT,%MENUCNT+1)
%NAME:
        DB   MENUSTNBR OR %MENULEN      ; CISLO S PODMENU S00-S23
        DB   %DISP_NBR
        DW   %PARAM
        DW   _%NAME
        DB   %CNT
%MENULEN        EQU     $-%NAME
)

%*DEFINE(MenuChrPar(NAME,DISP_NBR,PARAM,TEXT)) LOCAL MENULEN
(
RSEG PARTXT_SEG
_%NAME:
 DB %TEXT,0
 
RSEG    MENUCODE  
%SET(MENUCNT,%MENUCNT+1)
%NAME:
        DB   MENUBMP OR %MENULEN      ; RETEZEC ZNAKU BEZ PODMENU
        DB   %DISP_NBR
        DW   %PARAM
        DW   _%NAME
        DW
%MENULEN        EQU     $-%NAME
)

%*DEFINE(MenuStChrPar(NAME,DISP_NBR,PARAM,TEXT)) LOCAL MENULEN
(
RSEG PARTXT_SEG
_%NAME:
 DB %TEXT,0
 
RSEG    MENUCODE  
%SET(MENUCNT,%MENUCNT+1)
%NAME:
        DB   MENUSTBMP OR %MENULEN      ; RETEZEC ZNAKU S PODMENU S00-S23
        DB   %DISP_NBR
        DW   %PARAM
        DW   _%NAME
%MENULEN        EQU     $-%NAME
)

%*DEFINE(MenuBmpPar(NAME,DISP_NBR,PARAM,TEXT)) LOCAL MENULEN
(
RSEG PARTXT_SEG
_%NAME:
 DB %TEXT,0
 
RSEG    MENUCODE  
%SET(MENUCNT,%MENUCNT+1)
%NAME:
        DB   MENUARROWS OR %MENULEN      ; RETEZEC ZNAKU BEZ PODMENU
        DB   %DISP_NBR
        DW   %PARAM
        DW   _%NAME
%MENULEN        EQU     $-%NAME
)


%*DEFINE(MenuCmd(NAME,DISP_CHAR,DISP_NBR,FCEPTR,DEF,MIN,MAX,TEXT)) LOCAL MENULEN
(
RSEG PARTXT_SEG
_%NAME:
 DB %TEXT,0
 
RSEG    MENUCODE  
%SET(MENUCNT,%MENUCNT+1)
%NAME:
        DB   (0 SHL 7)+(0 SHL 6)+%MENULEN      ; CISLO BEZ PODMENU
        DB   %DISP_CHAR
        DB   %DISP_NBR
        DW   %FCEPTR
        DB   %DEF
        DB   %MIN
        DB   %MAX
        DW   _%NAME
%MENULEN        EQU     $-%NAME