王爽<汇编语言> 第十二章 实验十二

assume cs:codesg,ss:stacksg



stacksg segment

db 16 dup(0)

stacksg ends



codesg segment

do0:jmp do0_s

db 'divide error!'

do0_s:push ax

push bx

push bp

push es



mov ax,0b800h

mov es,ax



mov bx,0

mov bp,0

dol1:mov al,cs:0cbh[bx]

mov es:[bp+160*20+30*2],al

inc bp

mov byte ptr es:[bp+160*20+30*2],0f6h

inc bx

inc bp

cmp bx,0dh

je do0nd

jmp dol1



do0nd:mov ax,4c00h

int 21h

pop ax

mov es,ax

pop bp

pop bx

pop ax

enddo:iret

start:mov ax,stacksg

mov ss,ax

mov sp,10h



mov ax,0

mov es,ax

mov di,0c8h



mov ax,cs

mov ds,ax

mov si,offset do0



mov cx,offset enddo-offset do0

cld

rep movsb



mov ax,0

mov es,ax

mov word ptr es:[0*4],0c8h

mov word ptr es:[0*4+2],0h



mov ax,1000

mov bh,1

div bh



mov ax,4c00h

int 21h

codesg ends



end start