[Madness]

DJLOVE
SSEG SEGMENT STACK
DB 80 DUP (?)
SSEG ENDS
DSEG SEGMENT
MES1 DB 'GREEN','$'
MES2 DB 'RED','$'
MES3 DB 'BLUE','$'
MES4 DB 'VIOLET','$'
MES5 DB 'HOMEWORK BY DIMA L.','$'
MES6 DB 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXXXXXXX','$'
MES7 DB 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXXXXXX','$'
MES8 DB 'X','$'
DATA DB 80 DUP (?)
DSEG ENDS
CSEG SEGMENT
ASSUME CS:CSEG, SS:SSEG, DS:DSEG

START: MOV AX, DSEG
MOV DS,AX
MOV AH,6
MOV BH,0A7H
MOV CL,0
MOV CH,0
MOV DL,40
MOV DH,12
MOV AL,0
INT 10H
MOV AH,6
MOV BH,0C7H
MOV CL,40
MOV CH,0
MOV DL,79
MOV DH,12
MOV AL,0
INT 10H
MOV AH,6
MOV BH,97H
MOV CL,0
MOV CH,12
MOV DL,40
MOV DH,25
MOV AL,0
INT 10H
MOV AH,6
MOV BH,0D7H
MOV CL,40
MOV CH,12
MOV DL,79
MOV DH,25
MOV AL,0
INT 10H
MOV AH,2
MOV BH,0
MOV DL,20
MOV DH,6
INT 10H
MOV AH,9
LEA DX,MES1
INT 21H
MOV AH,2
MOV BH,0
MOV DL,60
MOV DH,6
INT 10H
MOV AH,9
LEA DX,MES2
INT 21H
MOV AH,2
MOV BH,0
MOV DL,20
MOV DH,18
INT 10H
MOV AH,9
LEA DX,MES3
INT 21H
MOV AH,2
MOV BH,0
MOV DL,60
MOV DH,18
INT 10H
MOV AH,9
LEA DX,MES4
INT 21H
MOV AH,2
MOV BH,0
MOV DL,32
MOV DH,12
INT 10H
MOV AH,9
LEA DX,MES5
INT 21H
MOV AH,2
MOV BH,0
MOV DL,0
MOV DH,0
INT 10H
MOV AH,9
LEA DX,MES6
INT 21H
MOV AH,2
MOV BH,0
MOV DL,0
MOV DH,24
INT 10H
MOV AH,9
LEA DX,MES7
INT 21H

xor cx,cx

loop:
MOV AH,2
MOV BH,0
MOV DL,0
MOV DH,cl
INT 10H
MOV AH,9
LEA DX,MES8
INT 21H

MOV AH,2
MOV BH,0
MOV DL,79
MOV DH,cl
INT 10H
MOV AH,9
LEA DX,MES8
INT 21H

inc cl
cmp cl,24
jnz loop

mov ah,07h
int 21h

MOV AH,4CH
INT 21H
CSEG ENDS
END START
---------
Эх, давненько я под дос не программил (никогда
Вот чего получилось, правый нижний символ хз как ставить (каретка вниз передвигается, а весь экран вверх соответственно)