WebSVN – Kolibri OS – Diff – /programs/games/life/trunk/life.asm

+;
 ;    LIFE.ASM
+;
 ;    This program displays Conways game of life
+;
-;    Compile with FASM v1.49 for DOS;
+;    Compile with FASM for Menuet;
+;
-;    Version 0.1a   20th May   2004
-;                   Ivan Poddubny
+;
 ;    Version 0.1    30th March 2004
 ;                   Mike Hibbett
+;
+;    Version 0.2    23th May 2004
+;                   Random generation dots with start
+;
+;    Convert to ASCL Libary by Pavlushin Evgeni
+;
 ;    This is an experiment to see how small a usefull application can get
+;
-include "lang.inc"
-include "macros.inc"
-  use32
+use32
-  org     0x0
+               org     0x0
-  db     'MENUET01'              ; 8 byte id
+               db     'MENUET01'              ; 8 byte id
-  dd     0x01                    ; header version
+               dd     0x01                    ; header version
-  dd     START                   ; start of code
+               dd     START                   ; start of code
-  dd     I_END                   ; size of image
+               dd     I_END                   ; size of image
-  dd     0xc1000                  ; memory for app
+               dd     0x100000                 ; memory for app
-  dd     0xc1000                  ; esp
+               dd     0x100000                ; esp
-  dd     0x0 , 0x0               ; I_Param , I_Icon
+               dd     0x0 , 0x0               ; I_Param , I_Icon
+include 'ascl.inc'
 ;include "DEBUG.INC"
 macro setcell x,y  { mov     [esi + 512*(y)*3 + (x)*3], al }
 START:
     mov     al, 0xFF
     mov     esi, I_END
     ; This is the seed pattern.
     ; Life needs a seed pattern, which is 'hardcode' at compile time
     ; The grid is 512 wide (x direction) by 512 deep (y direction)
     ; setcell take the arguments setcell x,y
     ; 0,0 is the top left corner.
-;    setcell 200,120
+    setcell 200,120
-;    setcell 201,120
+    setcell 201,120
-;    setcell 200,121
+    setcell 200,121
-;    setcell 199,121
+    setcell 199,121
-;    setcell 200,122
+    setcell 200,122
-;    setcell 70,120
+    setcell 70,120
-;    setcell 71,120
+    setcell 71,120
-;    setcell 70,121
+    setcell 70,121
-;    setcell 69,121
+    setcell 69,121
-;    setcell 70,122
-    mov     eax, 40
-    mov     ebx, 100101b
-    int     0x40
+    setcell 70,122
     call    draw_window
+    ;Random generation dots
+    mov ecx,20000
+xxx:
+    push ecx
+    random 30000,edi     ;up pice of screen
+    mov al,0xff
-still:
+    shl edi,3
+;    mov [I_END+edi],al
-;    mov  eax, 23                 ; wait here for event
+;    random 50000,edi     ;down pice of screen
+;    mov al,0xff
+;    shl edi,3
-;    mov  ebx, 5
+    add edi,512*460 ;760
+    mov [I_END+edi],al
-;    int  0x40
+    pop ecx
-    mov  eax, 11
-    int  0x40
-    test eax, eax
+    dec ecx
-    je   nokey
-    cmp  eax,1                  ; redraw request ?
-    je   red
-    cmp  eax,3                  ; button in buffer ?
+    jnz xxx
     je   button
-    cmp  eax,6
-    je   mouse
-    jmp  still
-  mouse:
-    mov  eax, 37
-    mov  ebx, 2
-    int  0x40
-    test eax, eax
-    jz   still
-    mov  eax, 37
-    mov  ebx, 1
-    int  0x40
-    sub  eax, 5*65536+20
-    mov  ebx, eax
-    shr  eax, 16
-    and  ebx, 0xffff
-; WRITE COORDINATES
-;   dpd  eax
-;   dps  "  "
-;   dpd  ebx
-;   dps  <10,13>
-    cmp  ax, 0
-    js   still
-    cmp  bx, 0
-    js   still
-    shl  ebx, 9
-    add  ebx, eax
-    imul ebx, 3
+still:
     add  ebx, I_END
-    mov  [ebx], dword 0xFFFFFFFF
+    timeevent 5,nokey,red,key,button    ;Wait EVENT with 5 fps
-    jmp  draw
+    jmp still
-  red:                          ; REDRAW WINDOW
+red:                          ; REDRAW WINDOW
     call draw_window
     jmp  still
+key:                          ; KEY
+    mov  eax,2                  ; get it, but ignore
     int  0x40
-nokey:
-    ; cycle life state
-mov eax,5
+nokey:
 mov ebx,5
-int 0x40
+    ; cycle life state
     mov  esi, I_END + 512*3
     mov     al, 0xFF
 lifeloop:
     mov     ah, 0
     cmp     [esi - 3], al
     jne     t2
     inc     ah
 t2:
     cmp     [esi + 3], al
     jne     t3
     inc     ah
 t3:
     cmp     [esi - 512*3], al
     jne     t4
     inc     ah
 t4:
     cmp     [esi + 512*3], al
     jne     t5
     inc     ah
 t5:
     cmp     [esi - 512*3 - 3], al
     jne     t6
     inc     ah
 t6:
     cmp     [esi - 512*3 + 3], al
     jne     t7
     inc     ah
 t7:
     cmp     [esi + 512*3 - 3], al
     jne     t8
     inc     ah
 t8:
     cmp     [esi + 512*3 + 3], al
     jne     tend
     inc     ah
 tend:
     ; If cell is empty but has 3 neigbours, birth
     ; If cell is occupied and has 2,3 neigbours, live
     ; else die
     cmp     ah, 3
     jne     btest
     mov     [esi+1], al
     jmp     nextcell
 btest:
     cmp     ah, 2
     jne     nextcell
     cmp     [esi], al
     jne     nextcell
     mov     [esi+1], al
 nextcell:
     add     esi, 3
     cmp     esi, I_END + 512*512*3
     jne     lifeloop
     ; copy new generation across
     mov     ecx, 512*512*3
     mov     esi, I_END+1
     mov     edi, I_END
     rep     movsb               ; copy the data across
     mov     ecx, 512*512
     mov     esi, I_END
 nc1:
     mov     [esi+2], byte 0
     add     esi, 3
     loop    nc1
-draw:
     mov     ebx, I_END
     mov     ecx, 512*65536+512
-    mov     edx, 5*65536+22
+    mov     edx, 5*65536+20
     mov     eax,7
     int     0x40
     jmp  still
 button:                       ; BUTTON - only close supported
-    or   eax,-1
-    int  0x40
+    close
 ;   *********************************************
 ;   *******  WINDOW DEFINITIONS AND DRAW ********
 ;   *********************************************
 draw_window:
-    mov  eax,12
-    mov  ebx,1
-    int  0x40
+    startwd
-    mov  eax,0                     ; open window
-    mov  ebx,50*65536+512+9
-    mov  ecx,50*65536+512+22+4
+    window 50,50,512+9,512+23,window_Skinned
-    mov  edx,0x03000000
-    int  0x40
-    mov  eax,4                     ; WINDOW LABEL
+    label  8,8,'Life Screen',cl_White+font_Big
-    mov  ebx,8*65536+8
-    mov  ecx,0x10ffffff
-    mov  edx,header
-    mov  esi,header.size
-    int  0x40
+    endwd
-    mov     eax,12                    ; function 12:tell os about windowdraw
-    mov     ebx,2                     ; 2, end of draw
-    int     0x40
     ret
-; DATA AREA
-header          db  'Life'
-   .size = $ - header
 I_END:

Subversion Repositories Kolibri OS

(root)/programs/games/life/trunk/life.asm – Rev 109 → 132