loop GetKeyLoop

7_3.EXE

DSEG SEGMENT 'DATA'

DSEG ENDS

SSEG SEGMENT 'STACK'

DB 100H DUP(?)

SSEG ENDS

CSEG SEGMENT 'CODE'

ASSUME CS:CSEG, DS:DSEG, SS:SSEG

START: JMP S1

INIT PROC FAR

MOV AX, DSEG

MOV DS, AX

PUSH AX

PUSH BX

PUSH CX

PUSH DX

MOV AH, 02H

INT 1AH

CMP DH, 01H

JZ M1

JMP M2

M1:

MOV AH, 09H

MOV AL, 'П'

MOV BL, 05h

MOV CX, 1

INT 10H

MOV AH, 03H

INT 10H

ADD DL, 1

MOV BL, DL

MOV AH, 02H

MOV DL, BL

INT 10H

MOV AH, 09H

MOV AL, 'Р'

MOV BL, 05h

MOV CX, 1

INT 10H

MOV AH, 03H

INT 10H

ADD DL, 1

MOV BL, DL

MOV AH, 02H

MOV DL, BL

INT 10H

MOV AH, 09H

MOV AL, 'И'

MOV BL, 05h

MOV CX, 1

INT 10H

MOV AH, 03H

INT 10H

ADD DL, 1

MOV BL, DL

MOV AH, 02H

MOV DL, BL

INT 10H

MOV AH, 09H

MOV AL, 'Е'

MOV BL, 05h

MOV CX, 1

INT 10H

MOV AH, 03H

INT 10H

ADD DL, 1

MOV BL, DL

MOV AH, 02H

MOV DL, BL

INT 10H

MOV AH, 09h

MOV AL, 'Т'

MOV BL, 05h

MOV CX, 1

INT 10H

MOV AH, 03H

INT 10H

ADD DL, 1

MOV BL, DL

MOV AH, 02H

MOV DL, BL

INT 10H

MOV AH, 09H

MOV AL, '!'

MOV BL, 05h

MOV CX, 1

INT 10H

MOV AH, 03H

INT 10H

SUB DL, 5

MOV BL, DL

MOV AH, 02H

MOV DL, BL

INT 10H

M2:

POP DX

POP CX

POP BX

POP AX

MOV AL, 20h

OUT 20h, AL

IRET

INIT ENDP

S1: MOV AX, DSEG

MOV DS, AX

MOV AX, 251CH

LEA DX, INIT

MOV BX, CS

MOV DS, BX

INT 27H

CSEG ENDS

END START

7_1.exe

dseg Segment 'data'

db 10,13, "$"

dseg ENDS

sseg Segment 'stack'

db 100h dup(?)

sseg ENDS

cseg Segment 'code'

assume cs:cseg, ds:dseg, ss:sseg

start: jmp inst

rout proc

push ax

push bx

push dx

pushf

popf

pop ax

pop bx

pop dx

ret

rout endp

finish EQU $

inst:

lea dx, finish

int 27h

cseg ends

end start

7_2.com

cseg Segment 'code'

assume cs:cseg, ds:cseg

org 100h

start: jmp inst

finish EQU $

rout proc

push ax

push bx

push dx

pushf

popf

pop dx

pop bx

pop ax

ret

rout endp

inst:

lea dx, finish

int 27h

cseg ends

end start