Assembler - definice pro práci s textem

Kategorie >>Programování>> Assembler - definice pro práci s textem


;definice pouzivany ze souboru _def.inc
;
;
;
;endln            macro                       ;oddeli radek
;initVRAM_txt     macro
;print            macro                       ; vypise retezec z [ds:dx]
;printS           macro retezik               ; vypise retezec
;printS_enDln     macro retezik               ; vypise retezec s endline
;oznam_chybu      MACRO hlaska                ;oznami chybu a vyskoci s beepem
;mezeraP          Proc  NEAR                  ;udela nekolikrat enter - cx krat
;mezera           MACRO pocetkrat
;getCursorPos     macro                       ;naplni CursorX a CursorY aktualni pozici
;getstrP          Proc  NEAR                  ;ax @data,di offset retezce,cx max delka
;Getstr           MACRO retezec,max_delka
;w_char           Macro                       ;di radek ,dx sloupec, al char ,es = 0B800 H
;write_char       Macro x,y,znak
;CLrscr_txt       macro vypln,znak            ;v al vypln , v ah pismeno
;znakDOSP         PROC  NEAR                  ;v dl znak
;znakDOS          MACRO znak
;FillS            MACRO retezec,znakem,delka  ;vyplni retezec o delce delka urcitym znakem
;str_lengthP      Proc
;str_length       MACRO nazev,delka             ;zjisti delku retezce ukonceneho '$'
;
;
;
;
;
;
;
;
;


;--------------------------------------------
endln macro   ;oddeli radek
    mov ah,2    ;pis na display
    mov dl,13    ;znak endln
    int 21h

    mov dl,10    ;znak carr. ret ?? :)
    int 21h

endm

;--------------------------------------------
initVRAM_txt    macro
    mov di,0B800h
    mov es,di
    xor di,di
endM



;--------------------------------------------
print macro ; vypise retezec z [ds:dx]

    mov ah,9h    ;zobraz retezec
    int 21h
endm


;--------------------------------------------
printS macro retezik; vypise retezec z [ds:dx]
pushA

    mov ax,@data        ;ax odkazuje na dataseg
    mov ds,ax

    mov dx,offset retezik    ;vypsani autora


    mov ah,9h    ;zobraz retezec
    int 21h
popA
endm

;--------------------------------------------
printS_enDln macro retezik; vypise retezec z [ds:dx]
pushA

    mov ax,@data        ;ax odkazuje na dataseg
    mov ds,ax

    mov dx,offset retezik    ;vypsani autora


    mov ah,9h    ;zobraz retezec
    int 21h

    ENDLN
popA
endm

;_______________________________________________________________________-

mezeraP      Proc NEAR   ;udela nekolikrat enter - CX krat
    mov ah,2    ;pis na display
    mov dl,13    ;znak endln
    int 21h

    tu:
           mov dl,10    ;znak carr. ret ?? nebo nak tak se menuje :)
           int 21h
       loop tu
       RET
MEZERAP     ENDP

mezera    MACRO pocetkrat
    pushA
    mov CX,pocetkrat
    call mezeraP
    popA
endm


;_______________________________________________________________________-
oznam_chybu MACRO hlaska
        prints_endln hlaska
        call beep
        jmp konec
endM



;_______________________________________________________________________-
getCursorPos macro
    mov ah,03h
    int 10h
    mov cursorX,dl
    mov cursorY,dh
endm

;_______________________________________________________________________-

getstrP Proc NEAR    ;v ax @data,di offset mista dat v pameti
            ;v cx max delka pokud nezmackne enter


N1:
    xor ah,ah
    int 16h     ;cti klavesu ->al
        cmp ah,01ch    ;rozsirene kody... ah enter
                ;jinac pismeno v al
        jz kvido

    mov byte ptr es:[di],al
    mov ah,2    ;pis na display
    mov dl,al    ;znak
    int 21h
    inc di
loop N1

KVIDO:
    mov al,36    ;"$"
    mov byte ptr es:[di],al

   RET
GetstrP endp


Getstr    MACRO retezec,max_delka
    pushA
     mov cx,max_delka
     mov di,@data         ;ax odkazuje na dataseg
     mov es,di
     mov di,offset retezec     ;vypsani autora
     call GetstrP
    popA
ENDM


;--------------------------------------------
w_char    Macro  ;di radek
               ;dx sloupec
               ;al char
        ;es > 0B800 H

    mov bx,di
    shl di,7
    shl bx,5
    add di,bx    ;v bx pozice dvojbunky v obr.pameti
    STOSB
ENDM
;--------------------------------------------

write_char  Macro x,y,znak ;di radek
    pushA
        mov di,0b800h
        mov es,di
        mov al,znak
        w_char
    popA
endM




;--------------------------------------------
CLrscr_txt     macro     vypln,znak       ;v al vypln
                       ;v ah pismeno
mov al,vypln
mov ah,znak
push di
push es
push cx
    initVRAM_TXT
    mov cx,2000
    rep stosw        ;2b*32k= 64k x vlozit barvu
pop cx
pop es
pop di
endm
;_______________________________________________________________________-

znakDOSP PROC NEAR        ;v dl znak
    mov ah,02h
    int 21h
    RET
znakDOSp ENDP

znakDOS MACRO znak
    pushA
      mov dl,znak
      call znakDOSP
    popA
    endM

;--------------------------------------------

FillS  MACRO retezec,znakem,delka    ;vyplni retezec o delce delka urcitym znakem
    pushA
     mov al,znakem
     mov cx,delka

     mov di,@data        ;nastavim segment ES na seg ,kde sou data
     mov es,di
     mov di,offset retezec
;         les di,offset pom_dup ;dsdjisdfjiodsfjiosdijojidosf chyba du do posilky

     rep stosb
;         inc di
     mov al,'$'
     stosb    ;zapisu znak ukonceni retezce pro dosovske vypsani retezce fci int 21h
        ;pri primem vypsani retezce do obr. pameti staci pouze znat delku
     ;to samo jako loopek1: ,mov byte ptr es:[di],al , loop loopek1
     ;ted se cx zmensilo jako svina az na nulu,ale
    popA
ENDM

;_______________________________________________________________________

str_lengthP     Proc NEAR
 xor dx,dx    ;ze zacatku je nulova velikost
 mov al,'$'
    otoc01:
     mov bl, byte ptr ds:[di]
     cmp byte ptr ds:[di],al    ;porovnej s '$'
     jz kon01      ;dostal se na konec
     inc di
     inc dx
     cmp di,65535   ;maximalni delka ... veci cislo registr 16 bitovy neumi (tj. vcetne 0 :)
     jz nula01
    jmp short otoc01

   jmp short kon01
   nula01:
    xor dx,dx    ;asi se nekde stala chyba - je moc velky ? :) az tak ? :)_ asi ti to
            ;ukazuje na nejakou sracku a ne na reteZec, CI NENI UKONCEN '$' !!!!

   kon01:

    RET
str_lengthP ENDP
;,
;--------------------------------------------
str_length    MACRO nazev,delka

      mov di,@data
      mov ds,di
      mov di,offset nazev
      call str_lengthP
      mov delka,dx
endM






Vloženo: 12.03.2011 13:03
Přečteno:1718
Autor: David Mizera

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

Komentáře (0)

   -     Nový Komentář