Kód: Vybrať všetko

org 100h
jmp start

sprava1 db 'Zadaj cislo od 1 do 9:$'
crlf db 13,10,'$'

start:
mov ax,cs    ;datovy segment = segment kodu
mov ds,ax
mov es,ax

mov ax,03   ;nastav 80x25
int 10h

mov ah,9
mov dx,sprava1 ;(alebo "mov dx,offset sprava1" pre TASM)
int 21h

rpt:
xor ax,ax
int 16h

cmp ah,2   ;citanie alfanumerickej casti - klavesy pod escape, 1, 2, 3
jb rpt
cmp ah,0Ah   ;citanie scan kodu az po 9
ja rpt

mov al,0 ;kasli na ascii kod

pusha
mov ah,9
mov dx,crlf ;novy riadek
int 21h
popa

dec ah    ;1-9
xor al,al
mov cl,ah
xor ch,ch ;cx = od 1 do 9
mov ax,1 ;vycisti registre :D

kresli:
push ax
push cx
mov cx,ax
mov ah,0Ah
mov al,'*'
int 10h
pop cx
pop ax
cmp ax,cx
je konec
pusha
mov ah,09h
mov dx,crlf
int 21h
popa
inc ax
jmp kresli

konec:
;;;konec. cakaj na lubovolnu klavesu a ukonci
mov ah,09h
mov dx,crlf
int 21h
xor ax,ax
int 16h
int 20h ;konec v DOS COM, v exe daj mov ah, 4Ch int 21h

Kód: Vybrať všetko

;Mediany
;(c) 2009 by inflater

org 100h
use16
jmp start

nazdar	db 'Vypocet medianov, (c) 2009 Inflater (http://inflater.wz.cz)$'
hlaska1 db 13,10,'Zadaj 1. cislo: $'
hlaska2 db 13,10,'Zadaj 2. cislo: $'
hlaska3 db 13,10,'Zadaj 3. cislo: $'
chyba	db 13,10,13,10,'Chyba, dve alebo tri cisla su zhodne.$'
mdi1	db 13,10,13,10,'Median je cislo 1.$'
mdi2	db 13,10,13,10,'Median je cislo 2.$'
mdi3	db 13,10,13,10,'Median je cislo 3.$'
klavesa	db 13,10,'Stlac lubovolnu klavesu...$'
crlf 	db 13,10,'$'

cislo1	dw 0
cislo2	dw 0
cislo3	dw 0
temp	dw 0

bafer1: times 8 db 0
bafer2: times 5 db 0

start:
push cs		;ak kompilujes do exe tak dufam ze vies co mas spravit s tymto tu ;-)
pop ds		;teda ak texty nestrcis do ineho segmentu
push ds
pop es

mov ax,03	;80x25
int 10h

;chu****

mov ah,09
mov dx,nazdar
int 21h
mov ah,9
mov dx,hlaska1
int 21h
call Parsuj
mov ax,[temp]
mov [cislo1],ax
mov ah,09h
mov dx,hlaska2
int 21h
call Parsuj
mov ax,[temp]
mov [cislo2],ax
mov ah,09h
mov dx,hlaska3
int 21h
call Parsuj
mov ax,[temp]
mov [cislo3],ax

mov ax,[cislo1]
cmp [cislo2],ax
je konec
mov ax,[cislo3]
cmp [cislo2],ax
je konec
cmp [cislo1],ax
je konec

;rataj

mov ax,[cislo1]
add ax,[cislo2]
mov bx,[cislo2]
add bx,[cislo3]

cmp ax,bx
jae prve_vacsie
jbe druhe_vacsie

prve_vacsie:
mov ax,[cislo1]
cmp ax,[cislo2]
jb med1
jmp med2

druhe_vacsie:
mov ax,[cislo2]
cmp ax,[cislo3]
jb med2
jmp med3

med1:
mov ah,09h
mov dx,mdi1
int 21h
jmp @f

med2:
mov ah,09h
mov dx,mdi2
int 21h
jmp @f

med3:
mov ah,09h
mov dx,mdi3
int 21h
jmp @f

konec:
mov ah,09h
mov dx,chyba
int 21h
@@:
mov ah,9
mov dx,klavesa
int 21h

xor ax,ax
int 16h

mov ah,9
mov dx,crlf
int 21h

mov ah,4Ch
int 21h

Parsuj:
mov al,6
mov di,bafer1
stosb

mov ah,0Ah
mov dx,bafer1		;tuna je CS = DS (adresa ds:dx). pri exe toto uprav
int 21h			;citaj 5 znakov

mov si,bafer1		;buffer z klavesnice
add si,2		;preskoc dva bajty MAX a LEN
mov cx,5		;5 razz
mov di,bafer2		;presun cislo
rep movsb

push bx
push cx

xor ax,ax
mov bx,bafer2

LoopStringToHex:
cmp byte[bx],'0'
jb EndLoopStringToHex
cmp byte[bx],'9'
ja EndLoopStringToHex

mov cx,ax
shl ax,3
add ax,cx
add ax,cx
movzx cx,byte[bx]
sub cl,'0'
add ax,cx
add bx,1
jmp LoopStringToHex

EndLoopStringToHex:

pop cx
pop bx
mov [temp],ax
ret