kolibrios/programs/life/trunk/life.asm

;
;    LIFE.ASM
;
;    This program displays Conways game of life
;
;    Compile with FASM v1.49 for DOS;
;
;    Version 0.1a   20th May   2004
;                   Ivan Poddubny
;
;    Version 0.1    30th March 2004
;                   Mike Hibbett
;
;    This is an experiment to see how small a usefull application can get

include "lang.inc"
include "macros.inc"

  use32
  org     0x0

  db     'MENUET01'              ; 8 byte id
  dd     0x01                    ; header version
  dd     START                   ; start of code
  dd     I_END                   ; size of image
  dd     0xc1000                  ; memory for app
  dd     0xc1000                  ; esp
  dd     0x0 , 0x0               ; I_Param , I_Icon

;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 201,120
;    setcell 200,121
;    setcell 199,121
;    setcell 200,122

;    setcell 70,120
;    setcell 71,120
;    setcell 70,121
;    setcell 69,121
;    setcell 70,122

    mov     eax, 40
    mov     ebx, 100101b
    int     0x40

    call    draw_window

still:

;    mov  eax, 23                 ; wait here for event
;    mov  ebx, 5
;    int  0x40
    mov  eax, 11
    int  0x40

    test eax, eax
    je   nokey
    cmp  eax,1                  ; redraw request ?
    je   red
    cmp  eax,3                  ; button in buffer ?
    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
    add  ebx, I_END
    mov  [ebx], dword 0xFFFFFFFF
    jmp  draw

  red:                          ; REDRAW WINDOW
    call draw_window
    jmp  still


nokey:
    ; cycle life state

mov eax,5
mov ebx,5
int 0x40

    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     eax,7
    int     0x40

    jmp  still

button:                       ; BUTTON - only close supported
    or   eax,-1
    int  0x40




;   *********************************************
;   *******  WINDOW DEFINITIONS AND DRAW ********
;   *********************************************


draw_window:
    mov  eax,12
    mov  ebx,1
    int  0x40

    mov  eax,0                     ; open window
    mov  ebx,50*65536+512+9
    mov  ecx,50*65536+512+22+4
    mov  edx,0x03000000
    int  0x40

    mov  eax,4                     ; WINDOW LABEL
    mov  ebx,8*65536+8
    mov  ecx,0x10ffffff
    mov  edx,header
    mov  esi,header.size
    int  0x40

    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: