Assembler - zápis do souboru

Kategorie >>Programování>> Assembler - zápis do souboru


.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






Vloženo: 15.04.2011 00:44
Přečteno:2838
Autor: David Mizera

Hlasů: 0 Hodnocení(jako ve škole): nehlasováno
 

Komentáře (0)

   -     Nový Komentář