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

 ;   www.waptap@mail.ru
+;
 ;   Not use bmpfile!
+;******************************************************************************
+format binary as ""
 ;******************************************************************************
     use32
     org    0x0
     db     'MENUET01'              ; 8 byte id
     dd     0x01                    ; header version
     dd     START                   ; start of code
     dd     IM_END                  ; size of image
     dd     0x300000                ; memory for app
     dd     0x300000                ; esp
-    dd     temp_area , 0x0         ; I_Param , I_Icon
+    dd     temp_area, 0x0          ; I_Param , I_Path
 ;******************************************************************************
-START:                          ; start of execution
-    call draw_window
+START:                          ; start of execution
         call    draw_window
 ;    loadbmp '/RD/1/PONG.BMP',temp_area,I_END,tsoi
-    convbmp  pongfile,tsoi
+        convbmp pongfile, tsoi
-    bmptoimg pongfile,tsoi,pong
+        bmptoimg pongfile, tsoi,pong
-    getimg pong,0,0,80,4,img
+        getimg pong, 0, 0, 80, 4, img
-    getimg pong,0,4,80,4,img2
+        getimg pong, 0, 4, 80, 4, img2
-    getimg pong,5,38,15,15,img3
+        getimg pong, 5, 38, 15, 15, img3
-    getimg pong,0,8,80,20,img5
-    fullimg img4 , 80 ,20 ,0x00000000   ;black for rocket
-    fullimg img6 , 15 ,15 ,0x00000000   ;black for ball
+        getimg pong, 0, 8, 80, 20, img5
         fullimg img4, 80 ,20 ,0x00000000   ;black for rocket
         fullimg img6, 15 ,15 ,0x00000000   ;black for ball
 still:
 still:
-    scevent red,key,button
+        scevent red,key,button
-	;mcall 48, 4 ;get skin width
+        ;mcall 48, 4 ;get skin width
-	;sub [skin_h], 16
+        ;sub [skin_h], 16
-	;div eax, 2
+        ;div eax, 2
-	;mov [skin_h], eax
+        ;mov [skin_h], eax
-    outcount dword [scoreb],300,8,cl_Blue,5*65536
+        outcount [scoreb], 300, 4, 0x10000000 + cl_Blue, 5 shl 16
-    outcount dword [scorea],350,8,cl_Red,5*65536
+        outcount [scorea], 350, 4, 0x10000000 + cl_Red, 5 shl 16
 del_images:
-    setimg dword [ply1x],dword [ply1y],img4
+del_images:
-    setimg dword [ply2x],dword [ply2y],img4
+        setimg [ply1x], [ply1y], img4
-    setimg dword [ballx],dword [bally],img6
+        setimg [ply2x], [ply2y], img4
-    setimg dword [gravx],dword [gravy],img4
+        setimg [ballx], [bally], img6
+        setimg [gravx], [gravy], img4
-move_ply1:
-    correct [ply1x],[ply1rx],4
+move_ply1:
-    correct [ply1y],[ply1ry],2
+        correct [ply1x], [ply1rx], 4
         correct [ply1y], [ply1ry], 2
 ;automove ball
-    mov eax,dword [ballxv]
+; automove ball
-    add dword [ballx],eax
+        mov     eax, [ballxv]
-    mov eax,dword [ballyv]
+        add     [ballx], eax
-    add dword [bally],eax
+        mov     eax, [ballyv]
         add     [bally], eax
 ;autoslow ball
-    cmp dword [ballxv],0
+        cmp     [ballxv], 0
-    jl ballb
+        jl       ballb
 balla:
-    cmp dword [ballxv],2
+        cmp     [ballxv], 2
-    jng balln
+        jng     balln
-    dec dword [ballxv]
+        dec     [ballxv]
-    jmp balln
+        jmp     balln
 ballb:
-    cmp dword [ballxv],-2
+        cmp     [ballxv], -2
-    jnl balln
+        jnl     balln
-    inc dword [ballxv]
+        inc     [ballxv]
-    jmp balln
+        jmp     balln
 balln:
-    cmp dword [ballyv],2
+        cmp     [ballyv], 2
-    jng by_n
+        jng     by_n
-    dec dword [ballyv]
+        dec     [ballyv]
 by_n:
 ;ball collusion of screen
-    cmp dword [ballx],640-32
+        cmp     [ballx], 640-32
-    jna xa_ok
+        jna     xa_ok
-    neg dword [ballxv]
+        neg     [ballxv]
 xa_ok:
-    cmp dword [ballx],6
+        cmp     [ballx], 6
-    jnb xb_ok
+        jnb     xb_ok
-    neg dword [ballxv]
+        neg     [ballxv]
 xb_ok:
 ;if ball far out of screen come back
 ; is not work already
-    cmp dword [bally],466
+        cmp     [bally], 466
-    jng yax_ok
+        jng     yax_ok
-    call draw_window
+        call    draw_window
-    inc dword [scoreb]
+        inc     [scoreb]
-    mov dword [bally],240
+        mov     [bally], 240
-    mov dword [ballx],310
+        mov     [ballx], 310
-    mov dword [ballyv],2
+        mov     [ballyv], 2
-    random 5,dword [ballxv]
+        random 5, [ballxv]
-    sub dword [ballxv],2
+        sub     [ballxv], 2
 yax_ok:
-    cmp dword [bally],30
+        cmp     [bally], 30
-    jnl yax_ok2
+        jnl     yax_ok2
-    call draw_window
+        call    draw_window
-    inc dword [scorea]
+        inc     [scorea]
-    mov dword [bally],240
+        mov     [bally], 240
-    mov dword [ballx],310
+        mov     [ballx], 310
-    mov dword [ballyv],2
+        mov     [ballyv], 2
-    random 5,dword [ballxv]
+        random 5, [ballxv]
-    sub dword [ballxv],2
+        sub     [ballxv], 2
 yax_ok2:
 xorx:
-    cmp dword [ballxv],0
+        cmp     [ballxv], 0
-    jne norx
+        jne     norx
-    random 5,dword [ballxv]
+        random 5, [ballxv]
-    sub dword [ballxv],2
+        sub     [ballxv], 2
-    cmp dword [ballxv],0
+        cmp     [ballxv], 0
-    je  xorx
+        je      xorx
 norx:
 ;test on collusion ply1 of ball
 collusion_test:
-    collimg img,[ply1x],[ply1y],img3,[ballx],[bally],eax
+        collimg img, [ply1x], [ply1y], img3, [ballx], [bally], eax
-    cmp eax,1
+        cmp     eax, 1
-    jne not_coll
+        jne     not_coll
-    neg dword [ballyv]
+        neg     [ballyv]
-    add dword [bally],4
+        add     [bally], 4
-;    neg dword [ballxv]
+;        neg     [ballxv]
 not_coll:
 ;test on collusion com of ball
 collusion_com:
-    collimg img,[ply2x],[ply2y],img3,[ballx],[bally],eax
+        collimg img, [ply2x], [ply2y], img3, [ballx], [bally], eax
-    cmp eax,1
+        cmp     eax, 1
-    jne not_collcom
+        jne     not_collcom
-    neg dword [ballyv]
+        neg     [ballyv]
-    sub dword [bally],4
+        sub     [bally], 4
-;    neg dword [ballxv]
+;        neg dword [ballxv]
 not_collcom:
 ;test on collusion gravity of ball
 collusion_grav:
-    collimg img,[gravx],[gravy],img3,[ballx],[bally],eax
+        collimg img, [gravx], [gravy], img3, [ballx], [bally], eax
-    cmp eax,1
+        cmp     eax, 1
-    jne not_collg
+        jne     not_collg
-    neg dword [ballyv]
+        neg     [ballyv]
-;    mov dword [ballxv],-20
+;        mov     [ballxv], -20
-    cmp dword [ballyv],0
+        cmp     [ballyv], 0
-    jl  ab
+        jl      ab
-    jg  bf
+        jg      bf
-    jmp not_collgx
+        jmp     not_collgx
 ab:
-    sub dword [ballyv],25
+        sub     [ballyv], 25
-    jmp not_collgx
+        jmp     not_collgx
 bf:
-    add dword [ballyv],25
+        add     [ballyv], 25
 not_collgx:
-    cmp dword [ballxv],0
+        cmp     [ballxv], 0
-    jl  abx
+        jl      abx
-    jg  bfx
+        jg      bfx
-    jmp not_collg
+        jmp     not_collg
 abx:
-    sub dword [ballxv],8 ;15
+        sub     [ballxv], 8 ;15
-    jmp not_collg
+        jmp     not_collg
 bfx:
-    add dword [ballxv],8
+        add     [ballxv], 8
-;    mov dword [ballyv],20
+;        mov     [ballyv], 20
 not_collg:
 ;ply contorl
-    cmp dword [ply1rx],560
+        cmp     [ply1rx], 560
-    jna plyok
+        jna     plyok
-    cmp dword [ply1rx],12000
+        cmp     [ply1rx], 12000
-    jna paa
+        jna     paa
-    mov dword [ply1rx],4
+        mov     [ply1rx], 4
-    jmp plyok
+        jmp     plyok
 paa:
-    mov dword [ply1rx],560
+        mov     [ply1rx], 560
 plyok:
 ;com contorl
-    cmp dword [ply2x],560
+        cmp     [ply2x], 560
-    jna cplyok
+        jna     cplyok
-    cmp dword [ply2x],12000
+        cmp     [ply2x], 12000
-    jna cpaa
+        jna     cpaa
-    mov dword [ply2x],4
+        mov     [ply2x], 4
-    jmp cplyok
+        jmp     cplyok
 cpaa:
-    mov dword [ply2x],560
+        mov     [ply2x], 560
 cplyok:
 ;com move
 cx_move:
-    cmp dword [bally],160
+        cmp     [bally], 160
-    jna cno_m
+        jna     cno_m
-    mov eax,dword [ballx]
+        mov     eax, [ballx]
-    sub eax,30
+        sub     eax, 30
-    cmp dword [ply2x],eax
+        cmp     [ply2x], eax
-    je  cno_m
+        je      cno_m
-    cmp dword [ply2x],eax
+        cmp     [ply2x], eax
-    ja  cm_m
+        ja      cm_m
 cm_p:
-    add dword [ply2x],3
+        add     [ply2x], 3
-    jmp cno_m
+        jmp     cno_m
 cm_m:
-    sub dword [ply2x],3
+        sub     [ply2x], 3
-cno_m:
 cno_m:
 ;garvity
   key:                          ; key
-    mov eax,2
+        mov     eax, 2
-    mcall
+        mcall
-    cmp ah,key_Left
+        cmp     ah, key_Left
-    jne no_l
+        jne     no_l
-    sub dword [ply1rx],32 ;16
+        sub     [ply1rx], 32 ;16
 no_l:
-    cmp ah,key_Right
+        cmp     ah, key_Right
-    jne no_r
+        jne     no_r
-    add dword [ply1rx],32 ;16
+        add     [ply1rx], 32 ;16
 no_r:
-    cmp ah,key_Up
+        cmp     ah, key_Up
-    jne no_u
+        jne     no_u
-    sub dword [ply1ry],16
+        sub     [ply1ry], 16
 no_u:
-    cmp ah,key_Down
+        cmp     ah, key_Down
-    jne no_d
+        jne     no_d
-    add dword [ply1ry],16
+        add     [ply1ry], 16
 no_d:
-    cmp ah,key_Space
+        cmp     ah, key_Space
-    jne no_sp
+        jne     no_sp
-    mov dword [gravtime],100
+        mov     [gravtime], 100
 no_sp:
-    jmp  still
+        jmp     still
-scoreb dd 0
+scoreb          dd 0
-counter dd 0
+counter         dd 0
-tsoi dd 0
+tsoi            dd 0
 pongfile:
-file 'pong.bmp'
+pongfile        file 'pong.bmp'
-IM_END:
-temp:
-rb 20000
+IM_END:
-pong:
-rb 80*60*3+8
-img:
+temp            rb 20000
-rb 32*32*3+8
-img2:
-rb 32*32*3+8
-img3:
+pong            rb 80*60*3+8
-rb 32*32*3+8
-img4:
+img             rb 32*32*3+8
-rb 80*20*3+8
-img5:
+img2            rb 32*32*3+8
-rb 32*32*3+8
+img3            rb 32*32*3+8

Subversion Repositories Kolibri OS

(root)/programs/games/pong3/trunk/pong3.asm – Rev 2674 → 6024