實驗報告提交7 13郝韻致十三

mov PgSize,12

mov cur,200callgetline

callopenf

or ax,ax

jnz disy

mov dx,offsetmess_err2

mov ah,09hint 21h

jmp file_enddisy:

mov cx,PgSizeshow_page:

callread_blockor ax,ax

jnz next2

mov dx,offsetmess_err3

mov ah,09hint 21h

jmp file_endnext2:

callshow_block

or bx,bx

jz file_end

or cx,cx

jnz show_page

mov dx,offsetmess_star

mov ah,09hint 21h

wait_space:

mov ah,1int 21h

cmp al,''

jnz psize

jmp disypsize:

cmp al,'p'

jnz wait_spacecallchange_psize

here:

int

21h

mov ah,1int 21h

cmp al,''

jnz here

jmp disyfile_end:

mov ah,4chint 21h

main endp

;

change_psize proc nearpush ax

push bxpush cx

push dx

mov dx,offsetmess_psize

mov ah,09hint 21h

mov ah,01int 21h

cmp al,0dh

jz illeg

sub al,'0'

mov cl,al

getp:

mov ah,1int 21h

cmp al,0dh

jz pgot

sub al,'0'

mov dl,al

mov al,cl

mov cl,dl

mov bl,10mul bl

add cl,al

jmp getpPgot:

mov dl,0ah

mov ah,2

cmp cx,0

jle illeg

cmp cx,24

jg illeg

mov PgSize,cxilleg:

mov dl,0ah

mov ah,2int 21h

pop dx

popcxpopbxpopaxret

change_psize endp

;

openf proc nearpush bx

push cx

push dx

mov dx,offsetbuf

mov al,0

mov ah,3dhint 21h

mov handle,ax

mov ax,1

jnc ok

mov ax,0

ok:

popdx

popcxpopbxret

openf endp

;

getlineproc nearpush ax

push bxpush cx

push dx

mov dx,offsetmess_getname

mov ah,09h

mov dx,offsetbuf_size

mov ah,0ahint 21h

mov dx,offsetcrlf

mov ah,09hint 21h

mov bl,s_buf

mov bh,0

mov [buf+bx],0

popdx

popcxpopbxpopaxret

getlineendp

;

read_blockproc nearpush bx

push cx

push dx

cmp cur,200

jnz back

mov cx,200

mov bx,handle

mov dx,offsetbuf

mov ah,3fhint 21h

mov cur,0

mov ax,1

jnc back

mov cur,200

mov ax,0

back:

popdx

popcxpopbxret

read_blockendp

;

show_blockproc near

push ax

push dx

mov bx,curloop1:

cmp bx,200

jl lp

jmp exit

lp:

mov dl,buf[bx]cmpdl,1ah

;cmp dl,0;實驗指導(dǎo)書本來是上面注釋掉的那一句。

;如果要讀的是二進(jìn)制文件（比如.lib）就用注釋掉的那一句，如果讀的是文

本文件（比如.txt）就用這一句，不然停不下來。

jz exit_eofinc bx

inc cur

mov ah,02int 21h

cmp dl,0ah

jz exit_ln

jmp loop1exit_eof:

mov bx,0exit_ln:

dec cx

exit:

pop dx

pop axret

show_blockendp

;

code ends

;********************************************************************

*****

end start

編譯及運行結(jié)果

Te