دانلود سورس بازی تایپ حروف با اسمبلی Assembly

    
    
      
  STACK   SEGMENT   STACK
       DW      120H    DUP(?)
 STACK   ENDS  
      
      
clrscr macro  
MOV AH , 00
MOV AL, 03 
mov bh,61h
int 10h
endm

    
delay macro   t
   push cx
        mov cx,0
        d3:
        inc cx
        cmp cx,t
        jne d3 
   pop cx
endm    
delay2 macro   t
   push cx
        mov cx,0
        d4:
        inc cx
        cmp cx,t
        jne d4 
   pop cx
endm

changecursor macro row,col 
  
  MOV AH, 2
  MOV BH, 0
  MOV DH, row ; row
  MOV DL, col ; column
  int 10h   

endm  

 ;*********************
 DATA    SEGMENT
    msg1 db "0 $"
    char    db    '0',0
    score   db "0$" 
    i    DB  '0',0   
    msg db "hello there", "$S"
 DATA    ENDS
 ;*********************  
 
  CODE    SEGMENT
    assume cs:CODE,DS:DATA  
   
START: 

mov score ,5  

        
        
    mov al,score
    or al,30h ;Important! =>Convert Character to Number!
    mov i,al

    MOV AH, 2 ;
    MOV DL, i ; Print Character.
    INT 21H   ;

   
mov char ,65           
mov ch,3
l:  

inc ch        
  changecursor ch,5      
          
MOV AH, 02H
MOV DL, char
INT 21H  

delay 1

clrscr
 

 
CMP ch,15  
jne l  
mov ch,1 

      
         
MOV ah, 1
INT 21H

cmp al,char
jne neq
  
     
inc score
jmp   continue
neq:
   dec score 
   
continue: 

     
add char,2 

    clrscr
    MOV AH, 2 ;
    MOV Dl, 's' ;
    INT 21H   ;  
    MOV AH, 2 ;
    MOV Dl, ':' ;
    INT 21H   ; 
    

    mov al,score
    or al,30h ;Important! =>Convert Character to Number!
    mov i,al

    MOV AH, 2 ;
    MOV DL, i ; Print Character.
    INT 21H   ;    
    

 delay2  80

jmp l

;---------------------  

       
; wait for any key press:
mov ah, 0
int 16h

 CODE ENDS
  
      END START     
      

هم اکنون می توانید سورس این پروژه را به صورت رایگان دانلود کنید

حجم فایل :17 KB