;:sys36864
	;.opt oo
komma	=$aefd
frmnum	=$ad8a
strout	=$ab1e
out	=$ffd2
puf	=139
facmem	=$bbd4
space	=$ab3f
return	=$aad7
	*= 49152
	jsr komma
	jsr frmnum
	ldx #<puf
	ldy #>puf
	jsr facmem
	lda #<txt
	ldy #>txt
	jsr strout
	ldx #0
loop	lda puf,x
	jsr hex
	jsr space
	inx
	cpx #5
	bcc loop
	jmp return
hex	pha
	lsr
	lsr
	lsr
	lsr
	jsr oma
	pla
oma	and #$f
	cmp #10
	bcc kl10
	clc
	adc #7
kl10	clc
	adc #"0"
	jmp out
txt	.byt 13,13
	.byte "ex m1 m2 m3 m4"
	.byt 13,0