Pasted

.Model Small
 
;;;;;;;;;;;; macros ;;;;;;;;;;
 
draw_row Macro x,y,z,color  ;x - row, y - begining column, z - ending column
    Local L1
    ; draws a line in row x from col y to col z
    MOV AH, 0CH
    MOV AL, color
    MOV CX, y
    MOV DX, x
L1: INT 10h
    INC CX
    CMP CX, z
    JL L1
    EndM
 
    draw_column Macro x,y,z,color ;x - column, y - begining row, z - ending row
    Local L2
    ; draws a line col y from row y to row z
    MOV AH, 0CH
    MOV AL, color
    MOV CX, x
    MOV DX, y
L2: INT 10h
    INC DX
    CMP DX, z
    JL L2
    EndM
 
    display_string Macro x,row,column,length,color
 
    push ax
    push bx
 
    MOV AX, @DATA
    MOV ES, AX  
    
    MOV AH, 13H ; WRITE THE STRING
    MOV AL, 0H; ATTRIBUTE IN BL, MOVE CURSOR TO THAT POSITION
    XOR BH,BH ; VIDEO PAGE = 0
    mov bl,color
    
    MOV BP, OFFSET x ; ES: BP POINTS TO THE TEXT
    MOV CX, length ; LENGTH OF THE STRING
    MOV DH, row ;ROW TO PLACE STRING
    MOV DL, column ; COLUMN TO PLACE STRING
    INT 10H
    
    pop bx
    pop ax
    
    EndM  
    
    
draw_block Macro start_row, end_row, start_column, end_column, color_block
   Local along_row
   
    ; draws a square 
       
    MOV DX, start_row
  
    along_row:
    
    draw_row  DX, start_column, end_column,color_block
         INC DX
         CMP DX, end_row
         JLE along_row
       
    EndM
 
;write a draw piece macro - task for tomorrow (angela) 
  
draw_full_block Macro pattern_name, color, compare  ;compare - 4ta block er jonno jhamela,tai last row er first element ta eta
    Local draw
    
    ;draws a full pattern
    
    MOV BX,0
    
    draw:
    draw_block [pattern_name+BX],[pattern_name+BX+2],[pattern_name+BX+4],[pattern_name+BX+6],color
        ADD BX,8
        CMP BX,compare
        JLE draw
    
    EndM
        
 
 
update_block Macro pattern_name, blockToBeUpdated
    local while
    
    push ax
    push bx
    push cx
    mov cx,16
    mov bx,0
    
    while:
       mov ax,pattern_name[bx]
       mov blockToBeUpdated[bx],ax
       add bx,2
       ; cmp bx,24
       loop while
         
    pop cx
    pop bx
    pop ax
    EndM
   
   
 
    
;pull row downwards
modify_row_elements Macro pattern_name, delta, number_of_blocks ; delta = dhakkar amount :3
    local ghuro,exit
    
    push ax
    push bx
    PUSH CX
    PUSH DX
    
    
    ;modify row elements
    
    mov cx,number_of_blocks
    mov bx,0
    
    ghuro:
        
        xor ax,ax
        xor dx,dx
        
        MOV ax,pattern_name[bx]
        add ax,delta
        MOV pattern_name[bx],ax
        
        add bx,2
        
        MOV dx,pattern_name[bx]
        add dx,delta
        MOV pattern_name[bx],dx
        
        add bx,6
        
        loop ghuro
  
    
    exit:
        pop dx
        pop cx
        pop bx
        pop ax
 
    EndM 
    
;;;;;;;;;;;;;; ;daine bame dhakka dibo B| ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   
modify_column_elementsD Macro pattern_name, delta, compare ; delta = dhakkar amount :3
    local byebye,shorao
    
    
   push ax
   push bx
   PUSH CX
   PUSH DX
    
    ;modify column elements
    
    mov bx,4
    
    shorao: 
        
      
    ; cmp pattern_name[30],345
    ;    jg byebye
   koop:     
        MOV cx,pattern_name[bx]
        add cx,delta
        cmp cx,380
        jge byebye
        MOV pattern_name[bx],cx
        
        add bx,2
        MOV dx,pattern_name[bx]
        
        add dx,delta
        MOV pattern_name[bx],dx
        
        add bx,6
        xor cx,cx
        xor dx,dx
        
        cmp bx,compare
        jle shorao
        
        
  
    byebye:
 
        
        pop dx
        pop cx
        pop bx
        pop ax
        
    EndM    
   
    
modify_column_elementsA Macro pattern_name, delta, compare
    local byebye,shorao
    
        push ax
        push bx
        PUSH CX
        PUSH DX
    
    ;modify column elements
    
    mov bx,4
    
    shorao:
        
        
        MOV cx,pattern_name[bx]
        sub cx,delta
        cmp cx,220
        jle byebye
        MOV pattern_name[bx],cx
        
        add bx,2
        MOV dx,pattern_name[bx]
        sub dx,delta
        MOV pattern_name[bx],dx
        
        
        add bx,6
        xor cx,cx
        xor dx,dx
        
        cmp bx,compare
        jle shorao
        
 
    byebye:
        
        ;sub cx,2            ; offset move
        ;MOV pattern_name[bx],cx
        
            pop dx
            pop cx
            pop bx
            pop ax
        
 
    EndM  
   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;dhakkadhakki sesh B| 
   
 
 
time_delay Macro pattern_name
    Local tt,tt1,tt2,tt3,tt4,tt5,tt6,tt7,tt8,tt9,tt10,tt11,sesh,show
  ;  push ax
    push bx
    push cx
    push dx
    
    tt:
        CMP timer_flag, 1
        JNE tt
        MOV timer_flag, 0
        
        ;draw_block 158,163,235,360,08h
        
        
        
        CALL move_block
        ;CALL check_line
        
        
        mov bx,pattern_name[16]
        cmp bX,158 ;fixed this one
        jg sesh
        
        ;;;;;;;;;;;;;;;;;;;;;
     ;   mov cx,pattern_name[20]
     ;   add cx,5
     ;   mov dx,pattern_name[16]
     ;   add dx,10
     ;   xor ax,ax
     ;   mov ah,0dh
     ;   int 10h
     ;   cmp al,09h
     ;   je sesh
        ;;;;;;;;;;;;;;;;;;;;;
        
        
        
        
    tt2:
        CMP timer_flag, 1
        JNE tt2
        MOV timer_flag, 0
    tt3:
        CMP timer_flag,1
        JNE tt3
        MOV timer_flag,0
    tt4:
        CMP timer_flag,1
        JNE tt4
        MOV timer_flag,0
    tt5:
        CMP timer_flag,1
        JNE tt5
        MOV timer_flag,0
    tt6:
        CMP timer_flag,1
        JNE tt6
        MOV timer_flag,0
    tt7:
        CMP timer_flag,1
        JNE tt7
        MOV timer_flag,0
    tt8:
        CMP timer_flag,1
        JNE tt8
        MOV timer_flag,0
    tt9:
        CMP timer_flag,1
        JNE tt9
        MOV timer_flag,0
    tt10:
        CMP timer_flag,1
        JNE tt10
        MOV timer_flag,0
    tt11:
        CMP timer_flag,1
        JNE tt11
        MOV timer_flag,0
 
      JMP tt
    
      
    sesh:
    
    
    ;  mov [block_boshche],1 
    
    pop dx
    pop cx
    pop bx
    EndM 
   
  
 
.Stack 100h
 
 
.Data
new_timer_vec   dw  ?,?
old_timer_vec   dw  ?,?
a1              dw ?
a2              dw ?
b1              dw ?
b2              dw ?
score           dw ?
flagg           db 0
color           db 4
seshs           db 0
next_color      db 9
line            dw 0
timer_flag      db  0
vel_x           dw  1
vel_y           dw  1
boxer_a         dw  ?   ; these two vars deal with current upper and lower row bounds
boxer_b         dw  ?   ; of the single blocks
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;                   strings that will be displayed                        ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
msg_next       db "Next$",0
msg_left       db "A - Left$"
msg_right      db "D - Right$"
msg_rotate     db "S - Jump Fast$"
msg_quit       db "Q - Quit$"
msg_lines      db "Lines$"
msg_score      db "Score$"
msg_game_over  db "Game Over!$"
msg_tetris     db "TETRIS$"
game_score     db "0000$"
 
 
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
screen_width       dw 320
column_limit       dw 0
row_limit          dw 0
block_width        dw 10
block_height       dw 5
block_boundary     dw 153
block_boshche      dw 0
box_medium         dw 100
current_row        dw 0
current_block      dw 0
next_block         dw 0
 
 
;;;;;;;; time ;;;;;;;;
 
;;;;;;;;;;;;; blocks ;;;;;;;;;;;;;;;;;;;;;;
 
horizontal             dw 51,56,290,300
                       dw 51,56,300,310
                       dw 51,56,310,320
                       dw 0,0,0,0
                       
 
next_horizontal        dw 71,76,430,440
                       dw 71,76,440,450
                       dw 71,76,450,460
                       dw 0,0,0,0
                       
              
vertical               dw 51,56,285,295
                       dw 56,61,285,295 
                       dw 61,66,285,295
                       
                       
                       
T_shape                dw 51,56,290,300
                       dw 51,56,300,310
                       dw 51,56,310,320
                       dw 56,62,310,320
                       
       
L_shape                dw 51,56,290,300
                       dw 51,56,300,310
                       dw 51,56,310,320
                       dw 45,50,290,300
                       
                       
next_L_shape           dw 71,76,430,440
                       dw 71,76,440,450
                       dw 71,76,450,460
                       dw 65,70,430,440
 
 
                       
Ulta_L                 dw 51,56,290,300
                       dw 51,56,300,310
                       dw 51,56,310,320
                       dw 57,64,310,320
                       
 
Ulta_T                 dw 51,56,290,300
                       dw 51,56,300,310
                       dw 51,56,310,320
                       dw 45,50,310,320
                       
                       
right_L                dw 51,56,290,300
                       dw 51,56,300,310
                       dw 51,56,310,320
                       dw 45,50,310,320 
                       
                       
next_right_L           dw 71,76,430,440
                       dw 71,76,440,450
                       dw 71,76,450,460
                       dw 65,70,450,460
                       
                          
currentBlock           dw 0,0,0,0
                       dw 0,0,0,0
                       dw 0,0,0,0
                       dw 0,0,0,0
 
next_piece             dw 0,0,0,0
                       dw 0,0,0,0
                       dw 0,0,0,0
                       dw 0,0,0,0
                       
offsetArray            dw 20,20,140,140
                       dw 20,20,140,140
                       dw 20,20,140,140 
                       dw 20,20,140,140 
                       
temp_nxt_piece         dw 0,0,0,0
                       dw 0,0,0,0
                       dw 0,0,0,0
                       dw 0,0,0,0
                       
               
choose_random_piece    dw 0,0,0,0
                       dw 0,0,0,0
                       dw 0,0,0,0
                       dw 0,0,0,0
                       
                       
zero_matrix            dw 0,0,0,0
                       dw 0,0,0,0
                       dw 0,0,0,0
                       dw 0,0,0,0
                        
                      
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
.CODE
 
MAIN PROC 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;                              Initialization                        
 
 
   MOV AX,@DATA
   MOV DS,AX ;DATA INITIALIZATION HOYE GESE
 
; set CGA 640x200 high res mode
   mov AH,0
   MOV AL,0eh
   int 10h
   
; set keyboard parameters to be most responsive
   ;mov ax,0305h
   ; xor bx,bx
   ; int 16h
   
   ;set bgd color 
   mov ah,0bh
   mov bh,0
   mov bl,15
   int 10h
   
;generate initial piece
    
    ;call proc....
 
;display screen stuffs   
  
    call procedure_draw_screen
    
    draw_block 158,164,236,360,0fh
    
    
    ;draw a block at roof middle position
    
    ;MOV BL,13
    ;draw_block 51,71,300,310,04h
    ;draw_block 51,71,320,330,08h
    ;draw_block 51,71,330,340,09h
    ;draw_block 160,170,300,310,09h
     
;;;;;;;;;;;;;;;; gravity niye khela hobe -_- ;;;;;;;;;;;;;;
 
    ; set up timer interrupt vector
    MOV new_timer_vec, offset timer_tick
    MOV new_timer_vec+2, CS
    MOV AL, 1CH; interrupt type
    LEA DI, old_timer_vec
    LEA SI, new_timer_vec
    CALL setup_int
  
    
    ;PUSH CX
    ;PUSH DX
    ;mov cx,horizontal[4] ;starting point,not yet done for each block,have to fix this one
    ;mov dx,horizontal[6]
    ;
    ;MOV boxer_a,cx
    ;MOV boxer_b,dx
    ;
    ;pop dx
    ;pop cx
    
;   draw_block boxer_a,boxer_b,320,330,15
;   CALL move_block
;   MOV AH,01h
;   INT 16H
 
    ;copy horizontal array to currentBlock
    ;draw_block 158,163,235,360,08h
    mov score,0
    ;update_block L_shape, currentBlock
    
    ;draw_block 158,163,235,360,08h
    
    ;show_next_piece T_shape,24     ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; modify this
    
    ;draw_block 158,163,235,360,08h
    
    ;for horizontal one 
    ;time_delay currentBlock
    
    ; time_delay vertical
    ; time_delay L_shape
    
    ;;;infinite loop e fele diyechi dada;;; :p
    ;draw_block 158,163,235,359,08h 
    
notun_notun_block_banao:
        
        ;cmp [block_boshche],1
        ;jne notun_notun_block_banao
        ;mov [block_boshche],0
        ;show_next_piece horizontal
        ;copy horizontal array to currentBlock
        
        inc [current_block]
        cmp [current_block],3
        jle continue_kor
        
        mov [current_block],1
    
        continue_kor:
        
            call gen_block
      
            update_block choose_random_piece, currentBlock
            
            call gen_next_piece
            call show_next_piece
            
            time_delay currentBlock
             
            call hawahawaline 
            
           
            
            call score_dekhao
            call gameover
            cmp seshs,23
            je seshh
            add color,5
            add next_color,5
            cmp color,14
            jg Ooops
            
            cmp next_color,14
            jg Ooops_next
            
            jmp notun_notun_block_banao
Ooops:  
        mov color,4
        jmp notun_notun_block_banao
        
Ooops_next:  
        mov next_color,4
        jmp notun_notun_block_banao
seshh:
    
   mov ah,0
   mov al,13h
   int 10h
      
 
   mov ah,0bh
   mov bh,0
   mov bl,10
   int 10h
 
 
   display_string msg_game_over ,10,15,10,2 
    display_string msg_game_over ,10,15,10,2
     display_string msg_game_over ,10,15,10,2
      display_string msg_game_over ,10,15,10,2
      
    
   jmp seshh
        
   MAIN ENDP
 
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; all procedures ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
; draw screen elements 
 
procedure_draw_screen proc near
    
    draw_screen_border:
        
        ;top left to top right
        draw_row 5,10,630,03h
        ;top left to bottom left
        draw_column 10,5,195,03h
        ;top right to bottom right
        draw_column 630,5,195,03h
        ;bottom left to bottom right
        draw_row 195,10,630,03h
        
    
    draw_screen_play_area:
        
        ;top left to top right
        draw_row 42,228,381,7
        ;top left to bottom left
        draw_column 228,42,165,7
        ;top right to bottom right
        draw_column 381,42,165,7
        ;bottom left to bottom right
        draw_row 165,228,381,7
        
        
    draw_screen_next_piece:
        
        ;top left to top right
        draw_row 50,400,487,01h
        ;top left to bottom left
        draw_column 400,50,90,01h
        ;top right to bottom right
        draw_column 487,50,90,01h
        ;bottom left to bottom right
        draw_row 90,400,487,01h
        
    
    draw_screen_strings:
        
        
        ;MOV AX, @DATA
        ;MOV ES, AX  
      
        ;MOV AH, 13H ; WRITE THE STRING
        ;MOV AL, 0H; ATTRIBUTE IN BL, MOVE CURSOR TO THAT POSITION
        ;XOR BH,BH ; VIDEO PAGE = 0
        
        ;MOV BL, 9
        display_string msg_left,10,10,8,9
        ;MOV BL, 12 
        display_string msg_right,12,10,9,12
        ;MOV BL, 8
        display_string msg_rotate,14,10,13,8
        ;MOV BL, 13 
   ;;     display_string msg_quit,16,10,8,12
        ;MOV BL, 6 
        display_string msg_tetris,3,35,6,6
        ;MOV BL, 8
        display_string msg_next,12,54,4,8
        ;MOV BL, 9
        display_string msg_score,18,53,5,9
        ;mov bl, 8
        display_string game_score,16,53,4,8
        
        ret
    
procedure_draw_screen endp
 
 
 
setup_int Proc
;    save old vector and set up new vector
;    input: al = interrupt number
;    di = address of buffer for old vector
;    si = address of buffer containing new vector
;    save old interrupt vector
 
    MOV AH, 35h     ; get vector
    INT 21h
    MOV [DI], BX    ; save offset
    MOV [DI+2], ES  ; save segment
        
;   setup new vector
 
    MOV DX, [SI]    ; dx has offset
    PUSH DS         ; save ds
    MOV DS, [SI+2]  ; ds has the segment number
    MOV AH, 25h     ; set vector
    INT 21h
    POP DS
    RET
setup_int EndP
 
 
timer_tick Proc
    PUSH DS
    PUSH AX
    
    MOV AX, Seg timer_flag
    MOV DS, AX
    MOV timer_flag, 1
    
     
exit:    
    POP AX
    POP DS
    
    IRET
timer_tick EndP
 
 
 
 
move_block Proc
;   erase block at current position and display at new position
;   input: CX = col of block position
;   DX = rwo of block position
;   erase block
;   MOV AL, 0
;   mov bx,300
;   mov cx,310
;   push ax
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;keyboard bae
 
;   mov ah, 1 ;keyboar buffer check korbe
    mov ah, 1 ;keyboar buffer check korbe
    int 16h
;   int 16h
    jz foo
    mov ah, 0   ; key input nibe
    int 16h 
    cmp al,97 ; a checker
    je keya
    cmp al,100 ; d checker
    je fix2
    cmp al,115
    je dours
    foo: jmp boo
    
    keya:
       ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
      
       xor cx,cx
       xor dx,dx
       mov cx,currentBlock[20]
       sub cx,45
       mov dx,currentBlock[16]
fix1:   
       jmp fix3
fix2:
       jmp keyd
dours: jmp dour
fix3:
      
       ; xor ax,ax
       ;  mov dx,158
       ;  mov cx,301
       mov ah,0dh
        
        
       int 10h
       cmp al,09h
       je boo
       cmp al,0eh
       je boo
       cmp al,04h
       je boo
       add dx,10
       int 10h
       cmp al,0eh
       je boo
       cmp al,09h
       je boo
       cmp al,04h
       je boo
      
       ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
       draw_full_block currentBlock,15 , 24
       modify_column_elementsA currentBlock,30,30
        
    boo:   jmp exittt
    
    dour:  
         jmp exitttt
    
    keyd: 
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
       xor cx,cx
       xor dx,dx
       mov cx,currentBlock[20]
       add cx,15
       mov dx,currentBlock[16]
       
       ; xor ax,ax
       ;  mov dx,158
       ;  mov cx,301
       mov ah,0dh
        
        
       int 10h
       cmp al,09h
       je exittt
       cmp al,0eh
       je exittt
       cmp al,04h
       je exittt
       
       add dx,10
       int 10h
       cmp al,09h
       je exittt
       cmp al,0eh
       je exittt
       cmp al,04h
       je exittt
       ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    draw_full_block currentBlock,15 , 30
    modify_column_elementsD currentBlock,30,30
        jmp exittt
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;muhahaha hoya gese  
 
 
    
exittt:    
    
      draw_full_block currentBlock,15, 24
      
     ;draw_full_block vertical,15
     ;draw_full_block L_shape,15
  
      jmp test_timer
      
     ;   draw_block boxer_a,boxer_b,320,330,15
     ;   draw_block boxer_a,boxer_b,332,342,15
     ;   draw_block boxer_a,boxer_b,344,354,15
    
     ;   get new position  
     ;   check boundary
     ;   cmp cx,160
     ;   jl exits
     ;   CALL 
     
     ;   wait for 1 timer tick to display block
     
 exitttt:
    
 draw_full_block currentBlock,15, 24
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
       xor cx,cx
       xor dx,dx
       mov cx,currentBlock[4]
       inc cx
       ;   add cx,20
       mov dx,currentBlock[16]
       
        xor ax,ax
       ;  mov dx,158
       ;  mov cx,301
          mov ah,0dh
        
       cmp dx,140
       jg test_timer 
       add dx,24
       
       int 10h
       cmp al,09h
       je test_timer
       cmp al,0eh
       je test_timer
       cmp al,04h
       je test_timer
       add cx,20
       int 10h
       cmp al,09h
       je test_timer
       cmp al,0eh
       je test_timer
       cmp al,04h
       je test_timer
    ;   add cx 20
      
       ; add dx,10
       ;int 10h
       ; cmp al,09h
       ;  je exittt
       ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
       modify_row_elements currentBlock,12, 4
    jmp test_timer
 
test_timer:
   
    xor ax,ax
    CMP timer_flag, 1
    JNE test_timer
    
    modify_row_elements currentBlock,6 ,16
    
    draw_full_block currentBlock,color,24
   ; modify_row_elements vertical
   ; modify_row_elements L_shape
   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
       ;  push ax
       ;  push cx
       ;  push dx
       xor cx,cx
       xor dx,dx
       mov cx,currentBlock[4]
       inc cx
       ;    ; add cx,
       mov dx,currentBlock[16]
       add dx,10
       ; xor ax,ax
       ;  mov dx,158
       ;  mov cx,301
       mov ah,0dh
        
        
       int 10h
       cmp al,09h
       je exits2
       cmp al,0eh
       je exits2
       cmp al,04h
       je exits2
       
       add cx,20
      
       int 10h
       cmp al,09h
       je exits2
       cmp al,0eh
       je exits2
       cmp al,04h
       je exits2   
 
      ; jne exits
             
           
      ;   pop dx
      ;   pop cx
      ;   pop ax
          
      ;   jne exits2
           
      ;   exits2:
      ;   mov currentBlock[18],160
      ;   RET
      
      ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
      ;   halum:    
      
      ;draw_full_block currentBlock,09h
     
   ;  draw_full_block vertical,08h
   ;  draw_full_block L_shape,08h
    
    
    ;draw_block boxer_a,boxer_b,320,330,08h
    ;draw_block boxer_a,boxer_b,332,342,08h
    ;draw_block boxer_a,boxer_b,344,354,08h
    ;
    
    MOV timer_flag, 0
   ; MOV AL, 3
    
    exits:
    
        RET
        
    exits2:
    
    ; mov cx,170
 
    ; draw_full_block currentBlock,09h
    mov currentBlock[16],170
    
    RET
    
    ;dec cx
     
        
        
move_block EndP
 
 
hawahawaline Proc
  ;  push dx
  ;;  push cx
  ;  push bx
   ; push ax
   xor ax,ax
   xor bx,bx
   xor cx,cx
   xor dx,dx
    
hambahamba:
    
     mov ah,0dh
    
     mov a1,164
     mov b1,56
     mov a2,230
     mov b2,240
     
     ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    
    
     mov line,170
 ;    mov dx,line
khuru:
      mov cx,235
      sub line,6
      mov dx,line
      mov a1,dx
dhuru:
    add cx,10
    cmp cx,380
    jg prehh1
    xor ax,ax
    mov ah,0dh    
    int 10h
    cmp al,09h
    je dhuru
    cmp al,0eh
    je dhuru
    cmp al,04h
    je dhuru
    jmp hh3
    
prehh1:
     add score,10
 hh1:
    
    mov a2,220
    sub a1,6
  hh2:
    
    cmp a1,55
    jl hh3
    
    add a2,10
    cmp a2,370
    jg hh1
    
    mov bx,a1
    add bx,6
    mov b1,bx
    
    mov bx,a2
    add bx,10
    mov b2,bx
    xor ax,ax
    xor bx,bx
    xor cx,cx
    xor dx,dx
    mov cx,a2
    inc cx
   ; add cx,15
    mov dx,a1
    sub dx,4
    mov ah,0dh
    int 10h
    draw_block a1,b1,a2,b2,al  ;0 hobe kaj korle
    jmp hh2
    
hh3: 
    mov a2,220
    cmp line,60
    jl fillhoynai
    jmp khuru
fillhoynai:
;mov ah,4ch
  ;   int 21h
   ; pop ax
   ;  pop bx
   ;  pop cx
   ;  pop dx
    RET
hawahawaline Endp
 
 
score_dekhao proc
        
        push ax
        push bx
        push cx
        push dx
        
        
        mov cx,10d
        xor bx,bx
        mov bx,3
        mov ax,score
        
        bhag_kor:
            
            xor dx,dx
            div cx
            
            ;push bx
            ;inc cx
            
            or dl,30h
            mov game_score[bx],dl
            dec bx
            
            
            or ax,ax
            jne bhag_kor
            
         
       
 
         display_string game_score,16,53,4,8
         
         
         pop dx
         pop cx
         pop bx
         pop ax
        
       
        ret
 
 
score_dekhao Endp
 
 
gen_block proc
 
    cmp [current_block],1
    je horizontal_ako
    
    cmp [current_block],2
    je L_shape_ako
     
    cmp [current_block],3
    je right_L_ako
    
    
    horizontal_ako:
            update_block horizontal, choose_random_piece
            mov [next_block],2
            ret
   
            
    L_shape_ako:
            update_block L_shape, choose_random_piece
            mov [next_block],3
            ret
               
    right_L_ako:
             update_block right_L, choose_random_piece
             mov [next_block],1
             ret
      
    
    ret 
    
gen_block endp
 
 
gen_next_piece proc
    
    cmp [next_block],1
    je horizontal_akao
    
    cmp [next_block],2
    je L_shape_akao
    
    cmp [next_block],3
    je right_L_akao
    
   
    horizontal_akao:
            update_block next_horizontal, next_piece
            ret
            
    L_shape_akao:
           update_block next_L_shape, next_piece
           ret
            
    right_L_akao:
             update_block next_right_L, next_piece
             ret
 
         
    ret 
 
 
gen_next_piece endp
 
 
show_next_piece proc ;pattern_name - konta next piece box e dekhano hobe 
   
       push bx
       push cx
       push dx
       
       draw_block 61,89,401,470,0Fh
       
 
   ;   ;add_offset_array 
   ;                           ;pasher picchi box e dekhanor jonno
   ;   mov bx,0
   ;   mov cx,16
   ;   
   ;         
   ;   jog_koro:
   ;         mov dx,next_piece[bx]
   ;         add dx,offsetArray[bx]
   ;         
   ;         mov temp_nxt_piece[bx],dx
   ;         add bx,2
   ;         xor dx,dx
   ;         loop jog_koro
   ;          
   ;   ;draw_full_block next_piece
      
           draw_full_block next_piece, [next_color], 24
      ;    update_to_zero temp_nxt_piece
      ;    update_to_zero next_piece
      
      pop dx
      pop cx
      pop bx
      
      ret
      
show_next_piece endp
 
 
update_to_zero macro input
    local zero_banao
 
    push bx
    push cx
    
    mov bx,0
    mov cx,16
    
    zero_banao:
            mov input[bx],0
            add bx,2
            loop zero_banao
   
 
    EndM
 
 
;keyboard strike
 
 
gameover proc
    xor ax,ax
    xor cx,cx
    xor dx,dx
    mov dx,59
    mov cx,297
    mov ah,0dh
    int 10h
    cmp al,09h
    je sesh1
    cmp al,04h
    je sesh1
    cmp al,0eh
    je sesh1
    
   
    sesh: RET
   
    sesh1:
   
    
   mov ah,0bh
   mov bh,1
   mov bl,13
   int 10h
   mov seshs,23
   RET
     
   
gameover endp
End main