.286
.model large,PASCAL
.code
JUMPS ;automaticky generuje misto napr jnz,coz je near jmp navesti a far jmp
;nemusi se to rozepisovat
.stack 1024
.data
include _def.inc
;include _test.inc
;include _DODELAT.INC
;tyto promenny nejsou ani v _def.inc. Je mozne je kdykoliv menit a pouzivat misto registru
pom_cas dw 0
pom_byte db 0
pom_word dw 0
Pom_dup db 64000 dup (?) ;i pro obr. pamet
;Pom_dup2 db 1024*16 dup (?) ;i pro obr. pamet
pom_boolean dw 0
pom_adr dw 0
Circle_Rval DW ?
Circle_X1 DW ?
Circle_Y1 DW ?
.code
start:
jmp zacatek
include _graph.inc
include _text.inc
INCLUDE _SYS.INC
include _proc.inc
include _file.inc
;______________________________________________________________________________________________
;--------------------------------------------
;--------------------------------------------
;--------------------------------------------
;--------------------------------------------
;--------------------------------------------
;--------------------------------------------
;--------------------------------------------
;--------------------------------------------
;--------------------------------------------
;"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
;*************************************************
zacatek:
; str_length TXT_cisla,pom_word ;ted zjistim dylku retezce ukoncenyho '$'
create_openF file_03,f_handle03 ;soubor s hlaskama
seek_file_END f_handle03 ;skocim na konec souboru
getstr pom_dup,60 ;do pom_dupu si necham precist co pise
str_length pom_dup,pom_word ;ted zjistim dylku retezce ukoncenyho '$'
; fillS pom_dup,61,10 ;61 je '='
Block_write pom_dup,pom_word,f_handle03,f_IORES ;zapis do souboru
block_write_endln f_handle03,f_iores
close_File f_handle03,f_iores
mezera 10
printS_endln Txt_haha
printS pom_dup
;***************************************************************************
konec:
mov ah, 4ch ;ukonceni programu a navrat zpet do systemu
int 21h
end start