;EXAMPLE.ASM

.model tiny

.code

org 100h

zaciatok:

jmp start

include pcr11_97.asm

start:

call kurzor_off

 

mov ax,0B800h

 

mov es,ax

 

mov ax,7*256+32

 

call cls2

 

mov ax,0B800h

 

mov es,ax

 

xor di,di

 

mov ax,cs

 

mov ds,ax

 

mov cx,250

cykl:

push cx

 

mov si,offset znaky

 

mov cx,8

 

rep movsw

 

pop cx

 

loop cykl

 

mov ax,12 ;Riadok

 

mov bx,4 ;Stlpec.

 

call poloha2

 

mov di,ax

 

mov ax,0B800h

 

mov es,ax

 

mov ax,cs

 

mov ds,ax

;Offsetova adresa textu v pamäti

 

mov si,offset text

 

mov cx,72 ;Dlzka textu.

 

mov al,154 ;Farba.

 

call vypis

 

mov ax,0

 

int 16h

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

 

mov ax,1*256+154

 

mov cx,0*256+0

 

mov dx,11*256+38

 

call ramcek

 

mov ax,2*256+160

 

mov cx,40*256+0

 

mov dx,11*256+38

 

call ramcek

 

mov ax,3*256+224

 

mov cx,0*256+13

 

mov dx,10*256+38

 

call ramcek

 

mov ax,4*256+12

 

mov cx,40*256+13

 

mov dx,10*256+38

 

call ramcek

 

mov ax,0

 

int 16h

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

 

mov ax,0B800h

 

mov es,ax

 

mov ax,7*256+32

 

call cls2

 

call rezim

 

mov dx,10*256+0

 

call poloha1

 

mov ah,09h

 

mov dx,offset text2

 

int 21h

 

mov ax,23 ;Riadok.

 

mov bx,11 ;Stlpec.

 

call poloha2

 

mov di,ax

 

mov ax,0B800h

 

mov es,ax

 

mov ax,cs

 

mov ds,ax

 

mov si,offset text1

 

mov cx,57 ;Dlzka textu

 

mov al,154 ;Farba.

 

call vypis

 

mov ax,0

 

int 16h

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

 

call cls1

 

call kurzor_on

 

exit

;Usporiadanie znak, atribut,

;znak, atribut ...

znaky

db 'P',160,'C',161,' ',162

 

db 'R',163,'E',164,'V',165

 

db 'U',166,'E',167

text

db 'POZOR Po stlaceni'

 

db ' lubovolnej klavesy'

 

db ' nasleduje vykreslenie'

 

db ' ramcekov.'

text1

db 'POZOR Po stlaceni'

 

db ' lubovolnej klavesy'

 

db ' koniec programu.'

text2

db 13,10,'DVA SPOSOBY, AKO MIAST,'

 

db ' TRAPIT ALEBO LEN VYSTRASIT'

 

db ' LUDI V POCITACOVEJ UCEBNI.'

 

db 13,10,13,10,'TYP 1:',13,10

 

db 'Prihlaste sa, pockajte '

 

db 'niekolko sekund, potom nasadte'

 

db ' vystraseny pohlad a za-'

 

db 13,10,'kricte: "Preboha'

 

db ' Nasli ma" a utecte.'

 

db 13,10,13,10,'TYP 2:',13,10

 

db 'Prineste si motorovu pilu, ale'

 

db ' nepouzite ju. Ak sa vas niekto'

 

db ' opyta, na co to',13,10

 

db 'mate, odpovedzte tajomne:'

 

db ' "Iba keby nahodou..."$'

 

end zaciatok