.model small
.stack 100h

.data
	buff db 255,0,255 dup(?)
	outas db 15 dup(?)
.code
start:

	mov dx, @data    ; perkelti data i registra ax
	mov ds, dx     	; perkelti dx (data) i data segmenta


	mov ah,0Ah
	mov dx,offset buff		;nuskaito buffa
	int 21h

	xor cx,cx
	mov cl,buff+1;
	mov bx,offset buff+2
	xor si,si
l:
	mov ah,[bx]
	mov al,ah
	shr ah,4
	cmp ah,9
	JA raide
	add ah,30h
	mov [si+outas],ah
	inc si
	JMP pbg
raide:
	add ah,55
	mov [si+outas],ah
	inc si
pbg:
	and al,15
	cmp al,9
	JA raide1
	add al,30h
	mov [si+outas],al
	inc si
	JMP ras
raide1:
	add al,55
	mov [si+outas],al
	inc si
ras:
	inc bx
	mov al,20h
	mov [si+outas],al
	inc si
	loop l

	mov bx,0001h
	MOV	ah, 40h
	mov cx, si
	MOV	dx,offset outas
	INT	21h

	mov ah, 4ch             ; griztame i dos'a
	mov al, 0               ; be klaidu
	int 21h                 ; dos'o INTeruptas
end start