Игровая программа, таймер и генерация звука Опции

[Rocket]

Очень просто... Вот тут есть пример практически того, что тебе надо:
Accelerating the Clock

Спасибо, буду разбираться!

volvo, Вы не могли бы посмотреть мой вопрос о random'е в этой теме за 15.05.2009 16:49 ?

[volvo]

Почему я? Кто привел тебе этот код, тот пускай и смотрит, почему код не работает. Все на самом деле гораздо проще делается. Я тебе уже привел ссылку на работающий код. Если тот код тебе не нравится - то (с учетом того, что координаты у тебя все равно однобайтовые, в пределах от 0 до 80) можешь попробовать вот эту процедуру:

RS dw 0
range db 80

random proc
	mov ax, RS
	mov dx, 8405h
	mul dx
	inc ax
	mov dx, ax
	mov RS, ax
	mov cl, range
	sub cl, 2
	inc cx
	xor dx, dx
	div cx
	mov ax, dx ; в AX - случайное число...
	ret
random endp

Получи в одной программе несколько чисел:

	call random
	xor ah, ah
	call writeDEC
	lea dx, CR
	mov ah, 9
	int 21h
	
	call random
	xor ah, ah
	call writeDEC
	lea dx, CR
	mov ah, 9
	int 21h
	
	call random
	xor ah, ah
	call writeDEC
	lea dx, CR
	mov ah, 9
	int 21h

	call random
	xor ah, ah
	call writeDEC
	lea dx, CR
	mov ah, 9
	int 21h

, и убедись, что они все разные, и ни одно не превышает 80. Но вот при разных запусках все последовательности будут одинаковыми, потому что RS не изменяется, он при старте программы всегда один и тот же. Чтобы получить разные последовательности - занеси в RS при старте значение системного таймера...

[Rocket]

Чтобы получить разные последовательности - занеси в RS при старте значение системного таймера...

Заношу в RS секунды и милисекунды системного времени:

data segment

RS dw ?
range db 80
CR db 13,10,"$"
data ends

code segment
	assume cs: code, ds: data

writeDEC proc

	push ax
	push bx
	push cx
	push dx
	
	xor cx, cx
	mov bx, 10
		
 next_digit:
	xor dx, dx	
	div bx		
	push dx		
	inc cx		
	or ax, ax
	jnz next_digit	
		
next_char:
	pop ax		
	add al, '0'
	mov dx, ax
	mov ah, 02h
	int 21h		
	loop next_char
	
	pop  dx
	pop  cx
	pop  bx
	pop  ax
	ret		
writeDEC endp

GetTime proc

	push ax
	push cx
      push dx
	
	xor ax,ax	
	xor cx,cx
	xor dx,dx

	mov ah, 2ch 
	int 21h

	mov al, dh
	mov ah, dl
	mov RS, ax
	pop dx
	pop cx
	pop ax
	ret
GetTime endp

random proc

	push ax
	push bx
	push cx
	push dx



	mov ax, RS
	mov dx, 8405h
	mul dx
	inc ax
	mov dx, ax
	mov RS, ax
	mov cl, range
	sub cl, 2
	inc cx
	xor dx, dx
	div cx
	mov ax, dx ; в AX - случайное число...
	


      pop  dx
	pop  cx
	pop  bx
	pop  ax

ret
random endp	

start:
	mov  ax, data
	mov  ds, ax

	call GetTime
	mov ax, RS
	call writeDEC
	lea dx, CR
	mov ah, 9
	int 21h

      call random
	xor ah, ah
	call writeDEC
	lea dx, CR
	mov ah, 9
	int 21h
	
	call random
	xor ah, ah
	call writeDEC
	lea dx, CR
	mov ah, 9
	int 21h
	
	call random
	xor ah, ah
	call writeDEC
	lea dx, CR
	mov ah, 9
	int 21h

	call random
	xor ah, ah
	call writeDEC
	lea dx, CR
	mov ah, 9
	int 21h
	
mov  ax, 4C00h	
	int  21h
code ends
end start

Теперь всё время печатается 36 четыре раза. Хотя RS разное каждый раз. Такой же результат был и сначала. Что сейчас не так?

[volvo]

Такой же результат был и сначала.

То есть, у тебя не отрабатывает вот это (переименовать в *.ASM):
 rand2.pas ( 1.03 килобайт ) Кол-во скачиваний: 423

вот с таким результатом:

? Ну, тогда я не знаю, что у тебя творится...

Добавлено через 17 мин.
P.S. Соответственно,
 rand3.pas ( 1.09 килобайт ) Кол-во скачиваний: 463

выдает

F:\Asm30>rand3
48
33
54
15

F:\Asm30>rand3
54
15
28
61

F:\Asm30>rand3
43
40
57
78

Поверишь, или еще один скриншот сделать?

[Rocket]

То есть, у тебя не отрабатывает вот это

Спасибо! Всё и у меня заработало

[Rocket]

Почему я? Кто привел тебе этот код, тот пускай и смотрит, почему код не работает. Все на самом деле гораздо проще делается. Я тебе уже привел ссылку на работающий код. Если тот код тебе не нравится - то (с учетом того, что координаты у тебя все равно однобайтовые, в пределах от 0 до 80) можешь попробовать вот эту процедуру:

RS dw 0
range db 80

random proc
	mov ax, RS
	mov dx, 8405h
	mul dx
	inc ax
	mov dx, ax
	mov RS, ax
	mov cl, range
	sub cl, 2
	inc cx
	xor dx, dx
	div cx
	mov ax, dx ; в AX - случайное число...
	ret
random endp

Получи в одной программе несколько чисел:

	call random
	xor ah, ah
	call writeDEC
	lea dx, CR
	mov ah, 9
	int 21h
	
	call random
	xor ah, ah
	call writeDEC
	lea dx, CR
	mov ah, 9
	int 21h
	
	call random
	xor ah, ah
	call writeDEC
	lea dx, CR
	mov ah, 9
	int 21h

	call random
	xor ah, ah
	call writeDEC
	lea dx, CR
	mov ah, 9
	int 21h

, и убедись, что они все разные, и ни одно не превышает 80. Но вот при разных запусках все последовательности будут одинаковыми, потому что RS не изменяется, он при старте программы всегда один и тот же. Чтобы получить разные последовательности - занеси в RS при старте значение системного таймера...

volvo, случайное число помещается в ax, то есть word, а как к byte'ам привести? я что-то запамятовал

[volvo]

случайное число помещается в ax, то есть word, а как к byte'ам привести?

AL взять и использовать, вот и байт тебе...

[TarasBer]

Почему я? Кто привел тебе этот код, тот пускай и смотрит, почему код не работает.

Не знаю, у меня всё работает. Возможно, при переводе из Паскаля в Асм есть ещё какие-то тонкости.