\documentclass[a4paper,12pt]{extarticle}
% Language for ASM
\usepackage{listings}
\lstloadlanguages{Lisp,C++,Perl}
% Cyrillic support
\usepackage{mathtext}
\usepackage[T2A]{fontenc}
\usepackage[utf8]{inputenc}
\usepackage[english, russian]{babel}
\begin{document}
\begin{lstlisting}[language=Perl]
.code
org 100h
main PROC
mov ax, 0F000h
mov dx, ax
mov ax, 0FFFEh
mov ax, bx
mov ah, [bx]
CMP ah, 0FFh
JE pc_label
CMP ah, 0FEh
JE pcxt_label
CMP ah, 0FCh
JE at_label
CMP ah, 0FAh
JE ps2a_label
CMP ah, 0FCh
JE ps2b_label
CMP ah, 0F8h
JE ps2c_label
CMP ah, 0FDh
JE pcjr_label
CMP ah, 0F9h
\end{lstlisting}
\end{document}