headerflag:
	db 0

blocktype:
	db 0		;basic program

filename:
	db "LOADER    "

payloadlength:
	dw endbodytap - bodytap - 4

autorunlinenumber:
	dw 0

variablearea:
	dw endbodytap - bodytap - 4

checksum:
	db 0

bodytap:
INCBIN body.tap
endbodytap: