Assembler zápis do souboru plus na obrazovku

;pouziva _def.inc ... viz jiny clanek nize


.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


;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

Komentáře (0)