; this file contains numerous ntsc patches - each starting by checking the ntsc status of the machine

Game_text_ntsc::
	movem.l	d0-d2/a0,-(sp)

;	tst.b	ntsc_type.w
;	beq.b	.ex

	movea.l	#spdpt,a0	; start address
	move.l	#RainA,d0
	sub.l	a0,d0
	asr.l	#1,d0		; d0 is loop counter
	swap	d0
.lp0:	swap	d0
.lp1:	move.b	(a0)+,d1
	move.b	(a0)+,d2
	bpl.b	.lv
	cmp.b	#$f0,d1
	bne.b	.lv
	move.b	#$fd,-2(a0)
.lv:	dbra	d0,.lp1
	swap	d0
	dbra	d0,.lp0

.ex:	movem.l	(sp)+,d0-d2/a0
	rts

set_screen_height::
	move.l	#228,d0			; basic ntsc screen height
	tst.b	ntsc_type.w
	bne.b	.ntsc
	move.l	#260,d0
.ntsc:	move.l	d0,screenheight.w
	rts


