
Parameters_for_the_file_to_load:
	lea	Current_file_name,a0
	move.l	Current_adress,a1
	move.l	Current_length,a2

Read_header_of_the_file_to_load:
	move.w	#0,-(sp)
	move.l	a0,-(sp)
	move.w	#$3d,-(sp)
	trap	#1
	addq.l	#8,sp
      
Read_the_file_to_load:
	move.w	d0,d3
	move.l	a1,-(sp)
	move.l	a2,-(sp)
	move.w	d3,-(sp)
	move.w	#$3f,-(sp)
	trap	#1
	adda.l	#12,sp

Close_the_file_to_load:
	move.l	d0,Current_length
	move.w	d3,-(sp)
	move.w	#$3e,-(sp)
	trap	#1
	addq.l	#4,sp
	rts

Current_file_name:
	dc.b	"               "
	dc.b	$0

Current_adress:
	dc.l	Adress_for_the_file+1

Current_length:
	dc.l	$400000
