- [zaixuexi] 我以为是a0=0,a1=1,没仔细看 02/12 09:23
- [yang5731] 不对吧 我的结果应该是对的 N=9时 确实得217 你自己算算。你帮我看看论坛 算法上的程序吧 题 02/11 23:49
- [zaixuexi] 递归不是这么写的哦,我想你肯定没调试过自己写的这代码. 先看C代码吧: unsigned int 02/11 22:58
- [游客] <a href="http://www.playren.com/">整人方法</a> 12/15 17:11
- [wisji8] mov ax,0a0h mul dh mov bx,ax mov ax,2 mul 10/03 16:56
- [yang5731] 谢谢了 课程设计一做出来了 确实不能调用着个····· 08/25 02:50
- [mywiil] 课程设计一要用到这个子程序,这里暂不做评论。 赶紧完成课程设计一吧。 08/21 03:33
[2011-03-26 16:47] 程序驻留1
.model small;没有移除光标,没有按键就退出的功能,把1CH功能当延时
.code
old1ch dd ?
var db 0ffh
new1ch: push ax
push bx
push cx
push es
push dx
mov ax,0b800h
mov es,ax
mov di,0
mov cx,2000
mov dl,var
s1: mov bx,es:[di]
cmp bl,30h
jne s2
mov BYTE ptr es:[di+1],dl
s2: add di,2
loop s1
dec dl
mov var,dl
pop dx
pop es
pop cx
pop bx
pop ax
jmp cs:old1ch
start: mov ax,0b800h
mov es,ax
xor di,di
xor bx,bx
mov cx,2000
s: call fun
add di,2
loop s
begin: push cs
pop ds
mov ax,351ch
int 21h
mov WORD ptr [old1ch],bx
mov WORD ptr [old1ch+2],es
mov dx,offset new1ch
mov ax,251ch
int 21h
mov dx,offset begin
add dx,15
mov cl,4
shr dx,cl
add dx,10h
mov ah,31h
int 21h
fun:
push ax
push bx
push dx
mov ax,di
mov bx,160
xor dx,dx
div bx
test ax,1
jz @@1
cmp ax,12
jb @@5
mov bx,24
sub bx,ax
mov ax,bx
@@5: dec ax
cmp dx,80
ja @@7
@@8: xchg dx,ax
mov bl,8
div bl
cmp ah,0 ;cmp ah,0或2 列就为双层
jne @@4
shr dx,1
cmp dx,ax
jae @@6
jmp @@4
@@7: xchg dx,ax
mov bl,8
div bl
cmp ah,6 ;cmp ah,6或4 列就为双层
jne @@4
shr dx,1
xor ah,ah
add dx,ax
cmp dx,19
jae @@6
@@4: mov BYTE ptr es:[di],' '
jmp @@@
@@1: cmp ax,12
jb @@2
mov bx,24
sub bx,ax
mov ax,bx
@@2: shl ax,1
shl ax,1
cmp dx,ax
jae @@3
jmp @@8
@@3: add ax,dx
cmp ax,158
ja @@7
@@6: mov BYTE ptr es:[di],30h
@@@: pop dx
pop bx
pop ax
ret
end start
.code
old1ch dd ?
var db 0ffh
new1ch: push ax
push bx
push cx
push es
push dx
mov ax,0b800h
mov es,ax
mov di,0
mov cx,2000
mov dl,var
s1: mov bx,es:[di]
cmp bl,30h
jne s2
mov BYTE ptr es:[di+1],dl
s2: add di,2
loop s1
dec dl
mov var,dl
pop dx
pop es
pop cx
pop bx
pop ax
jmp cs:old1ch
start: mov ax,0b800h
mov es,ax
xor di,di
xor bx,bx
mov cx,2000
s: call fun
add di,2
loop s
begin: push cs
pop ds
mov ax,351ch
int 21h
mov WORD ptr [old1ch],bx
mov WORD ptr [old1ch+2],es
mov dx,offset new1ch
mov ax,251ch
int 21h
mov dx,offset begin
add dx,15
mov cl,4
shr dx,cl
add dx,10h
mov ah,31h
int 21h
fun:
push ax
push bx
push dx
mov ax,di
mov bx,160
xor dx,dx
div bx
test ax,1
jz @@1
cmp ax,12
jb @@5
mov bx,24
sub bx,ax
mov ax,bx
@@5: dec ax
cmp dx,80
ja @@7
@@8: xchg dx,ax
mov bl,8
div bl
cmp ah,0 ;cmp ah,0或2 列就为双层
jne @@4
shr dx,1
cmp dx,ax
jae @@6
jmp @@4
@@7: xchg dx,ax
mov bl,8
div bl
cmp ah,6 ;cmp ah,6或4 列就为双层
jne @@4
shr dx,1
xor ah,ah
add dx,ax
cmp dx,19
jae @@6
@@4: mov BYTE ptr es:[di],' '
jmp @@@
@@1: cmp ax,12
jb @@2
mov bx,24
sub bx,ax
mov ax,bx
@@2: shl ax,1
shl ax,1
cmp dx,ax
jae @@3
jmp @@8
@@3: add ax,dx
cmp ax,158
ja @@7
@@6: mov BYTE ptr es:[di],30h
@@@: pop dx
pop bx
pop ax
ret
end start
评论次数(0) |
浏览次数(854) |
类型(章节要点) |
收藏此文 |