mirror of https://github.com/nmlgc/ReC98.git
35 lines
679 B
NASM
35 lines
679 B
NASM
; Waits for all held inputs to be released, then waits the given number of
|
|
; [frames] for an input to be pressed and returns the new input state.
|
|
; Set [frames] to 0 to wait forever.
|
|
; int pascal input_wait_for_change(int frames);
|
|
_input_wait_for_change proc far
|
|
@@frames = word ptr 6
|
|
|
|
push bp
|
|
mov bp, sp
|
|
|
|
@@release_loop:
|
|
call _input_reset_sense_held
|
|
or ax, ax
|
|
jnz short @@release_loop
|
|
mov bp, [bp+@@frames]
|
|
|
|
@@press_loop:
|
|
call _input_reset_sense_held
|
|
or ax, ax
|
|
jnz short @@ret
|
|
mov ax, vsync_Count1
|
|
|
|
@@vsync:
|
|
cmp ax, vsync_Count1
|
|
jz short @@vsync
|
|
or bp, bp
|
|
jz short @@press_loop
|
|
dec bp
|
|
jnz short @@press_loop
|
|
|
|
@@ret:
|
|
pop bp
|
|
retf 2
|
|
_input_wait_for_change endp
|