LDA		a,lnko

-- print 'a'
print	LDA		t,buff		-- t=&buff
		ADD 	t,t,7		-- t=t+7
		STBU	null,t,0	-- *(t+0)=null
		SUB		t,t,1		-- t=t-1
5H		DIV		a,a,10		-- a=a/10
		GET		r,rR		-- r=rR (rR == maradék előző műveletből)
		INCL	r,'0'		-- r+='0'
		STBU	r,t,0		-- *(t+0)=r
		SUB		t,t,1		-- t=t-1
		PBNZ	a,5B		-- a!=0 goto 5H

		ADDU	t,t,1		-- t=t+1
		TRAP	0,Fputs,StdOut	-- fk the long names, put t to stdout