5fa

DATA SEGMENT
ORG 02000
col db ?
row db ?
attr db ?
DATA ENDS

        JMP START

string: db 'Hello my little curious world!',13,10,0        
len equ $-string        
gr_seg dw 000bH

start:        
;        mov ah,12H
;        mov bl,32H        ;Enable/disable video addressing
;        int 10H


        mov ah,00H
        mov al,03H
        int 10H
        
        mov ah,05H
        mov al,00H
        int 10H
        
        push bp
        mov ah,06H              ;Clear screen
        mov al,0                ;Number of lines blanked 0=Entire window
        mov bh,00              ;Attribute
        mov ch,0                ;row (y) of upper left corner
        mov cl,0                ;column (x) upper left corner
        mov dh,29               ;row (y) lower right corner
        mov dl,79               ;column(x) lower right corner
        int 10H
        pop bp
        
        
        push ds                 ;Save default segment register on stack
        mov ds,gr_seg           ;New segment 000B
        mov bx,08000            ;000B:8000
        mov si,0

        mov cx,2000
lp1:
        mov b[bx+si],003
        inc si
        loop lp1

        pop ds                  ;Restore default segment register

        jmp quit


quit:

        mov ah,00H              ;Wait for key
        int 16H

        mov ah,00H
        mov al,03H              ;Restore video mode
        int 10H

        mov ax,04c00            ;Quit
        int 21H
.

0