true equ 1
false EQU 2
;------------------------operace s mysi ------------------
m_cursor db 100 dup (13)
m_pozadi db 100 dup (?)
m_xp dw 0
m_yp dw 0
m_X dw 0
m_y dw 0
m_B dw 0
;------------------------operace se textem a text ------------------
Txt_End_line db 13,10,'$'
Txt_Autor db 'David Mizera','$'
Txt_Copyright db 'QS 1995, (C)','$'
Txt_Nazev db 'Kulturni program, v zasranym assembleru pico','$'
Txt_co_myslis db 'Co si o tom myslis?','$'
Txt_haha db 'Hahaha. Takze ten blb si mysli todle :','$'
Txt_cisla db '1234','$'
Txt_nacvakej db 'Nacvakej retezec :','$'
Txt_nacvakakanej db 'Nacvakanej retezec :','$'
;------------------------operace se soubory------------------
file_posHI dw 0 ;posice v souboru
file_posLO dw 0
F_IORES dw ? ;pro pripadnou chybu
f_handle01 dw ? ;rukojet souboru
f_handle02 dw ? ;rukojet souboru
f_handle03 dw ? ;rukojet souboru
file_01 db '!text.dat',0
file_02 db '!pokusy.dat',0
file_03 db '!hlasky.dat',0
f_End_line db 13,10
file_err01 db 'Chyba pri komunikaci se souborem.','$'
file_err02 db 'Nebylo zapsano dostatecne bytu,malo mista?','$'
read_only EQU 0
write_only EQU 1
read_write EQU 2
;------------------------operace se obrazovkou------------------
vramSEG dw 0A000h
vramOFFS dw 00000h
cursorX db ?
cursorY db ?
video_page db ?
video_mode dw ?
max_delka dw 6
pole db 50 dup (?) ;o 1 vetsi jak max dl ... "$" na konec
pole2 db 50 dup (?) ;o 1 vetsi jak max dl ... "$" na konec
;------------------------pomocne promenne ------------------
k dw 0
px dw 0
py dw 0
;x1 dw 0
;y1 dw 0
;x2 dw 0
;y2 dw 0
x dw 0
y dw 0
prumer dw 0
barva db 0
circle_X dw 0
circle_Y dw 0
circle_radius dw 0
CIRCLE_COLOR Db 0
;Circle_Rval DW ?
;Circle_X1 DW ?
;Circle_Y1 DW ?
;------------------------ systemove promenne ------------------
sec db ?
min db ?
ms dw ?