red.asm

独孤剑客 ASM Source Code 1998-2001 for DOS

;Set PAL 256
;page   ,132
;以下三行建立16位段
        dosseg          ;MICROSFT 段的约定
        .model  small   ;设置程序模块
;        .486           ;80486伪指令

        .stack 300h     ;建立768字节的堆栈

.code                   ;建立代码段

;        assume  cs:code

        org     100h

color   proc    far

        mov     ax,0a000h       ;屏幕存储器地址
        mov     es,ax
        mov     di,0
        cld                     ;选自动增量

        mov     ah,0
        mov     al,13h          ;选中模式13H
        int     10h             ;还要清屏

        mov     bp,64           ;计数
        mov     dh,0            ;将红置为0
        mov     bx,80h          ;初始化调色板号高永亮
colora:
        mov     ax,1010h        ;变更调色板
        mov     cx,0            ;非绿非蓝
        int     10h
        inc     bx              ;下一调色板
        inc     dh              ;下一红色
        dec     bp
        jnz     colora          ;重复64次

        mov     bx,200          ;扫描行计数
color1:
        mov     cx,320/5        ;列数/2
        mov     al,80h          ;彩色数
color2:
        stosb                   ;存5个像素
        stosb
        stosb
        stosb
        stosb
        inc     al              ;变成新颜色
        loop    color2          ;重复每一行扫描
        dec     bx              ;重复200次
        jnz     color1

color3:
        mov     ah,6            ;等待任意键信息
        mov     dl,0ffh
        int     21h
        jz      color3

        mov     ax,0003h
        int     10h

        mov     ah,4ch          ;按下一键后退回 DOS
        int     21h

color   endp

        end     color