fangpai.asm

一个小小汇编程序 可以进行翻牌

.model small
.stack  64
.data
nu1 db 0,0,0,0,0,0,0,0,0,0
    db 0,0,0,0,0,0,0,0,0,0
    db 0,0,0,0,0,0,0,0,0,0
    db 0,0,0,0,0,0,0,0,0,0
    db 0,0,0,0,0,0,0,0,0,0
    db 0,0,0,0,0,0,0,0,0,0
    db 0,0,0,0,0,0,0,0,0,0
    db 0,0,0ffh,0ffh,0ffh,0ffh,0ffh,0ffh,0,0
    db 0,0,0c0h,    00000000b,00000000b,00000000b,00000000b,      3,0,0
    db 0,0,0c0h,    00000000b,00000000b,00000000b,00000000b,      3,0,0
    db 0,0,0c0h,    00000000b,00000000b,00000000b,00000000b,      3,0,0
    db 0,0,0c0h,    00000000b,00000000b,00000000b,00000000b,      3,0,0
    db 0,0,0c0h,    00000000b,00000000b,00000000b,00000000b,      3,0,0
    db 0,0,0c0h,    00000000b,00000000b,00000000b,00000000b,      3,0,0
    db 0,0,0c0h,    00000000b,00000000b,00000000b,00000000b,      3,0,0
    db 0,0,0c0h,    00000000b,00000000b,00000000b,00000000b,      3,0,0
    db 0,0,0c0h,    00000000b,00000000b,00000000b,00000000b,      3,0,0
    db 0,0,0c0h,    00000000b,00000000b,00000000b,00000000b,      3,0,0
    db 0,0,0ffh,0ffh,0ffh,0ffh,0ffh,0ffh,0,0
    db 0,0,0,0,0,0,0,0,0,0
    db 0,0,0,0,0,0,0,0,0,0
    db 0,0,0,0,0,0,0,0,0,0
    db 0,0,0,0,0,0,0,0,0,0
    db 0,0,0,0,0,0,0,0,0,0
    db 0,0,0,0,0,0,0,0,0,0

    db 0,0,0,0,0,0,0,0,0,0
    db 0,0,0,0,0,0,0,0,0,0
    db 0,0,0,0,0,0,0,0,0,0
    db 0,0,0,0,0,0,0,0,0,0
    db 0,0,0,0,0,0,0,0,0,0
    db 0,0,0,0,0,0,0,0,0,0
    db 0,0,0,0,0,0,0,0,0,0
    db 0,0,0ffh,0ffh,0ffh,0ffh,0ffh,0ffh,0,0
    db 0,0,0c0h,    00000000b,00000000b,11000000b,00000000b,      3,0,0
    db 0,0,0c0h,    00000000b,00000011b,11000000b,00000000b,      3,0,0
    db 0,0,0c0h,    00000000b,00000000b,11000000b,00000000b,      3,0,0
    db 0,0,0c0h,    00000000b,00000000b,11000000b,00000000b,      3,0,0
    db 0,0,0c0h,    00000000b,00000000b,11000000b,00000000b,      3,0,0
    db 0,0,0c0h,    00000000b,00000000b,11000000b,00000000b,      3,0,0
    db 0,0,0c0h,    00000000b,00000000b,11000000b,00000000b,      3,0,0
    db 0,0,0c0h,    00000000b,00000000b,11000000b,00000000b,      3,0,0
    db 0,0,0c0h,    00000000b,00011111b,0ffh,10000000b,      3,0,0
    db 0,0,0c0h,    00000000b,00000000b,00000000b,00000000b,      3,0,0
    db 0,0,0ffh,0ffh,0ffh,0ffh,0ffh,0ffh,0,0
    db 0,0,0,0,0,0,0,0,0,0
    db 0,0,0,0,0,0,0,0,0,0
    db 0,0,0,0,0,0,0,0,0,0
    db 0,0,0,0,0,0,0,0,0,0
    db 0,0,0,0,0,0,0,0,0,0
    db 0,0,0,0,0,0,0,0,0,0

    db 0,0,0,0,0,0,0,0,0,0
    db 0,0,0,0,0,0,0,0,0,0
    db 0,0,0,0,0,0,0,0,0,0
    db 0,0,0,0,0,0,0,0,0,0
    db 0,0,0,0,0,0,0,0,0,0
    db 0,0,0,0,0,0,0,0,0,0
    db 0,0,0,0,0,0,0,0,0,0
    db 0,0,0ffh,0ffh,0ffh,0ffh,0ffh,0ffh,0,0
    db 0,0,0c0h,    00000000b,00000011b,11000000b,00000000b,      3,0,0
    db 0,0,0c0h,    00000000b,00001110b,01110000b,00000000b,      3,0,0
    db 0,0,0c0h,    00000000b,00011000b,01110000b,00000000b,      3,0,0
    db 0,0,0c0h,    00000000b,00000000b,00110000b,00000000b,      3,0,0
    db 0,0,0c0h,    00000000b,00000000b,11000000b,00000000b,      3,0,0
    db 0,0,0c0h,    00000000b,00000001b,10000000b,00000000b,      3,0,0
    db 0,0,0c0h,    00000000b,00000011b,00000000b,00000000b,      3,0,0
    db 0,0,0c0h,    00000000b,00001110b,00000000b,00000000b,      3,0,0
    db 0,0,0c0h,    00000000b,00111111b,11111110b,00000000b,      3,0,0
    db 0,0,0c0h,    00000000b,00000000b,00000000b,00000000b,      3,0,0
    db 0,0,0ffh,0ffh,0ffh,0ffh,0ffh,0ffh,0,0
    db 0,0,0,0,0,0,0,0,0,0
    db 0,0,0,0,0,0,0,0,0,0
    db 0,0,0,0,0,0,0,0,0,0
    db 0,0,0,0,0,0,0,0,0,0
    db 0,0,0,0,0,0,0,0,0,0
    db 0,0,0,0,0,0,0,0,0,0

    db 0,0,0,0,0,0,0,0,0,0
    db 0,0,0,0,0,0,0,0,0,0
    db 0,0,0,0,0,0,0,0,0,0
    db 0,0,0,0,0,0,0,0,0,0
    db 0,0,0,0,0,0,0,0,0,0
    db 0,0,0,0,0,0,0,0,0,0
    db 0,0,0,0,0,0,0,0,0,0
    db 0,0,0ffh,0ffh,0ffh,0ffh,0ffh,0ffh,0,0
    db 0,0,0c0h,    00000000b,00000111b,11000000b,00000000b,      3,0,0
    db 0,0,0c0h,    00000000b,00011100b,01100000b,00000000b,      3,0,0
    db 0,0,0c0h,    00000000b,00011000b,01110000b,00000000b,      3,0,0
    db 0,0,0c0h,    00000000b,00000000b,11000000b,00000000b,      3,0,0
    db 0,0,0c0h,    00000000b,00000111b,00000000b,00000000b,      3,0,0
    db 0,0,0c0h,    00000000b,00000001b,11000000b,00000000b,      3,0,0
    db 0,0,0c0h,    00000000b,00000000b,11100000b,00000000b,      3,0,0
    db 0,0,0c0h,    00000000b,00011000b,01110000b,00000000b,      3,0,0
    db 0,0,0c0h,    00000000b,00011000b,01100000b,00000000b,      3,0,0
    db 0,0,0c0h,    00000000b,00000111b,11000000b,00000000b,      3,0,0
    db 0,0,0ffh,0ffh,0ffh,0ffh,0ffh,0ffh,0,0
    db 0,0,0,0,0,0,0,0,0,0
    db 0,0,0,0,0,0,0,0,0,0
    db 0,0,0,0,0,0,0,0,0,0
    db 0,0,0,0,0,0,0,0,0,0
    db 0,0,0,0,0,0,0,0,0,0
    db 0,0,0,0,0,0,0,0,0,0

    db 0,0,0,0,0,0,0,0,0,0
    db 0,0,0,0,0,0,0,0,0,0
    db 0,0,0,0,0,0,0,0,0,0
    db 0,0,0,0,0,0,0,0,0,0
    db 0,0,0,0,0,0,0,0,0,0
    db 0,0,0,0,0,0,0,0,0,0
    db 0,0,0,0,0,0,0,0,0,0
    db 0,0,0ffh,0ffh,0ffh,0ffh,0ffh,0ffh,0,0
    db 0,0,0c0h,    00000000b,00000000b,00000000b,00000000b,      3,0,0
    db 0,0,0c0h,    00000000b,00000110b,01100000b,00000000b,      3,0,0
    db 0,0,0c0h,    00000000b,00001100b,01100000b,00000000b,      3,0,0
    db 0,0,0c0h,    00000000b,00011000b,01100000b,00000000b,      3,0,0
    db 0,0,0c0h,    00000000b,00110000b,01100000b,00000000b,      3,0,0
    db 0,0,0c0h,    00000000b,01100000b,01100000b,00000000b,      3,0,0
    db 0,0,0c0h,    00000001b,0ffh,0ffh,00000000b,      3,0,0
    db 0,0,0c0h,    00000000b,00000000b,01100000b,00000000b,      3,0,0
    db 0,0,0c0h,    00000000b,00000000b,01100000b,00000000b,      3,0,0
    db 0,0,0c0h,    00000000b,00000000b,00000000b,00000000b,      3,0,0
    db 0,0,0ffh,0ffh,0ffh,0ffh,0ffh,0ffh,0,0
    db 0,0,0,0,0,0,0,0,0,0
    db 0,0,0,0,0,0,0,0,0,0
    db 0,0,0,0,0,0,0,0,0,0
    db 0,0,0,0,0,0,0,0,0,0
    db 0,0,0,0,0,0,0,0,0,0
    db 0,0,0,0,0,0,0,0,0,0

    db 0,0,0,0,0,0,0,0,0,0
    db 0,0,0,0,0,0,0,0,0,0
    db 0,0,0,0,0,0,0,0,0,0
    db 0,0,0,0,0,0,0,0,0,0
    db 0,0,0,0,0,0,0,0,0,0
    db 0,0,0,0,0,0,0,0,0,0
    db 0,0,0,0,0,0,0,0,0,0
    db 0,0,0ffh,0ffh,0ffh,0ffh,0ffh,0ffh,0,0
    db 0,0,0c0h,    00000000b,00000000b,00000000b,00000000b,      3,0,0
    db 0,0,0c0h,    00000000b,00000011b,11110000b,00000000b,      3,0,0
    db 0,0,0c0h,    00000000b,00000011b,00000000b,00000000b,      3,0,0
    db 0,0,0c0h,    00000000b,00000011b,00000000b,00000000b,      3,0,0
    db 0,0,0c0h,    00000000b,00000011b,10000000b,00000000b,      3,0,0
    db 0,0,0c0h,    00000000b,00000000b,11100000b,00000000b,      3,0,0
    db 0,0,0c0h,    00000000b,00000000b,00110000b,00000000b,      3,0,0
    db 0,0,0c0h,    00000000b,00000000b,00011000b,00000000b,      3,0,0
    db 0,0,0c0h,    00000000b,00001100b,00110000b,00000000b,      3,0,0
    db 0,0,0c0h,    00000000b,00000111b,11000000b,00000000b,      3,0,0
    db 0,0,0ffh,0ffh,0ffh,0ffh,0ffh,0ffh,0,0
    db 0,0,0,0,0,0,0,0,0,0
    db 0,0,0,0,0,0,0,0,0,0
    db 0,0,0,0,0,0,0,0,0,0
    db 0,0,0,0,0,0,0,0,0,0
    db 0,0,0,0,0,0,0,0,0,0
    db 0,0,0,0,0,0,0,0,0,0





.code
 
start:
    mov ax,@data
    mov ds,ax

    mov ax,0003h
    int 10h



again4:
    mov si,0 
    mov cx,6
again3:
    push cx
    mov cx,25
again2:
    push cx    
    mov ah,02h
    mov cx,10
again1:
    push cx
    mov cx,8h
again:    
    mov dl,' '
    rol byte ptr nu1[si],1
    jc next
    jmp next1
next:
    mov dl,'#'
next1:
    int 21h
    loop again
       
    inc si
    pop cx   
    loop again1  
    
    pop cx    
    loop again2

    push dx
    push bx

    mov ah,2ch
    int 21h
    mov bl,dh
    add bl,1
    cmp bl,60
    jb lp
    sub bl,60
lp:     
    mov ah,2ch
    int 21h
    cmp bl,dh
    jne lp
  
    pop bx
    pop dx



    pop cx
    loop again3



   ; jmp again4 

    mov ax,4c00h
    int 21h

    end start