Subversion Repositories Kolibri OS

;

;    PONG for MENUET v1.1

;    2001 by Mario Birkner, Germany

;    cyflexx@digitalrice.com

;

;    PONG for MENUET is

;    a small PONG-clone for MenuetOS/KolibriOS

;

;

;    improved by Oleksandr Bogomaz aka Albom

;    albom85@yandex.ru

;    11.07.2008

;

format binary as ""

CK_UP1 equ 16

CK_DOWN1 equ 30

CK_UP2 equ 72

CK_DOWN2 equ 80

use32

                org     0x0

                db     'MENUET01'

                dd     1                         ; version

                dd     START                     ; program start

                dd     I_END                     ; program image size

                dd     MEM                       ; size memory for program

                dd     STACKTOP                  ; pointer on stack

                dd     0

                dd     0

include '../../../macros.inc'

START:

    mov  eax, 66

    mov  ebx, 1

    mov  ecx, ebx

    mcall               ; óñòàíîâèòü ðåæèì ñêàíêîäîâ

    call draw_window

still:

    mov  eax,10

    add  eax,[control]

    mcall

    cmp  eax,1

    je   red

    cmp  eax,2

    je   key

    cmp  eax,3

    je   button

    cmp  [control],1

    jne  still

    mov  eax,5

    mov  ebx,[delay]

    mcall

    ; â ñîîòâåòñòâèè ñ íàæàòûìè êëàâèøàìè ïåðåìåùàåì ïëîæàäêè

    cmp  [is_up1], 1

    jne  _next_key1

    cmp  [posya],52*65536+64

    je   _next_key2

    sub  [posya],4*65536

 _next_key1:

    cmp  [is_dn1], 1

    jne  _next_key2

    cmp  [posya],140*65536+64

    je   _next_key2

    add  [posya],4*65536

 _next_key2:

    cmp  [is_up2], 1

    jne  _next_key3

    cmp  [posyb],52*65536+64

    je   keys_ok

    sub  [posyb],4*65536

 _next_key3:

    cmp  [is_dn2], 1

    jne  _next_key4

    cmp  [posyb],140*65536+64

    je   keys_ok

    add  [posyb],4*65536

 _next_key4:

 keys_ok:

    ; ñòèðàåì ïëîùàäêè

    call cl1

    call cl0

    ; ðèñóåì ïëîùàäêè

    call drawpad

    jmp  move

 red:

    call draw_window

    cmp  [control],1

    jne  still

    call clall

    call drawpad

    jmp  still

 key:

    mov  eax,2

    mcall

    cmp  [control],1

    jne  still

   up1:

    cmp  ah,CK_UP1 ; îáðàáîòêà íàæàòèÿ êëàâèøè

    jne  dn1

    mov  [is_up1], 1

    mov  [is_dn1], 0

    jmp  still

   dn1:

    cmp  ah,CK_DOWN1 ; îáðàáîòêà íàæàòèÿ êëàâèøè

    jne  up1u

    mov  [is_up1], 0

    mov  [is_dn1], 1

    jmp  still

   up1u:

    cmp  ah,CK_UP1+128 ; îáðàáîòêà îòïóñêàíèÿ êëàâèøè

    jne  dn1u

    mov  [is_up1], 0

    mov  [is_dn1], 0

    jmp  still

   dn1u:

    cmp  ah,CK_DOWN1+128 ; îáðàáîòêà îòïóñêàíèÿ êëàâèøè

    jne  up2

    mov  [is_up1], 0

    mov  [is_dn1], 0

    jmp  still

   up2:

    cmp  ah,CK_UP2 ; îáðàáîòêà íàæàòèÿ êëàâèøè

    jne  dn2

    mov  [is_up2], 1

    mov  [is_dn2], 0

    jmp  still

   dn2:

    cmp  ah,CK_DOWN2 ; îáðàáîòêà íàæàòèÿ êëàâèøè

    jne  up2u

    mov  [is_up2], 0

    mov  [is_dn2], 1

    jmp  still

   up2u:

    cmp  ah,CK_UP2+128 ; îáðàáîòêà îòïóñêàíèÿ êëàâèøè

    jne  dn2u

    mov  [is_up2], 0

    mov  [is_dn2], 0

    jmp  still

   dn2u:

    cmp  ah,CK_DOWN2+128 ; îáðàáîòêà îòïóñêàíèÿ êëàâèøè

    jne  still

    mov  [is_up2], 0

    mov  [is_dn2], 0

    jmp  still

  button:

    mov  eax,17

    mcall

    cmp  ah,1

    jne  button2

    mov  eax,-1

    mcall

    jmp  still

  button2:

    cmp  ah,2

    jne  still

    mov  [control],1

    mov  [scp1],0

    mov  [scp2],0

    jmp  res

 move:

    mov  eax,[mposx]

    mov  ebx,[mposy]

    add  [bposx],eax

    add  [bposy],ebx

    cmp  [bposx],16*65536+16

     je  pf1

    cmp  [bposx],272*65536+16

     je  pf2

    cmp  [bposy],191*65536+16

     je  bot

    cmp  [bposy],48*65536+16

     je  top

    cmp  [bposx],247*65536+16

     je  rig

     jg  padr

    cmp  [bposx],55*65536+16

     je  lef

     jl  padl

    jmp  draw

 padr:

    mov  ecx,[posyb]

    jmp  pad

 padl:

    mov  ecx,[posya]

 pad:

    mov  eax,[bposy]

    sub  eax,16

    mov  ebx,eax

    add  ebx,17*65536

    sub  ecx,64

    mov  edx,ecx

    add  edx,65*65536

    cmp  eax,edx

    je   top

    cmp  ebx,ecx

    je   bot

    jmp  draw

  bot:

    mov  [mposy],-65536

    jmp  draw

  top:

    mov  [mposy],65536

    jmp  draw

  rig:

    mov  eax,[posyb]

    sub  eax,1*65536-64 ;verhindert das der ball ins paddle eindringt

    mov  ebx,[posyb]

    add  ebx,64*65536-64

    mov  ecx,[bposy]

    add  ecx,16*65536-16

    mov  edx,[bposy]

    sub  edx,16

    cmp  ecx,eax

     je  blr

     jl  draw

    cmp  edx,ebx

     je  blr

     jl  blr

     jg  draw

   blr:

    mov  [mposx],-65536

    jmp  draw

  lef:

    mov  eax,[posya]

    sub  eax,1*65536+64

    mov  ebx,[posya]

    add  ebx,64*65536-64

    mov  ecx,[bposy]

    add  ecx,16*65536-16

    mov  edx,[bposy]

    add  edx,16

    cmp  ecx,eax

     je  bll

     jl  draw

    cmp  edx,ebx

     je  bll

     jl  bll

     jg  draw

   bll:

    mov  [mposx],65536

    jmp  draw

drawpad:

; draw paddle

    mov  edx,[posya]

    shr  edx,16

    add  edx,32*65536

    mov  ecx,24*65536+64

    mov  ebx,paddle

    mov  eax,7

    mcall

    mov  edx,[posyb]

    shr  edx,16

    add  edx,264*65536

    mov  eax,7

    mov  ebx,paddle

    mov  ecx,24*65536+64

    mcall

    ret

draw:

; draw ball

    mov  eax,13

    mov  ebx,-65536+2

    mov  ecx,-65536+2

    add  ebx,[bposx]

    add  ecx,[bposy]

    xor  edx,edx

    mcall

    add  ebx,65536-2

    add  ecx,65536-2

    mov  edx,ebx

    and  edx,0xffff0000

    mov  esi,ecx

    shr  esi,16

    add  edx,esi

    mov  esi,ebx

    shl  esi,16

    mov  edi,ecx

    and  edi,0x0000ffff

    add  esi,edi

    mov  ecx,esi

    mov  ebx,ball

    mov  eax,7

    mcall

    jmp  still

cls:

    mov  eax,13

    mov  edx,0x00000000

    mcall

    ret

cl0:

    mov  ebx,32*65536+24

    mov  ecx,[posya]

    sub  ecx,4*65536+60

    call cls

    mov  ecx,[posya]

    add  ecx,64*65536-60

    call cls

    ret

cl1:

    mov  ebx,264*65536+24

    mov  ecx,[posyb]

    sub  ecx,4*65536+60

    call cls

    mov  ecx,[posyb]

    add  ecx,64*65536-60

    call cls

    ret

clall:

    mov  ebx,16*65536+288

    mov  ecx,47*65536+161

    call cls

    ret

pf1:

    inc  [scp2]

    jmp  res

pf2:

     inc  [scp1]

 res:

    cmp  [scp2],20

     je  over

    cmp  [scp1],20

     je  over

    mov  [bposx],152*65536+16 ;default position ball

    mov  [bposy],119*65536+16

    call draw_window

    call clall

    call drawpad

    jmp  draw

over:

    mov  [control],0

    call draw_window

    mov  eax,4

    mov  ebx,120*65536+100

    mov  ecx,0x00ffdd00

    mov  esi,14

    cmp  [scp1],20

    jne  win

    mov  edx,w1

    mcall

    jmp  still

 win:

    mov  edx,w2

    mcall

    jmp  still

;   *********************************************

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

;   *********************************************

draw_window:

    mov  eax,12

    mov  ebx,1

    mcall

    mov  eax,0

    mov  ebx,100*65536+320

    mov  ecx,100*65536+250

    mov  edx,0x144873a0    ;70d0

    mov  edi,labelt

    mcall

    mov  eax,8

    mov  ebx,20*65536+80

    mov  ecx,220*65536+20

    mov  edx,2

    mov  esi,0x900000

    mcall

    mov  eax,4

    mov  ebx,38*65536+227

    mov  ecx,0x00FFFFFF

    mov  edx,b0lab

    mov  esi,8

    mcall

    mov  eax,4

    mov  ebx,25*65536+30

    mov  ecx,0x00ffdd00

    mov  edx,welcome

    mov  esi,40

    mcall

    mov  eax,4

    mov  ebx,220*65536+228

    mov  ecx,0x00ffdd00

    mov  edx,scotext

    mov  esi,11

    mcall

    mov  eax,47

    mov  ebx,0x00020000

    mov  ecx,[scp1]

    mov  edx,268 shl 16+228

    mov  esi,0x0000ddff

    mcall

    mov  eax,47

    mov  ebx,0x00020000

    mov  ecx,[scp2]

    mov  edx,285 shl 16+228

    mov  esi,0x0000ddff

    mcall

    mov  eax,12

    mov  ebx,2

    mcall

    ret

; DATA AREA

posya   dd 96*65536+64  ;default position paddle

posyb   dd 96*65536+64

bposx   dd 152*65536+16 ;default position ball

bposy   dd 119*65536+16

mposx   dd 65536        ;richtung ball

mposy   dd 65536

control dd 0x0

delay   dd 0x1          ;delay betw. frames

scp1    dd 0x0

scp2    dd 0x0

is_up1  dd 0x0 ; \

is_dn1  dd 0x0 ; | êàêèå êëàâèøè íàæàòû

is_up2  dd 0x0 ; |

is_dn2  dd 0x0 ; /

include "lang.inc"

if lang eq ru

include "russian.inc"

else

include "english.inc"

end if

ball:

file "ball.raw"

paddle:

file "paddle.raw"

I_END:

        rb 256

STACKTOP:

MEM: