REM Procedura wyświetlająca na ekranie liczbę umieszczoną w rejestrze AX
REM wymaga deklaracji zmiennej:

czy_zera db 0



wypisz_liczbe PROC
 xor dx,dx
 mov cx,10000
 div cx
 add al,48d
 cmp al,'0'
 jz nastepna1
 add czy_zera,1
 mov bl,dl
 mov dl,al
 mov ah,02h
 int 21h
 mov dl,bl
nastepna1:
 mov ax,dx
 xor dx,dx
 mov cx,1000
 div cx
 add al,48d
 cmp al,'0'
 jnz nie_zero1
 cmp czy_zera,0
 jz nastepna2
nie_zero1:
 add czy_zera,1
 mov bl,dl
 mov dl,al
 mov ah,02h
 int 21h
 mov dl,bl
nastepna2:
 mov ax,dx
 mov cl,100
 div cl
 add al,48d
 cmp al,'0'
 jnz nie_zero2
 cmp czy_zera,0
 jz nastepna3
nie_zero2:
 add czy_zera,1
 mov bl,dl
 mov dl,al
 mov bh,ah
 mov ah,02h
 int 21h
 mov ah,bh
nastepna3:
 mov al,ah
 xor ah,ah
 mov cl,10
 div cl
 add al, '0'
 mov bh,ah
 cmp al,'0'
 jnz nie_zero3
 cmp czy_zera,0
 jz nastepna4
nie_zero3:
 add czy_zera,1
 mov bh,ah
 mov dl,al
 mov ah,02h
 int 21h
nastepna4:
 mov ah,02h
 mov dl,bh
 add dl,'0'
 int 21h
 mov czy_zera,0
 ret
 wypisz_liczbe ENDP