Курсовая работа: Робота з записами мови ассемблера

lea dx,clr

mov cx,3

@@l1:

call gotoxy

call writestring

inc ah

loop @@l1

mov ax,1600h

call gotoxy

lea dx,clr

call writestring

pop dx cx ax

ret

clrworkfield endp.

sF2 equ 3Ch

sF3 equ 3Dh

sF4 equ 3Eh

sF5 equ 3Fh

sF6 equ 40h

sF7 equ 41h

sF8 equ 42h

sF9 equ 43h

sF10 equ 44h

STUD STRUC

SName db 20 dup (' ')

SAge dw 0

SCity db 20 dup (' ')

STUD ends