Программа из П.Абель

;File: CHF5.asm
;Книга П. Абель    стр.578
;----------------------------------------------
        page    60,132
TITLE   A23RESID    (COM) Resident program
;Звонок по нажатию клавиши Esc
;----------------------------------------------
CODESEG     SEGMENT PARA 'Code'
            ASSUME  CS:CODESEG
            ORG     100H
BEGIN:      JMP     B10INIT
SAVEINT9    DD      ?           ;Не проходит ассемблирование!
DURATION    DW      100H
A10TEST:    PUSH    AX
            PUSH    CX
            IN      AL,60H
            CMP     AL,01
            JNE     A50EXIT
            IN      AL,61H
            PUSH    AX
            OR      AL,00000011B
            OUT     61H,AL
            MOV     CX,512H
A20:        LOOP    A20
            OR      AL,00000010B
            MOV     CX,512H
A30:        LOOP    A30
            POP     AX
            AND     AL,11111100B
            OUT     61H,AL
A50EXIT:    POP     CX
            POP     AX
            JMP     CS:SAVEINT9
 
B10INIT:
            CLI
            MOV     AH,35H
            MOV     AL,09H
            INT     21H
            MOV     WORD PTR SAVENT9,BX
            MOV     WORD PTR SAVEINT9+2,ES
            MOV     AH,25H
            MOV     AL,09H
            MOV     DX,OFFSET A10TEST
            INT     21H
            MOV     AH,31H
            MOV     DX,OFFSET B10INIT
            STI
            INT     21H
CODESEG     ENDS
            END     BEGIN

; masm dos com #
.286
.model tiny
.code
org 100h
BEGIN:   JMP     B10INIT
SAVEINT9    DD   ?   ;Не проходит ассемблирование!
DURATION    DW   100H
A10TEST:    PUSH    AX
PUSH    CX
IN   AL,60H
CMP  AL,01
JNE  A50EXIT
IN   AL,61H
PUSH    AX
OR   AL,00000011B
OUT  61H,AL
MOV  CX,512H
A20:     LOOP   A20
OR   AL,00000010B
MOV  CX,512H
A30:     LOOP   A30
POP  AX
AND  AL,11111100B
OUT  61H,AL
A50EXIT:    POP  CX
POP  AX
JMP  CS:SAVEINT9
 
B10INIT:
CLI
MOV  ax,3509H
INT  21H
MOV  WORD PTR SAVEINT9,BX
MOV  WORD PTR SAVEINT9+2,ES
MOV  ax,2509h
MOV  DX,OFFSET A10TEST
INT  21H
MOV  AH,31H
MOV  DX,OFFSET B10INIT
STI
INT  21h
END  BEGIN

.model  tiny
.386
.code
               org  100h
start:         jmp  main
 
_int15:     
        pushf
        cmp ah,4Fh
        jz  _keyb
gtfo:       call    dword ptr [cs:old_int15]        ; go back
        iret
_keyb:      
        cmp al, 1   ; <ESC>
        jnz gtfo
        mov al, 7   ; beep
        int 29h
        xor ax,ax
        popf
        clc
        retf    2
old_int15   dd  ?
 
main:
        push    cs
        push    cs
        pop ds
        pop es
                mov     ax, 3515h                                     ; получить в ES:BX адрес прерывания 8h
            int     21h
            mov     word ptr [cs:old_int15], bx     ; запомним старый адрес 
            mov     word ptr [cs:old_int15+2], es    ; прерывания
                mov     ax, 2515h                                             ; установим вектор на 23
            mov     dx, offset _int15        ; прерывание
            int     21h
            mov ah, 0Ah
        mov dx, offset inpbuf
        int 21h
 
remove: 
            mov dx, word ptr [cs:old_int15]     ; возвращаем вектор прерывания
            mov ds, word ptr [cs:old_int15+2]    ; на место
            mov ax, 2515h
                int 21h
exit:                                   ; выход
            int 20h
inpbuf      db  50          ; наибольшая длина строки
len     db  ?                       ; сюда вернется настоящая длина
buf     db  50 dup(?)              ; тут будет то, что ввели
    end start

;Assembler. DOS. EXE.
;**********************************************
        page    60,132
TITLE   ASM (EXE)
;**********************************************
STACK   SEGMENT PARA STACK 'Stack'
        DW  32 DUP(0)
STACK   ENDS
;**********************************************
DATASEG SEGMENT PARA 'Data'
Message DB 'Hello! File: CHFB2.asm!',13,10,'$'
FLDD        DW      3
FLDE        DW      4
FLDF        DW      ?
DATASEG ENDS
;*********************************************
CODESEG SEGMENT PARA 'Code'
MAIN    PROC    FAR
        ASSUME  SS:STACK,DS:DATASEG,CS:CODESEG
        MOV     AX,DATASEG      
        MOV     DS,AX                     
        MOV     AX,1
        ADD     AX,2
        MOV     BX,AX
        MOV     AX,FLDD     
        ADD     AX,FLDE         
        MOV     FLDF,AX         
        MOV     DX,OFFSET Message
        MOV     AH,9H
        INT     21H
        MOV     AL,0
        MOV     AH,4CH  
        INT     21H
        MOV     AX,4C00H
        INT     21H
MAIN    ENDP                    
CODESEG ENDS                    
        END     MAIN