皮皮网

1.汇编语言 实现形颜色变换
2.手机什么系统兼容好!

汇编语言 实现形颜色变换

       DATAS SEGMENT

       COLOR DW

       BKCOLOR DW

       X DW ,找源码解密php

       Y DW ,

       RADIUS DW

       DATAS ENDS

       STACKS SEGMENT

       DW DUP(0)

       STACKS ENDS

       CODES SEGMENT

       ASSUME CS:CODES,DS:DATAS,SS:STACKS

       START:

       MOV AX,DATAS

       MOV DS,AX

       MOV AX,0AH

       MOV ES,AX

       MOV AX,H

       INT H ;设置**图形模式

       MOV AL,2

       CALL SET_WRITE_MODE ;将写模式设为写模式2

       again:

       MOV AX,BKCOLOR

       CALL CLEAR ;将背景清成白色

       MOV AX,WORD PTR [X]

       PUSH AX

       MOV AX,WORD PTR [Y]

       PUSH AX

       MOV AX,WORD PTR [RADIUS]

       PUSH AX

       CALL CIRCLE

       MOV AH,0

       INT H

       cmp al,0dh ;回车退出

       jz exit

        cmp ah,2eh;Key 'C or c'

        jnz skip

        inc color

       skip:

        jmp again

       quit:

        mov ah,4ch

        int h

       exit:

       MOV AX,4CH

       INT H

       ;