汇编语言实验报告十三

mov PgSize,12

mov cur,200callgetline

callopenf

or ax,ax

jnz disy

mov dx,offsetmess_err2mov ah,09h

int 21h

jmp file_enddisy:

mov cx,PgSizeshow_page:

callread_blockor ax,ax

jnz next2

mov dx,offsetmess_err3mov ah,09h

int 21h

jmp file_endnext2:

callshow_block

or bx,bx

jz file_end

or cx,cx

jnz show_page

mov dx,offsetmess_starmov ah,09h

int 21h

wait_space:

mov ah,1

int 21h

cmp al,''

jnz psize

jmp disypsize:

cmp al,'p'

jnz wait_spacecallchange_psize

here:

mov ah,1

int 21h

cmp al,''

jnz here

jmp disyfile_end:

mov ah,4ch

int 21h

main endp

;

change_psizeprocnearpush ax

push bx

push cx

push dx

mov dx,offsetmess_psizemov ah,09h

int 21h

mov ah,01

int 21h

cmp al,0dh

jz illeg

sub al,'0'

mov cl,algetp:

mov ah,1

int 21h

cmp al,0dh

jz pgot

sub al,'0'

mov dl,al

mov al,cl

mov cl,dl

mov bl,10

mul bl

add cl,al

jmp getpPgot:

mov dl,0ah

mov ah,2

int 21h

cmp cx,0

illeg:

jle illeg

cmp cx,24

jg illeg

mov PgSize,cx

mov dl,0ah

mov ah,2

int 21h

pop dx

pop cx

pop bx

pop axret

change_psizeendp

;

openf procnearpush bx

push cx

push dx

mov dx,offsetbuf

mov al,0

mov ah,3dh

int 21h

mov handle,ax

mov ax,1

jnc ok

mov ax,0

ok:

pop dx

pop cx

pop bxret

openf endp

;

getline procnearpush ax

push bx

push cx

push dx

mov dx,offsetmess_getnamemov ah,09h

int 21h

mov dx,offsetbuf_size

mov ah,0ah

int 21h

mov dx,offsetcrlf

mov ah,09h

int 21h

mov bl,s_buf

mov bh,0

mov [buf+bx],0

pop dx

pop cx

pop bx

pop axret

getline endp

;

read_block procnearpush bx

push cx

push dx

cmp cur,200

jnz back

mov cx,200

mov bx,handle

mov dx,offsetbuf

mov ah,3fh

int 21h

mov cur,0

mov ax,1

jnc back

mov cur,200

mov ax,0back:

pop dx

pop cx

pop bxret

read_block endp

;

show_block procnearpush ax

push dx

mov bx,curloop1:

cmp bx,200

jl lp

jmp exit

lp:

mov dl,buf[bx]

;cmp dl,1ah

cmp dl,0;实验指导书本来是上面注释掉的那一句。

;如果要读的是二进制文件（比如.lib）就用注释掉的那一句，如果读的是文本文件（比

如.txt）就用这一句，不然停不下来。

jz exit_eof

inc bx

inc cur

mov ah,02

int 21h

cmp dl,0ah

jz exit_ln

jmp loop1exit_eof:

mov bx,0exit_ln:

dec cx

exit:

pop dx

pop axret

show_block endp

;

code ends

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