Jmp main
pit_handle:
	link	%A6,#0
	move.l  %D0,-(%A7)
	move.l  %D1,-(%A7)
	move.l  %A0,-(%A7)
	movea.l #0x40040000,%A0
	move.l	(%A0),%D1
	move.l	#0x13,%d0
	trap	#15
	move.l	#0x13,%d0
	move.l	#13,%D1
	trap	#15
	ADD.L	#1,(%A0)
	MOVE.L  (%A0),%D0
	CMPI.L	#0x3A,%D0
	BLT	exit
	MOVE.l	#0x30,(%A0)

exit:	move.l -4(%A6),%D0
	move.l -8(%A6),%D1
	move.l -12(%A6),%A0
	unlk	%a6
	rts

main:
	movea.l #0x80003FF0,%A7
	movea.l %A7,%A6

	movea.l #0x40040000,%A0
	move.l	#0x30,(%A0)


	movea.l #0xFC080000,%A0
	move.l	#0x0D1F,%D0
	move.W	%D0,(%A0)
	movea.l	#0xFC080002,%A0
	move.l	#0xFFFF,%D0
	move.l	%D0,(%A0)
	
	move.l	#0x40,%D0
	move.l	#0x44,%D1
	lea	pit_handle,%A0
	move.l	%A0,%D2
	move.l	#0,%D3
	move.l	#0,%D4
	TRAp	#15
	
	move.l	#0xFC048044,%A0
	move.l	#3,%D0
	move.b	%D0,(%A0)
	move.l	#0xFC04800C,%A0
	move.l	(%A0),%D0
	ANDI.L	#0xFFFFFFEF,%D0
	move.l	%D0,(%A0)

	
loop:
	NOP
	JMP	loop