按1换背景 按2换前景 按a退出yy.asm

是一个关于汇编的我的第一个汇编源代码

; present date: 2005.4.30
; last modify date:2005.5.06
; auther      : yerunbin 
; ver         : 1.0

       .model small
       .stack
       .data
       fron db 01h                ;前景颜色
       backcolour db 00h          ;背景颜色
       heng db ?                  ;横
       shu db ?                   ;列

       .code                      ;代码段
begin:
        mov ax,@data
        mov ds,ax
        mov es,ax

        mov ah,00h                 ;设置显示方式
        mov al,03h
        int 10h
                                   ;背景  
change: mov ah,02h                 ;设置光标位置
        mov bh,00
        mov dh,00                  ;第00行
        mov dl,00                  ;第00列
        int 10h

        add backcolour,10h         ;背景颜色改变          
        mov ah,09h                 ;在光标位置显示
        mov al,20h                 ;显示空白字符
        mov bh,00
        mov bl,backcolour
        mov cx,4000           ;重复4000次            
        int 10h
                                                           
again:  mov heng ,01         ;前景（A的右）
        mov shu, 39
right:  call require         ;调用函数require
        inc heng             ;行加1
        inc shu              ;列加1
        cmp heng,23                
        jne right

        mov shu,38            ;前景（A的左）
        mov heng,02
left:   call require          ;调用函数require
        inc heng                         
        dec shu               ;列减1 
        cmp heng,23
        jne left  
                              ;前景（A的中间）
        mov heng,15                    
        mov shu,26
mid:    call require
        inc shu
        cmp shu,53
        jne mid

        mov ah,02h             ;用2号中断设置光标在25：80位置
        mov bh,00
        mov dh,24
        mov dl,79
        int 10h

key:    mov ah,07h
        int 21h
        cmp al,'1'
        je change
        cmp al,'2'
        je change2
        cmp al,41h             ;A
            jz exit   
        cmp al,61h             ;a
            jz exit   
        jmp key

change2:add fron ,01h
        jmp again

exit:   mov ax,4c00h         ;退出程序
        int 21h

require proc near            ;函数require
        mov ah,02h
        mov bh,00
        mov dh,heng
        mov dl,shu
        int 10h
        mov ah, 09h
        mov al,41h            ;显示A
        mov bh,00
        mov bl,fron
        mov cx,01             ;在光标位置显示1次
        int 10h
        ret
        require endp

        end begin