鱼C论坛

 找回密码
 立即注册
查看: 3053|回复: 4

[已解决]王爽 汇编 实验15 屏幕颜色变化

[复制链接]
发表于 2020-10-21 14:18:19 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能^_^

您需要 登录 才可以下载或查看,没有账号?立即注册

x
assume cs:code
stack segment
        db 128 dup(0)
stack ends

code segment
start:
        mov ax,stack
        mov ss,ax
        mov sp,128
        mov ax,cs
        mov ds,ax
        mov si,offset int9 ; ds:si       
        mov ax,0
        mov es,ax
        mov di,204h ;es:di
        mov cx, offset int9end - offset int9
        cld
        rep movsb
       
        push es:[9*4]
        pop es:[200h]
        push es:[9*4+2]
        pop es:[202h]
       
        cli
        mov word ptr es:[9*4],204h
        mov word ptr es:[9*4+2],0
        sti
       
        mov ax,4c00h
        int 21h
int9:
        push ax
        push di
        push cx
        push es
        mov ax,0
        mov es,ax
       
        pushf
        call dword ptr es:[200h]
       
        in al,60h
        cmp al,3bh ;F1
        jne int9ret
        mov ax,0b800h
        mov es,ax
        mov di,1
        mov cx,2000
s:
        inc byte ptr es:[di]
        add di,2
loop s

int9ret:
        pop es
        pop cx
        pop di
        pop ax
int9end:
        nop
code ends
end start
不知道哪里出问题了 运行后卡住
最佳答案
2020-10-21 15:04:17
int9 服务例程没有返回指令,别的没细看。
int9end:
        nop
        iret
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复

使用道具 举报

发表于 2020-10-21 15:04:17 | 显示全部楼层    本楼为最佳答案   
int9 服务例程没有返回指令,别的没细看。
int9end:
        nop
        iret
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复 支持 反对

使用道具 举报

 楼主| 发表于 2020-10-21 15:13:54 | 显示全部楼层
xieglt 发表于 2020-10-21 15:04
int9 服务例程没有返回指令,别的没细看。
int9end:
        nop

可以了 感谢
忘了写这个 我还有一个帖子麻烦看看刚刚发的
就是 运行可以运行 运行完后 会卡住
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复 支持 反对

使用道具 举报

 楼主| 发表于 2020-10-21 15:16:07 | 显示全部楼层
assume cs:code
stack segment
        db 128 dup(0)
stack ends

code segment
start:
        mov ax,stack
        mov ss,ax
        mov sp,128
        mov ax,cs
        mov ds,ax
        mov si,offset int9 ; ds:si       
        mov ax,0
        mov es,ax
        mov di,204h ;es:di
        mov cx, offset int9end - offset int9
        cld
        rep movsb
       
        push word ptr es:[9*4]
        pop word ptr es:[200h]
        push word ptr es:[9*4+2]
        pop word ptr es:[202h]
       
        cli
        mov word ptr es:[9*4],204h
        mov word ptr es:[9*4+2],0
        sti
       
        mov ax,4c00h
        int 21h
int9:
        push ax
        push di
        push cx
        push es
        mov ax,0
        mov es,ax
       
        pushf
        call dword ptr es:[200h]
       
        in al,60h
        cmp al,3bh ;F1
        jne int9ret
        mov ax,0b800h
        mov es,ax
        mov di,1
        mov cx,2000
s:
        inc byte ptr es:[di]
        add di,2
loop s

int9ret:
        pop es
        pop cx
        pop di
        pop ax
        iret ;别忘了写这个
int9end:
        nop
code ends
end start
最后完整代码
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复 支持 反对

使用道具 举报

发表于 2020-10-21 15:25:57 | 显示全部楼层
ISHEEPI 发表于 2020-10-21 15:13
可以了 感谢
忘了写这个 我还有一个帖子麻烦看看刚刚发的
就是 运行可以运行 运行完后 会卡住

我先看看代码。
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Archiver|鱼C工作室 ( 粤ICP备18085999号-1 | 粤公网安备 44051102000585号)

GMT+8, 2024-6-28 19:12

Powered by Discuz! X3.4

© 2001-2023 Discuz! Team.

快速回复 返回顶部 返回列表