include	"lvo/lowlevel.i"
	include	"lvo/nonvolatile.i"
	include	"lvo/timer.i"
	include	"lvo/cia.i"
	include	"libraries/lowlevel.i"
	include	"libraries/nonvolatile.i"

_lowlbase:
	dc.l	0
_nonvbase:
	dc.l	0
_franbase:
	dc.l	0
_lowlname:
	dc.b	"lowlevel.library",0
_franname:
	dc.b	"freeanim.library",0
_nonvname:
	dc.b	"nonvolatile.library",0
_kbdevname:
	dc.b	"keyboard.device",0
_timerdevname:
	dc.b	"timer.device",0
_ciaaname:
	dc.b	"ciaa.device",0
_ciabname:
	dc.b	"ciab.device",0
	even


	include	"freeanim.s"
	include	"nonvolatile.s"
KICKCD32 = 1
	include	"kickproc.s"
	include	"kickdos.s"
	include	"kick31.s"
	include	"lowlevel.s"

InitLowlevelKeyboard:
	lea	_oldint_kb(pc),a0
	move.l	$68.W,(A0)
	lea	_newint_kb(pc),a0
	move.l	a0,$68.W
	rts

_newint_kb:
	movem.l	D0/A0,-(a7)
	move.b	$bfec01,d0
	ror.b	#1,d0
	not.b	d0
	lea	KBDQUALIFIER+1(pc),a0
	move.b	d0,(a0)

	bsr	.ackkb

	movem.l	(a7)+,D0/A0
	move.l	_oldint_kb(pc),-(A7)
	rts

.ackkb:
	bset	#6,$BFEE01
	moveq.l	#2,D0
	bsr	_beamdelay
	bclr	#6,$BFEE01
	rts

; < D0: numbers of vertical positions to wait
_beamdelay
.bd_loop1
	move.w  d0,-(a7)
        move.b	$dff006,d0	; VPOS
.bd_loop2
	cmp.b	$dff006,d0
	beq.s	.bd_loop2
	move.w	(a7)+,d0
	dbf	d0,.bd_loop1
	rts

_oldint_kb:
	dc.l	0

OSM_PORTS_CONFIG
		dc.l	JP_TYPE_GAMECTLR,JP_TYPE_GAMECTLR	; 2 joypads connected
OSM_JOYPAD1KEYS	dc.w	$5455,$5657,$5859	;keys F5-F10 for pad1, offs.48
OSM_JOYPAD0KEYS	dc.w	$0506,$0708,$090a	;keys 5-0 for pad0, offset 54

KBDQUALIFIER:
	dc.w	0
potinp_value:
	dc.w	$ffff
MYRTS:
	rts