org 100h
body:
	call pobierzlancuch
	call nowalinia
	call duzenamale
pobierzprzesuniecie:
	mov ah,1
	int 21h
	sub al,48
	mov [przesuniecie],al
	cmp al,26
	jbe dalej
	xor dx,dx
	mov ax,[przesuniecie]
	mov bx,26
	div bx
	xor al,al
	mov [a],dx
	mov al,[a]
	mov [przesuniecie],al
dalej:
	call nowalinia
	call przesun
	jmp wysw
przesun:
	mov	bx, lancuch
	add	bx, 1
	mov	si, 0
	przesun0:
		inc	si
		mov	al, [bx + si]
		cmp	al, 36
		je	przesunk
		cmp	al, 97
		jb	przesun2
		cmp	al, 122
		ja	przesun2

		mov	dx, [przesuniecie]
		add	ax, dx
		cmp	ax, 26
		cmp al,122
		ja wyko
		wyk:
		mov	[bx + si], al
		jmp	przesun0
	przesunk:
ret
wyko:
	sub al,26
	jmp wyk
przesun2:
	mov al,32
	mov [bx + si],al
	jmp przesun0
duzenamale:
	mov bx,lancuch
	add bx,1
	mov si,0
	zmniejsz:
		inc si
		mov al,[bx+si]
		cmp al,36
		je zmniejszret
		cmp al,65
		jb zmniejsz
		cmp al,90
		ja zmniejsz

		add al, 32
		mov [bx+si],al
		jmp zmniejsz
	zmniejszret:
	mov [lancuch],al
ret
nowalinia:
	mov ah,2
	mov dl,10
	int 21h
	mov dl,13
	int 21h
ret
pobierzlancuch:
	mov ah,10
	mov dx,lancuch
	int 21h
ret
wysw:
	mov ah,9
	mov dx,lancuch+2
	int 21h
koniec:
	mov ax,4C00h
	int 21h
lancuch db 26
		db 0
		TIMES 27 db 36
przesuniecie db 0
a db 0