.model small
.stack
.data
.code
;set video mode, define es
mov ax,9ff0h
mov es,ax
mov ah,0
mov al,13h
int 10h
mov ax,0c0ch ;bright red as starting colour
;draw first line
first_line: mov cx,160
rep stosw ;draw with bright red
;draw sides
mov cx,198 ;for the next 198 lines
sides: stosw ;draw left side
add di,316 ;jump to right side
stosw ;draw right side
loop sides ;next line
;draw last line
last_line: mov cx,160
rep stosw ;draw with bright red
jmp kb ;jump to keyboard event
kb: mov ah,08h
int 21h
cmp al,71h ;exit with q, otherwise loop
jne kb
.exit 0
end