dos33fsprogs/games/peasant/wait_a_bit.s

	;====================================
	; wait for keypress or a few seconds
	;====================================
	; A is length to wait

wait_a_bit:

	bit	KEYRESET
	tax

keyloop:
	lda	#200			; delay a bit
	jsr	wait

	lda	KEYPRESS
	bmi	done_keyloop

	dex
	bne	keyloop
	beq	no_escape

done_keyloop:

	and	#$7f
	cmp	#27
	bne	no_escape

	inc	ESC_PRESSED
no_escape:

	bit	KEYRESET

	rts
peasant: auto-walk everywhere now 2021-08-12 19:41:39 +00:00			`;====================================`
			`; wait for keypress or a few seconds`
			`;====================================`
peasant: work on moving music to MUSIC had to re-arrange thigns a bit also fix ESCAPE to work again in intro 2021-09-24 03:49:10 +00:00			`; A is length to wait`
peasant: auto-walk everywhere now 2021-08-12 19:41:39 +00:00
			`wait_a_bit:`

			`bit KEYRESET`
			`tax`

			`keyloop:`
			`lda #200 ; delay a bit`
peasant: move music playing to the language card this was a huge pain also had to remove all calls to the firmware 2021-09-26 02:44:07 +00:00			`jsr wait`
peasant: auto-walk everywhere now 2021-08-12 19:41:39 +00:00
			`lda KEYPRESS`
			`bmi done_keyloop`

			`dex`
			`bne keyloop`
peasant: work on moving music to MUSIC had to re-arrange thigns a bit also fix ESCAPE to work again in intro 2021-09-24 03:49:10 +00:00			`beq no_escape`
peasant: auto-walk everywhere now 2021-08-12 19:41:39 +00:00
			`done_keyloop:`

peasant: work on moving music to MUSIC had to re-arrange thigns a bit also fix ESCAPE to work again in intro 2021-09-24 03:49:10 +00:00			`and #$7f`
			`cmp #27`
			`bne no_escape`

			`inc ESC_PRESSED`
			`no_escape:`

peasant: all hardware detection at beginning 2021-09-23 18:59:07 +00:00			`bit KEYRESET`
peasant: have ESCAPE quit the intro 2021-08-15 04:02:13 +00:00
peasant: all hardware detection at beginning 2021-09-23 18:59:07 +00:00			`rts`
peasant: have ESCAPE quit the intro 2021-08-15 04:02:13 +00:00

peasant: auto-walk everywhere now 2021-08-12 19:41:39 +00:00