denpopov, а вот так?
Код:
	DEVICE ZXSPECTRUM128
	org	#6000
header_beg
	db	#00	;command byte
	db	#00
	db	"l'Abbaye  "
	dw	bas_end-bas_beg	;full lenght
	dw	#000a	;autostart
	dw	#0028	;lenght without vars
header_end

; print usr (peek val "23627"+val "256"*peek val "23628"+val "3")
; 34b3 usr

data_beg	
	db	#ff
bas_beg
	db	#00,#0a	;10
	dw	#0024	;¤«Ё** бва®ЄЁp
	db	#f5,#c0,#28,#be			;print usr (peek
	db	#b0,#22,#32,#33,#36,#32,#37,#22,#2b 	;val "23627"+
          db	#b0,#22,#32,#35,#36,#22,#2a,#be	;val "256"*peek
	db	#b0,#22,#32,#33,#36,#32,#38,#22,#2b 	;val "23628"+
	db	#b0,#22,#33,#22,#29,#0d		;val "3")
;(23627)
;vars	
	db	#4c				;L
	dw	screen_l				;var_len
pointer
	di
	ld	h,b
	ld	l,c
	ld	sp,hl
	ld	hl,end_len
	add	hl,bc
	ld	de,#ffff
	ld	bc,pack_len+1
	lddr
	inc	de
	ld	hl,#6000
	push	hl
	ex	de,hl
	include	"DEC40.a80"
	org	$-1
block_beg
	incbin	"AdM_scrn.mlz"
block_end	
	db	#80				;endmarker
bas_end
data_end	

screen_l	equ	bas_end-pointer
pack_len	equ	block_end-block_beg
end_len	equ	block_end-pointer



b_title	
	db	#ff		
;48k - depack to #4000
	incbin	"\gfx\title.scr.rec.mlz"
	incbin	"\gfx\info.scr.rec.mlz"
	incbin	"sound.bin.mlz"
	incbin	"Abbaye.bin.mlz"
end	
data	equ	end-b_title



	display	"header:",header_beg,",",header_end-header_beg
	display	"loader:",data_beg,",",data_end-data_beg
	display	"block :",b_title,",",end-b_title
	display	"Free  :",$,",",#10000-$	

	savebin	"0_Abbey_header",header_beg,header_end-header_beg
	savebin	"1_Abbey_loader",data_beg,data_end-data_beg
	savebin	"2_Abbey_block",b_title,end-b_title
Это для кассеты, но можна же и для диска сделать?