#def calor
#def armadura   
#def dist_blanco   
#def colision
   opo 11, 100
   ipo 6, armadura
   mov colision, colcnt
   opo 17, 6
   mov ax, 1
   int 3 
:100
   do 2
   ipo 7, dist_blanco
   cmp dist_blanco, 1500
   jls 1
   opo 12, 6
   :1
   jae 2
   ipo 8, ax
  ; push ax
   mov bx,ax
   add bx,ax
   add ax, bx
   opo 12, ax
   ipo 2, calor
  ; pop ax
   cmp calor, 185
   jae 2
   opo 15, bx 
   :2
   ipo 6, ax
   cmp colision, colcnt
   jne 4
   cmp armadura, ax
   jeq 3   
   :4
   call 200
   :3
   loop 100

:200
   ipo 10, dx
   shr dx, 9
;  div dx, 256
   opo 14, dx
   mov colision, colcnt
   mov armadura, ax   
   del 10
   opo 11,100
   ret