Резидентная программа

code    segment para 'code' 
    assume  cs:code,ds:code,ss:code,es:code
 
org 100h
START:
        PUSH CS   
        POP DS     
        PUSH DS
        POP ES
        PUSH AX
        POP AX
 
call CLRSCR
 mov     dx, offset Help
            mov     ah, 9
            int     21h
 
F6:
        xor ax,ax
        mov ah, 08h
        int 21h
        mov ah, 08h
        int 21h
        cmp al,64
        je  _F6
        cmp al,65
        je  Ekursiv
        cmp al,66
        je  _F8
        cmp al,67
        je  _F9
        cmp al,62
        je  _vi
    jmp Start
 
        
 
 
_F8:
jmp makeput
_F6:
jmp _Timer
_F9:
jmp Vvod123
_vi:
mov al, 0
mov ah, 4ch
int 21h
 
    
 
;_____________________________________________________________________
    Ekursiv:
      VvodE:
        CALL CRLF
        MOV DX, OFFSET EnterE     
        MOV AH, 9
        INT 21H
        CALL CRLF
        MOV BP,0
        call getch
        cmp Al, 'E'
        je DoKursiv
        cmp al, '1'
        je START
        jmp Vvode
 
      DoKursiv:
        call crlf
        xor AX, AX
        mov AX,seg Ekurs
        mov ES,AX 
        mov BP,offset Ekurs 
        mov BH, 8 
        mov BL,0 
        mov CX,1 
        mov DX,133 
        int 10h 
 
        ;Зададим видеорежим (80х25, 16\8)
        mov ah, 00h
        mov al, 3
        int 10h      
            mov     bx, 1000h
            mov     ax, 1100h
            int     10h
            mov     dx, offset string
            mov     ah, 9
            int     21h
        
        ;Пауза до нажатия клавиши
        xor ax,ax
        mov ah, 08h
        int 21h
        mov ah, 08h
        int 21h
        cmp al,65
        je obr
        jmp Start
 
obr:
    xor ax,ax
      Call clrscr
        
        xor AX, AX
        mov AX,seg Enorm
        mov ES,AX 
        mov BP,offset Enorm 
        mov BH, 8 
        mov BL,0 
        mov CX,1 
        mov DX,133 
        int 10h 
;/////////
mov ah, 00h
        mov al, 3
        int 10h      
            mov     bx, 1000h
            mov     ax, 1100h
            int     10h
 
mov     dx, offset string
            mov     ah, 9
            int     21h
           xor ax,ax
        mov ah, 08h
        int 21h
        mov ah, 08h
        int 21h
        cmp al,65
        je Dokursiv
jmp Start
;___________________________________________________________
 
    Vvod123:
    CALL CRLF
        MOV DX, OFFSET Message1     
        MOV AH, 9
        INT 21H
    _Zamena:
        mov ah, 8
        int 21h
        cmp al, '0'
        jnl modzv
    prod:
        cmp al, '$'
        je rev
        mov dl, al
        call putch
        jmp _Zamena
        
        modzv:
        cmp al, '9'
        jg prod
        mov dl, '*'
        call putch
        jmp _zamena
        
rev:
        mov dl, al
        mov ah, 09h
        int 21h
        mov ah, 08h
        int 21h
        mov ah, 08h
        int 21h
        cmp al,67
        jne start2
        call crlf
        MOV DX, OFFSET Message1     
        MOV AH, 9
        INT 21H
norm:
        call getch
        cmp al, '$'
        jne norm
        mov ah, 08h
        int 21h
        mov ah, 08h
        int 21h
        cmp al,67
        jne start2
    jmp Vvod123
        
start2:
jmp start
;___________________________________________________________________________________
 
 
    makeput:
        
        MOV DX, OFFSET Message1     
        MOV AH, 9
        INT 21H
        
 
    make:
        mov ah, 8
        int 21h
        cmp al, 'M'
        je make_b
        cmp al, '}'
        je make_tv
        cmp al, 'S'
        je make_bl
        cmp al, '"'
        je make_E
        cmp al, '>'
        je make_yu
        cmp al, 'Z'
        je make_9
 
        cmp al, 'm'
        je make_b
        cmp al, ']'
        je make_tv
        cmp al, 's'
        je make_bl
        cmp al, "'"
        je make_E
        cmp al, '.'
        je make_yu
        cmp al, 'z'
        je make_9
        cmp al, '$'
        je _obr
        mov dl, al
        call putch
        jmp make
 
        make_b:
        mov al, 'Ь'
        mov dl, 'Ь'
        call putch 
        jmp make
 
        
        make_tv:
        
        mov al, 'Ъ'
        mov dl, 'Ъ'
        call putch
        jmp make
 
 
        make_bl:
        
        mov al, 'Ы'
        mov dl, 'Ы'
        call putch
        jmp make
 
    start1:
    jmp start       
 
        make_E:     
        mov al, 'Э'
        mov dl, 'Э'
        call putch
        jmp make
 
        
        make_yu:
        
        mov al, 'Ю'
        mov dl, 'Ю'
        call putch
        jmp make
 
        
        make_9:
        
        mov al, 'Я'
        mov dl, 'Я'
        call putch
        jmp make
 
        
 
 
_obr:
        mov dl, al
        call putch
        mov ah, 08h
        int 21h
        mov ah, 08h
        int 21h
        cmp al,66
        jne Start1
        call crlf
        MOV DX, OFFSET Message1     
        MOV AH, 9
        INT 21H
        jmp retur
        
retur:
call getch
cmp AL, '$'
jne retur
mov dl, al
MOV AH, 9
INT 21H
xor ax, ax
mov ah, 08h
int 21H
mov ah, 08h
int 21h
cmp al, 66
je make1
jmp start1
 
make1:
call crlf
jmp makeput
;______________________________________________________________________________
 
 
_Timer:
    Xor ax,ax
        ;---получение значения счетчика и установка задержки
            MOV   AH,0   ;номер функции для "чтения"
           INT   1AH    ;получаем значение счетчика
           ADD   DX,127  ;добавляем 7 сек. к младшему слову
           MOV   BX,DX  ;запоминаем требуемое значение в BX
;---постоянная проверка значения счетчика времени суток BIOS
_REPEAT:    INT   1AH    ;получаем значение счетчика
            CMP   DX,BX  ;сравниваем с искомым
            JNE   _REPEAT ;если неравен, то повторяем снова
                         ;иначе, задержка окончена
    
    ;   
   MOV  AH,2        ;номер функции
   MOV  BH,0        ;номер страницы
   MOV  DH,11      ;строка
   MOV  DL,20       ;столбец
   INT  10H         ;позиционируем курсор
 
    
    MOV DX, OFFSET Message3     
        MOV AH, 9
        INT 21H
 
;Пауза до нажатия клавиши
              mov ah, 08h
              int 21h
            mov ah, 08h
              int 21h
            cmp al, 64
            je star
        
star:       
jmp START
;_____________________________________________________________________________
 
    ENDPROGRAM: 
 
        
        ;Ожидание завершения программы
           ;MOV AH, 01H
           ;INT 21H
        ;Выход
           mov al, 0
           mov ah, 4ch
           int 21h
 
        ;Процедура вывода на экран символа
        PUTCH PROC   
          MOV AH, 02H
           INT 021H
         RET
        PUTCH ENDP 
 
        ;Процедура вывода на экран строки                                                         
        PUTSTR PROC   
          MOV AH, 09H
           INT 021H
         RET
        PUTSTR ENDP 
        
        ;Перевод на новую строку
        CRLF PROC
         MOV DL,10
         CALL PUTCH
         MOV DL, 13
         CALL PUTCH
         RET
        CRLF ENDP
 
        GETCH PROC
         MOV AH, 01H
         INT 21H
         RET
        GETCH ENDP
        
        CLRSCR PROC
         MOV AX, 03
         INT 10H
         RET
        CLRSCR ENDP
 
help_info db  'F4- Выход', 10, 13, 'F6- Вывод ФИО и № варианта через 7 секунд в центр экрана ', 10, 13, 'F7- Перевод буквы Е в курсив', 10, 13, 'F8- Русификация букв ЪЫЬЭЮЯ', 10, 13, 'F9- Замена цифр на *', 10, 13
BOX DB 255 dup('$')
MESSAGE1 DB 'Введите строку:$'
MESSAGE3 DB 'Вариант №2$'
EnterE db 'Введите букву Е$'
string  db  'Е$'
Ekurs   db 00000000B
    db 00000000B
    db 00000000B
    db 00000000B
    db 00111111B
    db 00100000B
    db 00100000B
    db 00100000B
    db 01111110B
    db 01000000B
    db 01000000B
    db 01000000B
    db 11111100B
    db 00000000B
    db 00000000B
    db 00000000B
    db 00000000B
 
Enorm   db 00000000B
    db 00000000B
    db 00000000B
    db 00000000B
    db 11111100B
    db 10000000B
    db 10000000B
    db 10000000B
    db 11111100B
    db 10000000B
    db 10000000B
    db 10000000B
    db 11111100B
    db 00000000B
    db 00000000B
    db 00000000B
    db 00000000B
 
code ends
end START