| 0,0 → 1,254 |
|---|
| ; |
| ; 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: |
| Property changes: |
|---|
| Added: svn:eol-style |
|---|
| +native |
|---|
| \ No newline at end of property |
|---|