;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 |