use16
org 100h
;Intro
mov ax,cs
mov ds,ax
mov ah,09h
mov dx,press
int 21h
mov dx,endl
int 21h
mov ah,08h
int 21h
mov dx,title
mov ah,09h
int 21h
;start the game
game:
    mov dx,kletka
    int 21h
    mov ah,08h
    int 21h
    cmp order,1
    je nolik
    cmp order,2
    je krestik
    cmp al,1
    je j1
    cmp al,2
    je j2
    cmp al,3
    je j3
    cmp al,4
    je j4
    cmp al,5
    je j5
    cmp al,6
    je j6
    cmp al,7
    je j7
    cmp al,8
    je j8
    cmp al,9
    je j9
    jmp game
krestik:
   mov order,2
ret
nolik:
   mov order,1
ret
j1:
    cmp order,1
    je j1o
    j1o:
       cmp s1,0
       je pj1o
       p1jo:
          mov s1,1
       ret
    ret
    cmp order,2
    je j1x
    j1x:
       cmp s1,0
       je pj2o
       p2jo:
          mov s1,2
       ret
    ret
ret

j2:
    cmp order,1
    je j1o
    j1o:
       cmp s1,0
       je pj2o
       p2jo:
          mov s2,1
       ret
    ret
    cmp order,2
    je j2x
    j2x:
       cmp s2,0
       je pj2o
       p2jo:
          mov s2,2
       ret
    ret
ret
j3:
    cmp order,1
    je j3o
    j3o:
       cmp s3,0
       je pj3o
       p1jo:
          mov s3,1
       ret
    ret
    cmp order,2
    je j3x
    j1x:
       cmp s3,0
       je pj3o
       p3jo:
          mov s3,2
       ret
    ret
ret
j4:
    cmp order,1
    je j4o
    j4o:
       cmp s4,0
       je p4jo
       p1jo:
          mov s4,1
       ret
    ret
    cmp order,2
    je j4x
    j4x:
       cmp s4,0
       je pj4o
       p4jo:
          mov s4,2
       ret
    ret
ret
j5:
    cmp order,1
    je j5o
    j5o:
       cmp s5,0
       je pj5o
       pj4o:
          mov s5,1
       ret
    ret
    cmp order,2
    je j5x
    j5x:
       cmp s5,0
       je pj5o
       p5jo:
          mov s5,2
       ret
    ret
ret
j6:
    cmp order,1
    je j6o
    j6o:
       cmp s6,0
       je pj6o
       pj6o:
          mov s6,1
       ret
    ret
    cmp order,2
    je j6x
    j5x:
       cmp s6,0
       je pj6o
       p6jo:
          mov s6,2
       ret
    ret
ret
j7:
    cmp order,1
    je j7o
    j7o:
       cmp s7,0
       je p7jo
       p7jo:
          mov s7,1
       ret
    ret
    cmp order,2
    je j7x
    j7x:
       cmp s7,0
       je pj7o
       p7jo:
          mov s7,2
       ret
    ret
ret
j8:
    cmp order,1
    je j8o
    j8o:
       cmp s8,0
       je p8jo
       p8jo:
          mov s8,1
       ret
    ret
    cmp order,2
    je j8x
    j8x:
       cmp s8,0
       je pj8o
       p8jo:
          mov s8,2
       ret
    ret
ret
j9:
    cmp order,1
    je j9o
    j9o:
       cmp s9,0
       je p9jo
       p9jo:
          mov s9,1
       ret
    ret
    cmp order,2
    je j9x
    j9x:
       cmp s9,0
       je pj9o
       p9jo:
          mov s9,2
       ret
    ret
ret
press db 'Press any key ro start!$'
title db 'Tic Tac Toe! By: KislBall$'
kletka db 'Enter number of kletka to paste'
s1 db 0
s2 db 0
s3 db 0
s4 db 0
s5 db 0
s6 db 0
s7 db 0
s8 db 0
s9 db 0
order db 1
busyX db 1
busyO db 2
free db 0
endl: db 0dh,0ah,"$"

exit:
    mov ax,4C00h
    int 21h