.model tiny
.code
.startup
mov ax,3 ;не сработает на MDA (сэкономил на объёме кода) :/
int 10h
mov ax,0B800h
mov es,ax
mov ah,7
xor di,di
cld
put_char:
stosw
inc al
jnz put_char
mov ah,4Ch
int 21h
end
xor di,diнаписать
mov di,6*80
mov ah,4Chпросто
int 21h
ret
.model tiny
.code
.startup
mov ax,3;не сработает на MDA (сэкономил на объёме кода) :/
int 10h
mov ax,0B800h
mov es,ax
mov ah,' '
xor di,di
mov cx,7d0h
cld
put_char:
stosw
dec cx
jnz put_char
;тут можно ещё поставить ожидание нажатия на кгопку, но я прерывание забыл
ret
end
.model tiny
.code
.startup
mov ax,3
int 10h
mov ax,0B800h
mov es,ax
mov ah,70h
mov di,176
cld
mov dx,4
put_line:
mov cx,64
put_char:
stosw
inc al
loop put_char
add di,(80-64)*2
dec dx
jnz put_line
mov ah,2
xor bx,bx
mov dh,5
int 10h
ret
end
.model tiny
.code
org 100h
start:
mov cx,256
mov dl,0
mov ah,2
cloop:
int 21h
inc dl
test dl,0Fh
jnz continue_loop
push dx
mov dl,0Dh
int 21h
mov dl,0Ah
int 21h
pop dx
continue_loop:
loop cloop
ret
end start
push cx, а в конце
pop cx
model tiny
codeseg
startupcode
mov ax,3
int 10h
mov ax,0b800h
mov es,ax
mov dl,16
mov ah,0bh
mov al,0
mov cx,255
mov bx,166
rus:
mov es:[bx],ax
add al,1
add bx,6
cmp dl,al
jnz rrr
add bx,64
add dl,16
rrr:
loop rus
mov ah,14
mov al,'0'
mov cx,16
mov bx,6
mov dl,':'
mov di,160
stroka:
mov es:[bx],ax
mov es:[di],ax
add di,160
add al,1
add bx,6
cmp al,dl
jnz ddd
mov al,'A'
mov dl,'G'
ddd:
loop stroka
MOV AH,0
INT 16h
INT 20h
end