org 0000h
 
mov ax, 07C0h
mov ss, ax    
mov sp, 03FEh 

MOV AX,0012H;
    INT 10H
 
kolorki:

mov dx,03c8h
xor al,al
out dx,al
inc dx
out dx,al
out dx,al
mov al,60
out dx,al

mov ah, $0C
mov bh, 0
mov dx, 240
mov cx, 320
mov al, 6
int 10h

mov ah, $0C
mov bh, 0
mov dx, 240
mov cx, 319
mov al, 6
int 10h

mov ah, $0C
mov bh, 0
mov dx, 239
mov cx, 320
mov al, 6
int 10h

mov ah, $0C
mov bh, 0
mov dx, 239
mov cx, 319
mov al, 6
int 10h

;MOV AX,0018H;
;    INT 10H

mov ah, $02
mov bh, 0
mov dh, 1
mov dl, 0
int 10h

kopboot:
                mov	ax, 0201h	
		mov     dh, 0
                mov	dl, 80h	
		mov	cx, 1		
		mov	bx, bufor	
		int	13h		

                mov	ax, 0301h	
		xor	dx, dx		
		mov	cx, 3		
		mov	bx, bufor	
		int	13h		
start:
mov ah, 0
int 16h
cmp al, 1Bh
je reset
;;
write:
call poz
mov ah, 0Eh
mov bh, 0
mov bl, 7
int 10h
jmp start    
 
 reset:
  mov bx, 40h               
  mov ds, bx                
  mov word [ds:72h], 1234h  
  jmp 0FFFFh:0000h          

poz:
mov ah, $03
mov bh, 0
int 10h
mov cl, dl
add cl, 1
mov dl, cl
;;
mov ah, $02
mov bh, 0
ret

bufor db ' ',0
;znak  db ' ',0