Subversion Repositories Kolibri OS

Rev

Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed

  1. ;#**************************
  2. ;#*     X.0.X - DATA
  3. ;#************************** 21/10/2007
  4.  
  5. macro DATA_SECTION
  6. {
  7. ; „€›… Žƒ€ŒŒ›
  8. ;-----------------------------------------------------------------------------
  9. lootxt:   db 'oops! - Looser...'                     ; los
  10. text:     db 'KOX v0.003          [ESC]     - quit'  ; winheader string
  11. texts:    db 'Congratulations! You are winner.'      ;  in window win
  12. textend:  db 'New'     ;button id=200
  13. px:       dw 50        ;x,y -
  14. py:       dw 50        ;    - for x_put/o_put
  15. seed:     dd  0        ;rnd
  16. idx:      dd  0        ;N cell
  17. ;============ X = Y ============= coords of cells
  18.  pole:    dw  50, 50   ;+0    or - dd 50*65536+50
  19.           dw 100, 50   ;+4
  20.           dw 150, 50   ;+8
  21.           dw  50,100   ;+..
  22.           dw 100,100   ;+
  23.           dw 150,100   ;
  24.           dw  50,150   ;
  25.           dw 100,150   ;
  26.           dw 150,150   ;
  27.  pox:     dd 0,0       ;POLE  ( 3x3 )= 9 _bytes_:   'x' / 'o' / empty
  28.  pox_:    db 0         ;9= 8+1
  29.  fill:    db 0         ;turn counter  0..9
  30.  xwin:    db 0         ;who is winner 0/1
  31.  owin:    db 0         ;who is looser 0/1
  32.  poxl:    dw 0         ;16 bits - x memory
  33.  pool:    dw 0         ;16 bits - o memory
  34. ;----------------------------------------------------------------------------
  35.  oxwall:  dw 100100100b,0010010010b,0001001001b    ;vert.
  36.           dw 111000000b,0000111000b,0000000111b    ;horiz
  37.           dw 100010001b,0001010100b                ;diag -winning combinations
  38.  prav:   ;==== ¯à ¢¨« -ª®¬¡¨­ æ¨¨=====
  39.           dw 000000110b,0      ;á¨âã æ¨ï - 室 ¢ á¨âã æ¨¨
  40.           dw 000000101b,1
  41.           dw 000000011b,2
  42.           dw 000110000b,3
  43.           dw 000101000b,4
  44.           dw 000011000b,5
  45.           dw 110000000b,6
  46.           dw 101000000b,7
  47.           dw 011000000b,8      ;horiz
  48.  
  49.           dw 001001000b,0
  50.           dw 001000001b,3
  51.           dw 000001001b,6
  52.           dw 010010000b,1
  53.           dw 010000010b,4
  54.           dw 000010010b,7
  55.           dw 100100000b,2
  56.           dw 100000100b,5
  57.           dw 000100100b,8      ;vert
  58.  
  59.           dw 000010001b,8
  60.           dw 100010000b,0
  61.           dw 100000001b,4
  62.           dw 000010100b,6
  63.           dw 001010000b,2
  64.           dw 001000100b,4      ;diag
  65.  
  66. }
  67.